TXT

Bom dia a todos.

Estou criando um relatório e preciso saber como quebrar página em txt.
Exemplo:

Cliente 1 pág.:1

cliente 2 pág.: 2 ...


Obrigada.

Olha, tenta alguma coisa assim, peguei um exemplo de um relatório que faz isso:

Código:

    if  last-of(tt-rel.ttm-emit) then do:
        if  tt-param.formato = 2 then do:
            display stream str-rp "--------------" @ 
                tt-rel.ttm-valor
                with stream-io frame f-relat-09-132.
            down stream str-rp with frame f-relat-09-132.
        end.
        else  do:
            display stream str-rp "--------------" @ 
                tt-rel.ttm-valor
                with stream-io frame f-relat-09-80.
            down stream str-rp with frame f-relat-09-80.
        end.
        put stream str-rp "Total do Fornecedor:" at 086 v-VL-tt-001 format ">>>,>>>,>>9.99" to 120.
        put stream str-rp unformatted skip(1).
       put stream str-rp unformatted skip(1).
    end.

Você pode determinar quantas linhas deseja pular:

Código:

put skip(2) /* Pula duas linhas*/

Se posicionar a impressão na posição 1, o Progress imprime na próxima linha. Exemplo:

Código:

put 'Teste' at 1
     '4each' at 7.
put 'Próxima linha' at 1.

/* Será impresso Teste 4each em uma linha e Próxima na outra linha  */

Olá..

voce pode usar o page quando terminar a impressão dos clientes.

Código:

for each clientes no-lock.
   disp clientes.codigo.
   page.
end.