Impressão Da Nfse

[Cleiton Silveira]

Bom dia 

 

Após atualizar o ACBR na impressão da nota fiscal de serviço o valor líquido está vindo zerado.

Alguém sabe o que pode ser?

 

Obrigado

[Italo Giurizzato Junior]

Boa tarde Cleiton,

 

Seja mais especifico.

 

Qual é o provedor e o Report que você esta utilizando para imprimir o DANFSE?

[Cleiton Silveira]

O provedor é Betha. Utilizo o Quick Report. Após a atualização do acbr quando envio a nota para o provedor quando visualizo a nota fiscal o valor líquido está vindo zerado. Olhando a nota enviada pelo site da Betha ela está correta e imprime com valor líquido correspondente.

[Italo Giurizzato Junior]

Cleiton,

 

Se possível post como anexo o XML da NFS-e cujo valor liquido aparece zerado no DANFSE.

[Cleiton Silveira]

Segue anexo o xml da NFS-e

 

Desde já agradeço pela atenção.

2281-nfse.xml

[Italo Giurizzato Junior]

Cleiton,

 

O problema é que o provedor não esta retornando essa informação.

 

Fiz uma alteração para que o componente calcule com base nos demais valores retornados.

 

Atualize os fontes, compile com a opção Build e teste novamente.

[Cleiton Silveira]

Agora o valor líquido da nota fiscal está certo. Teria como fazer esse mesmo ajuste para o valor total de ISS?

Segue xml da NFS-e em questão.

2282-nfse.xml

2282-nfse.xml

[Italo Giurizzato Junior]

Cleiton,

 

Atualize mais uma vez, compile com o Build e teste novamente.

[Cleiton Silveira]

Obrigado Italo.

Agora deu tudo certo na impressão.

Ótimo trabalho.

[jGuto]

Bom dia Italo, comigo acontece o mesmo problema,  estou usando os provedorres Fiorilli e 4R, e envio o xml pela função EnviarSincrono.

 

O xml de retorno vem com a informação do valor liquido, mas não alimenta o componente, depurando percebi que na rotina TGerarretNfse.LerXml(pnfsGerarNfseResposta), tem o seguinte bloco 

 

                

if Leitor.rExtrai(7, 'Valores') <> '' then
begin
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorServicos          := Leitor.rCampo(tcDe2, 'ValorServicos');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorDeducoes          := Leitor.rCampo(tcDe2, 'ValorDeducoes');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorPis               := Leitor.rCampo(tcDe2, 'ValorPis');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorCofins            := Leitor.rCampo(tcDe2, 'ValorCofins');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorInss              := Leitor.rCampo(tcDe2, 'ValorInss');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorIr                := Leitor.rCampo(tcDe2, 'ValorIr');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorCsll              := Leitor.rCampo(tcDe2, 'ValorCsll');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.IssRetido              := StrToSituacaoTributaria(ok, Leitor.rCampo(tcStr, 'IssRetido'));
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorIss               := Leitor.rCampo(tcDe2, 'ValorIss');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.OutrasRetencoes        := Leitor.rCampo(tcDe2, 'OutrasRetencoes');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.BaseCalculo            := Leitor.rCampo(tcDe2, 'BaseCalculo');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.Aliquota               := Leitor.rCampo(tcDe3, 'Aliquota');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorLiquidoNfse       := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.ValorIssRetido         := Leitor.rCampo(tcDe2, 'ValorIssRetido');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.DescontoCondicionado   := Leitor.rCampo(tcDe2, 'DescontoCondicionado');
  ListaNfse.FCompNfse[i].FNFSe.Servico.Valores.DescontoIncondicionado := Leitor.rCampo(tcDe2, 'DescontoIncondicionado');
end;

 

porém, no xml, essa informação vem na tag "ValoresNfse", e não na "Valores", segue o xml em anexo

 

 

NFSe4865.xml

Editado 9 Outubro, 2014 por jGuto

[Italo Giurizzato Junior]

Boa tarde jGuto,

 

Foi feita algumas alterações na unit que lê o XML recentemente, você esta com os fontes atualizados?

[jGuto]

Sim, atualizei antes de postar a mensagem acima..

[Italo Giurizzato Junior]

jGuto,

 

A alteração que mencionei, verifica se o valor liquido da NFSe é zero, se sim ele calcula.

[jGuto]

Então, no meu caso, é retornado no xml o valor do campo ValorLIquido, o xml está anexado na mensagem cima, mas não é preenchido no componente, pois ele vem no grupo ValoresNfse, e não no grupo "Valores".

[Italo Giurizzato Junior]

jGuto,

 

O XML que você postou se refere ao provedor Fiorilli, correto?

 

Conferindo o XML com a Unit pnfsNFSeR.pas é para ele ler sim o valor liquido que encontra-se dentro do grupo ValoresNfse.

 

O provedor Fiorilli se utiliza da Function LerNFSe_ABRASF_V2 e esta logo nas sua primeiras linhas lê o grupo ValoresNfse e consequentemente a TAG ValorLiquidoNfse.

[jGuto]

Estou usando a função EnviarSincrono, no retorno, ele passa pelo LerXML da unit pnfsGerarNfseResposta, onde ele não lê essa tag,

 

Se eu carregar o xml no componente depois, daí sim ele passa por essa função LerNFSe_ABRASF_V2, e preenche o campo corretamente..

 

Ps: Provedores Fiorilli e 4R

Editado 9 Outubro, 2014 por jGuto

[Agnaldo Prates]

Estou usando o provedor Fiorilli e no meu caso está vindo corretamente.

[jGuto]

agnaldo, vc está enviando pela função EnviarSincrono?

[jGuto]

Lembrando que se eu carregar o xml no componente dá certo, o campo só não vem preenchido no retorno

[jGuto]

O provedor Fiorilli se utiliza da Function LerNFSe_ABRASF_V2 e esta logo nas sua primeiras linhas lê o grupo ValoresNfse e consequentemente a TAG ValorLiquidoNfse.

 

 

 

Sim, está lá, mas está jogando as informações no lugar errado

function TNFSeR.LerNFSe_ABRASF_V2: Boolean;
var
 item: Integer;
 ok  : Boolean;
begin
 if Leitor.rExtrai(3, 'ValoresNfse') <> ''
  then begin
   NFSe.Servico.Valores.BaseCalculo      := Leitor.rCampo(tcDe2, 'BaseCalculo');
   NFSe.Servico.Valores.Aliquota         := Leitor.rCampo(tcDe3, 'Aliquota');
   NFSe.Servico.Valores.ValorIss         := Leitor.rCampo(tcDe2, 'ValorIss');
   NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');
  end; // fim ValoresNfse

O correto seria o codigo abaixo,

function TNFSeR.LerNFSe_ABRASF_V2: Boolean;
var
 item: Integer;
 ok  : Boolean;
begin
 if Leitor.rExtrai(3, 'ValoresNfse') <> ''
  then begin
   NFSe.ValoresNfse.BaseCalculo      := Leitor.rCampo(tcDe2, 'BaseCalculo');
   NFSe.ValoresNfse.Aliquota         := Leitor.rCampo(tcDe3, 'Aliquota');
   NFSe.ValoresNfse.ValorIss         := Leitor.rCampo(tcDe2, 'ValorIss');
   NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');
  end; // fim ValoresNfse

Do jeito que está essa informações estão sendo sobreescrita pela parte abaixo, 

 

if (Leitor.rExtrai(4, 'Servico') <> '')
    then begin
     NFSe.Servico.Valores.IssRetido   := StrToSituacaoTributaria(ok, Leitor.rCampo(tcStr, 'IssRetido'));
     {....}
     if (Leitor.rExtrai(5, 'Valores') <> '')
      then begin
        {...}
        NFSe.Servico.Valores.ValorIss               := Leitor.rCampo(tcDe2, 'ValorIss');
        NFSe.Servico.Valores.Aliquota               := Leitor.rCampo(tcDe3, 'Aliquota');
        {...}
        if NFSe.Servico.Valores.ValorLiquidoNfse = 0 then
          NFSe.Servico.Valores.ValorLiquidoNfse     := NFSe.Servico.Valores.ValorServicos -
                                                       NFSe.Servico.Valores.DescontoIncondicionado -
                                                       NFSe.Servico.Valores.DescontoCondicionado -
                                                       // Retenções Federais
                                                       NFSe.Servico.Valores.ValorPis -
                                                       NFSe.Servico.Valores.ValorCofins -
                                                       NFSe.Servico.Valores.ValorIr -
                                                       NFSe.Servico.Valores.ValorInss -
                                                       NFSe.Servico.Valores.ValorCsll -


                                                       NFSe.Servico.Valores.OutrasRetencoes -
                                                       NFSe.Servico.Valores.ValorIssRetido;


        if NFSe.Servico.Valores.BaseCalculo = 0 then
          NFSe.Servico.Valores.BaseCalculo          := NFSe.Servico.Valores.ValorServicos -
                                                       NFSe.Servico.Valores.ValorDeducoes -
                                                       NFSe.Servico.Valores.DescontoIncondicionado;


        if NFSe.Servico.Valores.ValorIss = 0 then
          NFSe.Servico.Valores.ValorIss             := (NFSe.Servico.Valores.BaseCalculo * NFSe.Servico.Valores.Aliquota)/100;


      end;
    end; // fim serviço

Editado 15 Outubro, 2014 por jGuto

[jGuto]

Não tem como subir essa correção??

[Italo Giurizzato Junior]

Boa noite Guto,

 

Alteração feita, por favor atualize os fontes.

[jGuto]

Obrigado Italo