Danfserl Com Valor Líquido Nfse Errado

[Marcio Lopes ACBr]

Bom Dia,

 

Estou com problema nessas ultima versões da ACBrNFSe, ao atualizar o componente o Valor Líquido da NFSe está descontando novamente o valor do ISS retido. o problema é que o WebService já retorna o Valor Liquido calculado com o valor do Iss retido conforme XML em anexo (Provedor WebISS). Sinceramente não entendi nada na lógica dessa alteração, sempre funcionou nesse e em outros provedores.

 

Eu tive que voltar da forma que era antes para voltar a funcionar nos clientes.

 

 

Unit ACBrNFSeDANFSeRLRetrato.Pas

 

Antes

 

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

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

 

Depois

 

 If FNFSe.Servico.Valores.ValorIssRetido > 0 Then Begin


   rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIssRetido);


   rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse -
                                                    FNFSe.Servico.Valores.ValorIssRetido);
 End Else Begin


   Case FNFSe.Servico.Valores.IssRetido Of
   stRetencao     : Begin


                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss);


                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse -
                                                                       FNFSe.Servico.Valores.ValorIss);
                    End;


   stNormal       : Begin


                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(0);


                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse);
                    End;


   stSubstituicao : Begin


                      rllValorIssRetido.Caption := DFeUtil.FormatFloat(0);


                      rllValorLiquido.Caption   := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorLiquidoNfse);
                    End;
   end;
 End;

Att,

NFS-e.xml

Editado 20 Outubro, 2014 por marciotga

[Marcio Lopes ACBr]

Segue unit alterada.

ACBrNFSeDANFSeRLRetrato.pas

[Juliomar Marchetti]

Segue unit alterada.

Boa noite

fui fazer o merge para testar e percebi que sua unit está desatualizada!

faça primeiro o udpate da mesma e depois aplique suas alterações caso seja necessário e volte a anexar a mesma aqui !

Obrigado

[Marcio Lopes ACBr]

Bom Dia,

 

Segue unit alterada.

 

Obrigado.

ACBrNFSeDANFSeRLRetrato.pas

[Juliomar Marchetti]

Bom Dia,

 

Segue unit alterada.

 

Obrigado.

Bom dia

Sugiro olhar a revisão 7500

onde foi feito a mudança que está hoje informando que foi feito isso para atender a impressão correta no Fortes report!

e preciso verificar senão está sendo feito no local errado no outro provedor ou no que você usa.!

[Italo Giurizzato Junior]

Bom dia a todos,

 

Alterei várias units a fim de resolver o problema do Valor Liquido Zerado.

 

Favor atualizar os fontes e testar novamente.

 

A primeira alteração visava somente se o XML da NFS-e fosse carregado para o componente com essa alteração acredita-se que o problema esteja resolvido sem a necessidade de realizar um LoadFromFile do XML.