Histórico da Página

#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}