Frame Dinamica

Olá Galera,
Estou criando uma frame dinamica editável pelo usuários.
Exemplo:
Em uma tabela gravo o nome do modelo e em seguida o próprio usuário informa se o campo será um campo data, texto, titulo.
Digamos que ele escolhe título = "Cirurgias" como eu carrego essas informações na Frame? veja como estou fazendo mas dá erro.

[prog=]FOR EACH banco.tabtree_tela WHERE banco.tabtree_tela.modelo = i-modelo NO-LOCK.
IF banco.tabtree_tela.tipo = 'Títulos' THEN DO:

DEFINE FRAME fr-001 banco.tabtree_tela.titulo VIEW-AS TEXT
SIZE banco.tabtree_tela.largura
BY banco.tabtree_tela.altura
AT ROW banco.tabtree_tela.linha
COL banco.tabtree_tela.coluna
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 144.6 BY 22.91
BGCOLOR 17 FONT 7.

END.

END.[/prog]

Aqui fica melhor:

FOR EACH banco.tabtree_tela WHERE banco.tabtree_tela.modelo = i-modelo NO-LOCK.
IF banco.tabtree_tela.tipo = 'Títulos' THEN DO:

DEFINE FRAME fr-001 banco.tabtree_tela.titulo VIEW-AS TEXT
SIZE banco.tabtree_tela.largura
BY banco.tabtree_tela.altura
AT ROW banco.tabtree_tela.linha
COL banco.tabtree_tela.coluna
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 144.6 BY 22.91
BGCOLOR 17 FONT 7.

END.

END.

O problema que não aceita eu definir uma frame usando o resultado da tabela, acho que falta algum comando, já testei vários e não deu certo.
já testei das seguintes formas:
value(tabela)
"tabela"

Att,

Diogo

Tenta fazer assim:

Código:

def var fh as handle no-undo.

FOR EACH banco.tabtree_tela WHERE banco.tabtree_tela.modelo = i-modelo NO-LOCK.
   IF banco.tabtree_tela.tipo = 'Títulos' THEN DO:
      create frame fh assign
         name        = banco.tabtree_tela.titulo
         width       = banco.tabtree_tela.largura
         height      = banco.tabtree_tela.altura
         row         = banco.tabtree_tela.linha
         col         = banco.tabtree_tela.coluna
         bgcolor     = 17
         font        = 7
         three-d     = yes
         box         = no
         down        = yes
         side-labels = yes
         visible     = yes.
   END.
END.

Testei mas está dando erro:

** Incompatible data types in expression or assignment. (223)
** Could not understand. (196)

Att,

Diogo

Eu não tinha testado, retire a linha: "down = no"