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
Folder en tiempo de ejecucion
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Folder en tiempo de ejecucion
Jose,
Revisa el ejemplo samples\GenFold.prg que puede ayudarte en lo que quieres hacer.
Revisa el ejemplo samples\GenFold.prg que puede ayudarte en lo que quieres hacer.
Re: Folder en tiempo de ejecucion
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
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