NFS-e - Não está apresentando valor unitário do Serviço

[Mario Inacio]

Boa tarde.

Mesmo com os fontes atualizados, não está mo4324084115777800019656000000000000540-nfse.xmlstrando o valor unitário dos itens do serviço.

4324084115777800019656000000000000540-nfse.pdf

[Juliomar Marchetti]

Fast Report? Fortes Report ? FPDF?

[Mario Inacio]

Fortes Report Juliomar

[Diego Foliene]

15 hours ago, Mario Inacio said:

Boa tarde.

Mesmo com os fontes atualizados, não está mo4324084115777800019656000000000000540-nfse.xmlstrando o valor unitário dos itens do serviço.

4324084115777800019656000000000000540-nfse.pdf 33.57 kB · 2 downloads

Bom dia!

Esta é a rotina que faz a leitura das informações da Discriminacao no formato de lista tabulada:

procedure TNFSeRClass.LerListaTabulada(const aDiscriminacao: string);
var
  xDiscriminacao, xDescricao, xItemServico: string;
  fQuantidade, fValorUnitario, fValorServico, fValorBC, fAliquota,
  fValorISS: Double;
  i, j: Integer;

  function ExtraiValorCampo(aCampo: string; aCampoNumerico: Boolean): string;
  ...
begin
  xDiscriminacao := aDiscriminacao;
  J := 1;

  while true do
  begin
    xDescricao := ExtraiValorCampo('Descricao', False);

    if xDescricao = '' then
      Break;

    xItemServico := ExtraiValorCampo('ItemServico', False);
    fQuantidade := StrToFloatDef(ExtraiValorCampo('Quantidade', True), 0);
    fValorUnitario := StrToFloatDef(ExtraiValorCampo('ValorUnitario', True), 0);
    fValorServico := StrToFloatDef(ExtraiValorCampo('ValorServico', True), 0);
    fValorBC := StrToFloatDef(ExtraiValorCampo('ValorBaseCalculo', True), 0);
    fAliquota := StrToFloatDef(ExtraiValorCampo('Aliquota', True), 0);
    fValorISS := StrToFloatDef(ExtraiValorCampo('ValorISS', True), 0);

    with NFSe.Servico.ItemServico.New do
    begin
      Descricao := xDescricao;
      ItemListaServico := xItemServico;
      Quantidade := fQuantidade;
      ValorUnitario := fValorUnitario;
      ValorTotal := fValorServico;
      ValorBCINSS := fValorBC;
      BaseCalculo := fValorBC;
      Aliquota := fAliquota;
      ValorISS := fValorISS;

      if ValorISS = 0 then
        ValorISS := BaseCalculo * Aliquota/100;
    end;
  end;
end;

Veja que ele busca pelo ValorServicos, no conteúdo da Discriminacao, o que não consta no seu arquivo, ficando assim zerado na propriedade.

[Mario Inacio]

Certo,

Vou alterar e incluir o campo "ValorServico", mas tenho clientes com versões desde ano ainda, que estava funcionando.

Obrigado