Comprovante TEF todo picotado (cortado)

[f.delatin]

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

 

[Régys Silveira]

No ACBrTEFD existe um evento: OnComandaECF, você colocou o comando de corte de papel ai?

Se sim, como está implementado?

[f.delatin]

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;

[Régys Silveira]

Você está usando SAT, ECF ou SAT Virtual?

 

[f.delatin]

Estou usando o ACBrECFVirtualSAT...

 

[Régys Silveira]

Anexe o log do ACBrSAT e do ACBrPOSPrinter por favor.

[f.delatin]

Régys!  bom dia e obrigado pela ajuda...

segue em anexo os logs:

ACBrPosPrinter.log

ACBrSAT.log

[Régys Silveira]

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.

[f.delatin]

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.

[Régys Silveira]

Vamos fazer um teste, no ACBrPosPrinter, deixa False na propriedade TraduzirTags.

Teste também com False na propriedade CortaPapel.

Veja em qual caso vai funcionar corretamente.

[f.delatin]

Obrigado Régys....

 

Obrigado Régys.....depois te dou um retorno.....