Olá bom dia!
Juliomar, fiz a alteração do tipo da variável conforme você disse e segui uma dica que o Daniel, passou nesse tópico abaixo:
E agora minha função ficou da seguinte forma:
procedure TFrmFechaVenda.AtualizarDadosTEF;
var
Resp: TACBrTEFResp;
I: Integer;
begin
for I := 0 to ACBrTEFD1.RespostasPendentes.Count - 1 do
begin
Resp := ACBrTEFD1.RespostasPendentes[I];
GetBandeiraCartao( Resp );
if FrmVendasCaixa.PagamentosEfetuados.Locate('INDICE', TACBrTEFDResp(Resp).IndiceFPG_ECF, [loCaseInsensitive] ) then
begin
FrmVendasCaixa.PagamentosEfetuados.Edit;
FrmVendasCaixa.PagamentosEfetuadosTEF_AUT.AsString := Resp.NFCeSAT.Autorizacao;
FrmVendasCaixa.PagamentosEfetuadosTEF_BANDEIRA.AsString := Resp.NFCeSAT.Bandeira;
FrmVendasCaixa.PagamentosEfetuados.Post;
end;
end;
end;
Tive que fazer conforme o Daniel disse nessa parte:
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
