Incompatible types: 'TACBrTEFDResp' and 'TACBrTEFResp'

[rerisson]

Olá boa noite! Acabei de realizar a instalação do ACBr, mas está dando esse erro ao compilar o sistema, tenho um outro computador com uma versão anterior e esta compilando normalmente.

 

[dcc32 Error] UFechaVenda.pas(1011): E2010 Incompatible types: 'TACBrTEFDResp' and 'TACBrTEFResp'

 

[Juliomar Marchetti]

Houve mudanças e o tipo retornado é outro conforme a msg.

basta mudar o tpo da sua variavel.

mas eu diria pra tu usar o evento do componente para isso.

[rerisson]

Olá boa noite! Consegui resolver fazendo da seguinte forma:

Resp := TACBrTEFDResp(ACBrTEFD1.RespostasPendentes[I]);

 

Muito obrigado!!!

 

[Juliomar Marchetti]

Tu vai ter problemas futuros

bastava tu trocar sua variavel Resp  para o tipo TACBrTEFResp

[rerisson]

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:

Citar

    if FrmVendasCaixa.PagamentosEfetuados.Locate('INDICE', TACBrTEFDResp(Resp).IndiceFPG_ECF, [loCaseInsensitive] ) then

 

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.