Servico.discriminacao

[Hetosoft Sistemas]

     DM12.Client_Produto.First;
             while NOT DM12.Client_Produto.EOF do
             begin

               Servico.Discriminacao:=Servico.Discriminacao+DM12.Client_ProdutoPRODUTOS.Text+'                    '+DM12.Client_ProdutoOBS.Text+' | ';

               DM12.Client_Produto.Next;
             end;
 

 

                  Servico.Discriminacao:=Servico.Discriminacao+#13+
                  Form_NotaFiscal.MemoNFSe.Lines.Text;

 

 

Estou colocando um obs a mais , e esse obs esta em um memo,

este memo tem 1400 caracteres,

ate ai tudo ok,

 

mais o cliente reclamou que ta sem formatacao ex:

 

 

SERVICORE DE MAO DE OBRA

    JOAO 300,00

    MARIA (TERCERIAZADA) 200,00

 

Sair assim

SERVICORE DE MAO DE OBRA JOAO 300,00 MARIA (TERCERIAZADA) 200,00

 

 

Tenho que muda algo no meu codigo?

o que devo fazer.

[Italo Giurizzato Junior]

Boa tarde Heto Andrade,

 

Tente colocar ; ( ponto e virgula ) quando você quer que mude de linha, exemplo:

 

SERVICO DE MAO DE OBRA; JOAO 300,00; MARIA (TERCERIAZADA) 200,00

[Hetosoft Sistemas]

brigadoooooooooooooooooooooooooooooooooooooo.