Alimentar corretamente o valor do ISS retido do provedor SigISSWeb no componente ACBrNFSeX

[Guilherme Consolação Dias]

Boa noite, estou emitindo algumas NFSes no provedor SigISSWeb com retenção de ISS, e percebi que o valor não estava sendo destacado no DANFe.

Decidi olhar a rotina de leitura do XML do provedor, e comparando a rotina de leitura dos provedores que utilizam o padrão ABRASF, percebi que uma propriedade não estava sendo alimentada na rotina do provedor SigISSWeb. A propriedade se chama "Servico.Valores.ValorIssRetido".

Segue lógica encontrada na rotina LerServicos da classe TNFSeR_ABRASFv2 na unit ACBrNFSeXLerXml_ABRASFv2.pas, que inspirou essa correção proposta:

      if Valores.IssRetido = stRetencao then
      begin
        Valores.ValorIssRetido := Valores.ValorIss;
        Valores.ValorIss := 0;
      end
      else
        Valores.ValorIssRetido := 0;

Foi alterado o arquivo fonte: SigISSWeb.LerXml.pas, onde alimento essa propriedade de forma similar ao código demonstrado acima.

SigISSWeb.LerXml.pas

[Italo Giurizzato Junior]

Bom dia @Guilherme Consolação Dias,

Muito obrigado pela colaboração, já foi cria a TK-7072 para analise.

[Guilherme Consolação Dias]

Perfeito, obrigado @Italo Giurizzato Junior

[Italo Giurizzato Junior]

Boa tarde @Guilherme Consolação Dias,

Já esta no SVN.