Realizando operações administrativas
Neste passo, 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 passo 8.
.
.
.
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
Boas implementações!
Related posts:
- Edição 39 – Usando Funções de Display Caro Parceiro, Nesta edição de nosso Flash-Tip do mini-curso sobre...
- Edição 50 – Arquivo MFD e Espelho MFD – Novas funções Caro parceiro, Dando continuidade à série de Flashtips sobre o...
- Transferência Eletrônica de Fundos (T.E.F.) – Discado – Passo 2/10 Comunicando com o Gerenciador Padrão Vimos no passo anterior, a...
- Conhecendo o assembly Bematech.Fiscal.dll Caro parceiro, Na edição passada de nosso Flash Tip, pudemos...
- Edição 43 – Edição extra: sign_bema.dll Caro Parceiro, Primeiramente, gostaríamos de agradecer os feedbacks que temos...