Erro: "O campo ValorIss informado incorretamente"

[Edson.pol]

Bom dia!

Estou com este erro, mas não entendi a causa.

Erro: "O campo ValorIss informado incorretamente"

Nesta nota, o ISS seria retido (pessoa jurídica, na mesma cidade do emitente)

Tentei deixar ValorIss=0 e ValorIssRetido=nnn.

Tentei comentar a linha do "ValorIss", mas o XML gera a tag mesmo assim.

     if DM3.qrNFSeIssRetido.AsString='S' then

         Servico.Valores.IssRetido          := stRetencao

     else

         Servico.Valores.IssRetido          := stNormal;


     Servico.Valores.OutrasRetencoes        := DM3.qrNFSeOutrasRetencoes.Value;

     Servico.Valores.DescontoIncondicionado := DM3.qrNFSeDescIncondic.Value;

     Servico.Valores.DescontoCondicionado   := DM3.qrNFSeDescCondic.Value;

     Servico.Valores.BaseCalculo            := DM3.qrNFSeBaseCalculo.Value;

     aliquotaIss := DM3.qrNFSeAliquota.Value;

     Servico.Valores.Aliquota               := aliquotaISS/100;

     ValorISS := Servico.Valores.BaseCalculo * aliquotaISS/100;

     if Servico.Valores.IssRetido = stNormal then begin

         Servico.Valores.ValorIss := RoundTo5(ValorISS, -2);

         //Servico.Valores.ValorIssRetido := 0.00;

     end else begin

         //Servico.Valores.ValorIss := 0.00;

         Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2);

     end;

XML gerado:

- 

- 

- 
116
UNICA
1

2012-12-04T00:00:00
1
1
1
2
1

- 

- 
230.00
1
0.00
4.60
230.00
0.0200
225.40

01.07
344
REF.NOVEMBRO/2012
3525300

A dúvida: Tem que sair as duas tags (ValorIss e ValorIssRetido) quando o ISS é retido?

[]´s

Edson.

[Edson.pol]

Boa noite.

Resolvi o problema informando os mesmos valores em ValorIss e ValorIssRetido.

     if Servico.Valores.IssRetido = stNormal then begin

         //SE ISS NÃO FOR RETIDO...

         Servico.Valores.ValorIss := RoundTo5(ValorISS, -2);

         //Servico.Valores.ValorIssRetido := 0.00;

     end else begin

         // SE ISS FOR RETIDO...

         Servico.Valores.ValorIss := RoundTo5(ValorISS, -2);

         Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2);

     end;

[]´s

Edson.

[tbalbinos]

Tive esse mesmo problema aqui em minha cidade, e resolvi dessa mesma mesma forma que você fez..

[Joel]

Boa tarde Italo, tudo joia? Não estava enviando o ValorIssRetido para o xml mesmo que fosse com iss retido. 

 

No arquivo pnfsNFSeW.pas fiz uma modificação na função  procedure TNFSeW.GerarServicoValores_V2;

 

Acrescentando a linha abaixo:

 

  if (FProvedor in [proISSe])      // Joel Takei 08/12/2014

    then Gerador.wCampoNFSe(tcDe2, '#22', 'ValorIssRetido', 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, '');

 

Por favor se puder verificar e se estiver ok atualizar o svn.

Obrigado!

 

 

A tempo

 

Ainda não ficou no lugar certo, 

verifiquei o XSD da prefeitura e realmente não existe este campo, estou vendo para colocar apenas na impressão.. pois o cliente está questionando que tem o campo porém não mostra o valor...

Estarei analisando a impressão do mesmo.

 

Por favor desconsidere este post , desculpe! 

pnfsNFSeW.pas

Editado 8 Dezembro, 2014 por Joel

[Joel]

Boa tarde Italo, confirmei com a Prefeitura, pois não existe a tag valorissretido no provedor isse de Maringá, sendo assim disseram que pode ser utilizado o valoriss que consta no xml para mostrar na impressão, pois o mesmo não estava sendo visualizado. 

 

Fiz uma modificação nas funções de leitura de XML, por favor se puder validar para mim.

 

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

 

Abraços!

 

 

Na função

 

  function TNFSeR.LerRPS_ABRASF_V2: Boolean;

 

 

 

       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;

 

 

e na função :

 

function TNFSeR.LerNFSe_ABRASF_V2: Boolean;

 

 

        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');

 

 

 

 

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Bom dia Joel,

 

Muito obrigado pela colaboração, em breve estarei disponibilizando a alteração.