Impressão Estranha na Danfe de Serviços - Provedor SIMPLISS - Municpio Piracicaba

[quartarollo]

Boa tarde a todos, tudo bem?

Nosso cliente vendeu meia hora de serviço a R$ 150,00 a hora.

Na quantidade, colocou 0,5. No valor unitário R$ 150,00 e no valor total ficou R$ 75,00.

O XML gerou certinho, foi protocolado junto à prefeitura corretamente.

Se entrarmos no site da prefeitura, está certinha a nota lá.

Mas, na impressão da NF-s, está saindo no campo quantidade 5,0 e, no total R$ 0,00.

Mas, somente na impressão, porque, como dito, na prefeitura está correto. Ou seja, o XML está correto também.

Alguém já passou por isso ou sabe o que pode estar ocorrendo

Vou colocar anexo a imagem da DANFE

Obrigado a todos pela atenção.

[Italo Giurizzato Junior]

Boa tarde,

Já chegou a verificar o fonte do DANFSE no que diz respeito a impressão dos serviços?

[quartarollo]

Oi, boa tarde.

Realmente não tinha ido nos fontes. Obrigado pela dica.

Fui lá no código fonte na unit  pnfsNFSeR, tem a function TNFSeR.LerNFSe_ABRASF_V1: Boolean;

Dentro dessa function tem esse trecho de código

if FProvedor = proSimplISS then

    begin
      i := 1;
      while (Leitor.rExtrai(Nivel +2, 'ItensServico', 'ItensServico', i) <> '') do
      begin
        with NFSe.Servico.ItemServico.Add do
        begin
          Descricao := Leitor.rCampo(tcStr, 'Descricao');
          Quantidade := Leitor.rCampo(tcInt, 'Quantidade');
          ValorUnitario := Leitor.rCampo(tcDe2, 'ValorUnitario');
        end;
        inc(i);
      end;
    end;

 

Acho que ai que estava o problema, pois, a quantidade não poderia ser integer. Mas, não sei lhe dizer se isso é padrão ou não. Só sei dizer que aqui na prefeitura de Piracicaba, é aceitável. E no meu caso estava querendo colocar o valor 0,5.

Dai alterei o código e ficou assim:

    if FProvedor = proSimplISS then
    begin
      i := 1;
      while (Leitor.rExtrai(Nivel +2, 'ItensServico', 'ItensServico', i) <> '') do
      begin
        with NFSe.Servico.ItemServico.Add do
        begin
          Descricao := Leitor.rCampo(tcStr, 'Descricao');
          Quantidade := Leitor.rCampo(tcDe2, 'Quantidade');  <= Alterei aqui
          ValorUnitario := Leitor.rCampo(tcDe2, 'ValorUnitario');
          ValorTotal    := Quantidade * ValorUnitario; <= Alterei aqui
        end;
        inc(i);
      end;
    end;

  end; // fim serviço

Eu coloquei o Valor Total também, pois na verdade essa tag nem está no XML.

Agora não sei se essas mudanças minhas podem causa alguma consequência em outro lugar, ou se, sem querer, acabei contribuindo com algo, tomara !!

Obrigado mais uma vez pela atenção.

[Italo Giurizzato Junior]

Boa tarde,

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

[quartarollo]

Não tem o que agradecer não.

Na verdade NÓS aqui que temos muito a agradecer à vocês todos que mantém esse projeto em pé e ativo.

Me sinto honrado até em poder contribuir, no mínimo que seja.

Obrigado mais uma vez !!!

[Professor]

Em 18/02/2019 at 18:14, quartarollo disse:

Não tem o que agradecer não.

Na verdade NÓS aqui que temos muito a agradecer à vocês todos que mantém esse projeto em pé e ativo.

Me sinto honrado até em poder contribuir, no mínimo que seja.

Obrigado mais uma vez !!!

Bom dia quartarollo!

Estamos testando as configurações para provedor simpliis, porem, não conseguimos incluir a discriminação dos serviços por itens. tem alguma configuração especial, pois, já analisamos todo o processo e não funciona.

[antonio_jr]

Italo boa tarde, eu atualizei meu fontes e essa alteração ainda não veio, e estou com mesmo BO que o quartarollo, você sabe me dizer se vocês vão enviar para o repositório esta alteração que o quartarollo fez?

 

 

Editado 10 Julho, 2019 por antonio_jr

[Italo Giurizzato Junior]

Boa tarde Antônio,

Verifique se o ícone da unit em questão não tem uma bolinha vermelha.

Caso afirmativo, exclua o arquivo e baixe novamente.