Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sign in to follow this  
f.delatin

Comprovante TEF todo picotado (cortado)

Recommended Posts

Boa tarde!
Estou com um problema em um cliente que utiliza SAT (SAT-Sweda, impressora não fiscal Sweda, windows 8.1). Somente nesse cliente toda vez que ele faz uma venda no cartão de crédito, os comprovantes são impressos de forma picotada (cortada) mais ou menos de 1 em 1 cm. Alguém já passou por isso e poderia me dar uma dica?

Desde já agradeço a atenção....

 

Share this post


Link to post
Share on other sites

Segue abaixo o procedimento

procedure TformRegistro.ACBrTEFD1ComandaECF(Operacao: TACBrTEFDOperacaoECF;
  Resp: TACBrTEFDResp; var RetornoECF: Integer);
var
  Est: TACBrECFEstado ;
begin
  try
    Est := ACBrECF1.Estado;

    case Operacao of
      opeAbreGerencial :
        begin
          if (fsRelatoriosPendentesCount>0) and (not bolWRecRecarga) and (ACBrECF1.MFD) then
            ACBrECF1.AbreRelatorioGerencial( StrToIntDef(RG.Indice,0) )
          else
            ACBrECF1.AbreRelatorioGerencial() ;
        end;

      opeCancelaCupom :
        begin
          try
            if Est <> estLivre then
              ACBrECF1.TestaPodeAbrirCupom ;
          except
            ACBrECF1.CorrigeEstadoErro(False) ;
          end ;

          if bolTeclaRecebimento then
            ACBrECF1.CancelaNaoFiscal
          else
            ACBrECF1.CancelaCupom;
        end;

      opeFechaCupom :
        if Est = estNaoFiscal then
          ACBrECF1.FechaNaoFiscal('')
        else
          ACBrECF1.FechaCupom('');
      opeSubTotalizaCupom :
        if Est = estNaoFiscal then
          ACBrECF1.SubtotalizaNaoFiscal( 0, '' )
        else
           ACBrECF1.SubtotalizaCupom( 0, '' );
      opeFechaGerencial, opeFechaVinculado :
        ACBrECF1.FechaRelatorio ;

      opePulaLinhas :
        begin
          ACBrECF1.PulaLinhas( ACBrECF1.LinhasEntreCupons );
          ACBrECF1.CortaPapel( True );
          Sleep(200);
        end;

    end;

    RetornoECF := 1 ;
  except
    RetornoECF := 0 ;
  end;
end;

Share this post


Link to post
Share on other sites

Verifiquei aqui e esta tudo normal, ele está enviando o corte somente entre as vias, você chegou a testar com outra impressora para ter certeza que não é a impressora que está com defeito, eu já tive uma impressora que quando você chamava o corte ele ficava cortando sem parar, tivemos que desligar o corte dela.


Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi

Share this post


Link to post
Share on other sites

O problema é o seguinte esse cliente está com 4 (SAT + impressora não Fiscal Sweda) e as 4 fazem isso. A unica diferença para os demais clientes é o windows 8.1.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...