Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fabiana.silva), última alteração em 30 dez, 2015

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