Problemas Na Validação Com O Xsd De Valores Decimais

[rafaeldalbosco]

Olá pessoal, encontrei um Bug no parse do XSD do XML da NFe, quando o valor total do produto for 1210085.66 ao passar pelo método TGerador.wCampo especificamente pela linha de código: 

ConteudoProcessado  := FormatFloat('0.0000000000', valor);

Retornava o valor de string na variável ConteudoProcessado = 1210085.6599999999 sendo que o campo vProd do produto é somente duas decimais, definido por tcDe2 era emitido um alerta, então fiz alguns testes e consegui resolver somente desta maneira, código abaixo:

                // Tipo numerico com decimais
                  case Tipo of
                    tcDe2 : begin
                      NumeroDecimais :=  2;
                      ConteudoProcessado  := FormatFloat('0.00', valor);
                    end;
                    tcDe3 : begin
                      NumeroDecimais :=  3;
                      ConteudoProcessado  := FormatFloat('0.000', valor);
                    end;
                    tcDe4 : begin
                      NumeroDecimais :=  4;
                      ConteudoProcessado  := FormatFloat('0.0000', valor);
                    end;
                    tcDe6 : begin
                      NumeroDecimais :=  6; // Incluido por Italo em 30/09/2010
                      ConteudoProcessado  := FormatFloat('0.000000', valor);
                    end;
                    tcDe10: begin
                      NumeroDecimais := 10;
                      ConteudoProcessado  := FormatFloat('0.0000000000', valor);
                    end;
                  end;
                  //VlrExt := StrToFloat(valor);
                  //ConteudoProcessado  := FormatFloat('0.0000000000', valor);

Alguém tem outra idéia de como solucionar o caso, se não precisaria que fosse enviado o ajuste no svn desta situação.

[Juliomar Marchetti]

Bom dia

está sugerindo correções para a nfe? se sim anexe os fontes que o mantenedor do componente irá ver e analisar!

[rafaeldalbosco]

Boa tarde Juliomar

 

  Fiz esta correção nos meus fontes locais e gostaria de compartilhar, em anexo o fonte com o ajuste.

 

Obrigado.

pcnGerador.pas