////////////////////////////////////////////////////////////////////////////////
// Função: ImprimeTransacao
// Objetivo: Realiza a impressão da Transação TEF
// Parâmetros: string para a Forma de Pagamento
//             string para a Valor da Forma de Pagamento
//             string para o Número do Cupom Fiscal (COO)
//             TDateTime para identificar o número da transação
// Retorno: True para OK ou False para não OK
//////////////////////////////////////////////////////////////////////////////// function ImprimeTransacao( cFormaPGTO: string; cValorPago: string; cCOO: string;
   cIdentificacao: TDateTime ): boolean;
var cLinhaArquivo, cLinha, cSaltaLinha, cConteudo: string; cMensagem: TForm;
    cArquivo : TextFile; iVezes : integer;
begin
   // Bloqueia o teclado e o mouse para a impressão do TEF
   iRetorno := Bematech_FI_IniciaModoTEF();
   result := true;
   if FileExists( ‘IMPRIME.TXT’) then
      begin
         iRetorno := Bematech_FI_AbreComprovanteNaoFiscalVinculado( pchar(
            cFormaPGTO ), pchar( cValorPago ), pchar( cCOO ) );
         VerificaRetornoFuncaoImpressora( iRetorno )
      end;
      AssignFile( cArquivo, ‘IMPRIME.TXT’ );
      begin
         Reset( cArquivo );
         cConteudo := ”;
         cLinha := ”;
         while not EOF( cArquivo ) do
            begin
               ReadLn( cArquivo, cLinha );
               cConteudo := cConteudo + cLinha + #13 + #10;
               iRetorno := Bematech_FI_UsaComprovanteNaoFiscalVinculado( pchar(
                  cLinha ) + #13 );

               // Aqui é feito o tratamento de erro de comunicação com a
               // impressora (desligamento da impressora durante a impressão do
               // comprovante).

               if not ( VerificaRetornoFuncaoImpressora( iRetorno ) ) then
                  begin
                     iRetorno := Bematech_FI_FinalizaModoTEF();
                     if ( Application.MessageBox( ‘A impressora não responde!’ +
                        #13 + ‘Deseja imprimir novamente?’, ‘Atenção’,
                        MB_IconInformation + MB_YESNO ) = IDYES ) then
                     begin
                        CloseFile( cArquivo );
                        iRetorno:=Bematech_FI_FechaComprovanteNaoFiscalVinculado;
                        if ( ImprimeGerencial = 1 ) then
                           begin
   &nb
sp;                          result := true; exit;
                           end
                        else
                           begin
                              result := false; exit;
                           end;
                     end
                     else
                     begin
                     CloseFile( cArquivo );
                     iRetorno := Bematech_FI_FechaComprovanteNaoFiscalVinculado;
                     result := false; exit;
                     end;
                  end
               else
                  if EOF( cArquivo ) then
                     begin
                        .
                        .
                        .

////////////////////////////////////////////////////////////////////////////////
// Função: ImprimeGerencial
// Objetivo: Imprimir através do Relatório Gerencial a transação efetuada.
// Retorno: 1 para OK ou diferente de 1 para não OK
////////////////////////////////////////////////////////////////////////////////
function ImprimeGerencial: integer;
var cConteudo, cLinha, cSaltaLinha, cLinhaArquivo: string;
    cArquivo : TextFile;
    iTentativas, iVezes: integer;
    cMensagem : TForm;
    bTransacao: boolean;
begin
   if FileExists( ‘IMPRIME.TXT’) then
      DeleteFile( ‘IMPRIME.TXT’ );

   result := 1;
   for iTentativas := 1 to 7 do
      begin
         .
         .
         .
   // Bloqueia o teclado e o mouse para a impressão do TEF
   iRetorno := Bematech_FI_IniciaModoTEF();
   if FileExists( ‘IMPRIME.TXT’) then
      begin
        AssignFile( cArquivo, ‘IMPRIME.TXT’ );
        Reset( cArquivo );
        cConteudo := ”;
        cLinha := ”;
        while not EOF( cArquivo ) do
          begin
            ReadLn( cArquivo, cLinha );
            cConteudo := cConteudo + cLinha + #13 + #10;
            iRetorno := Bematech_FI_RelatorioGerencial( pchar( cLinha )
              + #13 );

            // Aqui é feito o tratamento de erro de comunicação com a impressora
            // (desligamento da impressora durante a impressão do comprovante).

         If Not (VerificaRetornoFuncaoImpressora(iRetorno)) Then
            iRetorno = Bematech_FI_FinalizaModoTEF()
            If MsgBox("A impressora não responde." & Chr(13) & _
              "Deseja imprimir novamente ?", vbQuestion + vbYesNo, _
              "Atenção") = vbYes Then
              Close #1
              iRetorno = Bematech_FI_FechaRelatorioGerencial()
              ImprimeGerencial
              ImprimeGerencial = iImprimeGerencial
              Exit Function
            Else
              Close #1
              iRetorno = Bematech_FI_FechaRelatorioGerencial()
              iImprimeGerencial = 0
              ImprimeGerencial = iImprimeGerencial
              Exit Function
            End If
         End If
         .
         .
         .