Impressão Danfe - Casas Decimais No Valor Unitário Fastreport

[SisComp - Proc. de Dados]

Olá amigos, para impressão da Danfe, utilizo o FastReport, mais especifico o arquivo "DANFeRetrato_Basic.fr3", devido a sistemática de trabalho do meu cliente, precisei mudar no sistema para o valor unitário do item com 6 casas decimais, porém estou enfrentando um problema, quando vou imprimir um item que tenha valor unitário alto, ele não cabe dentro do campo do valor unitário e corta parte do valor.

 

Para alterar a quantidades de casas decimais da impressão da Danfe, abri o arquivo "DANFeRetrato_Basic.fr3", efetuei a mudança manualmente a formatação do campo, já que o componente ACBrNFeDANFEFR, na propriedade Casas Decimais não adianta mexer pois ele não altera as casas decimais em tempo de execução, em anexo coloquei os prints para melhor entendimento.

 

O que preciso é o seguinte. Para notas fiscais com valores pequenos, preciso imprimir as seis casas decimais após a virgula, e para notas com o valor unitário altos que não venham a caber no campo, preciso imprimir apenas com duas casas decimais após a virgula. Existe alguma outra propriedade que possa atribuir em tempo de execução para manipular a quantidade de casas decimais a serem impressas?

 

[juaumkiko]

Olá...

 

O motivo que você informar as casas decimais no componente e no danfe não surtir efeito se deve ao fato de vc usar a versao Basic do DanfeRetrato, que se destina a desenvolvedores que só tenham a versão BASIC do Fast Report no Delphi.

 

Infelizmente quanto a isso não terá jeito, ou vc troca para a versão completa do FR e passa a usar o DanfeRetrato.fr3, ou vc terá que alterar manualmente mesmo.

 

Na versão completa e usando o arquivo DanfeRetrato.fr3 a propriedade funciona corretamente no Danfe.

 

[]´s

[SisComp - Proc. de Dados]

Obrigado, efetuei a mudança e deu certo.

[Danilo Yoshio]

Ola. eu contornei esta limitação setando este valor via codigo:

 

no Metodo PrepareReport do ACBrNFeDANFEFR.pas

 

eu coloquei estas duas linhas depois de carregar o arquivo do relatorio.

 

  TfrxMemoView(dmDanfe.frxReport.FindComponent('memqCom')).DisplayFormat.FormatStr := '%2.'+IntToStr(CasasDecimais._qCom)+'f';

  TfrxMemoView(dmDanfe.frxReport.FindComponent('memvUnCom')).DisplayFormat.FormatStr := '%2.'+IntToStr(CasasDecimais._vUnCom)+'f';

 

isso poderia ser colocado no fonte do csv?

 

 

grato

[Régys Silveira]

Envie o arquivo alterado para que possamos comparar e validar as alterações.

[Danilo Yoshio]

Ola Regys.

 

 

eu não estava com a ultima versão atualizada, mas acho q da para entender..

a alteração esta entre as linhas 214 a 216.

ACBrNFeDANFEFR.pas

Editado 20 Março, 2015 por Danilo Yoshio

[possidonio]

Boa noite.

 

A solução acima funcionou perfeitamente para mim.

 

Atenciosamente,

Possidônio Oliveira.