Danfe Impressão Do Campo Informações Complementares

[bfjulia]

Olá amigos !

Estou finalizando a minha NFe, mas me surgiu uma duvida :

 

Na impressão do danfe eu tenho um campo memo que eu passo como parãmetro para informações complementares, no memos esta assim :

 

 

 Teste da Linha 01 do campo memo

Teste da Linha 02 do campo memo

Teste da Linha 03 do campo memo

Teste da Linha 04 do campo memo

Teste da Linha 05 do campo memo

 

Mas na impressão sai assim, usando o exemplo do ACBr

 

 

1-Teste

2-da

3-Linha

4-01

5-do

 

Por que ? O que eu preciso fazer para sair como esta no memo !

Obrigado a todos mais uma vez !

 

Júnior

 

Meu Código :

 

 EdtObs.Text := IBQ_SaidasOBS.AsString;

    with InfAdic.obsFisco.add do

    begin

      if EdtObs.Lines[0] <> '' then

      begin

        with InfAdic.obsFisco.add do

        begin

          xCAmpo := '1-';

          xTexto := EdtObs.Lines[0];

          //Showmessage(EdtObs.Lines[0]);

        end;

      end;

      if EdtObs.Lines[1] <> '' then

      begin

        with InfAdic.obsFisco.add do

        begin

          xCAmpo := '2-';

          xTexto := EdtObs.Lines[1];

          Showmessage(EdtObs.Lines[1]);

        end;

      end;

      if EdtObs.Lines[2] <> '' then

      begin

        with InfAdic.obsFisco.add do

        begin

          xCAmpo := '3-';

          xTexto := EdtObs.Lines[2];

          Showmessage(EdtObs.Lines[2]);

        end;

      end;

      if EdtObs.Lines[3] <> '' then

      begin

        with InfAdic.obsFisco.add do

        begin

          xCampo := '4-';

          xTexto := EdtObs.Lines[3];

          Showmessage(EdtObs.Lines[3]);

        end;

      end;

    end;

[peterson161]

Utilize o campo InfAdic.InfCpl :=

[bfjulia]

Bom dia Perterson, muito obrigado por sua ajuda, mas vc pode me dar um exemplo, uma das descrições que preciso por exemplo é esta :

 

INFORMAÇÕES COMPLEMENTARES :

 

NF de Produtor referenciada - Mês e Ano: 01/13, Modelo: 04,

Série: 0, Número: 921, CPF: 002.348.018-16, IE: 0015126320

262, UF: MG

Informações Adicionais de Interesse do Fisco: ISENTO DE ICM

S CONF. CONV. 42/01

 

Muito Obrigado !

 

Utilize o campo InfAdic.InfCpl :=

[peterson161]

Separe as linhas com ponto-vírgula, assim:

SuaString := ‘‘

SuaString := SuaString + ‘Linha1 ;‘;

SuaString := SuaString + ‘Linha2 ;‘;

InfAdic.InfCpl := SuaString;

[peterson161]

Ou:

InfAdic.Infcpl := Linha1 + ';' + Linha2 + ';' + Linha3 + ';' + Linha4   etc...

[bfjulia]

Peterson deu certinho !!!

Valeu amigão era o que eu precisava !

 

MUITO OBRIGADO MESMO !

Precisando de algo de nós pode contar conosco Ok !

Júnior