Problema com ACBr monitor PLUS divergências de comandos com Status

[Diego Siervo]

Bom dia pessoal  não sou programador Delphi acontece o seguinte

O via telnet é enviado 9 comando ao ACBr Monitor Plus.(1.9.01)

1 - Abre cupom

2- lanca item

 3- lanca item

 4- lanca item

 5- lanca item

 6- lanca item

7- subtotal

8- total

 9- fecha cupom

Só que acontece que o estatus do ACBr está perfeito todos comandos batem mais a mini impressora lança

itens fantasmas. Ou seja desses 5 itens lançados apreceram 1 a mais (depende da quantidade lança mais itens)

 

Máquina: 127.0.0.1
Esperando por comandos.
ECF.AbreCupom

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:01:55

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:10
Máquina: 127.0.0.1
Esperando por comandos.
ECF.VendeItem(0000000000003,PROD 4,II, 1, 15,00 )

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:15

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:15
Máquina: 127.0.0.1
Esperando por comandos.
ECF.VendeItem(0000000000003,PROD 4,II, 1, 15,00 )

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:19

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:19
Máquina: 127.0.0.1
Esperando por comandos.
ECF.VendeItem(0000000000003,PROD 4,II, 1, 15,00 )

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:24

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:24
Máquina: 127.0.0.1
Esperando por comandos.
ECF.VendeItem(0000000000003,PROD 4,II, 1, 15,00 )

OK: 

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:29
Máquina: 127.0.0.1
Esperando por comandos.
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:29
ECF.VendeItem(0000000000003,PROD 4,II, 1, 15,00 )

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:32

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 0.1.9.01
Conectado em: 30/09/15 11:02:33
Máquina: 127.0.0.1
Esperando por comandos.
ECF.SubtotalizaCupom( 0, 'Mensagem Linha 1|Mensagem Linha 2')

OK: 
ECF.EfetuaPagamento( "01",75,00 ) 

OK: 
ECF.FechaCupom( 'Mensagem Linha 1|Mensagem Linha 2')

OK: 
ALERTA: Fim da Conexão com: 127.0.0.1 em: 30/09/15 11:02:45

Alguém sabe se já está corrigido isso em alguma versão?

Ou é um erro por caso do protocolo usado via TCP/IP. Pois nesse caso o que o monitor está monstrando é diferente do que é lançado no ECF.

 

 

[Juliomar Marchetti]

Testou via txt para ver se ocorre?

caso negativo tente para ver se o problema não está em sua conexão telnet

[Régys Silveira]

Faça como o Juliomar disse, envie os comando pela sua aplicação, provavelmente o terminal está enviando algo errado.

[Daniel Simoes]

Uso o MonitorPLUS com TCP, e não ocorre o "Item Fantasma"... Você pode testar com programa em anexo:

 

ConectaACBrMonitorPLUS.zip

[lucioam]

Daniel,

Utilizei o programinha que você enviou e conectou normalmente... teria alguma coisa em VB6 pra testar?

[Daniel Simoes]

Não conheço VB6... mas a maior dificuldade do pessoal é em relação a String do Terminador  ( #13+#10+'.'+#13+#10)

[lucioam]

Vish Daniel... agora fiquei boiando..... O que seria esse String do Terminador?

Não conheço VB6... mas a maior dificuldade do pessoal é em relação a String do Terminador  ( #13+#10+'.'+#13+#10)

Teria o fonte desse projetinho que mandou pra poder dar uma estudada?

[Daniel Simoes]

Vish Daniel... agora fiquei boiando..... O que seria esse String do Terminador?

Teria o fonte desse projetinho que mandou pra poder dar uma estudada?

Está nos fontes do ACBr

\ACBr\Projetos\ACBrMonitorPLUS\Lazarus\Exemplos\Lazarus

[Diego Siervo]

Oi pessoal irei tentar pois tente com ACBrMonitor e ACBr monitor Plus.

Fiz o teste via TXT sim e o mesmo ocorre. O meu medo é acontecer esse mesmo erro com o ECF real. Pois o que percebo é  que sempre que o ACBr exibe erro de resposta da bematech é que acontece esse problema.  Aparece que o ACbr recebe erro da impressora mais a impressora recebeu o comando e o ACBr de tentar reenviar o comando pra impressora quando ocorre o erro e acaba duplicado.

Façam um pra mim por  favor.  Lancem esse script no ACBR e informa pra mim o resulta com qual versão vocês testaram com o emulador ou quem tem a possibilidade de fazer um um ECF real qual é o retorno disso. Mandem a versão do emulador e do ACBr por gentileza pra eu testar aqui. Sempre aqui ocorre um item a mais sendo que esse script é o teste que vem com ACBrmonito

 

ECF.AbreCupom("12345678901")  
ECF.VendeItem("189012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("289012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.VendeItem("389012456789","PRODUTO TESTE, ISENTO","II", 1.5, 2.5 ) 
ECF.SubTotalizaCupom(-0.75) 
ECF.EfetuaPagamento("01",100,"DEVE VOLTAR TROCO DE 1,25") 
ECF.FechaCupom("Componentes ACBr|http://acbr.sourceforge.net") 

 

 

Daniel ocorreu o mesmo erro. VEja foi dado 7 comando de item e foram lançados 8 itens.

Existe um intevalo de tempo que a impressora precisa para que não possa dar nenhum problema?