f.delatin 1 Report post Posted May 16, 2016 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
Régys Silveira 1,504 Report post Posted May 16, 2016 No ACBrTEFD existe um evento: OnComandaECF, você colocou o comando de corte de papel ai? Se sim, como está implementado? Régys Borges da Silveira http://www.regys.com.br Share this post Link to post Share on other sites
f.delatin 1 Report post Posted May 16, 2016 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
Régys Silveira 1,504 Report post Posted May 16, 2016 Você está usando SAT, ECF ou SAT Virtual? Régys Borges da Silveira http://www.regys.com.br Share this post Link to post Share on other sites
f.delatin 1 Report post Posted May 16, 2016 Estou usando o ACBrECFVirtualSAT... Share this post Link to post Share on other sites
Régys Silveira 1,504 Report post Posted May 16, 2016 Anexe o log do ACBrSAT e do ACBrPOSPrinter por favor. Régys Borges da Silveira http://www.regys.com.br Share this post Link to post Share on other sites
f.delatin 1 Report post Posted May 17, 2016 Régys! bom dia e obrigado pela ajuda... segue em anexo os logs: ACBrPosPrinter.log ACBrSAT.log Share this post Link to post Share on other sites
Régys Silveira 1,504 Report post Posted May 17, 2016 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. Régys Borges da Silveira http://www.regys.com.br Share this post Link to post Share on other sites
f.delatin 1 Report post Posted May 17, 2016 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
Régys Silveira 1,504 Report post Posted May 17, 2016 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. Régys Borges da Silveira http://www.regys.com.br Share this post Link to post Share on other sites
f.delatin 1 Report post Posted May 17, 2016 Obrigado Régys.... Obrigado Régys.....depois te dou um retorno..... Share this post Link to post Share on other sites