Label e type de campo tabela

Discussão em 'Progress 4GL' iniciado por sandrammss, Julho 24, 2012.

  1. sandrammss

    sandrammss Membro Participativo

    Bom dia,
    Existe alguma funcao do progress quem me retorne o nome do label de um campo e o type do campo de uma tabela.

    Por exemplo:

    campo -> emitente.nome-abrev, preciso que retorne o nome do label: Nome Abreviado e o type do campo: char
  2. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Se voce estive com o campo em uma frame, basta informar:

    Código:
    
    find first emitente no-lock no-error.
    
    disp emitente.cod-emitente
         emitente.nome-abrev with frame x 1 columns.
    
    message "Valor: " emitente.cod-emitente:screen-value  skip
            "Label: " emitente.cod-emitente:label         skip
            "Tipo: "  emitente.cod-emitente:type          skip
            "Tipo: "  emitente.cod-emitente:data-type     skip
            "Tipo: "  emitente.cod-emitente:format        skip(1)
            "Valor: " emitente.nome-abrev:screen-value    skip
            "Label: " emitente.nome-abrev:label           skip
            "Tipo: "  emitente.nome-abrev:type            skip
            "Tipo: "  emitente.nome-abrev:data-type       skip
            "Tipo: "  emitente.nome-abrev:format          skip(1) view-as alert-box.
    
    
    Agora se estive fora de uma frame, pode usar buscando no _field os dados (altere o <nome_banco> para o banco onde está a tabela).

    Código:
    
    find first <nome_banco>._file
         where <nome_banco>_file._File-Name = "emitente" no-lock no-error.
    for each <nome_banco>._field of _file no-lock
       where <nome_banco>_field._Field-Name = "cod-emitente"
          or <nome_banco>_field._Field-Name = "nome-abrev":
    
        disp <nome_banco>_file._File-Name
             <nome_banco>_field._Field-Name
             <nome_banco>_field._Data-Type
             <nome_banco>_field._Format
             <nome_banco>_field._Label skip(1) 
             with 1 columns.
    
    end.
    
    
  3. Rodrigo Rossetto

    Rodrigo Rossetto Membro Participativo

    Usa query dinamica!
  4. sandrammss

    sandrammss Membro Participativo

    Deu certo!!

    Tks

    Sandra

Compartilhe esta Página