Ir para conteúdo
  • Cadastre-se

rerisson

Membros
  • Total de ítens

    5
  • Registro em

  • Última visita

Community Answers

  1. rerisson's post in Incompatible types: 'TACBrTEFDResp' and 'TACBrTEFResp' was marked as the answer   
    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:


     
     
×
×
  • Criar Novo...

Informação Importante

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.