Duvida Como listar o FIELD DETAILS de tabela?

Discussão em 'Progress 4GL' iniciado por Vinicius Gasparini, Julho 28, 2014.

  1. Vinicius Gasparini

    Vinicius Gasparini Sem Pontuação

    Bom dia,

    Existe uma forma de fazer um "for each" e listar o "field details" de uma tabela?

    Eu sei que posso tirar essa informação no dicionario de dados, mas queria fazer isso para várias tabelas, exportando para um Excel formatado.

    Ex:

    Table: emitente
    ---------------------------------------------------------
    Field Name: nome-abrev
    Help: Nome abreviado do cliente/fornecedor
    Vinicius Gasparini, Julho 28, 2014
    #1
  2. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Olá Vinicius,

    Um exemplo que utilizo é este, só precisa adaptar para gerar para o Excel:
    PHP:
    OUTPUT TO n:\desenv\tabelas.txt NO-CONVERT.
    FOR     EACH banco._file NO-LOCK
        WHERE _file    ._file-name BEGINS "es":
            DISP _file._file-name
             _file    ._desc
            WITH WIDTH 300 STREAM    -IO.
        FOR     EACH banco._field NO-LOCK
            WHERE _field    ._file-recid = RECID(_file)
                BY _field._order:
                DISP _field._order
                 _field    ._field-name
                 _field    ._data-type
                 _field    ._format
                 _field    ._initial
                 _field    ._label
                 _field    ._mandatory
                 _field    ._help
                WITH WIDTH 300 SCROLLABLE STREAM    -IO.
                
            END.
    END.
    OUTPUT CLOSE.
    Espero que ajude.
    Cobra.cne, Julho 28, 2014
    #2
    don.junior, Isaaac, anascimento e 1 outra pessoa curtiram isso.
  3. Isaaac

    Isaaac Sem Pontuação

    Muito bom esse exemplo. Muito obrigado.
    Isaaac, Agosto 14, 2014
    #3

Compartilhe esta Página