FiveTech Software tech support forums

Hola amigos:

Deseo saber la forma de crear folder en tiempo de ejecucion

He tratado de hacer esto:

//------------------------------------------------------------------------------------------------------------------------
FUNC CASHFLOW()
LOCAL oFld,R,F,N:=0
LOCAL CAD:="oFld := TFolder():ReDefine( 200, {"
USE \PROGRAMA\DATOS\MK09 EXCLU NEW
DO WHILE !EOF()
IF FIELD->VIEW
CAD+='"'+ALLTRIM(FIELD->CUENTA)+'",'
N++
ENDIF
SKIP
ENDDO
CAD:=SUBSTR(CAD,1,LEN(CAD)-1)+"}, {"
FOR F=1 TO N
CAD+='"CF01",'
NEXT
CAD:=SUBSTR(CAD,1,LEN(CAD)-1)+"}"
CAD+=", oDlgF,,,,, .F. )"


DEFINE DIALOG oDlgF RESOURCE "CASHFLOW"
R:=&CAD


ACTIVATE DIALOG oDlgF CENTER
RETU[]


Lo que intento hacer es que dependiendo de las cuentas que el cliente desee ver, se abra una pestaña de folder para que se presente un browse con el contenido de cada una y para ello hago una cadena con la funcion para crear el folder y ejecutarla desde una macro... pero el programa me dice que no esta definida la variable oDlgF (el objeto de la ventana) esta oDlgF la he definido como local y como static pero el mismo resultado.

//oFld := TFolder():ReDefine( 200, {"Cli&pper", "&and", "&Windows", "&Magic"}, { "Sub1","Sub2" }, oDlg,,,,, .F. )


Alguna idea ?

Gracias

Jose,

Revisa el ejemplo samples\GenFold.prg que puede ayudarte en lo que quieres hacer.

Gracias Antonio

Se puede hacer un dialogo que contenga el contenido de la pestaña del folder (browse, botones, get, say, etc) y "clonarla" en una nueva pestaña ?

Saludos