Ir para conteúdo
  • Cadastre-se

dev botao

Ajuda, urgente, em homologação TEF


ALA
  • Este tópico foi criado há 2235 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Obrigado pela resposta Daniel. Mas dessa forma, sempre que envio um comando para impressora gera uma nova pagina em branco...

***********************************************************************************************************************************

procedure Tfrm_TEF.ACBrTEFDComandaECFImprimeVia( TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer; ImagemComprovante: TStringList; var RetornoECF: Integer);
var I,nVias : integer;
begin
  try
     case TipoRelatorio of
       trGerencial, trVinculado :
       begin
          // configuração //
          g.PrepararImpressao;
          if not g.ACBrPosPrinter.Ativo then
          begin
             g.ACBrPosPrinter.Ativar;
          end
          else
          begin
             Abort; // ala 31/08/2017
          end;
          g.ACBrPosPrinter.ImprimirLinha( '</zera>' );
          if dmin_NViasTef < 1 then
             dmin_NViasTef := 1;
          if dmst_ImpressaoRapidaTEF = dmco_Sim then
          begin
              if dmin_NViasTef = 1 then
              begin
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>' );
              end
              else if dmin_NViasTEF = 2 then
              begin
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text  );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text  );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
              end;
          end
          else
          begin
             g.Memo.Width  := 600;
             g.Memo.Height := 600;
             g.Memo.Lines.Clear;
             g.Memo.Lines.Add( ImagemComprovante.Text );
             // LER O TXT E IMPRIMI LINHA A LINHA - EM HOMOLOGAÇÃO EXIGE O TRATAMENTO LINHA A LINHA //
             if dmin_NViasTef = 1 then
             begin
                 for I := 0 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
             end
             else
             begin
                 for I := 0 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings[I-1] );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
                 // ** //
                 I := 0;
                 for I := 1 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings[I-1] );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
             end;
          end;
       end;
     end;
     RetornoECF := 1 ;
  except
     // RetornoECF := 0 ; ala 31/08/2017
     RetornoECF := 1; // ala 31/08/2017
  end;
end;
 

******************************************************************************************************************************************************************************************************************

Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...

Amigo,

Tenho uma epson L355 jato de tinta.

Eu configurei a porta para: RAW:EPSONA74D57 (L355 Series)

Como vc configurou também o modelo da epson no ACBrPosPrinter?

Quais as outras configurações precisam ser setadas

Poderia postar como voce resolveu isso com impressora epson?

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2235 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...