Vdesc - Erro Classe Acbrnfedanfefrdm

[Mauro Asl]

Caros amigos do versionamento,

Antes de reportar este erro, atualizei meus fontes hoje para verificação.

 

 

neste if da linha 571 da classe citada acima, verifiquei o erro de conversão, causado pela string "%", pois o campo vDesc e do tipo float.

          if FDANFEClassOwner.ImprimirDescPorc then

          begin

            if vDesc > 0 then

               FieldByName('vDesc').AsString := DFeUtil.FormatFloat(((vDesc*100) / (VUnCom * QCom))) + '%'

               //FieldByName('vDesc').AsString := DFeUtil.FormatFloat(RoundTo(100 - ((((VUnCom * QCom) - vDesc) / (VUnCom * QCom)) * 100), -1)) + '%'

            else

               FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc);

          end

 

 

A classe já esta em anexo com a correção, apenas removi o percentual que causa o erro.

 

Após verificação deste erro, percebi que a classe "DANFeNFCeA4.fr3" esta com erro e não mostrando o desconto por item. Mais tarde vou ver se consigo corrigir o erro posto a correção.

 

Att: Mauro Augusto.

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

correção aplicada ao svn

obrigado