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  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

[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