Ponto de Entrada - Lj901ADT
Este Ponto de Entrada é executado na rotina LOJA901A; para informar os dados adicionais da transação de pagamento a ser gravado na tabela Condição Negociada do Orçamento (SL4)
Descrição: | Atualizações\Cadastros | |||||||||
Localização: | E-commerce | |||||||||
Eventos: | Monitor Serv. CiaShop | |||||||||
Programa Fonte: | LOJA901A - Pedidos | |||||||||
Função: | Protheus | |||||||||
Parâmetos: |
| |||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
#define _MET_PAGTO_CIELO "073#071#070#085"
#define _MET_PAGTO_REDE "096#097#098#099#100"
#define _MET_PAGTO_REDECARD "019#020#072"
#define _MET_PAGTO_MOIP "075#076#077#078#079#080#081#082#083#084"
#define _MET_PAGTO_BOLETO "005#008#024#028#036#054#067"
#define _MET_PAGTO_KOMERCI_WS "103#104#105#106#107"
User Function Lj901ADT()
Local oAPed := ParamIXB[1] //Objeto XML do pedido
Local aDadosTran :={ "", "", ""}
Local _oDadosExtra := ParamIXB[2]
Local cMetPag := PADL(oAPed:_RECEIPT_DETAILS:_COD_PG:TEXT, 3, "0") //Método de Pagamento
If cMetPag $ _MET_PAGTO_CIELO// "073#071#070#085"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1:TEXT,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2:TEXT,; //AUTORIZACAO
""} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_REDE //"096#097#098#099#100"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1:TEXT,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2:TEXT,; //AUTORIZACAO
""} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_REDECARD //"019#020#072"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1:TEXT,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2:TEXT,; //AUTORIZACAO
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_4:TEXT} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_MOIP //"075#076#077#078#079#080#081#082#083#084"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2:TEXT,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_4:TEXT,; //AUTORIZACAO
""} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_KOMERCI_WS //"103#104#105#106#107"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1:TEXT,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2:TEXT,; //AUTORIZACAO
""} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_BOLETO //"005#008#024#028#036#054#067"
aDadosTran := {oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1:TEXT ,; //NSU - retorna nesse
"",; //AUTORIZACAO
""} //NUMERO DO CARTAO
EndIf
Return aDadosTran