Valor do ISS e Valor Líquido da NFS-e retornando ZERO quando ISS Retido para o provedor Abase

[rfmarciofarolti8]

Olá, boa tarde.

Ao homologar a PM de São Martinho - RS, Provedor ABase nos deparamos com a seguinte situação:

Ao emitir uma NFS-e com ISS Retido o componente retorna as tags ValorIss = 0 (Zero) e ValorLiquidoNfse = Valor Total do Serviço. 

Verificando o código, conseguimos identificar que na Unit pnfsNFSeR, procedure LerNFSe_ABRASF_V2, linha 2488, a property ValorIssRetido recebe a tag ValorIssRetido (Leitor.rCampo(tcDe2, 'ValorIssRetido')) que não é retornada pelo Provedor ABase.

Para obter o valor líquido correto e o valor do ISS, tivemos que alterar o condição abaixo:

        if (FProvedor in [proActconv202, proISSe, proVersaTecnologia, proNEAInformatica,
                          proFiorilli, proPronimv2, proVitoria, proSmarAPDABRASF,
                          proGovDigital, proDataSmart, proTecnos, proRLZ, proSigCorp,
                          proSaatri, proSH3, profinteliss, proABase]) then

        begin
          if NFSe.Servico.Valores.IssRetido = stRetencao then
            NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss')
          else
            NFSe.Servico.Valores.ValorIssRetido := 0;
        end
        else
          NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido');
 

Estamos enviando a Unit para avaliação.

Att,

Márcio Rodrigues Ferreira.

pnfsNFSeR.rar

[Italo Giurizzato Junior]

Boa tarde Marcio,

Agradecemos a sua colaboração mas não estamos mais dando suporte ao componente ACBrNFSe.

Lhe convido a iniciar os testes com o novo componente de emissão de NFS-e: ACBrNFSeX
Manual de Migração
https://www.projetoacbr.com.br/forum/topic/63017-manual-de-migração-para-o-novo-componente-de-emissão-de-nfs-e/
 

[rfmarciofarolti8]

Grato, estarei verificando.