TEF - Realizando operações administrativas

Nesta parte, estaremos realizando algumas operações administrativas que são necessárias no desenvolvimento do TEF. É através do módulo administrativo da bandeira (AMEX, Redecard ou Visanet) que são realizadas operações, como:

- reimpressão da transação TEF.

- cancelamentos.

- impressão de relatórios.

- fechamento de lotes.

- inicialização de terminal.

- configurações.

Iremos desenvolver a rotina de chamada do módulo administrativo e a impressão do conteúdo da operação, através do relatório gerencial (em anexo), caso necessário. Também é necessário confirmar a operação, quando houver texto a ser impresso.

A função de confirmação (ConfirmaTransacao) foi visto na edição 8 de seu FlashTip.

- Exemplo em Delphi

.

.

.

cIdentificacao := Time;

FuncaoAdministrativaTEF( cIdentificacao );

if ( ImprimeGerencial = 1 ) then

 ConfirmaTransacao;

.

.

.

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

// Função: FuncaoAdministrativaTEF

// Objetivo: Chamar o módulo administrativo da bandeira

// Parâmetro: String com o identificador

// Retorno: 1 para OK

//          diferente de 1 para não OK //////////////////////////////////////////////////////////////////////////////// function FuncaoAdministrativaTEF( cIdentificacao: TDateTime ): integer;

var cArquivo: TextFile;

lFlag: longbool;

cConteudoArquivo: string;

begin

 AssignFile( cArquivo, 'INTPOS.001');

 // Conteúdo do arquivo INTPOS.001 para solicitar a transação TEF

 cConteudoArquivo := '';

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

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

    '999-999 = 0';

 ReWrite( cArquivo );

 WriteLn( cArquivo, cConteudoArquivo );

 CloseFile( cArquivo );

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

   lFlag );

 DeleteFile( 'INTPOS.001' );

end;