AcbrNFSE Não esta saindo valor liquido

tiagopassarella · 19 Março, 2018

Bom Dia Amigos...

estou com um problemao e espero que possam me ajudar...

eu uso a NFSE com provedor WebiSS V2.

e quando emito a nfse ele nao esta vendo na impressao o valor liquido correto...

exemplo NFSE

valor 600,00
iss 2%

Valor ISS 12,00

totalLiquido = 588,00

o xml esta correto mas a impressao sao 600,00

como proceder ???

segue em anexo o xml...

desde ja obrigado

2018000000000801-nfse.xml

Italo Giurizzato Junior · 19 Março, 2018

Bom dia Tiago,

Você não informou qual DANFSE utiliza.

Fortes ou Fast Report?

tiagopassarella · 19 Março, 2018

uso o fastreport

Italo Giurizzato Junior · 19 Março, 2018

Tiago,

Chegou a abrir o fonte do DANFSE feito em Fast Report para ver o que esta errado?

tiagopassarella · 19 Março, 2018

nao abri nao... mas o problema é que nao esta alimentando a aliquota do iss, o valor de iss e o valor liquido do iss.... ele simplesmente pega o valor do servico e copia pro valor liquido e o restando fica tudo 0,00

Italo Giurizzato Junior · 19 Março, 2018

Tiago,

Sendo assim, é preciso verificar se o problema é na leitura do XML da NFS-e ou na impressão do DANFSE.

tiagopassarella · 19 Março, 2018

verifiquei a leitura do xml e a mesma esta OK....

e alguma coisa no danfe mesmo....

tiagopassarella · 19 Março, 2018

o problema esta nessa parte do codigo

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

    if (FProvedor = proCoplan) 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;
  end; // fim ValoresNfse

no meu caso ele entra na primeira parte onde esta NFSe.ValoresNfse.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');

E ESTA PUXANDO CERTINHO....

porem quando vai chamar o DANFE... ele esta puxando a linha NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');

que esta zerado... isso ocorre nos 4 campos (BaseCalculo ,Aliquota ,ValorIss ,ValorLiquidoNfse )ai que esta o problema....

como podemos corrigir isso ??

att

Tiago Passarella

Editado 19 Março, 2018 por tiagopassarella

tiagopassarella · 19 Março, 2018

resolvi da seguinte forma... nao sei se é a correta mas temporariamente funcionou... gostaria de ver com vcs... pra gente arrumar ja no SVN

no inicio da funcao

function TNFSeR.LerNFSe_ABRASF_V2: Boolean;

eu adicionei 4 linhas conforme abaixo;.....

fazendo o antes e depois....

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


    if (FProvedor = proCoplan) 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;
  end; // fim ValoresNfse

/////////////////////////////
// DEPOIS
/////////////////////////////

if Leitor.rExtrai(3, 'ValoresNfse') <> '' then
  begin
    NFSe.Servico.Valores.BaseCalculo      := Leitor.rCampo(tcDe2, 'BaseCalculo'); // adicionei
    NFSe.Servico.Valores.Aliquota         := Leitor.rCampo(tcDe3, 'Aliquota');  // adicionei
    NFSe.Servico.Valores.ValorIss         := Leitor.rCampo(tcDe2, 'ValorIss');  // adicionei
    NFSe.Servico.Valores.ValorLiquidoNfse := Leitor.rCampo(tcDe2, 'ValorLiquidoNfse');  // adicionei

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


    if (FProvedor = proCoplan) 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;
  end; // fim ValoresNfse

E ALTEREI TBM A SEGUINTE PARTE DO CODIGO ABAIXO TBM MOSTRANDO O ANTES E DEPOIS...

/////////////////////////////
//ANTES
/////////////////////////////

if (Leitor.rExtrai(Nivel+1, 'Valores') <> '') then
      begin
        NFSe.Servico.Valores.ValorServicos   := Leitor.rCampo(tcDe2, 'ValorServicos');
        NFSe.Servico.Valores.ValorDeducoes   := Leitor.rCampo(tcDe2, 'ValorDeducoes');
        NFSe.Servico.Valores.ValorPis        := Leitor.rCampo(tcDe2, 'ValorPis');
        NFSe.Servico.Valores.ValorCofins     := Leitor.rCampo(tcDe2, 'ValorCofins');
        NFSe.Servico.Valores.ValorInss       := Leitor.rCampo(tcDe2, 'ValorInss');
        NFSe.Servico.Valores.ValorIr         := Leitor.rCampo(tcDe2, 'ValorIr');
        NFSe.Servico.Valores.ValorCsll       := Leitor.rCampo(tcDe2, 'ValorCsll');
        NFSe.Servico.Valores.OutrasRetencoes := Leitor.rCampo(tcDe2, 'OutrasRetencoes');
        NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');
        NFSe.Servico.Valores.BaseCalculo            := Leitor.rCampo(tcDe2, 'BaseCalculo');
        NFSe.Servico.Valores.Aliquota        := Leitor.rCampo(tcDe3, 'Aliquota');

        if (FProvedor in [proActconv202]) then
          NFSe.Servico.Valores.Aliquota := (NFSe.Servico.Valores.Aliquota * 100);

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

///////////////////////////////
//DEPOIS
////////////////////////////////
if (Leitor.rExtrai(Nivel+1, 'Valores') <> '') then
      begin
        NFSe.Servico.Valores.ValorServicos   := Leitor.rCampo(tcDe2, 'ValorServicos');
        NFSe.Servico.Valores.ValorDeducoes   := Leitor.rCampo(tcDe2, 'ValorDeducoes');
        NFSe.Servico.Valores.ValorPis        := Leitor.rCampo(tcDe2, 'ValorPis');
        NFSe.Servico.Valores.ValorCofins     := Leitor.rCampo(tcDe2, 'ValorCofins');
        NFSe.Servico.Valores.ValorInss       := Leitor.rCampo(tcDe2, 'ValorInss');
        NFSe.Servico.Valores.ValorIr         := Leitor.rCampo(tcDe2, 'ValorIr');
        NFSe.Servico.Valores.ValorCsll       := Leitor.rCampo(tcDe2, 'ValorCsll');
        NFSe.Servico.Valores.OutrasRetencoes := Leitor.rCampo(tcDe2, 'OutrasRetencoes');
       // NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');  // comentei essa linha
//        NFSe.Servico.Valores.BaseCalculo            := Leitor.rCampo(tcDe2, 'BaseCalculo'); // comentei essa linha
       // NFSe.Servico.Valores.Aliquota        := Leitor.rCampo(tcDe3, 'Aliquota'); // comentei essa linha

        if (FProvedor in [proActconv202]) then
          NFSe.Servico.Valores.Aliquota := (NFSe.Servico.Valores.Aliquota * 100);

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

pra mim funcionou assim... esta correta a solução acima ?

Editado 19 Março, 2018 por tiagopassarella

Italo Giurizzato Junior · 19 Março, 2018

Boa tarde Tiago,

Favor anexar a unit alterada para que possamos analisar as alterações.

tiagopassarella · 19 Março, 2018

35 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Tiago,

Favor anexar a unit alterada para que possamos analisar as alterações.

segue a unit que eu alterei ... lembrando que eu so alterei o abrasfv2

acredito que deverao ser colocado pra todoss....

pnfsNFSeR.pas

Italo Giurizzato Junior · 19 Março, 2018

Boa tarde Tiago,

Infelizmente não vou poder aceitar a sua contribuição, por dois motivos:

1. O seus fontes estão desatualizados;

2. Você não pode comentar linhas sem saber se isso não vai gerar um efeito colateral em outros provedores.

Outra coisa, veja a sua implementação em : if Leitor.rExtrai(3, 'ValoresNfse') <> '' then

As linhas que você adicionou elas já existem mais abaixo, não seria interessante colocar o provedor em questão em:

if (FProvedor = proCoplan) then

alterar para:

if (FProvedor in [proCoplan, <acrescentar aqui o provedor>]) then

Favor atualizar os fontes e repense a sua implementação.

tiagopassarella · 20 Março, 2018

14 horas atrás, Italo Jurisato Junior disse:

Boa tarde Tiago,

Infelizmente não vou poder aceitar a sua contribuição, por dois motivos:

1. O seus fontes estão desatualizados;

2. Você não pode comentar linhas sem saber se isso não vai gerar um efeito colateral em outros provedores.

Outra coisa, veja a sua implementação em : if Leitor.rExtrai(3, 'ValoresNfse') <> '' then

As linhas que você adicionou elas já existem mais abaixo, não seria interessante colocar o provedor em questão em:

if (FProvedor = proCoplan) then

alterar para:

if (FProvedor in [proCoplan, <acrescentar aqui o provedor>]) then

Favor atualizar os fontes e repense a sua implementação.

entao italo na verdade eu fiz um QUEBRA GALHO so pra sanar o problemas do cliente que estava esperando... talvez eu tenha me expressado mau mas nem era pra atualizar no SVN o que eu fiz mesmo uma vez que nem tenho um conhecimento a fundo do componente. mas vou atualizar os fontes pra ver a sua correção e logo mais ja digo como ficou... mas obrigado pela explicação italo... e sempre bom poder contar com vcs...

att

Tiago

tiagopassarella · 20 Março, 2018

8 minutos atrás, tiagopassarella disse:

entao italo na verdade eu fiz um QUEBRA GALHO so pra sanar o problemas do cliente que estava esperando... talvez eu tenha me expressado mau mas nem era pra atualizar no SVN o que eu fiz mesmo uma vez que nem tenho um conhecimento a fundo do componente. mas vou atualizar os fontes pra ver a sua correção e logo mais ja digo como ficou... mas obrigado pela explicação italo... e sempre bom poder contar com vcs...

att

Tiago

bom dia italo...

nao funcionou apos atulizar os fontes voltou tudo como era antes.... sem aparecer os valores dos impostos... o valor liquido estar igual ao valor da base de calculo...

tiagopassarella · 20 Março, 2018

Italo eu fiz umas alterações na UNIT que segue em anexo veja se assim pode ser aceito para colocar no SVN pois acredito que todos que estao usando o webissv2 estao com mesmo problema...

no inicio eu segui a sua recomendação realizando a seguinte alteração..

if (FProvedor in [proCoplan,proWebISSv2]) then

e mais no final as seguintes linhas

if NFSe.Servico.Valores.ValorIss = 0 then
        NFSe.Servico.Valores.ValorIss        := Leitor.rCampo(tcDe2, 'ValorIss');   // aalterei aki
//        NFSe.Servico.Valores.BaseCalculo            := Leitor.rCampo(tcDe2, 'BaseCalculo');
        if NFSe.Servico.Valores.Aliquota = 0 then
        NFSe.Servico.Valores.Aliquota        := Leitor.rCampo(tcDe3, 'Aliquota'); // alterei aki

alterei essa linha pois la no inicio do codigo ja e alimentado com os valores nesses pontos...porem quando chega ai embaixo ele estava zerando os valores uma vez que essas tags nao estavam sendo encontradas nesse nó (nivel+1).

entao coloquei que so entrar se ele for = 0. assim acredito que nao prejudica ninguem...

segue em anexo a unit alterada...

pnfsNFSeR.pas

Italo Giurizzato Junior · 20 Março, 2018

Bom dia Tiago,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

tiagopassarella · 20 Março, 2018

25 minutos atrás, Italo Jurisato Junior disse:

Bom dia Tiago,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

ok obrigado italo... assim que estiver la se puder nos avisar... assim deixamos atualizado como tem de ser...

obrigado pela atenção de sempre...

Italo Giurizzato Junior · 20 Março, 2018

Boa tarde a todos,

Favor atualizar os fontes e fazer novos testes.

Entrar

Sobre nós...

AcbrNFSE Não esta saindo valor liquido

Recommended Posts

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

tiagopassarella

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

tiagopassarella

tiagopassarella

Italo Giurizzato Junior

tiagopassarella

Italo Giurizzato Junior

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante