Correção Da Leitura Dos Valores Provedor Isse

[armando.boza]

Boa tarde pessoal.

 

Para o provedor ISSe está zerando o valor do iss retido, comentei a linha 1318 e funcionou, segue trecho do código.

 

arquivo: pnfsNFSeR.pas

if (FProvedor = proISSe) then // Joel Takei 10/12/2014
begin
  if StrToSituacaoTributaria(ok, Leitor.rCampo(tcStr, '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');

  //NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido');  <<<< tive que comentar essa linha para funcionar

Att

 

Armando

 

[armando.boza]

Na verdade a função que o Joel Takei adicionou não está funcionando.

 

Alterei para:

if (FProvedor = proISSe) then // Joel Takei 10/12/2014
        begin
          if NFSe.Servico.Valores.IssRetido = stRetencao then    <<<<<<<<<<<<<<<<< alterei aqui
            NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss')
          else
            NFSe.Servico.Valores.ValorIssRetido := 0;

        end
        else
          NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido');

[Italo Giurizzato Junior]

Bom dia Armando,

 

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

[armando.boza]

Boa tarde Italo.

 

Conferindo a alteração, vc ajustou na function LerRPS_ABRASF_V2 e faltou na function LerNFSe_ABRASF_V2.

Editado 23 Fevereiro, 2015 por armando.boza

[Italo Giurizzato Junior]

Boa tarde Armando,

 

Muito obrigado, já fiz a correção e esta disponível.

[armando.boza]

Obrigado Italo.

 

Testado e funcionando.

[armando.boza]

Ítalo, voltou o erro novamente.

 

Linha 1323 do pnfsNFSeR.pas

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

Alguém descomentou a linha e está zerando o Iss retido para o provedor ISSe novamente.

[Joel]

Boa noite italo, 

 

Conforme o armando explicou acima:  Linha 1323 do pnfsNFSeR.pas 

 

Favor retirar esta linha 

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

 

Pois ela já está sendo tratada acima dela para que não passe por essa linha caso o provedor seja proISSe.

 

Favor fazer a modificação no fonte. 

Desde já agradeço a sua atenção! 

abraços! 

[Italo Giurizzato Junior]

Boa tarde Joel,

 

Desculpe pela demora, a linha foi comentada, assim que possível estarei disponibilizando no repositório.

[armando.boza]

Obrigado Italo e Joel.