Problema nas Casas Decimais do Valor Unit. na Impressão do Fortes

[Matheus de Oliveira]

Tem um problema nas casas decimais do valor unit. na impressão do Fortes quando é Combustível.

Não sei se já corrigiram, pois atualizei recentemente e está com esse problema, mas já corrigi.

De

LinhaItem := Trim(Prod.cProd)+' '+
                 Descricao+' '+
                 DFeUtil.FormatFloat(Prod.qCom, ACBrSATExtrato.Mask_qCom)+' '+
                 Trim(Prod.uCom)+' X '+
                 DFeUtil.FormatFloat(Prod.vUnCom, ACBrSATExtrato.Mask_vUnCom)+' ';

Para

LinhaItem := Trim(Prod.cProd)+' '+
                 Descricao+' '+
                 DFeUtil.FormatFloat(Prod.qCom, ACBrSATExtrato.Mask_qCom)+' '+
                 Trim(Prod.uCom)+' X '+
                 DFeUtil.FormatFloat(Prod.vUnCom, DFeUtil.SeSenao(Prod.EhCombustivel, '#,###,##0.000', ACBrSATExtrato.Mask_vUnCom))+' ';

Linha: 598 - ACBrSATExtratoFortesFr.pas

ACBrSATExtratoFortesFr.pas

[Daniel Simoes]

9 horas atrás, matheus_infosis disse:

DFeUtil.SeSenao

Esse método não existe mais no "Trunk2"...

[Matheus de Oliveira]

Em 06/11/2015 19:10:07, Daniel Simoes disse:

Esse método não existe mais no "Trunk2"...

Foi no Trunk que corrigi.

[Juliomar Marchetti]

e não é mais dado suporte do trunk nem subido código ao mesmo! está congelado

[Matheus de Oliveira]

Desculpa, agora corrigi no Trunk2 também, o problema que está deixando 2 casas decimais para combustíveis e são 3 casas decimais, ai onde é 1,999, fica 2,00 na impressão.

Segue o código e o fonte.

LinhaItem := Trim(Prod.cProd)+' '+
                 Descricao+' '+
                 FormatFloatBr(Prod.qCom, ACBrSATExtrato.Mask_qCom)+' '+
                 Trim(Prod.uCom)+' X '+
                 FormatFloatBr(Prod.vUnCom, IfThen(Prod.EhCombustivel, '#,###,##0.000', ACBrSATExtrato.Mask_vUnCom))+' ';

De

LinhaItem := Trim(Prod.cProd)+' '+
                 Descricao+' '+
                 FormatFloatBr(Prod.qCom, ACBrSATExtrato.Mask_qCom)+' '+
                 Trim(Prod.uCom)+' X '+
                 FormatFloatBr(Prod.vUnCom, ACBrSATExtrato.Mask_vUnCom)+' ';

Para

LinhaItem := Trim(Prod.cProd)+' '+
                 Descricao+' '+
                 FormatFloatBr(Prod.qCom, ACBrSATExtrato.Mask_qCom)+' '+
                 Trim(Prod.uCom)+' X '+
                 FormatFloatBr(Prod.vUnCom, IfThen(Prod.EhCombustivel, '#,###,##0.000', ACBrSATExtrato.Mask_vUnCom))+' ';

Linha: 593 - ACBrSATExtratoFortesFr.pas

ACBrSATExtratoFortesFr.dfm

ACBrSATExtratoFortesFr.pas

[Juliomar Marchetti]

Bom achei relevante somente o .pas então já fiz o merge!

obrigado pela contribuição!