Exemplos | 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 |
---|