Fim de papel ao subtotalizar o cupom fiscal

jjw.roberto · 20 Maio, 2019

Pessoal, boa tarde.

Peguei uma situação estranha em um cliente com uma Epson e também ocorreu com uma Bematech.

O cliente emitiu um cupom fiscal aonde havia um desconto (9.95) sobre o total (59.95) do cupom.

Ao finalizar o cupom emiti o ECF.SubtotalizaCupom(-9.95) e bem ao emitir esse comando ocorreu o erro de FIM DE PAPEL.

O operador trocou a bobina e mandou o meu programa continuar.

Aqui começou o problema, ao emitir o comando ECF.Estado o ACBr retornou o estado como sendo estPagamento. Meu programa então assume que o cupom já foi subtotalizado, pois se não tivesse o estado estaria em estVenda.

Sendo assim, meu programa não enviou o comando de subtotalizar o cupom novamente, o que fez com que o valor total a ser pago ficasse sem o desconto (59.95).

E logo em seguida o cupom foi pago e fechado, então ocorre um erro informando que a mensagem promocional não pode ser impressa (decorrente do comando ECF.FechaCupom), logicamente pois ainda falta 9.95 a ser pago já que o desconto não foi comandado em subtotalização.

Segue aqui o log do ECF gerado pelo acbrmonitor plus:

-- 20/05 14:00:45:547 NumSerie
-- 20/05 14:00:45:547                 TX -> [STX][130][4][ESC][STX][FS][NUL][NUL][ETX]00C4
-- 20/05 14:00:45:559     RX <- ACK = 6
-- 20/05 14:00:45:650     RX <- [STX][130][NUL][NUL][FS][192][128][FS][FS][NUL][NUL][FS][FS]EP081300000000000001[FS]MFD0000000000000001[FS]EPSON[FS]TM-T81 FBIII[FS]ECF-IF[FS]01.00.04[FS]99[FS]99[FS]30012013[ETX]1519
-- 20/05 14:00:45:655 AbreCupom( , ,  )
-- 20/05 14:00:45:655                 TX -> [STX][131][LF][SOH][FS][NUL][NUL][FS][FS][ETX]00E7
-- 20/05 14:00:45:725     RX <- ACK = 6
-- 20/05 14:00:45:783     RX <- [STX][131][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][ETX]0239
-- 20/05 14:00:45:787 NumCupom
-- 20/05 14:00:45:787                 TX -> [STX][132][TAB][7][FS][NUL][NUL][ETX]00B5
-- 20/05 14:00:45:819     RX <- ACK = 6
-- 20/05 14:00:45:886     RX <- [STX][132][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]000115[FS]0012[FS]001[FS]000036[FS]0002[FS]0000[FS]000019[FS]000045[FS]0004[FS]000000[FS]0009[FS]0000[FS]000114[FS]000015[ETX]10F4
-- 20/05 14:00:45:888 DataHora
-- 20/05 14:00:45:888                 TX -> [STX][133][ENQ][ESC][STX][FS][NUL][NUL][ETX]00C8
-- 20/05 14:00:45:961     RX <- ACK = 6
-- 20/05 14:00:45:987     RX <- [STX][133][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]20052019[FS]140045[ETX]0534
-- 20/05 14:00:46:017 NumCCF
-- 20/05 14:00:46:018                 TX -> [STX][134][4][ESC][STX][FS][NUL][NUL][ETX]00C8
-- 20/05 14:00:46:062     RX <- ACK = 6
-- 20/05 14:00:46:169     RX <- [STX][134][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]EP081300000000000001[FS]MFD0000000000000001[FS]EPSON[FS]TM-T81 FBIII[FS]ECF-IF[FS]01.00.04[FS]99[FS]99[FS]30012013[ETX]151E
-- 20/05 14:00:46:173 GrandeTotal
-- 20/05 14:00:46:173                 TX -> [STX][135][TAB][ACK][FS][NUL][NUL][ETX]00B7
-- 20/05 14:00:46:244     RX <- ACK = 6
-- 20/05 14:00:46:270     RX <- [STX][135][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]206410[FS]52920[FS]39435[FS]995[FS]0[FS]0[FS]0[FS]12490[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[ETX]0C67
-- 20/05 14:00:46:275 VendeItem( 01080151 , 6 JOGOS CLASSICOS TOP LINE GALA , 17.00T , 1 , 59,95 , 0 , PC , $ , D , -1 )
-- 20/05 14:00:46:276                 TX -> [STX][136][LF][18][FS][NUL][NUL][FS]01080151[FS]6 JOGOS CLASSICOS TOP LINE GALA[FS]1000[FS]PC[FS]5995[FS]Tc[FS]3[FS]2[FS]S[FS]N[ETX]0F86
-- 20/05 14:00:46:320     RX <- ACK = 6
-- 20/05 14:00:46:374     RX <- [STX][136][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]1[ETX]028B
-- 20/05 14:00:46:378 GrandeTotal
-- 20/05 14:00:46:378                 TX -> [STX][137][TAB][ACK][FS][NUL][NUL][ETX]00B9
-- 20/05 14:00:46:449     RX <- ACK = 6
-- 20/05 14:00:46:476     RX <- [STX][137][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]212405[FS]58915[FS]39435[FS]995[FS]0[FS]0[FS]0[FS]12490[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[FS]0[ETX]0C74
-- 20/05 14:01:14:696 SubtotalizaCupom( -9,95 ,  )
-- 20/05 14:01:14:696                 TX -> [STX][138][LF][4][FS][NUL][ACK][FS]995[ETX]0182
-- 20/05 14:01:14:730     RX <- ACK = 6
-- 20/05 14:01:14:756     RX <- [STX][138][NUL][ESC][STX][FS][192][129][FS][FS][ESC][ETX][4][FS][ETX]027F
-- 20/05 14:01:14:756 
----------------- ERRO -----------------
FIM DE PAPEL
----------------------------------------

-- 20/05 14:01:51:793 Estado
-- 20/05 14:01:51:793                 TX -> [STX][139][BS][16][FS][NUL][NUL][ETX]00C4
-- 20/05 14:01:51:819     RX <- ACK = 6
-- 20/05 14:01:51:819                 RI-
-- 20/05 14:01:51:893     RX <- [STX][139][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]1[ETX]028E
-- 20/05 14:01:51:893 
-- 20/05 14:01:51:893                 TX -> [STX][140][LF][LF][FS][NUL][NUL][ETX]00C1
-- 20/05 14:01:51:968     RX <- ACK = 6
-- 20/05 14:01:51:996     RX <- [STX][140][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]45[FS]5995[FS]0[FS]1[FS]999[FS]998[FS]1[FS]18[FS]0[FS]20[FS]1[ETX]07CE
-- 20/05 14:01:51:996   estPagamento
-- 20/05 14:09:29:071 EfetuaPagamento( 1 , 50 , , 0, 0 )
-- 20/05 14:09:29:071                 TX -> [STX][141][LF][ENQ][FS][NUL][NUL][FS]1[FS]5000[FS][FS][ETX]0223
-- 20/05 14:09:29:084     RX <- ACK = 6
-- 20/05 14:09:29:112     RX <- [STX][141][NUL][NUL][FS][192][129][FS][FS][NUL][NUL][FS][FS]995[FS]0[ETX]0352
-- 20/05 14:09:29:158 FechaCupom( MD-5:02cb531c0d2201b601105463e539f0e8[LF]Trib aprox R$: Tabela Desatualizada![LF]Fonte: IBPT/FECOMERCIO SC[LF] )
-- 20/05 14:09:29:158                 TX -> [STX][142][LF]"[FS][NUL][NUL][FS]MD-5:02cb531c0d2201b601105463e539f0e8[FS]Trib aprox R$: Tabela Desatualizada![FS]Fonte: IBPT/FECOMERCIO SC[FS][FS][FS][FS][FS][ETX]1EA0
-- 20/05 14:09:29:187     RX <- ACK = 6
-- 20/05 14:09:29:213     RX <- [STX][142][NUL][NUL][FS][192][129][FS][FS][LF]'[FS][ETX]0275
-- 20/05 14:09:29:213 
----------------- ERRO -----------------
Erro retornado pela Impressora: Epson

Erro: 0A27 - Mensagem promocional não pode ser impressa.
----------------------------------------

Gostaria de saber se isso é um problema do ECF, ou do ACBr, ou do meu programa. E como eu poderia resolver isso?

EMBarbosa · 24 Maio, 2019

Em 20/05/2019 at 14:16, jjw.roberto disse:

Gostaria de saber se isso é um problema do ECF, ou do ACBr, ou do meu programa. E como eu poderia resolver isso?

Você pode resolver isso por verificar se o retorno do ECF é consistente com o retorno do ACBr.

Você pode para isso usar um aplicativo do fabricante para verificar o retorno do estado do ECF.

Se ao acontecer o problema o ECF estiver retornando estado como em estPagamento, então o ACBr está correto. Nesse caso você precisará verificar o seu software ou com o suporte do fabricante.

Caso ao acontecer o problema o ECF esteja retornando que o seu estado é estVenda mas o ACBrECF está informando que o estado é estPagamento, então o problema é no componente do ACBrECF.

jjw.roberto · 27 Maio, 2019

Bom dia!

Então, fiz o teste que você pediu.

Utilizando a ECF Epson MT-T900F fiz a emissão da subtotalização faltando papel, e o ACBR ficou retornando o estado estPagamento nas tentativas subsequentes.

Deixei o ECF com esse cupom do modo em que estava, finalizei o programa PDV.

Então abri o utilitário da Epson o EPmfd e cliquei em Verificar estado da impressora. O retorno foi este:

Impressora na porta: USB 
Data/hora da impressora: 27/05/2019  08:44:13 

Impressora Online 
Modo fiscalizado 
Modo de operação normal 
Período de vendas aberto 
Cupom Fiscal aberto

E consultando o comando Estado do Cupom dentro do EPmfd, foi retornado o seguinte:

Depois fechei e abri novamente o ACBR Monitor Plus e consultei o estado da ECF novamente pelo comando ECF.Estado, e o retorno foi estVenda.

Será que é um problema de estado interno do ACBR Monitor Plus, pois reabrindo ele o estado da ECF volta a retornar estVenda.

Editado 27 Maio, 2019 por jjw.roberto

EMBarbosa · 27 Maio, 2019

9 horas atrás, jjw.roberto disse:

Depois fechei e abri novamente o ACBR Monitor Plus e consultei o estado da ECF novamente pelo comando ECF.Estado, e o retorno foi estVenda.

Será que é um problema de estado interno do ACBR Monitor Plus, pois reabrindo ele o estado da ECF volta a retornar estVenda.

Pode ser um problema do ACBrECF. Para confirmar poderia por favor alterar o arquivo ACBrECFEpson.pas na seguinte procedure, TACBrECFEpson.SubtotalizaCupom:

procedure TACBrECFEpson.SubtotalizaCupom(DescontoAcrescimo: Double;
       MensagemRodape : AnsiString);
begin
  fsTotalPago := 0 ;

  if DescontoAcrescimo = 0 then
     exit ;

  EpsonComando.Comando  := '0A04' ;
  if DescontoAcrescimo < 0 then
     EpsonComando.Extensao := '0006'
  else
     EpsonComando.Extensao := '0007' ;
  EpsonComando.AddParamDouble( abs(DescontoAcrescimo), 2 );
  EnviaComando ;

  ZeraCache;
  RespostasComando.AddField( 'SubTotal', EpsonResposta.Params[0] );
  fsEmPagamento := True ;
end;

E depois refazer os testes?

jjw.roberto · 28 Maio, 2019

Cara, resolvido!

Era isso mesmo o problema.

Mas tem o caso da bematech , será que é a mesma solução?

Editado 28 Maio, 2019 por jjw.roberto

EMBarbosa · 28 Maio, 2019

1 hora atrás, jjw.roberto disse:

Cara, resolvido!

Era isso mesmo o problema.

Mas tem o caso da bematech , será que é a mesma solução?

Se for uma ECF MP4200 TH-FI é possível que seja sim. Só que a alteração será no outro arquivo (ACBrECFEscECF.pas).

jjw.roberto · 29 Maio, 2019

14 horas atrás, EMBarbosa disse:

Se for uma ECF MP4200 TH-FI é possível que seja sim. Só que a alteração será no outro arquivo (ACBrECFEscECF.pas).

Seria assim ?

procedure TACBrECFEscECF.SubtotalizaCupom(DescontoAcrescimo: Double;
       MensagemRodape : AnsiString );
begin
  if DescontoAcrescimo = 0 then 
  begin
    fsEmPagamento := True ;
    exit ;
  end;
  
  with EscECFComando do
  begin
     CMD := 29 ;
     AddParamInteger( ifthen(DescontoAcrescimo < 0,0,1) );
     AddParamInteger( 1 );
     AddParamDouble( abs(DescontoAcrescimo) );
  end ;
  EnviaComando ;

  if (EscECFResposta.Params.Count > 0) then
    RespostasComando.AddField( 'SubTotal', EscECFResposta.Params[0] );

  SalvaRespostasMemoria(False);

  fsEmPagamento := True ;
end;

EMBarbosa · 29 Maio, 2019

1 hora atrás, jjw.roberto disse:

Seria assim ?

Olá,

Eu acabei de enviar ao SVN (revisão 17083) uma correção para os ECF de modelos que utilizam o protocolo ESCECF, FiscNet e Epson.

Você pode atualizar o seu código e testar novamente. Queira, por favor, reportar qualquer problema.

schrsistemas · 2 Junho, 2019

Boa Noite. (De já hoje ter enviado uma mensagem direto e tu barbosa).

A versão encaminhada, esta com problema, no meu cenario, quanto ao uso em tef, para escecf, epson, e fiscnet, esta entrando em loop (não indo para estado de pagamento) a função subtotalizaCupom pois ao mandar "0", no desconto acrescimo, já entra em exit;

Acabei apenas colocando o código "fsEmPagamento := True ;" novamente no início da função

Mais creio que o esquemo do roberto passado tbm serveria....

  if DescontoAcrescimo = 0 then 
  begin
    fsEmPagamento := True ;
    exit ;
  end;

EMBarbosa · 2 Junho, 2019

25 minutos atrás, schrsistemas disse:
Boa Noite. (De já hoje ter enviado uma mensagem direto e tu barbosa).

A versão encaminhada, esta com problema, no meu cenario, quanto ao uso em tef, para escecf, epson, e fiscnet, esta entrando em loop (não indo para estado de pagamento) a função subtotalizaCupom pois ao mandar "0", no desconto acrescimo, já entra em exit;

Acabei apenas colocando o código "fsEmPagamento := True ;" novamente no início da função

Mais creio que o esquemo do roberto passado tbm serveria....
  if DescontoAcrescimo = 0 then 
  begin
    fsEmPagamento := True ;
    exit ;
  end;

Olá,

Creio que você está correto.

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão 17115.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

schrsistemas · 2 Junho, 2019

Perfeito, segunda testarei em impressoras físicas também,... obrigado!

jjw.roberto · 3 Junho, 2019

Em 29/05/2019 at 09:37, EMBarbosa disse:

Olá,

   Eu acabei de enviar ao SVN (revisão 17083) uma correção para os ECF de modelos que utilizam o protocolo ESCECF, FiscNet e Epson.

   Você pode atualizar o seu código e testar novamente. Queira, por favor, reportar qualquer problema.

Amigo, até agora 100% resolvido nas ECFs que tenho aqui: Epson TM-T81FB III, Epson TM-T900F e Bematech MP 4000 TH FI.

Obrigado até o momento.

Daniel Schroeder · 3 Junho, 2019

Aqui tbm ok

Felipe E. Resende Mesquita · 4 Junho, 2019

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Entrar

Sobre nós...

Fim de papel ao subtotalizar o cupom fiscal

Recommended Posts

jjw.roberto

EMBarbosa

jjw.roberto

EMBarbosa

jjw.roberto

EMBarbosa

jjw.roberto

EMBarbosa

schrsistemas

EMBarbosa

schrsistemas

jjw.roberto

Daniel Schroeder

Felipe E. Resende Mesquita

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante