Erro na Impressora Mecaf

[joaovmf]

Boa tarde,

Tenho um cliente que tem uma impressora Mecaf e quando vou vender um item ele da a mensagem: 'valor não numérico em campo numérico', estou com a ultima atualização do SVN.

Att

João Victor

[Filipe Sortica]

Olá!

O tópico não deveria ter sido criado no fórum "ACBrSerial/ACBrMonitor"?

[EMBarbosa]

Anexe o log do ACBrECF.

[joaovmf]

Olá, segue o log da impressora.

LOG15102012.txt

[EMBarbosa]

Eu verifiquei o manual que temos no repositório do ACBr e o comando me pareceu que está OK.

Qual é o modelo de seu ECF? Sabe se o protocolo é compatível com FCP-500 ou FCP-201?

[Daniel Simoes]

Você está tentando vender um produto com o Preço Unitário Zerado

-- 19:35:07:984 VendeItem( 0000000000628 , ABACATE , F1 , 1 , 0,8 , 0 , KG , % , D , -1 )

[EMBarbosa]

Daniel,

esse daí não é o valor do desconto?

Veja aí:

  ComandoLOG := 'VendeItem( '+Codigo+' , '+Descricao+' , '+

                     AliquotaICMS+' , '+FloatToStr(Qtd)+' , '+

                     FloatToStr(ValorUnitario)+' , '+

                     FloatToStr(ValorDescontoAcrescimo)+' , '+Unidade+' , '+

                     TipoDescontoAcrescimo+' , '+DescontoAcrescimo+

                     ' , '+IntToStr(CodDepartamento)+' )';[/code]

[Daniel Simoes]

Humm... realmente... outro possível problema é o código com 14 casas:

Em todo caso é o Sw.Básico do ECF que está acusando o erro... talvez o manual do ECF de alguma dica

[joaovmf]

Bom dia, obrigado pelas respostas.

O modela da Impressora é : ELGIN ECF IF 400 2E.

Atenciosamente

João Victor

[Daniel Simoes]

Por favor ajude-nos a debugar... O manual de programação direta da Mecaf está na pasta TOOLS

https://acbr.svn.sourceforge.net/svnroo ... anProg.pdf

e a Unit da Mecaf é ACBrECFMecaf.pas

[EMBarbosa]

Humm... realmente... outro possível problema é o código com 14 casas:

Em todo caso é o Sw.Básico do ECF que está acusando o erro... talvez o manual do ECF de alguma dica

Daniel,

eu olhei o manual ontem antes de comentar. O código enviado é 13 casas mesmo. Aquele zero no final (logo antes da descrição) é um parâmetro parte da comunicação. Ele define que a descrição deve ter 20 caracteres.

Não entendo muito de comunicação serial nem deste protocolo, mas pelo que eu vi, para o manual que temos o ACBrECF está enviando corretamente.

O que me veio à mente é que esse ECF não seja compatível com os manuais que temos.

Se eu entendi bem, os ECFs citados lá são ECF-2011 e ECFs com firmwares FCP-201 e FCP-500.

EDIT: Não seria possível esse ECF ser um FiscNet?

[Daniel Simoes]

Acho que é uma MECAF mesmo... pois tirando a venda de Item todos os outros comandos funcionaram...

@joaovmf,

Seria possível enviar link para download do Manual de comunicação direta deste equipamento ?

[joaovmf]

Daniel, infelizmente não poderei postar pois não tenho. E não tenho como debugar pois o cliente fica um pouco longe de onde moro. Vou tentar fazer uma agenda para ir até lá. Enquanto isso se alguém tiver mais alguma idéia.

Mais uma vez obrigado pela ajuda.

João Victor

[EMBarbosa]

João,

Entre em contato com a Epson e veja com eles qual o manual para programação de comunicação direta deve ser utilizado para esse ECF. Eles podem disponibilizar para você.

[joaovmf]

Pessoal, baixei o manual e acho que o problema está no formato.... o comando que o acbr está mandando é esse

11G000100000000000080F00%0000KG00000000006280ABACATE

e segundo o manual esse formato é para impressoras mais nova e no caso desse modelo 400 ele tem que ser 0 para descrição Grande e - para descrição normal.

Andei olhando no fonte do Mecaf e ele faz a verificação se é OldMecaf, mas ele esta considerando como OldMecaf o modelo 201 e 301.

Posso incluir o modelo 400, fazer um teste e ver se resolve?

Obrigado

João Victor

[Daniel Simoes]

Oi Joao,

Boa sacada... sim, mude para que o modelo 400 tb caia nesse IF... se resolver, subimos aqui no SVN..

Como o ACBrECF identifica esse modelo ? (ACBrECF1.ModeloStr e ACBrECF1.SubModelo)

[joaovmf]

Pessoal, corrigi os fontes da Mecaf e gostaria que se possível corrige no servidor SVN.

 

Na procedure Ativar acrescentei o seguinte depois da instrução 

 

  if IsOldMecaf then

    fpColunas := 48;  // Mecaf antiga aceita 48 colunas

 

 instrução acrescentada

  if pos('302', NumVersao) > 0 then

    fpColunas := 40;

 

a outra instrução é na função IsOldMecaf ficou assim agora:

 

function TACBrECFMecaf.IsOldMecaf: Boolean;

begin

  Result := (pos('201', fsNumVersao) > 0) or (pos('301', fsNumVersao) > 0) or (pos('400', fsNumVersao) > 0) or (pos('302', fsNumVersao) > 0);

end;

 

 

Obrigado

 

João Victor

[Juliomar Marchetti]

João anexa a unit fica melhor pra compatibilizar e subir

[joaovmf]

Opa... conforme solicitado... segue a unit....

 

 

Obrigado

 

 

João Victor

ACBrECFMecaf.pas

[Daniel Simoes]

Obrigado pela colaboração, enviado para o SVN...