ACBrTEFD1.Resp Sem Informações

[FernandoRoc]

Boa tarde pessoal !

Preciso gravar algumas informações do cartão como por exemplo Codigo Autorização Transação, NSU, DataHora Transação, Qtd. Parcelas e todas essas informações exitem propriedades para elas, tanto  ACBrTEFD1.Resp

como ACBrTEFD1.TEFDial.Resp. Essa rotina funciona quando estou utilizando SiTef mas pelo TefDial não estão sendo preenchidas, ja ativei o log de debug e o CRT esta sendo executado, o metodo TACBrTEFDRespTXT.ConteudoToProperty esta sendo executado (contem as informações do intpos.001, verificado pelo debug delphi) mas a class TACBrTEFDResp (Resp) fica sem informação .

Trecho da rotina:

 If ACBrTEFD1.CRT(Valor, CodFormaPagto) Then
 Begin
      Resp := ACBrTEFD1.Resp;

      Result.Emissao    := Resp.DataHoraTransacaoComprovante; 
      Result.Valor      := Valor;
      Result.Qtde       := Resp.QtdParcelas; 
      Result.Tipo       := IfThen(Resp.Credito, 'C', 'D');
      Result.Modo       := tpTEF;
      Result.Validade   := GetVenctoCartao(Resp.Conteudo);
      Result.Titular    := GetTitular(Resp.Conteudo);
      Result.Doc        := Resp.NSU;
      Result.Aut        := Resp.CodigoAutorizacaoTransacao;

End;

O que estou deixando de fazer ou estou fazendo de forma errada ?

 

[Juliomar Marchetti]

Olha esse event OnDepoisConfirmarTransacoes

[FernandoRoc]

Juliomar, verifiquei esse evento mas no meu caso como estou finalizando a venda com NFC-e preciso do Código Autorização para informar no NFCePag.cAut e caso ocorra qualquer erro na assinatura da NFCe eu cancelo as transações (se for caso) ou confirmo se der tudo ok, lembrando que a rotina ja funciona com o modo CliSiTef estou apenas incluindo o TefDial. 

Em Debug, logo depois de executar o metodo ACBrTEFD1.CRT(Valor, CodFormaPagto) os arqs intpos.sts e intpos.001 são processados pelo metodo TACBrTEFDResp.LeArquivo que chama o metodo ConteudoToProperty e nesse momento quando é processado o arq intpos.001 as propertys são populadas com as informações do arq,(todas as informações) porem ao chamar o metodo ACBrTEFD1.Resp as informações não existem mais, foram limpas, não sei se por outro metodo que em algum momento foi chamado e o arq não existe mais

If ACBrTEFD1.CRT(Valor, CodFormaPagto) Then
 Begin
      Resp := ACBrTEFD1.Resp;

...

[Juliana Tamizou]

@hetoandrade seu post está sendo dividido para que o SLA do SAC seja respeitado.