Acréscimo Valor Liquido errado

[Paulo Aguiar]

Apos alguns update pelo SVN percebi que o DANFeNFCe.fr3 foi atualizado,

utilizo o FastReport para impressão das NFC-e e ao gerar as mesma com Acréscimo

o valor líquido não esta somando com o acréscimo e sim concatenando a direita do valor. em anexo uma imagem do ocorrido!

já testei com a propriedade ImprimirTotalLiquido marcada porem mesma coisa acontece!

Editado 31 Outubro, 2015 por Paulo Aguiar

[Paulo Aguiar]

Em 30/10/2015 23:50:19, Paulo Aguiar disse:

Apos alguns update pelo SVN percebi que o DANFeNFCe.fr3 foi atualizado,

utilizo o FastReport para impressão das NFC-e e ao gerar as mesma com Acréscimo

o valor líquido não esta somando com o acréscimo e sim concatenando a direita do valor. em anexo uma imagem do ocorrido!

já testei com a propriedade ImprimirTotalLiquido marcada porem mesma coisa acontece!

Boa tarde, Alguem esta com o mesmo problema citado ou conseguiu perceber e fez alguma correção ?

[Juliomar Marchetti]

4 horas atrás, Paulo Aguiar disse:

Boa tarde, Alguem esta com o mesmo problema citado ou conseguiu perceber e fez alguma correção ?

Boa noite!

o projeto é opensource!!! tentou abrir o arquivo e alterar o mesmo?

[Paulo Aguiar]

Bom dia Julioma!

Tente sim abri o DANFE para ver se tinha algo que poderia estar causando o problema citado

até mesmo comparei com outras versões que mantinha na minha maquina porem percebi que esta igual.

esse é o resultado do campo MEMO [<DadosProdutos."VProd"> + <DadosProdutos."vOutro">]

Já alterei as opções de DislplayFormat do valor liquido e o mesmo continua, acredito que possa ser

algum bug antes de carregar os dados para relatório olhei na unit ACBrNFeDANFEFRDM porem não

consegui localizar nada que possa estar causando isto! ainda tenho pouca experiencia no ACBR. 

[Paulo Aguiar]

Boa tarde,

Consegui localizar o problema testei o sistema no modo debug e quando tinha alguma NFC-e com descontou ou acréscimo

vinha o erro:  raised exception class EVariantTypeCastError with message "Could not convert variant of type(String) into type(Double)'.

Na unit ACBrNFeDANFEFRDM no constructor TACBrNFeFRClass.Create(AOwner: TComponent); na criação dos FieldDefs

os campos FieldDefs.Add('vDes'      , ftString, 18); e FieldDefs.Add('vOutro'      , ftString, 18); esta como string e recebendo neles Double.

Correção: 

FieldDefs.Add('vOutro'    , ftFloat);

FieldDefs.Add('vDesc'     , ftFloat);

 

 

[Juliomar Marchetti]

Boa noite!

Parabéns! apliquei ao SVN alterações.. atualize e recompile!

também teste essa situação com NF-e para ver se ocorre o mesmo!

[hleorj]

Em 05/11/2015 20:12:35, Juliomar Marchetti disse:

Boa noite!

Parabéns! apliquei ao SVN alterações.. atualize e recompile!

também teste essa situação com NF-e para ver se ocorre o mesmo!

Esta atualização esta afetando as danfe nfe.

O Arquivo DANFeNFCe.fr3 deve ser refatorado para acatar as condições anterior do svn.

Editado 7 Novembro, 2015 por hleorj

[hleorj]

Situação anterior do Svn

        FieldDefs.Add('vFrete'    , ftString, 18);
        FieldDefs.Add('vOutro'    , ftString, 18);
        FieldDefs.Add('vSeg'      , ftString, 18);
        FieldDefs.Add('vDesc'     , ftString, 18);
 

        FieldByName('vFrete').AsString            := FormatFloatBr( Prod.vFrete ,'###,###,##0.00');
        FieldByName('vSeg').AsString              := FormatFloatBr( Prod.vSeg ,'###,###,##0.00');
        FieldByName('vOutro').AsString            := FormatFloatBr( Prod.vOutro ,'###,###,##0.00');
        FieldByName('vDesc').AsString             := ManterVDesc( Prod.vDesc , Prod.VUnCom , Prod.QCom);

Situação Atual do Svn 

        FieldDefs.Add('vFrete'    , ftFloat);
        FieldDefs.Add('vOutro'    , ftFloat);
        FieldDefs.Add('vSeg'      , ftFloat);
        FieldDefs.Add('vDesc'     , ftFloat);

        FieldByName('vFrete').AsString            := FormatFloatBr( Prod.vFrete ,'###,###,##0.00');
        FieldByName('vSeg').AsString              := FormatFloatBr( Prod.vSeg ,'###,###,##0.00');
        FieldByName('vOutro').AsString            := FormatFloatBr( Prod.vOutro ,'###,###,##0.00');
        FieldByName('vDesc').AsString             := ManterVDesc( Prod.vDesc , Prod.VUnCom , Prod.QCom);

 

Atentar para que as versões Fast com finais _dc  serão oficiais dentro de pouco tempo.

 

Editado 7 Novembro, 2015 por hleorj

[hleorj]

Favor testar :

 

[Paulo Aguiar]

Bom dia, o mesmo problema voltou a ocorrer na impressão do DANFe com desconto

a unit mencionada no post esta do mesmo jeito de antes após atualizar o SVN recentemente.

o erro:  raised exception class EVariantTypeCastError with message "Could not convert variant of type(String) into type(Double)'.

Na unit ACBrNFeDANFEFRDM no constructor TACBrNFeFRClass.Create(AOwner: TComponent); na criação dos FieldDefs

os campos FieldDefs.Add('vDes'      , ftString, 18); e FieldDefs.Add('vOutro'      , ftString, 18); esta como string e recebendo neles Double.

Correção: 

FieldDefs.Add('vOutro'    , ftFloat);

FieldDefs.Add('vDesc'     , ftFloat);

[Juliomar Marchetti]

sugerindo correções favor anexar a unit !

[Paulo Aguiar]

Segue em anexo a unit já corrigida no ponto mencionado!

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

2 horas atrás, Paulo Aguiar disse:

Segue em anexo a unit já corrigida no ponto mencionado!

ACBrNFeDANFEFRDM.pas

Joia ! só que ao efetuar o merge notei que estamos falando somente de um tipo de danfe!

isso não iria implicar em problema nos danfe normal? não seria o caso de mudar o fr3?

[hleorj]

Eu tenho certeza que sim , dara problemas nas outras danfes

 

[Paulo Aguiar]

Boa noite Juliomar, não sei se nos outros Danfe vai gerar problema porem como uso

FastReport testei com ele tanto NF-e como NFC-e não gerou nenhum problema,

A respeito de alterar no FR3 como efetuar essa alteração pois os fields já vem criado como string da unit,

o Memo Valor líquido do FR3 é feito seguinte calculo: [<DadosProdutos."vProd> + <DadosProdutos."VOtro">]

[hleorj]

@Paulo Aguiar, está com disposição para usar a força para testar ?

Observe a informação a seguir :

 na unit    FieldByName('ValorAcrescimos').AsString   := FormatFloatBr( Prod.vProd + Prod.vOutro,'###,###,##0.00');

no fr3                                                                                   calculo: [<DadosProdutos."vProd> + <DadosProdutos."VOtro">]

 

 

Qual arquivo fr3 você esta usando ?

 

 

 

 

[Paulo Aguiar]

Bom dia hleorj, tenho disposição para teste sim!

Estou usando o DANFeNFCe.fr3 para simular os teste descrito aqui.

[hleorj]

@Paulo Aguiar, esta utilizando a ultima versão do SVN ?

[Paulo Aguiar]

@hleorj, Sim estou utilizando  a ultima versão!