Consulta PIX

[Arnaldo Cruz]

Pessoal estou efetuando pagamento com pix pelo sistema em produção.

1 - Gero o QrCode

2 - O cliente ler este QrCode, efetua o pagamento

3 - o Pagamento cai na Conta tudo certinho e finalizo a venda

O Problema é quando gero o QrCode e o cliente desiste da compra ou por qualquer motivo a venda não vai ser mais concluida

O Problema está no segundo IF que sempre volta Zero

faço os procedimentos abaixo quando pra cancelar o procedimento de pagamento com PIX, antes que ele seja efetuado pelo cliente.

if FDatamodule.ACBrPixCD1.PSP.epCob.ConsultarCobrancaImediata(FFluxoDados.txid) then
begin
    if (FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix.Count > 0) then  /////////////   o Problema é que Aqui sempre volta Zero   /////////////////////////////////////
    begin
        E2E := FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix[0].endToEndId;
        StatusCobranca := FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.status;
        if StatusCobranca = stcATIVA then
        begin
            FDatamodule.ACBrPixCD1.PSP.epCob.CobRevisada.status := stcREMOVIDA_PELO_USUARIO_RECEBEDOR;
            if FDatamodule.ACBrPixCD1.PSP.epCob.RevisarCobrancaImediata(FFluxoDados.TxID) then
            begin
                Panel1.Caption :='Cobrança PIX cancelada com sucesso';
                Faço o cancelamento no sistema
            end;
        end else begin
            Aqui eu faço o tratamento para os demais retorno
        end;
    end;
end if; 

 

[Valber]

Boa tarde tenta colocar ACBrPixCD1.PSP.epCob.CobCompleta.status fora do "if (FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix.Count > 0) then"

altera e faz um teste por gentileza.

[BigWings]

1 hora atrás, Arnaldo Cruz disse:

    if (FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix.Count > 0) then  /////////////   o Problema é que Aqui sempre volta Zero   /////////////////////////////////////
    begin
        E2E := FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix[0].endToEndId;

Só vai ter algo aí se tiver sido feito o pagamento...