Bematech: Transferência Eletrônica de Fundos (T.E.F.) - Discado - Passo 9/10 - Realizando operações administrativas

Nesta parte, estaremos realizando algumas operações administrativas que são necessárias no desenvolvimento do TEF.

por André Luiz R. Munhoz

.
.
.
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;

.
.
.
cIdentificacao = Time()
FuncaoAdministrativaTEF (cIdentificacao)
If (ImprimeGerencial) Then
ConfirmaTransacao
End If
.
.
.

" 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 As String) As Integer
Dim cConteudoArquivo As String

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