Lj901ADT - Dados da Transação de Pagamento do Orçamento e-commerce.

Este Ponto de Entrada permite realizar a geração dos dados do orçamento associado à venda e-commerce, e retorna um array referente aos dados a serem gravados na tabela de dados de pagamento do orçamento (SL4).

Este Ponto de Entrada substitui o P.E. Lj901ANBol, sendo válido para todos os métodos de Pagamento.

Lj901ADT(oAPed, oRetExtra)
#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"


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,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2,; //AUTORIZACAO
""} //NUMERO DO CARTAO

ElseIf cMetPag $ _MET_PAGTO_REDE //"096#097#098#099#100"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2,; //AUTORIZACAO
""} //NUMERO DO CARTAO

ElseIf cMetPag $ _MET_PAGTO_REDECARD //"019#020#072"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_1,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2,; //AUTORIZACAO
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_4} //NUMERO DO CARTAO

ElseIf cMetPag $ _MET_PAGTO_MOIP //"075#076#077#078#079#080#081#082#083#084"
aDadosTran := { oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_2,; //NSU
oAPed:_RECEIPT_DETAILS:_DADOSTRANSACAO_4,; //AUTORIZACAO
""} //NUMERO DO CARTAO
ElseIf cMetPag $ _MET_PAGTO_BOLETO //"005#008#024#028#036#054#067"
aDadosTran := { xNumCaixa()+PadR(Alltrim(oAPed:_ORDER_ID:TEXT),11,"0")+" ",; //NSU
"",; //AUTORIZACAO
""} //NUMERO DO CARTAO


EndIf

Return aDadosTran

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

oAPed - Objeto do XML do Pedido Parseado
oRetExtra - Objeto do XML de Campos Extras Parseado

Array(array_of_record)
Array contendo de 3 posições alfanuméricas, contendo:
c[1] - Numero do NSU/Nosso Número (Para Boletos) - que será gravado no campo L4_NSUTEF/E1_NUMBCO (Bara Boletos)
C[2] - Numero de Autorização - que será gravado no campo L4_DOCTEF
c[3] - Numero do Cartão - que será gravado no campo L4_NUMCART

LOJA901A.PRW