Ocultar un folder o algunos objetos

Ocultar un folder o algunos objetos

Postby Laurel » Tue Jun 04, 2013 5:08 pm

Hola a todos!

Tengo un programa en el que uso un folder de 4 pestañas para capturar datos pero necesito que dependiendo del usuario muestre o no algunas pestañas y en otros casos las 4 pero con algunos campos ocultos.

¿cómo puedo hacer esto?

Saludos

Laurel
Laurel
Laurel
 
Posts: 65
Joined: Fri Oct 21, 2005 8:07 pm
Location: México

Re: Ocultar un folder o algunos objetos

Postby karinha » Tue Jun 04, 2013 5:54 pm

Code: Select all  Expand view  RUN

FUNCTION MYFUNCTION( oFld )

    IF EsEsto()

       oFld:aEnable := { .T., .T., .T. }

    ELSE

       oFld:aEnable := { .T., .F., .F. }

    ENDIF

RETURN( .T. )
 


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ocultar un folder o algunos objetos

Postby joseluisysturiz » Tue Jun 04, 2013 7:12 pm

Para los campos puedes condiconar con ON INIT cuando activas el oDlg para que muestre o no un objeto, saludos... :shock:

oTuObjeto:Hide() // ocultar

oTuObjeto:Show() // mostrar

oDlg:REFRESH()
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: Ocultar un folder o algunos objetos

Postby Laurel » Wed Jun 05, 2013 11:27 pm

Mil Gracias!!

Me funcionó perfecto lo de ocultar los campos!!

Sólo lo de ocultar el folder no lo logré echar a andar con la instrucción que me indicaron, tengo esto

DEFINE DIALOG oDlg RESOURCE "KARDEX"

REDEFINE FOLDER oFld ID 101 OF oDlg ;
PROMPT "&Empresa" ,"&Trabajador", "&Salario" ,"&Pagos";
DIALOGS "KARDEX1" ,"KARDEX2" ,"KARDEX3" ,"KARDEX4" ;
OPTION 1

y la pestaña que deseo ocultar esta definida asi:

*-- PESTA¥A 3 Salario
REDEFINE SAY oMT_SALADIA VAR cMT_SALADIA ID 101 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_SALAMEN VAR cMT_SALAMEN ID 102 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_INTEG_A VAR cMT_INTEG_A ID 103 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_COMPDIA VAR cMT_COMPDIA ID 104 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_FECHAUM VAR cMT_FECHAUM ID 105 OF oFld:aDialogs[ 3 ] PICTURE '@D' UPDATE
REDEFINE SAY oMT_IMPAUME VAR cMT_IMPAUME ID 106 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_SDOANTE VAR cMT_SDOANTE ID 107 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_INTE_AN VAR cMT_INTE_AN ID 108 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE SAY oMT_COMPANT VAR cMT_COMPANT ID 109 OF oFld:aDialogs[ 3 ] PICTURE '999,999,999.99' UPDATE
REDEFINE GET oMT_VARIMSS VAR cMT_VARIMSS ID 110 OF oFld:aDialogs[ 3 ] PICTURE "999,999.99" UPDATE

Entonces ¿ cómo podría ocultar solo la pestaña 3 : oFld:aDialogs[ 3 ] completa sin tener que ocultar campo por campo ?


Gracias
Laurel
Laurel
 
Posts: 65
Joined: Fri Oct 21, 2005 8:07 pm
Location: México

Re: Ocultar un folder o algunos objetos

Postby karinha » Tue Jun 11, 2013 4:19 pm

Holá, mira se sirve:

viewtopic.php?t=2394

Salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 22 guests