Duvida Sobre itens da NFSe com varios serviços

[brunoinfosis]

Boa Tarde Preciso enviar uma NFSe com mais de uma discriminação porem não encontrei nenhum exemplo de como se faz isso, a baixo esta duas imagens de duas notas, uma nota com 1 item que foi a que fiz pelo ACBR, e uma nota em que fiz no site da prefeitura.

 

Tentei fazer desta forma, porem não funciona:

while not _QBuscaNFSE.Eof do
begin
      with Servico.ItemServico.Add do
      begin
              Servico.ItemServico.Add.Descricao := _QBuscaNFSE.FieldByName('ser_descricao').AsString;
              Servico.ItemServico.Add.Discriminacao := _QBuscaNFSE.FieldByName('ser_descricao').AsString;
              Servico.ItemServico.Add.Quantidade := _QBuscaNFSE.FieldByName('infs_quantidade').AsFloat;
              Servico.ItemServico.Add.ValorUnitario := _QBuscaNFSE.FieldByName('infs_unitario').AsFloat;
              Servico.ItemServico.Add.Unidade := _QBuscaNFSE.FieldByName('infs_un').AsString;
        end;
       _QBuscaNFSE.Next;
end; 

 

 

Imagem de nota feita pelo Site:

 

Imagem de nota feita pelo ACBR:

 

[Juliomar Marchetti]

Boa noite

acho que não é possível ainda com o componente adicionar vários itens pois nem todos os provedores aceitam!

[brunoinfosis]

Meu servidor é fiorilli voce tem alguma ideia de como que posso fazer?

[arce]

Apesar de no portal ISS de sua cidade poder inserir mais de um item, a emissão via webservice da Fiorilli impossibilita esta prática.

Concatene a discriminação dos itens e informe na tag: DadosServico.Discriminacao

[brunoinfosis]

Entendido pode marcar tópico como fechado.

[centuryinf]

NA GINFES EU ENVIO VARIOS ITENS NO XML E NA HORADE IMPRIMIR UTILIZO A QUEBRA DE LINHAS

FUNCIONOU LEGAL

separo os itens com o caracter pipe

antes de imprimir

      Servico.Discriminacao := StringReplace(Servico.Discriminacao,'|', sLineBreak,[rfReplaceAll]);

    ACBrNFSe1.NotasFiscais.Imprimir;
   ACBrNFSe1.NotasFiscais.ImprimirPDF;

 

Editado 4 Agosto, 2015 por centuryinf

[arce]

Se você utilizar ";" a quebra de linha acontece automaticamente