Pesquisar na Comunidade
Showing results for tags 'Decimais'.
Encontrado 2 registros
-
Bom Dia, Estou tendo problemas com algumas vendas fazendo o uso de balança direta, a captura do peso é dado em 3 casas decimais sendo possível utilizar até 4 no campo <qCom>. No caso do teste que realizei lancei 3 itens, capturados pela balança. Item 1 - Peso -> 0.1720, Valor do Peso ->3.99 Resultando no valor de 0.68628 Item 2 - Peso -> 0.4420, Valor do Peso ->19.99 Resultando no valor de 8.83558 Item 3 - Peso ->0.5540, Valor do Peso ->10.00 Resultando no valor de 5.54 Se somarmos estes valores chegamos a um resultado de 15.06186 se aplicarmos a regra do arredondamento temos o valor final de 15.06, porém ao validar no SAT temos o retorno 1408 de que a somas do valores dos itens não é igual ao total informado na forma de pagamento fazendo o teste manual com o arquivo, consegui chegar a validar a venda informando o valor final de 15.07. Agora não sei como chegou a este valor de 15.07. Segue anexo o xml para complementar a questão. Obrigado. cupom sat peso.txt
-
Bom dia senhores. Meu software é direcionado a postos de combustíveis e já tenho o Sat implantado em alguns clientes e estou adequando os fontes e presenciando algumas situações específicas. Um dos meus clientes reparou que na impressão, o preço do combustível não estava correto com as 3 casas decimais como de costume. Fui analisar a situação e eu estava direcionando o item com a tag "EhCombustivel" para que o ACBr fizesse os devidos tratamentos quanto as casas decimais. Debugando, percebi que ao passar pela segunda vez na função procedure TCFeW.GerarDetProd(const i: integer); essa indicação "EhCombustivel" se perde (volta a ser false), e daí em diante, todas as informações dos itens, são tratadas como se trabalhasse com apenas 2 casas decimais (XML e Impressão). Por hora, alterei o fonte \ACBr\Trunk\Fontes\ACBrSat\pcnCFeW.pas com o seguinte código: procedure TCFeW.GerarDetProd(const i: integer); var DecQtd: TpcnTipoCampo; begin If CFe.Det[i].Prod.indRegra = irArredondamento then begin DecQtd := tcDe2; end Else begin DecQtd := tcDe3; end; Poderiam me dizer se estou fazendo algo errado ou se essa solução é valida? Desde já agradeço a atenção dos senhores e qualquer dúvida, estou a disposição.
- 8 replies
-
- EhCombustivel
- irArredondamento
- (e 6 mais)