folder

[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

#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

[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

[Patricio Avalos Aguirre]

A&C

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

Saludos
Patricio

[A&C]

Patricio y q es lo esperas q realice al folder,, explicalo

[Patricio Avalos Aguirre]

Solucionado, modifique la clase agregando una data de aValid y unos cuantos arreglos...

Gracias

Saludos
Patricio