Bematech: Transferência Eletrônica de Fundos (T.E.F.) - Discado - Passo 6/10 - Realizando uma Reimpressão da transação TEF

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;

- Exemplo em Visual Basic

.
.
.
Administrativo
If (ImprimeGerencial = 1) Then
ConfirmaTransacao
End If
.
.
.

" Função: Administrativo
" Objetivo: Acessar o Módulo Adminstrativo da Rede
" Retorno: True para OK ou False para não OK
Function Administrativo() As Boolean
Dim cConteudoArquivo As String
Dim cIdentificacao As String

cIdentificacao = Time()

Open App.Path & "\INTPOS.001" For Binary As #1

" Conteúdo do arquivo INTPOS.001 para solicitar a transação TEF
cConteudoArquivo = ""
cConteudoArquivo = "000-000 = ADM" + Chr(13) + Chr(10) + _
"001-000 = " + Format(cIdentificacao, "hhmmss") + Chr(13) + Chr(10) + _
"999-999 = 0"

" Escreve no arquivo INTPOS.001
Put #1, , cConteudoArquivo

" Fecha o arquivo INTPOS.001
Close #1

" Copia o arquivo para o diretório do Gerenciador Padrão
FileCopy App.Path & "\INTPOS.001", "C:\TEF_DIAL\REQ\INTPOS.001"

" Exclui o arquivo INTPOS.001 local
Kill App.Path & "\INTPOS.001"
End Function

Business - Automação Comercial

Leia também