Não gera TAG de valores no formato ABRASFv1 com FormatoDiscriminacao = fdNenhum

[fernando garoso]

Olá, boa tarde.

Estou fazendo testes com o provider que utiliza o padrão ABRASF v1 e quando utilizo a propriedade FormatoDiscriminacao = fdNenhum ele não gera os valores e a discriminação no xml fica correto:

<nfse:Valores>

          <nfse:ValorServicos>0.00</nfse:ValorServicos>

          <nfse:IssRetido>2</nfse:IssRetido>

</nfse:Valores>

<nfse:Discriminacao>MINHA DISCRIMINACAO</nfse:Discriminacao>

 

Quando utilizo em outro formato, como fdConsolidado ele gera correto os valores mas a discriminação não fica como o texto que atribui e sim concatena os itens da nota

<nfse:Valores>

          <nfse:ValorServicos>1118.00</nfse:ValorServicos>

          <nfse:IssRetido>2</nfse:IssRetido>

          <nfse:ValorIss>36.80</nfse:ValorIss>

          <nfse:BaseCalculo>1118.00</nfse:BaseCalculo>

          <nfse:Aliquota>3.2918</nfse:Aliquota>

</nfse:Valores>

<nfse:Discriminacao>;ITEM 1;ITEM 2;ITEM3</nfse:Discriminacao>

 

No código fonte ele passa pelas units:

ACBrNFSeXGravarXml_ABRASFv1
linha 239
  if FormatoDiscriminacao <> fdNenhum then
    ConsolidarVariosItensServicosEmUmSo;

ACBrNFSeXGravarXml
linha 239
  procedure TNFSeWClass.ConsolidarVariosItensServicosEmUmSo;

 

 

[Italo Giurizzato Junior]

Bom dia @fernando garoso,

Pelo seu relato você esta informando os valores e descrição do serviço na lista de serviços, correto?

with Servico.ItemServico.New do
begin
  Descricao := 'Desc. do Serv. 1';
  ItemListaServico := '09.01';
  (...)
end;

Se você pretende usar o formado tdNenhum para o FormatoDiscriminacao então não deve alimentar os valores e descrição na lista de serviços e sim usar os campos destinados as essas informações fora da lista.

Servico.Valores.ValorServicos := 100.35;
Servico.Valores.ValorDeducoes := 0.00;
Servico.Valores.AliquotaPis := 0.00;
Servico.Valores.ValorPis := 0.00;
(...)

 

[fernando garoso]

Opa, bom dia @Italo Giurizzato Junior

Entendi, mas fiz a mudança

//if FormatoDiscriminacao <> fdNenhum then
  ConsolidarVariosItensServicosEmUmSo;

e

    // Consolida todos os itens da lista.
    case FormatoDiscriminacao of
      fdNenhum:
      begin

      end;

      fdTabulado:
        NFSe.Servico.Discriminacao := '{' + xDiscriminacao + '}';

      fdJson:
        NFSe.Servico.Discriminacao := '[' + xDiscriminacao + ']';
    else
      NFSe.Servico.Discriminacao := xDiscriminacao;
    end;
 

e ficou certinho na impressão pelo site da prefeitura, mas vou ver essa opção também, muito obrigado