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 :/
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.
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.
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.