topic-15705

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Una ayudita con los TABS
Posted: Mon May 25, 2009 03:31 PM

Hola amigos del foro!!

Se me ocurrió utilizar los TABS pues quedan muy vistosos para la aplicación.
Pero ahora me encuentro con el dilema de cómo habilitar ó deshabilitar uno o varios TABS en base a un valor.

Sería lo mismo que hace la clausula WHEN.
Pero en la documentación, parece ser que este control no dispone de WHEN.

En fin, que sí alguien se le ocurre como puedo indicar al control TABS que habilite o inhabilite
una opción en base a un valor, se le estaría muyyyy agradecido.

Aquí les dejo el código que estoy implementando.

Un saludo y gracias.

Code (fw): Select all Collapse

@ 0, 0 TABS oTabs OF oWnd ;
       PROMPTS "Altas",;
               "Bajas",;
               "Consultas",;
               "Modificacion",;
                "Salir" ;
       BITMAPS "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp" ;
                ACTION MsgInfo( oTabs:nOption )

Javier,

FWH 8.04 2008

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Una ayudita con los TABS
Posted: Mon May 25, 2009 09:32 PM

Realmente no se, pero se me ocurre:

oTabs:aPrompts[1]:Disable()

:oops:

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Una ayudita con los TABS
Posted: Tue May 26, 2009 07:54 AM

Gracias,

Pero parece que el método Disable(), no existe.
O eso es lo que entiendo por el error que genera:

Code (fw): Select all Collapse

Application
===========
   Path and name: c:\FWH\z\prueba.exe (32 bits)
   Size: 2,188,800 bytes
   Time from start: 0 hours 0 mins 11 secs 
   Error occurred at: 26-05-09, 09:52:00
   Error description: Error BASE/1004  No existe el m‚todo: DISABLE
   Args:
     [   1] = C   &Personas Físicas

Stack Calls
===========
   Called from:  => DISABLE(0)
   Called from: .\prueba.PRG => (b)FOPENGESTIONPROPIETARIOS(0)
   Called from:  => TWINDOW:ACTIVATE(0)
   Called from:  => TMDICHILD:ACTIVATE(0)
   Called from: .\prueba.PRG => FOPENGESTIONPROPIETARIOS(0)
   Called from: .\prueba.PRG => (b)MAIN(0)
   Called from:  => TBTNBMP:CLICK(0)
   Called from:  => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from:  => TCONTROL:HANDLEEVENT(0)
   Called from:  => TBTNBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from:  => TMDIFRAME:ACTIVATE(0)
   Called from: .\prueba.PRG => MAIN(0)

Javier,

FWH 8.04 2008

ronaldo

Posts: 139

Joined: Fri Nov 25, 2005 04:38 PM

Re: Una ayudita con los TABS
Posted: Tue May 26, 2009 12:34 PM

Creo que la única forma sería desactivar la acción de bAction

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Una ayudita con los TABS
Posted: Tue May 26, 2009 04:36 PM

Gracias por vuestra respuesta.

Al final lo solucioné redirigiendo la acción a un dialogo o a otro según el valor de un avariable.
Así evito que el usuario entre en el formulario cuando no tiene permiso.

Un saludito.

:wink:

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion