Page 1 of 1

folder

PostPosted: Tue Jan 30, 2007 12:23 pm
by Patricio Avalos Aguirre
Estimados

Como puedo validar una pestaña del folder, lo intento pero me quedan ambos recurso en el pantalla

Aqui esta el codigo, como ven le he puesto de todo :-(

Code: Select all  Expand view
#define PAGE1 oFld:aDialogs[1]

REDEFINE FOLDER oFld ID 101 OF oDlg                                ;
      PROMPT " &Impresión ", " &Documentos ", " Sistema ", " Empresa" ;
      DIALOGS "PARAME0", "PARAME1", "PARAME4","PARAME3"                ;
      COLORS CLR_BLACK, CLR_BLUE                                      ;
      ON CHANGE ( ;
            iif( nOption <> 1, iif( ClaveAcceso( dbPAR:ClaveEli, "Parametros del sistema"), .t., (oFld:SetOption(1), oFld:nOption:=1, oFld:Refresh(),PAGE1:Refresh(),sysrefresh() ) ), .t. );
                ) ;
      ADJUST



Saludos
Patricio

PostPosted: Tue Jan 30, 2007 3:16 pm
by A&C
#define PAGE1 oFld:aDialogs[1]

REDEFINE FOLDER oFld ID 101 OF oDlg ;
PROMPT " &Impresión ", " &Documentos ", " Sistema ", " Empresa" ;
DIALOGS "PARAME0", "PARAME1", "PARAME4","PARAME3" ;
COLORS CLR_BLACK, CLR_BLUE ;
ON CHANGE ( ;
iif( oFld:nOption <> 1, iif( ClaveAcceso( dbPAR:ClaveEli, "Parametros del sistema"), .t., (oFld:SetOption(1), oFld:nOption:=1, oFld:Refresh(),PAGE1:Refresh(),sysrefresh() ) ), .t. );
) ;
ADJUST

PostPosted: Tue Jan 30, 2007 3:48 pm
by Patricio Avalos Aguirre
A&C

Es lo mismo ya que la el commando On CHANGE envia nOpcion y nOldOption

Saludos
Patricio

PostPosted: Tue Jan 30, 2007 5:22 pm
by A&C
Patricio y q es lo esperas q realice al folder,, explicalo

PostPosted: Tue Jan 30, 2007 8:14 pm
by Patricio Avalos Aguirre
Solucionado, modifique la clase agregando una data de aValid y unos cuantos arreglos...

Gracias

Saludos
Patricio