[AcbrPos na CIELO LIO]

Em 26/05/2023 at 17:39, Eliezer disse:

Essa é uma solução que consegui chegar. Se alguém precisar segue o código.

 

procedure TMyPaymentListener.onPayment(P1: JOrder);
Var Txt      : String;
    Detalhes : String;
    I        : Integer;
    Order    : JOrder;
    PgTO     : JPayment;
begin
     // Vai retornar os campos fora de Payments
     Txt := '[(getId) ' + JStringToString(P1.getId) + '] ' +
            '[(getNotes) ' + JStringToString(P1.getNotes) + '] ' +
            '[(getNumber) ' + JStringToString(P1.getNumber) + '] ' +
            '[(paidAmount) ' + P1.paidAmount.toString + '] ' +
            '[(getPrice) ' + P1.getPrice.toString + '] ' +
            '[(getReference) ' + JStringToString(P1.getReference) + '] ' +
            '[(getStatus) ' + JStringToString(P1.getStatus.toString) + '] ' +
            '[(getType.identifier) ' + JStringToString(P1.getType.identifier) + '] ' ;

     //
     // Pega os campos dentro de Payments
     Order := P1;
     Order.markAsPaid();
     OrderManager.updateOrder(Order);
     PgTO := TJPayment.Wrap(Order.getPayments.get(0));
     //
     // Campos de Payments
     Txt := Txt + ' [Marca =' + JStringToString(PgTO.getBrand) + '] ';
     Txt := Txt + ' [Terminal =' + JStringToString(PgTO.getTerminal) + '] ';
     Txt := Txt + ' [CodAutorizacao =' + JStringToString(PgTO.getAuthCode) + '] ';
     Txt := Txt + ' [NSU =' + JStringToString(PgTO.getCieloCode) + '] ';
     //
     // Retorna o JSon de PaymentsFields
     Detalhes := JStringToString(PgTO.getPaymentFields.toString);
     //
     // Daqui em diante é só dar continuidade´adaptando o que precisar.
end;

Bom dia 

Alguém já conseguiu portar essa solução para Lazarus+LAMW ?

[AcbrPos na CIELO LIO]

Boa noite como faço para recuperar a bandeira e forma de pagamento efetuada ?