Valor Líquido Incorreto Na Impressão Pelo Fortes Report

[armando.boza]

Bom dia pessoal, estou com problema na impressão da DANFSe, o campo valor líquido está imprimindo um valor incorreto.

 

No fonte até está passando corretamente (ACBrNFSeDANFSeRLRetrato linha 333)

rllValorLiquido.Caption := DFeUtil.FormatFloat( FNFSe.Servico.Valores.ValorLiquidoNfse );//Astrogildo em 13/12/12

E no arquivo xml também está correto o campo do valor líquido, porém ao imprimir ele está descontando o campo "ValorDeducoes", se observarem no site da prefeitura esse campo não é descontado do valor líquido, ele é descontado apenas da base de cálculo.

 

Segue em anexo impressão pelo acbr, impressão pelo site da prefeitura e arquivo xml da nota.

 

 

14-nfse.xml

[armando.boza]

Pessoal, acho que encontrei o problema.

 

No fonte pnfsNFSeR linha 1188.

 

Foi alterado para recalcular o valor líquido e base de cálculo.

{ Alterado Por Cleiver em - 22-08-2014 }
        if NFSe.Servico.Valores.BaseCalculo = 0 then
          NFSe.Servico.Valores.ValorLiquidoNfse     := NFSe.Servico.Valores.ValorServicos -
                                                       NFSe.Servico.Valores.ValorDeducoes -
                                                       NFSe.Servico.Valores.DescontoCondicionado -
                                                       NFSe.Servico.Valores.DescontoIncondicionado;
        if NFSe.Servico.Valores.BaseCalculo = 0 then
          NFSe.Servico.Valores.BaseCalculo          := NFSe.Servico.Valores.ValorLiquidoNfse;
       NFSe.Servico.Valores.ValorIss                := (NFSe.Servico.Valores.BaseCalculo * NFSe.Servico.Valores.Aliquota)/100;

[armando.boza]

Comentei esse trecho inteiro e tb a linha 1182

NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo');

Pq a base de cálculo já é extraída da parte "ValoresNfse" linha 995, essa linha 1182 acabava zerando a base de cálculo.

 

Com essas alterações a impressão ficou correta.

[armando.boza]

Bom dia pessoal, alguém poderia ajustar os fontes com as correções que citei?

 

No fonte pnfsNFSeR linha 1188 remover/comentar este trecho:

{ Alterado Por Cleiver em - 22-08-2014 }
        if NFSe.Servico.Valores.BaseCalculo = 0 then
          NFSe.Servico.Valores.ValorLiquidoNfse     := NFSe.Servico.Valores.ValorServicos -
                                                       NFSe.Servico.Valores.ValorDeducoes -
                                                       NFSe.Servico.Valores.DescontoCondicionado -
                                                       NFSe.Servico.Valores.DescontoIncondicionado;
        if NFSe.Servico.Valores.BaseCalculo = 0 then
          NFSe.Servico.Valores.BaseCalculo          := NFSe.Servico.Valores.ValorLiquidoNfse;
       NFSe.Servico.Valores.ValorIss                := (NFSe.Servico.Valores.BaseCalculo * NFSe.Servico.Valores.Aliquota)/100;

E remover/comentar tb a linha 1182, pq a base de cálculo já é extraída da parte "ValoresNfse" linha 995, essa linha 1182 acaba zerando a base de cálculo.

NFSe.Servico.Valores.BaseCalculo := Leitor.rCampo(tcDe2, 'BaseCalculo');

[armando.boza]

Boa noite Italo, obrigado por acertar a programação que mencionei acima.

// Alterado por Italo em 10/09/2014
        if NFSe.Servico.Valores.ValorLiquidoNfse = 0 then

Contudo ainda falta um ajuste, a linha 1184 tem que ser comentada pq a base de cálculo já é extraída do xml na linha 997 em 'ValoresNfse'.

if Leitor.rExtrai(3, 'ValoresNfse') <> ''
  then begin
   NFSe.Servico.Valores.BaseCalculo      := Leitor.rCampo(tcDe2, 'BaseCalculo');
   NFSe.Servico.Valores.Aliquota         := Leitor.rCampo(tcDe3, 'Aliquota');
   NFSe.Servico.Valores.ValorIss         := Leitor.rCampo(tcDe2, 'ValorIss');
   NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');
  end; // fim ValoresNfse

[Italo Giurizzato Junior]

Bom dia Arnando,

 

Muito obrigado pela colaboração, já esta disponível a correção.

[armando.boza]

Bom dia Arnando,

 

Muito obrigado pela colaboração, já esta disponível a correção.

 

Obrigado Italo.