[RESOLVIDO] Imprimir a primeira linha da narrativa

lm1979 · Outubro 24, 2014

Bom dia,
Eu estou gerando um relatório e eu preciso imprimir a primeira linha da narrativa da tabela "natur-oper".

Estou utilizando o seguinte código para simular.
for each natur-oper no-lock
where natur-oper.nat-operacao = '199972':

disp entry(1,natur-oper.narrativa,chr(13)) format "x(100)" with width 300.
end.

Acontece que no disp a segunda linha junta com a primeira, eu já editei o conteúdo da narrativa e mesmo assim não está dando certo.
A primeira linha termina na palavra "Empréstimo", repare que o "ICMS" juntou.
Como eu posso fazer para pegar somente a primeira linha?

jaisonantoniazzi · Outubro 24, 2014

Bom dia, há técnica no manual de padrões:
Veja se te ajuda!

Como imprimir campos editores nos relatórios

Para imprimir campos com view-as editor, deve-se seguir os passos abaixo:

1. Na área de definições do programa implementar a chamada para o include tt-edit.i, que define uma temp-table chamada tt-editor.

{include/tt-edit.i}

2. Não incluir o campo editor na definição do form de impressão, ele deve ser impresso num form separado. Incluir o campo tt-editor.conteudo num novo form vazio, determinando o formato ocupado no layout do relatório. Exemplo:

form
item.it-codigo
/* item.narrativa */
with stream-io width 132 frame f-imp.

form
tt-editor.conteudo format "x(50)" no-label
with stream-io width 132 frame f-imp.

3. No final do programa de impressão, na área de procedures internas, implementar a chamada para o include pi-edit.i, que define a procedure interna pi-print-editor.

{include/pi-edit.i}

4. Na impressão do campo editor, deve-se chamar a procedure interna pi-print-editor:

for each item no-lock:
run pi-print-editor (item.narrativa, 50).

find first tt-editor no-erro.
disp item.it-codigo
with frame f-imp.
down with frame f-imp.

for each tt-editor:
disp tt-editor.conteudo
with frame f-imp.
down with frame f-imp.

end.

end.
Clique para expandir...

eduardo.leite · Outubro 24, 2014

Ao invés de usar o CHR(13), altere para CHR(10).

lm1979 · Outubro 27, 2014

Bom dia,
OK.
Obrigado.

Att,
Leandro.

Logar ou Criar uma Conta

[RESOLVIDO] Imprimir a primeira linha da narrativa

lm1979 Membro Participativo

jaisonantoniazzi Membro Ativo

eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

lm1979 Membro Participativo

Compartilhe esta Página

Logar ou Criar uma Conta

[RESOLVIDO] Imprimir a primeira linha da narrativa

lm1979 Membro Participativo

jaisonantoniazzi Membro Ativo

eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

lm1979 Membro Participativo

Compartilhe esta Página

Pesquisas Úteis