NFSe com mais de um serviço

[Alessandra.imofficer]

Estou fazendo nota de serviço para a cidade de Junidai. Minha cliente quer que apareça todos os serviços com os valores unitarios e totais da mesma forma que aparecem os itens na nfe... 

Mas não estou conseguindo...

estou usando a rotina a seguir, que está dentro de um while com a tabela de itens de serviço :

with Servico.ItemServico.Add do
      begin
       Descricao     := cbxTipo.Text;
       Quantidade    := STRtoINT(ediHoras1.Text);
       ValorUnitario := STRtoFLOAT(ediValorServico.Text);
       ValorTotal    := Quantidade * ValorUnitario;
      end;

 

 

[wanderson ferreira]

Olá Alessandra, precisa confirmar na documentação da NFSe na prefeitura se eles permite discriminar os serviços desta forma, não são todos os provedores que permitem.

No meu caso por exemplo não consigo informar os itens discriminado, a prefeitura nos orientou a concatenar as descrições do serviços por exemplo.

Att

Editado 8 Abril, 2017 por wanderson ferreira
Continuação

[Thobias Sobczak]

Bom dia

A melhor maneira é refazer o DANFSe, retirando dados do teu banco de dados. O padrão do ACBr é um serviço por nota no DANFSe, porém no XML podem ser adicionados mais de um serviço dependendo do provedor.

 

Att

 

[Juliomar Marchetti]

Veja depende do provedor ! não é assim que pode ter mais de um serviço!

[Dercide Alvarez]

@Alessandra.imofficer

Provavelmente você deverá concatenar os itens, quebrando linha para poder ficarem conforme a sua necessidade.

Eu faço conforme o exemplo abaixo :

while not qryNFSeItens.Eof do
begin
   vDescricao := vDescricao + IntToStr(FieldByName('SEQUENCIA').AsInteger) + ' ) ' +Trim(FieldByName('DESCRICAO').AsString);
   vDescricao := vDescricao + 'QUANTIDADE = '+FormatFloat('0.,00', FieldByName('QUANTIDADE').AsFloat)+'  ';
   vDescricao := vDescricao + FieldByName('NOME_UNI').AsString+' ';
   vDescricao := vDescricao + ' - ' + 'UNITARIO = R$ '+ FormatFloat(vFormatoUnitario, FieldByName('VALOR_UNITARIO').AsFloat);
   vDescricao := vDescricao + ' - ' + 'TOTAL = R$ '+ FormatFloat('0.,00', FieldByName('VALOR_TOTAL').AsFloat);
   //--------------------------------------------------------------------
   vDescricao := vDescricao + '|';   // Quebra De Linha
   //--------------------------------------------------------------------
   qryNFSeItens.Next;
End;
 

Na descrição também coloca os parcelamentos das duplicatas, e outras informações a mais.

Deve ficar atento a quantidade de caracteres permitido para a descrição, que deve ser algo em torno de 2000.

Dercide.