Transferência Eletrônica de Fundos (T.E.F.) - Discado
Passo 9/10 - Realizando operações administrativas
Nesta edição, 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;
|
- Exemplo em Visual Basic
.
.
.
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 |
Não perca nossa última edição! Estaremos realizando transações com múltiplos cartões.
Aguardem e boas implementações!
|
