Transpor Colunas para Linhas

Discussão em 'Progress 4GL' iniciado por kikofr, Dezembro 16, 2009.

  1. kikofr

    kikofr Membro Participativo

    Bom dia.

    Estou com o seguinte problema, tenho um programa que me envia uma linha com todos os itens que um usuário precisa utilizar em um determinado relatório.

    Ele me envia os itens da seguinte forma.: item01,item02,item03...item99.

    O que preciso é Transformar essa linha em uma temp-table, tentei usar o import para fazer essa quebra, mas daí precisaria declarar n colunas na temp-table.

    Como posso fazer essa transformação de colunas para linhas?
  2. fdantas

    fdantas Administrator Moderador

    Usa um repeat com o comando entry que fica facil...
  3. kikofr

    kikofr Membro Participativo

    Eae Dantas,

    Tens um exemplo de como ficaria o comando?

    Obrigado.
  4. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Kikofr,

    Não sei se tem um exemplo melhor, mas eu usaria assim:
    Código:
    DEF TEMP-TABLE tt-item NO-UNDO
        FIELD campo AS CHAR.
    
    DEF VAR linha AS CHAR INITIAL "item01,item02,item03,item99".
    
    DEF VAR i AS INT.
    
    REPEAT i=1 TO NUM-ENTRIES(linha):
        CREATE tt-item.
        ASSIGN tt-item.campo =  ENTRY(i,linha).
    END.
    
    FOR EACH tt-item:
        DISP tt-item.
    END.
    
    T+
  5. fdantas

    fdantas Administrator Moderador

    Perfeito Cobra !!! Eu também faria assim !!!

    Abraço

Compartilhe esta Página