Folder en tiempo de ejecucion
Posted: Wed Sep 09, 2009 2:08 pm
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
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