Histórico da Página
...
| Produto: | TOTVS Saúde Planos
| ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: | Linha Protheus | ||||||||||||||||
| Segmento: | Saude | ||||||||||||||||
| Módulo: | PTU | ||||||||||||||||
| Função: | PTU ONLINE | ||||||||||||||||
| Ticket: | 15190649 | ||||||||||||||||
| Requisito/Story/Issue (informe o requisito relacionado) : | DSAUBE-19864 |
02. SITUAÇÃO/REQUISITO
Implementar o ponto de entrada PLSTRTLAY para tornar possível a manipulação do array (Cabeçalho "aDados" e Itens "aItens") antes da geração do XML das transações de PTU Online.
03. SOLUÇÃO
Implementado Ponto de Entrada PLSTRTLAY.
...
Programa fonte: | PLSTRTLAY | ||||||||
|---|---|---|---|---|---|---|---|---|---|
Função: | Manipulação dos arrays de montagem do layout xml ( [ aDados], [ aItens], [ cTipoProc] ) --> Array (aDados, aItens) | ||||||||
Parâmetros: | Nome | Tipo | DescriçãoObrigatório | Array | Caractere | Não | |||
Retorno: Tipo Array | Nome Tipo Descrição Obrigatório | aDados | Array | Sim | Sim |
Funcionamento:
O Ponto de Entrada permite a manipulação do array (Cabeçalho "aDados" e Itens "aItens") antes da geração do layout.
Exemplo de Implementação PLSTRTLAY:
...
1
2
3
4
5
6
7
8
9
10
11
12
...
(Obrigatório) Caso não precise alterar os dados, retornar os mesmos aDados e aItens recebidos no ponto de entrada. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#Include "PROTHEUS.CH"
User Function PLSTRTLAY()
Local aDados := PARAMIXB[1]
Local aItens := PARAMIXB[2]
Local cTipoProc := PARAMIXB[3]
If cTipoProc == "1" // Recebimento
Do Case
Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00600"
// Tratamento para a transação 00600
Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00605"
// Tratamento para a transação 00605
EndCase
Else // 2 = Envio
Do Case
Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00600"
// Tratamento para a transação 00600
Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00605"
// Tratamento para a transação 00605
EndCase
EndIf
// Dica: Para alterar os dados do array poderá ser utilizado a função PlsPtuPut
Return {aDados, |
...
aItens} |
04. DEMAIS INFORMAÇÕES
Não se aplica12675232 DSAUBE-16554 DT PTU ONLINE 9.0
05. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas