Ponto de Entrada - Lj901ANBol
Este Ponto de Entrada é executado na rotina LOJA901A , para informar os dados adicionais da transação de pagamento em boleto (métodos: 005,008,024,028,036,054 e 067).
Descrição: | Atualizações\Cadastros |
Localização: | E-commerce |
Eventos: | Monitor Serv. CiaShop |
Programa Fonte: | LOJA901A - Pedidos |
Função: | Protheus |
Parâmetos: | Nome | Tipo | Descrição | | oAPed | Objeto | Objeto XML do Pedido e-commerce | oRetExtra | Objeto | Objeto XML referente aos dados extra do pedido e-commerce |
|
Retorno: | Nome | Tipo | Descrição | Obrigatório | aDadosTran | Array | Array unidimensional onde serão gravados as seguintes informações: aDadosTran[1] - Caractere - Número do Boleto (campo L4_NSUTEF e E1_NUMBCO) aDadosTran[2] - Caractere - Documento da TTransação (campo L4_DOCTEF) aDadosTran[3] - Caractere - Número do Cartão (campo L4_NUMCART) | Sim |
|
Exemplo:
#Include 'Protheus.ch'
User Function Lj901ANBol()
Local _oPedido := ParamIXB[1] //Objeto XML do pedido
Local _oDadosExtra := ParamIXB[2]
Local aDadosTran :={ "", "", ""}
Local cMetPag := PADL(oAPed:_RECEIPT_DETAILS:_COD_PG:TEXT, 3, "0") //Método de Pagamento
aDadosTran[1] := cMetPag +PadR(Alltrim(_oPedido:_ORDER_ID:TEXT),11,"0")+"9"
Return aDadosTran
