Linha Microsiga Protheus

Árvore de páginas

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

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:

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  - NSU da Transação (campo L4_NSUTEF) ou número do Boleto (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'

#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