Olá @cristianocruzzz,
Analisando a modificação, notei que ela é compatível apenas com PayGoWeb.. o que pode causar uma certa confusão, em quem usa o TEF por troca de Arquivos, ou SiTef, pois essa classe estaria sempre vazia...
As informações que você está salvando nessa classe, podem ser obtidas no termino da Transação TEF.. veja um exemplo:
Ok := ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao),
AValor, Modalidade, CartoesAceitos,
tefmfAVista );
Ok := Ok and
ACBrTEFAPI1.UltimaRespostaTEF.Sucesso and
ACBrTEFAPI1.UltimaRespostaTEF.TransacaoAprovada;
// -- Exemplo de como capturar os Erros retornados pela API do TEF PayGoWeb -- //
if not OK then
begin
if (ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb) then
begin
CodErro := ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(PWINFO_RET).AsInteger;
MsgErro := ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(PWINFO_RESULTMSG).AsBinary;
ShowMessage('Erro: '+IntToStr(CodErro)+' - '+Trim(MsgErro));
end;
end;