[RESOLVIDO] Progress 11.3-linux ,

Discussão em 'EMS , HCM e Totvs 11' iniciado por josefmar, Junho 23, 2014.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. josefmar

    josefmar Sem Pontuação

    Estamos com a seguinte situação:
    Temos o progress 11.3 em servidor Linux.
    Quando executamos o comando de impressão pelo progress, emite mais uma folha em branco.
    Veja um exemplo de programa que usamos:
    /* bc_impre.p - Baca para teste de impressao.
    */
    def var warq as c.
    def var wcomando as c.
    def var wa as i.
    disp "Teste de Impressao"
    with frame f1 centered.
    message "Confirma ?" update wconf as log format "Sim/Nao".
    message "Processando...".
    wcomando = "lp -d IMP1 -o nofilebreak".

    OUTPUT THROUGH VALUE(wcomando) PAGED.

    put unformatted
    string(today,"99/99/9999")
    " " string(time,"hh:mm:ss")
    " - bc_impre.p - Relatorio de Teste de Impressao."
    skip(1).
    repeat:
    wa = wa + 1.
    disp wa label "Seq"
    "Numero " + string(wa) format "x(16)" label "Descricao"
    skip.
    if wa >= 80
    then
    leave.

    end.

    put skip(1)
    "Total de Linhas Impressas: " wa
    skip.
    output close.

    /*
    message "Concluido. Vide" warq.
    */
    message "Impressao concluida.".

    /* Fim do Prog */
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página