FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour folder
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM

folder

Posted: Tue Jan 30, 2007 12:23 PM
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 :-)

#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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM

folder

Posted: Tue Jan 30, 2007 03:16 PM
#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:=1, oFld:Refresh(),PAGE1:Refresh(),sysrefresh() ) ), .t. );
) ;
ADJUST
Mi segundo amor es Programar
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM

folder

Posted: Tue Jan 30, 2007 03:48 PM

A&C

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

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM

folder

Posted: Tue Jan 30, 2007 05:22 PM

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

Mi segundo amor es Programar
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM

folder

Posted: Tue Jan 30, 2007 08:14 PM

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

Gracias

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion