ACBrTEFD e Dúvidas sobre TEF

[EMBarbosa]

Em 26/02/2020 at 16:51, DSilva disse:

EMBarbosa 

Obrigado por me responder.

pelo que eu vi la existe a possibilidade de disparar o evento OnObtemCampo mas eu nao sem como fazer isso pq presisa ser passado na resposta o codigo do bin, se alguem com mais experiencia e que posso fazer isso agradesso, ate por que existe mais colegas que usará.

eu ate fiz uns teste aqui jogando para uma variavel da minha app e consegui pegar, so que nao fica uma boa pratica usar dessa forma, a melhor seria mesmo pelo evento do componente.

Não sei se entendi o que quis dizer...

Você quer dizer enviar na requisição? Se for isso, basta usar o evento onAntesFinalizarRequisicao. Veja no programa exemplo o seguinte código:

procedure TForm1.ACBrTEFD1AntesFinalizarRequisicao(Req : TACBrTEFDReq);
begin
   if Req.Header = 'CRT' then
      Req.GravaInformacao(777,777,'TESTE REDECARD');
   Memo1.Lines.Add('Enviando: '+Req.Header+' ID: '+IntToStr( Req.ID ) );
end;  

 

[DSilva]

22 horas atrás, EMBarbosa disse:

Não sei se entendi o que quis dizer...

Você quer dizer enviar na requisição? Se for isso, basta usar o evento onAntesFinalizarRequisicao. Veja no programa exemplo o seguinte código:

procedure TForm1.ACBrTEFD1AntesFinalizarRequisicao(Req : TACBrTEFDReq);
begin
   if Req.Header = 'CRT' then
      Req.GravaInformacao(777,777,'TESTE REDECARD');
   Memo1.Lines.Add('Enviando: '+Req.Header+' ID: '+IntToStr( Req.ID ) );
end;  

 

Boa tarde,  nessa função assima eu consigo alterar o valor da trz , passando o valor novo com o desconto?