exemplo MterTeste não tem a aba Balança

[jcryspin]

Olá, baixei o ACBr pelo SVN, abri o MTerTeste, percebi que a versão Delphi não tem a aba Balança, somente a versão Lazarus, implementei esta aba na mão, com o mesmo fonte do lazarus, deu tudo certo.

Outro problema que encontrei foi que ao ler o peso de uma balança Toledo prix 3 pelo microterminal Bematech Fit, esta apresentando o seguinte erro:

a balança retorna um R junto ao peso, ocasionando o Exception, existe alguma forma de resolver esse erro?

 

 

[jcryspin]

Não sei se é a forma correta, mas consegui resolver alterando o fonte ACBrBALToledo.pas incluindo duas linhas na function InterpretarRepostaPeso.

 

[Daniel Simoes]

Pode por favor anexar as Units modificadas ? Após analise eu subo para o SVN

[jcryspin]

Boa tarde, segue as alterações realizadas...

ACBrBALToledo.pas

unit1.dfm

unit1.pas

[Daniel Simoes]

Atualizei o Demo em Delphi... não usei seus fontes pois não são compatíveis com D7

 

Sobre o ACBrBALToledo.pas, favor anexar o Log do ACBrBAL e do ACBrMTER... aparentemente a modificação não é necessária... provavelmente é o microterminal que está inserindo as letras S, R... mas isso deveria ser limpo em TACBrMTer.DoRecebeDados, pela chamada a MTer.LimparConteudoParaEnviar

[jcryspin]

Boa tarde Daniel,

segue os logs gerados...

_ACBrBAL.log

_ACBrMTer.log

[Daniel Simoes]

Esses logs foram gerados com ou sem a modificação proposta ?

@EliasCesar, pode nos ajudar na interpretação desse caso ?

[jcryspin]

Com as alterações que eu fiz.

Outro problema que encontrei:
qualquer posicionamento que eu faça do cursor na tela do microterminal dentro da procedure ACBrMTer1RecebeDados, assim que ele encerra essa procedure (finaliza ela) o cursor sempre fica na coluna 1,(a linha funciona, a coluna não).

Ex:

procedure TfrmPrincipal.ACBrMTer1RecebeDados(const IP: AnsiString;
  var Recebido: AnsiString; var EchoMode: TACBrMTerEchoMode);
begin

 ACBrMTer1.LimparDisplay(IP);
 ACBrMTer1.PosicionarCursor(ip , 1, 1);
 ACBrMTer1.EnviarTexto(IP, 'Produto:');

end;

* sempre que finalizar a procedure o cursor fica na linha 1 coluna 1 em cima da letra P de 'Produto:'

se eu colocar essas linhas abaixo em um botão o cursos fica na frente dos :_ (dois pontos ) (funcionando corretamente)

 ACBrMTer1.PosicionarCursor(ip , 1, 1);
 ACBrMTer1.EnviarTexto(IP, 'Prod:');

Ainda não consegui resolver isso, e esta sendo um grande problema pois ainda não achei outra forma de mudar o label de comanda: para produto: sem ser dentro desta procedure.

[jcryspin]

Resolvido, desculpe, não achei onde que exclui o post,

o problema acontecia pois o #13 (enter) era acionado após a execução da procedure.  fazendo o teste :

if (Recebido[1] = #13) then 

  Recebido := ''; 

anulou o enter após a execução da procedure posicionando o cursor no local correto.