nfs-e Valor ISS Retido Provedor "TECNOS" - Flores da Cunha - RS.

[Otimizy]

Hoje em pnfsNFSeR, temos:

   NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');
   NFSe.Servico.Valores.Aliquota        := Leitor.rCampo(tcDe3, 'Aliquota');

        if (FProvedor = proISSe) 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');

 

Só que fazendo testes diretamente pelo site da prefeitura de Flores da Cunha, meu retorno NFS-e.xml não contém a tag <ValorIssRetido>,

Onde o campo <ValorIss> do arquivo retorno, vem com valor dependendo da tag <IssRetido>1</IssRetido>.

Tratei da seguinte forma:

        NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');
        if ((FProvedor = ProTecnos) and (NFSe.Servico.Valores.IssRetido = stRetencao)) then
          NFSe.Servico.Valores.ValorIss := 0;

        if (FProvedor in [proISSe,ProTecnos]) 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');

 

Após alteração descrita acima, os valores no layout da Danfse do meu sistema Erp bateram com o .pdf gerado pelo site da prefeitura.

Fico no aguardo...

Obrigado.

Editado 28 Julho, 2015 por Otimizy
1° Matei o português.........2° Esclarecimentos maiores, pós leitura do pré-post.

[Otimizy]

Ignorar tag:

--NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');
--        if ((FProvedor = ProTecnos) and (NFSe.Servico.Valores.IssRetido = stRetencao)) then
--          NFSe.Servico.Valores.ValorIss := 0;

 

Obrigado.