Como desabilitar una opcin de un submenu?

[Carlos Ortiz]

He creado desde el IDE un menu Archivo y dentro de el un Submenu
"Entidades", he asignado un valor oMenuEntidades en cVarName y en el metodo
OnClick cargue lo siguiente:
::oMenuEntidades:lEnabled:=.f.
( llamo al TabmEntidades que no es modal sino MDIChild )
::oMenuEntidades:lEnabled:=.t.
y nada siempre aparece habilitado el menu de Entidades, y lo que veo es que
como entra al OnClick llama al abm y sale lo vuelve habilitar, como hago
para que no lo habilite hasta que cierre el dialogo del abm de entidades, o
quizás deberia preguntar si el dialogo esta abierto.
Gracias.

[jrcpoli-quitar]

Carlos Ortiz escribió:
> He creado desde el IDE un menu Archivo y dentro de el un Submenu
> "Entidades", he asignado un valor oMenuEntidades en cVarName y en el metodo
> OnClick cargue lo siguiente:
>
> ::oMenuEntidades:lEnabled:=.f.
> ( llamo al TabmEntidades que no es modal sino MDIChild )
> ::oMenuEntidades:lEnabled:=.t.
Lo único que tienes que hacer es poner el menú principal del cual
depende el subnemu el cual será Items del mismo, porque si le das en el
IDE a Items del menú principal "Archivos" lo tendrás en cierta posición
basándote en la misma prueba:
::oMenuprincipal:aItems[número de posición]:lEnabled := TRUE o FALSE
::oArchivo:aItems[2]:lEnabled := .F.
>
> y nada siempre aparece habilitado el menu de Entidades, y lo que veo es que
> como entra al OnClick llama al abm y sale lo vuelve habilitar, como hago
> para que no lo habilite hasta que cierre el dialogo del abm de entidades, o
> quizás deberia preguntar si el dialogo esta abierto.
>
> Gracias.
>
>
José Ramón Castro Polinio.

[Carlos Ortiz]

Gracias José pero no anduvo, esto es lo que tengo cargado en el onclick
METHOD AbmEntidades( oSender, oMenu ) CLASS TForm1
::oMenuPrincipal:aItems[1]:lEnabled := .f.
TAbmEntidades():New( Self ):Show()
::oMenuPrincipal:aItems[1]:lEnabled := .t.
RETURN Nil
Seguire probando...

[ignacio]

Carlos,
Con el ejemplo de menús incluido en Xailer, diganos como reproducir su
error.
Gracias
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
news:[email=45a9e4bb@news.xailer.com...]45a9e4bb@news.xailer.com...[/email]
> He creado desde el IDE un menu Archivo y dentro de el un Submenu
> "Entidades", he asignado un valor oMenuEntidades en cVarName y en el
> metodo OnClick cargue lo siguiente:
>
> ::oMenuEntidades:lEnabled:=.f.
> ( llamo al TabmEntidades que no es modal sino MDIChild )
> ::oMenuEntidades:lEnabled:=.t.
>
> y nada siempre aparece habilitado el menu de Entidades, y lo que veo es
> que como entra al OnClick llama al abm y sale lo vuelve habilitar, como
> hago para que no lo habilite hasta que cierre el dialogo del abm de
> entidades, o quizás deberia preguntar si el dialogo esta abierto.
>
> Gracias.
>

[Xevi]

Carlos,
Debes de cambiar el estado del menu en el form TAbmEntidades o hacer que sea
un Form Modal, pues las 3 líneas de código que hay en el evento AbmEntidades
se lanzan TODAS a la vez al ser un Form NoModal.
En el Form TAbmEntidades, en OnInitialize puedes ponerlo así
::oParent:oMenuPrincipal:aItems[1]:lEnabled := .f.
Y en el evento OnDestroy
::oParent:oMenuPrincipal:aItems[1]:lEnabled := .f.
Creo que así va a funcionarte.
Un Saludo,
Xevi.
"Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
news:[email=45aae86a@news.xailer.com...]45aae86a@news.xailer.com...[/email]
> Gracias José pero no anduvo, esto es lo que tengo cargado en el onclick
>
> METHOD AbmEntidades( oSender, oMenu ) CLASS TForm1
> ::oMenuPrincipal:aItems[1]:lEnabled := .f.
> TAbmEntidades():New( Self ):Show()
> ::oMenuPrincipal:aItems[1]:lEnabled := .t.
> RETURN Nil
>
> Seguire probando...
>

[Carlos Ortiz]

Gracias Xevi pero si lo pongo MODAL no podre abrir otro ABM o lo que sea
hasta que no cierre el de Entidades.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:45ab3f30$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Carlos,
>
> Debes de cambiar el estado del menu en el form TAbmEntidades o hacer que
> sea un Form Modal, pues las 3 líneas de código que hay en el evento
> AbmEntidades se lanzan TODAS a la vez al ser un Form NoModal.
>
> En el Form TAbmEntidades, en OnInitialize puedes ponerlo así
> ::oParent:oMenuPrincipal:aItems[1]:lEnabled := .f.
>
> Y en el evento OnDestroy
> ::oParent:oMenuPrincipal:aItems[1]:lEnabled := .f.
>
> Creo que así va a funcionarte.
>
> Un Saludo,
> Xevi.
>
>
> "Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
> news:[email=45aae86a@news.xailer.com...]45aae86a@news.xailer.com...[/email]
>> Gracias José pero no anduvo, esto es lo que tengo cargado en el onclick
>>
>> METHOD AbmEntidades( oSender, oMenu ) CLASS TForm1
>> ::oMenuPrincipal:aItems[1]:lEnabled := .f.
>> TAbmEntidades():New( Self ):Show()
>> ::oMenuPrincipal:aItems[1]:lEnabled := .t.
>> RETURN Nil
>>
>> Seguire probando...
>>
>
>

[Carlos Ortiz]

Hola Ignacio, gracias por atender mi problema,
el asunto para mas detalle es el siguiente:
Necesito hacer un menu con una serie de abm´s.
ABM de ENTIDADES / Bancos
ABM de CLIENTES
ABM de PROVEEDORES
etc....
lo que necesito es que el usuario pueda abrir cada uno de los ABM pero no
mas de una vez el mismo ABM, o sea que pueda abrir una sola vez el ABM de
Entidades y sin cerrar esa ventana CHILD pueda abrir otro ABM.
Espero haya sido mas claro, si te parece adjunto los fuentes.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45ab3beb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Carlos,
>
> Con el ejemplo de menús incluido en Xailer, diganos como reproducir su
> error.
>
> Gracias
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
> news:[email=45a9e4bb@news.xailer.com...]45a9e4bb@news.xailer.com...[/email]
>> He creado desde el IDE un menu Archivo y dentro de el un Submenu
>> "Entidades", he asignado un valor oMenuEntidades en cVarName y en el
>> metodo OnClick cargue lo siguiente:
>>
>> ::oMenuEntidades:lEnabled:=.f.
>> ( llamo al TabmEntidades que no es modal sino MDIChild )
>> ::oMenuEntidades:lEnabled:=.t.
>>
>> y nada siempre aparece habilitado el menu de Entidades, y lo que veo es
>> que como entra al OnClick llama al abm y sale lo vuelve habilitar, como
>> hago para que no lo habilite hasta que cierre el dialogo del abm de
>> entidades, o quizás deberia preguntar si el dialogo esta abierto.
>>
>> Gracias.
>>
>
>

[ignacio]

Carlos,
Hay muchas formas de hacerlo te propongo la siguiente que es sencillita:
Supongamos form1 con el menú que lanza form2 desde una opción del menú:
* En Form1:
- Crear DATA lForm2Open INIT .F.
- En evento OnClick del menu poner lForm2Open a .T.
- En evento OnCheckState del menu poner: !::lForm2Open
*En Form2:
- En evento OnClose poner ::oParent:lForm2Open a .F.
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
news:[email=45b5611d@news.xailer.com...]45b5611d@news.xailer.com...[/email]
> Hola Ignacio, gracias por atender mi problema,
>
> el asunto para mas detalle es el siguiente:
> Necesito hacer un menu con una serie de abm´s.
>
> ABM de ENTIDADES / Bancos
> ABM de CLIENTES
> ABM de PROVEEDORES
> etc....
>
> lo que necesito es que el usuario pueda abrir cada uno de los ABM pero no
> mas de una vez el mismo ABM, o sea que pueda abrir una sola vez el ABM de
> Entidades y sin cerrar esa ventana CHILD pueda abrir otro ABM.
>
> Espero haya sido mas claro, si te parece adjunto los fuentes.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:45ab3beb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Carlos,
>>
>> Con el ejemplo de menús incluido en Xailer, diganos como reproducir su
>> error.
>>
>> Gracias
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
>> news:[email=45a9e4bb@news.xailer.com...]45a9e4bb@news.xailer.com...[/email]
>>> He creado desde el IDE un menu Archivo y dentro de el un Submenu
>>> "Entidades", he asignado un valor oMenuEntidades en cVarName y en el
>>> metodo OnClick cargue lo siguiente:
>>>
>>> ::oMenuEntidades:lEnabled:=.f.
>>> ( llamo al TabmEntidades que no es modal sino MDIChild )
>>> ::oMenuEntidades:lEnabled:=.t.
>>>
>>> y nada siempre aparece habilitado el menu de Entidades, y lo que veo es
>>> que como entra al OnClick llama al abm y sale lo vuelve habilitar, como
>>> hago para que no lo habilite hasta que cierre el dialogo del abm de
>>> entidades, o quizás deberia preguntar si el dialogo esta abierto.
>>>
>>> Gracias.
>>>
>>
>>
>
>

[Carlos Ortiz]

Anduvo OK, lo unico que al principio devolvia RETURN Nil
en el METHOD MenuEntidadesCheckState( oSender ) CLASS TForm1
y me daba un error en SETSTATE(556)
y cambie el RETURN para que devuleva
RETURN !::lAbmEntidades y anduvo, ademas la opcion abierta del menu
queda deshabilitada perfectamente como queria.
Muchas gracias Ignacio.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45b5cf36$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Carlos,
>
> Hay muchas formas de hacerlo te propongo la siguiente que es sencillita:
>
> Supongamos form1 con el menú que lanza form2 desde una opción del menú:
>
> * En Form1:
> - Crear DATA lForm2Open INIT .F.
> - En evento OnClick del menu poner lForm2Open a .T.
> - En evento OnCheckState del menu poner: !::lForm2Open
>
> *En Form2:
> - En evento OnClose poner ::oParent:lForm2Open a .F.
>
> Saludos
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
> news:[email=45b5611d@news.xailer.com...]45b5611d@news.xailer.com...[/email]
>> Hola Ignacio, gracias por atender mi problema,
>>
>> el asunto para mas detalle es el siguiente:
>> Necesito hacer un menu con una serie de abm´s.
>>
>> ABM de ENTIDADES / Bancos
>> ABM de CLIENTES
>> ABM de PROVEEDORES
>> etc....
>>
>> lo que necesito es que el usuario pueda abrir cada uno de los ABM pero no
>> mas de una vez el mismo ABM, o sea que pueda abrir una sola vez el ABM de
>> Entidades y sin cerrar esa ventana CHILD pueda abrir otro ABM.
>>
>> Espero haya sido mas claro, si te parece adjunto los fuentes.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:45ab3beb$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Carlos,
>>>
>>> Con el ejemplo de menús incluido en Xailer, diganos como reproducir su
>>> error.
>>>
>>> Gracias
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Carlos Ortiz" <cortiz@assistinfo.com.ar> escribió en el mensaje
>>> news:[email=45a9e4bb@news.xailer.com...]45a9e4bb@news.xailer.com...[/email]
>>>> He creado desde el IDE un menu Archivo y dentro de el un Submenu
>>>> "Entidades", he asignado un valor oMenuEntidades en cVarName y en el
>>>> metodo OnClick cargue lo siguiente:
>>>>
>>>> ::oMenuEntidades:lEnabled:=.f.
>>>> ( llamo al TabmEntidades que no es modal sino MDIChild )
>>>> ::oMenuEntidades:lEnabled:=.t.
>>>>
>>>> y nada siempre aparece habilitado el menu de Entidades, y lo que veo es
>>>> que como entra al OnClick llama al abm y sale lo vuelve habilitar, como
>>>> hago para que no lo habilite hasta que cierre el dialogo del abm de
>>>> entidades, o quizás deberia preguntar si el dialogo esta abierto.
>>>>
>>>> Gracias.
>>>>
>>>
>>>
>>
>>
>
>