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