1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Recuperar Informacoes sobre tabela temporária

Discussão em 'Progress 4GL' iniciado por ecsousa, Abril 24, 2014.

  1. ecsousa

    ecsousa Membro Participativo

    Bom dia,

    Alguém sabe onde o progress armazena informações sobre tabelas temporárias?
    Por exemplo, no trecho abaixo... eu informei o format e o column label para o campo que criei.
    Como eu recupero essas informacoes?

    Define temp-table ttTeste
    Field meucampo as Char form "x(30)" Column-label "AAA".
    Create ttTeste.
    Assign ttTeste.meucampo = "isso é só um teste ".
    Disp meucampo With Scrollable .

    eu consigo recuperar algumas informacoes da Temp-table acessando o Handle dela, por exemplo:
    Def Var htt As Handle No-undo.
    htt = Temp-table ttteste:Handle.

    MESSAGE htt:Name VIEW-AS ALERT-BOX INFO BUTTONS OK.

    mas como acessar informacoes dos Fields eu nao encontrei :/
  2. LeandroSantos

    LeandroSantos Membro Participativo

    Voce pode fazer da mesma forma como voce fez com a temp-table.
    Código:
    Define temp-table ttTeste
       Field meucampo as Char form "x(30)" Column-label "AAA".
    
    Create ttTeste.
    Assign ttTeste.meucampo = "isso é só um teste ".
    Disp meucampo With Scrollable .
    
    MESSAGE
       temp-table ttTeste:Name skip(1)
       field meucampo:name skip
       field meucampo:format skip
       field meucampo:label skip
       VIEW-AS ALERT-BOX INFO BUTTONS OK.
  3. ecsousa

    ecsousa Membro Participativo

    Obrigada!!!! não pensei no mais simples! hehe
  4. ecsousa

    ecsousa Membro Participativo

    ahhhhhh :/

    mas se eu não utilizar o campo numa frame (visualiza-lo) nao funciona .... como poderia faze-lo nesse caso?

    Define temp-table ttTeste
    Field meucampo as Char form "x(30)" Column-label "AAA".

    Create ttTeste.
    Assign ttTeste.meucampo = "isso é só um teste ".
    /*Disp meucampo With Scrollable .*/

    MESSAGE
    temp-table ttTeste:Name skip(1)
    field meucampo:name skip
    field meucampo:format skip
    field meucampo:label skip
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
  5. ecsousa

    ecsousa Membro Participativo

    Resolvido:

    Define temp-table ttTeste
    Field meucampo as Char form "x(30)" Column-label "AAA".

    Def Var hTable As Handle No-undo.
    Create Buffer hTable For Table "ttTeste".

    Message hTable:Buffer-field("meucampo"):Column-label
    View-as Alert-box.

Compartilhe esta Página