como generar un dialog desde una base de datos

[rterraz]

Hola amigos,

mi problema es el siguiente
Necesito generar,cuando quiero agregar un registro en un twbrowse, un cuadro de dialogo que contenga todos los campos de la base de datos con sus respectivos get's.
Como la base de datos seleccionada en el twbrowse es elegida por el usuario este dialogo va a cambiar segun los campos que contenga dicha base.
El problema mayor es como asignarle las variables a los get para que actualicen los campos de la base.
Intente con macros pero no me anda.
Les mando algo del codigo de lo que estoy tratando de hacer a ver si pueden ayudarme

muchas gracias a todos


//--------------------------------------
Function NewReg()

local oGet,oDlgnew,n,cFile:=alias()
local aStru:=DbStruct()
local aDatos:=array(len(aStru))
local nLine:=0,nCol:=1,nLing:=0,nColg:=6,nSize
local nLeft:=if(len(aStru) > 17,88,44)


Aeval(aDatos,{|x,y| aDatos[y] := aStru[y][1]})

DEFINE DIALOG oDlgnew FROM 1,1 TO 40,nLeft TITLE " NUEVO REGISTRO"

for n := 1 to Len( aStru )

nLine += 1.05
nLing += 1.2
nSize:=if(aStru[n][2] = "C",aStru[n][3] * 4,;
if(aStru[n][2] = "N",aStru[n][3] * 7,;
if(aStru[n][2] = "D",40 , 3)))
if((n=10 .OR. n=20),nLine -= 0.2, ;
if(n = 18,(nLine:=1.05, nLing:=1.2, nCol:=28, nColg:=26),nil))
@ nline,nCol SAY aStru[n][1]
@ nLing,nColg GET ...aqui es donde no se como usar variables o campos de la base... OF oDlgnew SIZE nSize,12

// intente esto pero no anda @ nLing,nColg GET aDatos[n] OF oDlgnew SIZE nSize,12
// los datos del dialog deben actualizar los valores de un registro nuevo

next

ACTIVATE DIALOG oDlgnew CENTERED

return NIL

[FranciscoA]

Hola, creo que puedes lograrlo utilizando FileldGet() o FieldPos(), algo asi: (no lo he probado)
@ nLing,nColg GET aDatos[n] VAR (cFile)->( FieldGet(n) ) OF oDlgnew SIZE nSize,12
Saludos.

[rterraz]

hola Francisco
gracias por tu respuesta, lo probe y sigue sin funcionar...
voy a probar usando algunas variables temporaleds a ver que pasa
abrazo

[karinha]

Algo asi?

http://es.wikipedia.org/wiki/Diccionario_de_datos

Saludos.

[russimicro]

oBrwTem:Edit() .. método de xbrowse... para edición rápida... funciona