Passar campo 507-001=1 no intpos.001

[LIDERNetwork]

Bom dia Colegas,

Gostaria de uma ajuda de vcs, preciso implementar no TEF_DIAL essa configuração para que os cartões Policard passem no Módulo Client da SITEF pois nossa aplicação está homologada na Software Express usando o módulo Client como TEF_DIAL (Troca de arquivos) e não fizemos nenhuma alteração do ACBRTEFD mas agora acredito que essa implementação do campo seja necessária mas não sei onde implementar sem modificar o fonte original do ACBR para não ficar "diferente" do SVN.

Na página 23 no item 13.2.5 do manual de integração Policard + Client Modular SITEF diz o seguinte:
 
"Além desses parâmetros, é necessário que a aplicação envie no arquivo Intpos.001 o campo
507-001=1."

Como proceder???

Segue em anexo o referido manual

Policard_Guia de Instalação.pdf

[Daniel Simoes]

Você pode usar o evento... "AntesFinalizarRequisicao"... veja o exemplo do Demo do ACBRTEFD

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;

 

[LIDERNetwork]

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

Em 24/02/2016 at 12:20, Daniel Simoes disse:

Você pode usar o evento... "AntesFinalizarRequisicao"... veja o exemplo do Demo do ACBRTEFD

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;

 

Olá Daniel obrigado pelo retorno mas se entendi para passar esse campo que citei seria:

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

Seria isso??

[Daniel Simoes]

tirando a linha de gravação no Memo (que não parece fazer parte da sua aplicação)... o resto parece correto

[LIDERNetwork]

Daniel muito obrigado pelo retorno!!

[LIDERNetwork]

Em 26/02/2016 at 18:34, LIDERNetwork disse:

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

Olá,

Voltando ao topico recebi um manual onde pede para alterar o Req.Header do arquivo gostaria de saber como procederia como fazer essa alteração?

[EMBarbosa]

Como assim?