Ocultar un folder o algunos objetos

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

Ocultar un folder o algunos objetos

Post by Laurel »

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 _ las 4 pero con _ ocultos.

¿cómo puedo hacer esto?

Saludos

Laurel
Laurel
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ocultar un folder o algunos objetos

Post by karinha »

Code: Select all

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
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: Ocultar un folder o algunos objetos

Post by joseluisysturiz »

Para _ 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!
Laurel
Posts: 65
Joined: Fri Oct 21, 2005 8:07 pm
Location: México

Re: Ocultar un folder o algunos objetos

Post by Laurel »

Mil Gracias!!

Me funcionó perfecto lo de ocultar _!!

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
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ocultar un folder o algunos objetos

Post by karinha »

João Santos - São Paulo - Brasil
Post Reply