TEF - Realizando uma Reimpressão da transação

Nesta parte, estaremos realizando a reimpressão de uma transação TEF já efetuada. Para isso, estaremos usando as funções Administrativas da rede (American Express, Redecard ou Visanet).

Iremos criar uma função chamada Administrativo para carregar o módulo ADM da rede. Além desta, usaremos as funções de impressão do Relatório Gerencial (para a impressão da resposta) e de Confirmação, vistas nas edições anteriores.

Não esqueça que na tela ADM da rede, você deve selecionar a opção Reimpressão.

Estaremos visualizando este código em dois exemplos básicos. Um desenvolvido em Delphi e outro em Visual Basic.

- Exemplo em Delphi

.

.

.

Administrativo;

if ( ImprimeGerencial = 1 ) then

ConfirmaTransacao;

.

.

.

////////////////////////////////////////////////////////////////////////////////

// Função: Administrativo

// Objetivo: Acessar o Módulo Adminstrativo da Rede

// Retorno: True para OK ou False para não OK

////////////////////////////////////////////////////////////////////////////////

function Administrativo: boolean;

var cConteudoArquivo: string;

  cArquivo: TextFile;

  lFlag: longbool;

  cIdentificacao: TDateTime;

begin

cIdentificacao := Time;

AssignFile( cArquivo, 'INTPOS.001' );

ReWrite( cArquivo );

// Conteúdo do arquivo INTPOS.001

cConteudoArquivo := '';

cConteudoArquivo := '000-000 = ADM' + #13 + #10 +

      '001-000 = ' + FormatDateTime( 'hhmmss', cIdentificacao ) + #13 + #10 +

      '999-999 = 0';

// Escreve no arquivo INTPOS.001

WriteLn( cArquivo, cConteudoArquivo );

// Fecha o arquivo INTPOS.001

CloseFile( cArquivo );

// Copia o arquivo para o diretório do Gerenciador Padrão

CopyFile( pchar( 'INTPOS.001' ), pchar( 'C:\TEF_DIAL\REQ\INTPOS.001' ),

    lFlag );

// Exclui o arquivo INTPOS.001 local

DeleteFile( 'INTPOS.001' );

end;