Varias Impressões no Relatório

Discussão em 'Progress 4GL' iniciado por turks, Março 23, 2010.

  1. turks

    turks Membro Participativo

    Tem sim, coloquei os dois, tanto o rp, quando o outro.

    o rp é p primeiro que aparece.... :)

    Obrigado!
  2. turks

    turks Membro Participativo

    Não tem como isso Marly?

    Obrigado!
  3. Luiz

    Luiz Sem Pontuação

    Olá, eu queria perguntar uma coisa, digamos que você inseriu 2 no campo, tem alguma diferença da etiqueta 1 pra etiqueta 2, ou são apenas duas cópias da mesma etiqueta?
  4. turks

    turks Membro Participativo

    Olá Luiz!

    Cara, é a mesma etiqueta, em formulário continuo.
    Não tem difirença, será que vc tem algum código pra me passar que faça isso?

    Obrigado!
  5. Luiz

    Luiz Sem Pontuação

    No mesmo relatório? Tente isso aqui:

    Código:
    /*--------- include de controle de versão ----------*/
    {include/i-prgvrs.i ies0014RP 2.06.00.000}
    
    /* Pré-processador para ativar ou não a saída para RTF*/
    &GLOBAL-DEFINE RTF NO
    
    /*------- Definição de Tabela Temporárias ----------*/
    define temp-table tt-param no-undo
        field destino          as integer
        field arquivo          as char format "x(35)"
        field usuario          as char format "x(12)"
        field data-exec        as date
        field hora-exec        as integer
        FIELD codigo--        AS CHARACTER FORMAT "X(15)"
        FIELD cliente          AS INTEGER
        FIELD modelo           AS CHARACTER FORMAT "X(45)"
        FIELD data-p           AS DATE
        FIELD data-e           AS DATE
        FIELD qt-imprimir      AS INTEGER.
    
    def temp-table tt-raw-digita
        field raw-digita      as raw.
    /*--------------------- recebimento de parâmetros -----------------*/
    DEFINE INPUT PARAMETER raw-param AS RAW NO-UNDO.  /*variável com conteúdo tt-param*/
    DEFINE INPUT PARAMETER TABLE FOR tt-raw-digita.
    
    /*-------------------- carrega parametros--------------------------*/
    CREATE tt-param.
    RAW-TRANSFER raw-param TO tt-param.
    
    /*----------- include padrão para variáveis de relatório ----------*/
    {include/i-rpvar.i}
    
    /*------------------ Definição de Variaveis------------------------*/
    
    DEFINE VARIABLE h-acomp         AS HANDLE     NO-UNDO. /* variavel deve ser sempre definida*/
    define variable i-count         as integer    no-undo.
    
    /*-------------- include padrão para output de relatórios----------*/
    {include/i-rpout.i &STREAM="stream str-rp"}
    
    /*-------------------- bloco principal do programa---------------- */
    ASSIGN c-programa      = "FES0004"
           c-versao         = "2.04"
           c-revisao     = ".00.000"
           c-empresa      = "Fiberbus"
           c-titulo-relat = "Emissão de Etiqueta".
    
    RUN utp/ut-acomp.p PERSISTENT SET h-acomp.
    {utp/ut-liter.i Imprimindo *}
    RUN pi-inicializar IN h-acomp ('Listagem de Pedidos').
    
    /* ---------------Definição do Form, ou cabeçalho----------------- */
    
    
    
    /* -------------------Lógica do Relatório------------------------- */
    
    
    
    FIND FIRST emitente NO-LOCK WHERE emitente.cod-emitente = cliente NO-ERROR.
    FIND FIRST ITEM NO-LOCK WHERE ITEM.it-codigo = codigo-- NO-ERROR.
    
    do i-count = 1 to tt-param.qt-imprimir:
     
    PUT STREAM str-rp
        " ------------------------------------------------------------ "  SKIP
        "|Descrição                                                   |" SKIP
        "|" ITEM.desc-item                                           "|" SKIP
        "|--------------+---------------------------------------------|" SKIP
        "|Código        |" codigo--    "                              |" SKIP 
        "|Data Produção |" data-p "                                     |"  SKIP
        "|Cliente       |" emitente.nome-abrev  "                                 |" SKIP
        "|Modelo        |" modelo               "|"                    SKIP
        "|Data Entrega  |" data-e "                                     |"  SKIP
        "|--------------+---------------+--------------+--------------|" SKIP
        "|RE Acabador   |               |RE Liberação  |              |" SKIP
        " --------------+---------------+--------------+-------------- " skip(2).
    
    end.
  6. turks

    turks Membro Participativo

    Desculpe Luiz, eu num tinha visto, vou verificar o código!

    Obrigado!

Compartilhe esta Página