01. DADOS GERAIS
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.
Ponto de Entrada PLSTRTLAY
Programa fonte: | PLSTRTLAY |
---|---|
Função: | Manipulação dos arrays de montagem do xml ( [ aDados], [ aItens], [ cTipoProc] ) --> Array (aDados, aItens) |
Parâmetros: | aDados: Array de Cabeçalho aItens: Array de Itens cTipoProc: Caractere identificando se a origem é Recebimento ou Envio (Recebimento = 1 / Envio = 2) |
Retorno: Tipo Array | aDados: Array de Cabeçalho (Obrigatório) aItens: Array de Itens (Obrigatório) Caso não precise alterar os dados, retornar os mesmos aDados e aItens recebidos no ponto de entrada. |
#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
12675232 DSAUBE-16554 DT PTU ONLINE 9.0
05. ASSUNTOS RELACIONADOS
Não se aplica