...
Programa fonte: | PLSTRTLAY | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|
Função: | Manipulação dos arrays de montagem do xml ( [ aDados], [ aItens], [ cTipoProc] ) --> Array (aDados, aItens) | |||||||||
Parâmetros: | Nome Tipo Descrição Obrigatório | aDados | Array | Array Sim | Array | Sim | ||||
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. Nome Tipo Descrição Obrigatório | |||||||||
aDados | Array | Array de Cabeçalho | Sim | aItens | Array | Array de Itens | Sim
| 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} |
...
