Danfse - Conam - Valor Líquido não descontando o ISS retido

[Edson.pol]

Boa tarde Italo.

Na impressão do DANFSE - provedor CONAM, o valor do ISS retido não está sendo descontado no valor líquido da nota.

Exemplo:

Valor dos Serviços: 260,00

ISS Retido 5,20

Valor Líquido 254,80

Fiz algumas alterações no arquivo pnfsNFSeR, na função LerNFSe_CONAM (as alterações estão marcadas com //Eds no final

 

A impressão do código de verificação está cortando o texto, então diminui o tamanho da fonte de 10 para 9.

(em anexo)

[]´s

Edson.

ACBrNFSeDANFSeRLRetrato.pas

ACBrNFSeDANFSeRLRetrato.dfm

pnfsNFSeW_CONAM.pas

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa tarde Edson,

Faça uma cópia dos seus fontes e depois atualize eles, noite que os seus fontes não estão sincronizados com o que esta no repositório.

Por fim verifique a necessidade de suas alterações, caso seja necessário faça, e anexo os fontes alterados.

[Edson.pol]

Boa noite Italo.

Atualizei os fontes, e agora ocorre um erro estranho:

01/08/2016 20:37:12
Rps 812. Favor Informar o ISS na Coluna de ISS Devido
Protocolo Rejeitado

O tomador dos serviços é pessoa jurídica, da mesma cidade que o prestador, então o ISS deve ser "retido" e não "devido".

No RPS está sendo informado corretamente o ISS retido.

<RetFonte>SIM</RetFonte>
<CodSrv>01.07</CodSrv>
<DiscrSrv>TESTE DE SERVICO</DiscrSrv>
<VlNFS>380,00</VlNFS>
<VlDed>0,00</VlDed>
<DiscrDed/>
<VlBasCalc>380,00</VlBasCalc>
<AlqIss>2,00</AlqIss>
<VlIss>0,00</VlIss>
<VlIssRet>7,60</VlIssRet>

-- Teste emitindo NFSe pelo ACBrNFSe

-- Teste emitindo NFSe pelo site (homologação)

812UNICA-rps.xml

[Italo Giurizzato Junior]

Boa noite Edson,

É preciso comparar o XML do RPS que anteriormente era processado e o de agora, para sabermos o que mudou.

Depois ver o que precisa ser corrigido no DANFSE para que os valores sejam impressos da forma correta.

No caso do DANFSE temos que lembrar que ele é usado pelos demais provedores, logo temos que tomar o cuidado de corrigir para um provedor e gerar um efeito colateral para os demais.

[Edson.pol]

Bom dia.

Comparei o arquivo -env.xml atual com os antigos, e não vi nenhuma diferença que justifique o erro.

Enviei os arquivos para o suporte da CONAM. Estou aguardando resposta.

[]´s

Edson

 

[Edson.pol]

Boa noite Ítalo.

Sobre a mensagem:  Favor Informar o ISS na Coluna de ISS Devido, entrei em contato com o suporte da CONAM, eles analisaram os XMLs e detectaram que o erro ocorria devido ao cadastro do prestador no ambiente de homologação estar diferente do de produção.

Resolvido este problema, refiz os testes.

O envio do RPS, e a impressão subsequente da NFe estão corretos.

Mas... quanto tenho que reimprimir uma NFSe, carregando o XML gerado, os valores de ISS retido e valor líquido da nota saem incorretos.

Fiz a correções para a reimpressão funcionar. (pnsfNFSeR.pas  -> function TNFSeR.LerNFSe_CONAM)

Em anexo.   

 

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa noite Edson,

Muito obrigado pela colaboração, já esta no repositório.

[Mauro Asl]

Boa noite @Italo Jurisato Junior,

Acrescentei duas linhas para atender as ExigibilidadeISS que não estavam sendo repassadas para o preenchimento da classe CONAM.

Só estava atendendo quando era OptanteSimples,

Fiz os teste aqui e agora esta fazendo o preenchimento corretamente.

Comentei no fonte com um  {Todo:// Acrescentados estas duas linhas abaixo por masl} para melhor localização.

Abrigado pela atenção.

 

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Bom dia Mauro,

Desculpe pela demora em responder.

Muito obrigado pela colaboração, já analisei e enviei para o repositório.

[arce]

Bom dia

@Italo Jurisato Junior o servidor Fiorilli também é necessário fazer uma alteração em relação ao ISS Retido.

Na unit pnfsNFSeR nos métodos TNFSeR.LerNFSe_ABRASF_V2 e TNFSeR.LerRPS_ABRASF_V2, acrescentar o provedor Fiorilli na condição descrita abaixo.

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

 

[Italo Giurizzato Junior]

Boa noite Arce,

Favor anexar a unit alterada, para que possamos avaliar.

[arce]

Fontes->ACBrDFe->ACBrNFSe->PCNNFSe

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa noite Arce,

Muito obrigado pela colaboração, ainda hoje vou enviar para o repositório.