Fluxo do pagamento com TEF (usando ACBrECF+ACBrTEFD)

[Gr@c@]

Não estou conseguindo realizar o fluxo completo de uma transação TEF usando o ACBrECF1 + ACBrTEFD + CliSiTef

bStatusTransacao := ACBrTEFD1.CRT(VlrFormaPagto,
                                  FormatFloat('00',CodFormapagto),
                                  Frm_ECFPrincipal.ACBrECF1.NumCOO);

              if bStatusTransacao then
                begin
                  bEnviouTEF := True;
                  Inc(IndiceTransacaoTef);
                  if not(Frm_ECFPrincipal.ACBrTEFD1.AutoFinalizarCupom) then
                  begin
                    Frm_ECFPrincipal.mmProcesso.Lines.Add('Pagamento [' + sCRTCHQ + ']' + FormatFloat('#,###,##0.00',VlrFormaPagto) +
                                                          '][NSU:'+Frm_ECFPrincipal.ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].NSU +
                                                          '][Rede:'+Frm_ECFPrincipal.ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].Rede+ ']');
                    Frm_ECFPrincipal.ACBrTEFD1.FinalizarCupom( False );  { False não desbloqueia o MouseTeclado }
                    Frm_ECFPrincipal.ACBrTEFD1.ImprimirTransacoesPendentes;
                  end;

sendo VlrFormaPagto = 0.01, CodFormaPagto = 03 = Cartão de Crédito (uma única forma de pagamento usando cartão. O valor do cupom de venda é 0.01)

Consigo chegar até a mensagem TRANSACAO OK. E no log, o comprovante está correto. 

Porém, logo em seguida, vem a mensagem Transação Não Efetuada. Favor Reter o Cupom. 

O componente está configurado para AutoFinalizarCupom = False. Mas já tentei também = True e não funcionou.

Creio que seja a falta do comando ACBrTEFD1.CNF, mas em que momento usar o comando? 
 

[EMBarbosa]

14 horas atrás, Gr@c@ disse:

Creio que seja a falta do comando ACBrTEFD1.CNF, mas em que momento usar o comando? 

O comando CNF é chamado automaticamente. Ele é chamado dentro do ConfirmarTransacoesPendentes, que é chamado dentro do ImprimirTransacoesPendentes.

TACBrTEFD.ImprimirTransacoesPendentes -> ConfirmarTransacoesPendentes -> CNF.

Mas ele só é chamado se a impressão ocorrer corretamente. Veja o finally do método TACBrTEFD.ImprimirTransacoesPendentes perto da linha 1141 do arquivo ACBrTEFD.pas

Você pode debugar esse método, a saber ImprimirTransacoesPendentes,  e avaliar o que está acontecendo para obter mais informações.

[Gr@c@]

Debugando o aplicativo, verifiquei que ocorre um erro nesse momento:

function TACBrTEFD.ECFPagamento(Indice: String; Valor: Double): Integer;
Var
   Erro : String ;
begin
  fTefClass.GravaLog( fTefClass.Name +' ECFPagamento: Indice: '+
    Indice + ' Valor: '+FormatFloat('0.00',Valor) ) ;

  Result := -1 ;  // -1 = Não tratado
  OnComandaECFPagamento( Indice, Valor, Result ) ;----------------------> a excessão ocorre aqui

  if Result < 1 then
  begin
     if Result = 0 then
        Erro := 'Erro ao executar "OnComandaECFPagamento"'
     else
        Erro := '"OnComandaECFPagamento" não tratada' ;

     fTefClass.GravaLog(Erro);

     raise EACBrTEFDECF.Create( ACBrStr( Erro ) )
  end;
end;

 

e o evento ACBrTEFD1ComandaECFPagamento está assim. Sendo que o valor do cupom é 0,01 e o valor da forma de pagamento em cartão de crédito é 0,01

procedure TFrm_ECFPrincipal.ACBrTEFD1ComandaECFPagamento(IndiceECF: String;
  Valor: Double; var RetornoECF: Integer);
var
   Est : TACBrECFEstado ;
begin
  try
     mmprocesso.Lines.Add( 'ComandaECFPagamento, IndiceECF: '+IndiceECF+
        ' Valor: '+FormatFloat('0.00',Valor) );
     Est := ACBrECF1.Estado;
     if Est = estNaoFiscal then
        ACBrECF1.EfetuaPagamentoNaoFiscal(IndiceECF, Valor)
     else
        ACBrECF1.EfetuaPagamento(IndiceECF, Valor);
     RetornoECF := 1 ;
  except
     RetornoECF := 0 ;
  end;
end;

o erro de exceção e o log do tef estão em anexo

CliSiTef.log

[Gr@c@]

Novos testes e ainda não consegui detectar o erro. o fato é que está sendo enviado um comando de cancelartransaçoespendentes. 

Segue anexo o log de um cupom de 2,00 com pagamento em cartão de crédito de 2,00. Não ocorre a impressão do comprovante e a transação é cancelada.

A mensagem final é    CACBrTEFD_CliSiTef_TransacaoNaoEfetuadaReterCupom =     'Transação não efetuada.'+sLineBreak+'Favor reter o Cupom'  que está na unit ACBrTEFDCliSiTef. 

 

CliSiTef.log

[EMBarbosa]

A mensagem de erro parece de AV por acessar um objeto que não existe, ou não foi instanciado. ('access violation at 0x00000000: read of address 0x00000000').

 

6 horas atrás, Gr@c@ disse:

OnComandaECFPagamento( Indice, Valor, Result ) ;----------------------> a excessão ocorre aqui

Em qual linha exatamente do método OnComandaECFPagamento ocorre a exception?

Editado 24 Janeiro, 2017 por EMBarbosa

[Gr@c@]

Eu havia colocado o evento OnComandaECFPagamento, porém devo ter mexido e retirado ele por engano do componente. O evento estava apenas no fonte e não estava setado no componente. Obrigada Elton pela dica. 

[EMBarbosa]

20 horas atrás, Gr@c@ disse:

Eu havia colocado o evento OnComandaECFPagamento, porém devo ter mexido e retirado ele por engano do componente. O evento estava apenas no fonte e não estava setado no componente.

Que bom que resolveu. Obrigado pelo retorno.