Ir para conteúdo
  • Cadastre-se

dev botao

Comprovante TEF todo picotado (cortado)


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

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....

 

Link para o comentário
Compartilhar em outros 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;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2872 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...