Erro Impressão Do Vlr.unitário Ecf Daruma Fs700M

[Pedro E. Braga]

Boa Noite,

 estou enfrentando um problema na ECF Daruma ao Realizar a venda de um Item no Valor de 84,09 o componente envia para o ECF 84,10 conforme log, alem de erros de retorno de variaveis como vlrLiquido numeroCOO quando está de modo debug.

[Daniel Simoes]

Por favor anexe o LOG... se no LOG está chegando 84,10.. provavelmente é sua aplicação que está fazendo algum tipo de arredondamento...

 

Quanto ao modo Debug, desabilite na sua IDE, "Stop on Delphi Exceptions"

[Pedro E. Braga]

Bom Dia Daniel,

 Tentei anexar o arquivo porem o mesmo não está anexando entao extrai a linha do log.

--------------------------------------------------------------------------------
ATIVAR - 20/08/13 20:39:24:232 - Modelo: Daruma - Porta: COM1 - TimeOut: 10
         Device: BAUD=115200 DATA=8 PARITY=N STOP=1 HANDSHAKE= MAXBANDWIDTH=0
--------------------------------------------------------------------------------
-- 20:39:42:150 AbreCupom( , ,  )
                TX -> [FS]F[200][255][255][255]m
   20:39:43:657 RX <- :0000001[200]001404001171[CR][201]
-- 20:39:48:407 NumCCF
                TX -> [FS]R[200]066[182]
   20:39:48:541 RX <- :[200]06620082013213939[CR][198]
-- 20:39:48:720 VendeItem( 00001 , A A S - 100MG CX 20BL X 10 COMP INF ( SANOFI-AVENTIS ) , FF , 1 , 84,09 , 0 , UN , $ , D , -1 )
                TX -> [FS]F[207]170001000000084100000000000000000001         UN TA A S - 100MG CX 20BL X 10 COMP INF ( SANOFI-AVENTIS )[255]7
   20:39:48:917 RX <- :0000001[207]001000000008410[CR][245]

 

pelo que estive verificando e testando o erro ocorre exatamente na Linha 2165 da Unit ACBrECFDaruma.pas.

ValorStr    := IntToStrZero( Round( ValorUnitario * power(10,fpDecimaisPreco)),8 ) ;

onde se pegar o Resultado do comando

IntToStrZero( Round( ValorUnitario * power(10,fpDecimaisPreco)),8 )  = 00008409

ValorStr  = 00008410

isso que não estava conseguindo entender, então decidi fazer alguns testes, 1 estava passando uma variavel do tipo Float, passei a passar a variavel como Extended e o problema foi solucionado no meu banco de dados Gravo como Numeric(18,5) acredito que seja por esse motivo ao tranferir para float esta ficando algum decimal que não consegui verificar.

Editado 24 Agosto, 2013 por bragaped

[Daniel Simoes]

Acredito que o seu problema seja o fato de você estar atribuindo valor para ACBrECF.DecimaisPreco...o ECF da Daruma não suporta essa funcionalidade

[Pedro E. Braga]

Daniel, as informações estão como padrão do componente decimais para Valor=3, quantidade=3, e após alguns outros teste que realizei aki o erro voltou a acontecer mesmo com outros tipos de variaves que não tinha apresentado o problema.

[Daniel Simoes]

Por favor poste um passo a passo de como reproduzir o problema usando o ECFTeste

[Emerson Luis]

Por favor poste um passo a passo de como reproduzir o problema usando o ECFTeste

 

Olá daniel

 

para o erro acontecer basta abrir o ecfteste e fazer os seguintes passos.

 

ex: passo (erro) 

 

abrir cupom (Resposta COO nao encontrada, Resposta CCF nao encontrada),

vender item (Resposta numero item nao encontrada, Resposta valorliquido nao encontrada),

subtotalizar (Resposta subtotal nao encontrada),

efetuar pagamento (Resposta saldo nao encontrada)

e fechar cupom (Resposta COO nao encontrada, Resposta Total liquido nao encontrada).

 

lembre-se teste feito com:

 

SubModeloECF=FS-700M

NumVersao=010100

ModeloECF=ecfDaruma

Porta=COM1

 

espero ter ajudado

 

Obrigado

[Daniel Simoes]

Não compreendi o que você quis dizer com:  (Resposta COO nao encontrada, Resposta CCF nao encontrada), e demais...

[Emerson Luis]

Não compreendi o que você quis dizer com:  (Resposta COO nao encontrada, Resposta CCF nao encontrada), e demais...

para cada passo da emissão do cupom, aparecem estes erros, por isso coloquei a função seguida do erro ...

 

ex:

funcão: Abrir Cupom aparecem as mensagens ((Resposta COO nao encontrada e Resposta CCF nao encontrada)

e assim por diante

[Daniel Simoes]

Você deve estar falando de Exceptions da IDE... desabilite na sua IDE, "Stop on Delphi Exceptions"