Page 1 of 1
Como Deshabilitar y habilitar cada módulo del menú
Posted: Fri Jan 12, 2007 7:13 pm
by ACC69
Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada
, les agradecere su ayuda inmediata gracias
Adriano C. C.
acc69@hotmail.com
Posted: Fri Jan 12, 2007 7:24 pm
by karinha
usando el comando WHEN( lCondicion )
Re: Como Deshabilitar y habilitar cada módulo del menú
Posted: Fri Jan 12, 2007 9:30 pm
by Armando Picon
Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo
if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == "VENTAS"} ) == 0 // comparas si ya existe x:cargo devuelve cero
// si es cero significa que x:cargo está vacio y por eso entra en esta rama
/*
Aqui viene tu codigo para trabajar la ventana hija
*/
oWndVta:cargo := "VENTAS" // se asigna por primera vez x:cargo con lo que quieras
ACTIVATE WINDOW oWndVta
oFont:end()
oFont2:end()
DBSELECTAREA("Stock")
*
ELSE // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.
oWndVta:SetFocus()
oWndVta:restore()
oWndVta:refresh()
ENDIF
RETURN
Espero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de "cañones y palurdos"
ACC69 wrote:Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada
, les agradecere su ayuda inmediata gracias
Adriano C. C.
acc69@hotmail.com
Re: Como Deshabilitar y habilitar cada módulo del menú
Posted: Fri Jan 12, 2007 10:05 pm
by ACC69
Armando Picon wrote:Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo
if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == "VENTAS"} ) == 0 // comparas si ya existe x:cargo devuelve cero
// si es cero significa que x:cargo está vacio y por eso entra en esta rama
/*
Aqui viene tu codigo para trabajar la ventana hija
*/
oWndVta:cargo := "VENTAS" // se asigna por primera vez x:cargo con lo que quieras
ACTIVATE WINDOW oWndVta
oFont:end()
oFont2:end()
DBSELECTAREA("Stock")
*
ELSE // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.
oWndVta:SetFocus()
oWndVta:restore()
oWndVta:refresh()
ENDIF
RETURN
Espero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de "cañones y palurdos"
ACC69 wrote:Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada
, les agradecere su ayuda inmediata gracias
Adriano C. C.
acc69@hotmail.com
El chiste es abrir el modulo y deshabilitar mientras que el usuario haga ciertos procesos y al terminar y cerrar el modulo, que se habilite regresando al menu, porque muchas veces el usuario se le olvida que tiene minimizado x modulo y sin darse cuenta, vuelve abrir mismo modulo, porque es una ventana MDIChld
Esto es un ejemplo de poner disable al seleccionar el modulo
MENU
MENUITEM oItem[07] Prompt "&Referencias y proveedores" ACTION AccModul(BUSCAR1(),oItem[07]) ;
MESSAGE "Búsqueda de referencias"
ENDMENU
Y esta la rutina de deshabilitar x modulo del menu
//------------------------------------------------------------------------------
FUNCTION AccModul(bFunction,oItem)
oItem:Disable()
return nil
Ahora como logro habilitar nuevamente, cuando el usuario termine de usar el modulo .
Les agradecere su ayuda gracias
Adriano
Posted: Fri Jan 12, 2007 10:11 pm
by Patricio Avalos Aguirre
ACC69
Prueba con esto
Code: Select all
MENUITEM "&Ingresar" ACTION (FormaPago( oMenuItem )) RESOURCE "BTNARTICU"
function FormaPago( oMenuItem )
oMenuItem:Disabled()
bla...ble
bla.. bla..
etc..
oMenuItem:Enabled()
return nil
Espero que te sirva
Saludos
Patricio
Re: Como Deshabilitar y habilitar cada módulo del menú
Posted: Sat Jan 13, 2007 12:00 am
by Armando Picon
No te preocupes que quede habilitado... Cuando el usuario vuelve a querer entrar en el modulo, como la ventana ya tiene x:cargo con contenido solamente se reactiva porque ya está activado. Como te tije esta rutina la utilizo y me ha funcionado aunque el usuario sea un palurdo.
ACC69 wrote:Armando Picon wrote:Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo
if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == "VENTAS"} ) == 0 // comparas si ya existe x:cargo devuelve cero
// si es cero significa que x:cargo está vacio y por eso entra en esta rama
/*
Aqui viene tu codigo para trabajar la ventana hija
*/
oWndVta:cargo := "VENTAS" // se asigna por primera vez x:cargo con lo que quieras
ACTIVATE WINDOW oWndVta
oFont:end()
oFont2:end()
DBSELECTAREA("Stock")
*
ELSE // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.
oWndVta:SetFocus()
oWndVta:restore()
oWndVta:refresh()
ENDIF
RETURN
Espero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de "cañones y palurdos"
ACC69 wrote:Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada
, les agradecere su ayuda inmediata gracias
Adriano C. C.
acc69@hotmail.com
El chiste es abrir el modulo y deshabilitar mientras que el usuario haga ciertos procesos y al terminar y cerrar el modulo, que se habilite regresando al menu, porque muchas veces el usuario se le olvida que tiene minimizado x modulo y sin darse cuenta, vuelve abrir mismo modulo, porque es una ventana MDIChld
Esto es un ejemplo de poner disable al seleccionar el modulo
MENU
MENUITEM oItem[07] Prompt "&Referencias y proveedores" ACTION AccModul(BUSCAR1(),oItem[07]) ;
MESSAGE "Búsqueda de referencias"
ENDMENU
Y esta la rutina de deshabilitar x modulo del menu
//------------------------------------------------------------------------------
FUNCTION AccModul(bFunction,oItem)
oItem:Disable()
return nil
Ahora como logro habilitar nuevamente, cuando el usuario termine de usar el modulo .
Les agradecere su ayuda gracias
Adriano
Posted: Sat Jan 13, 2007 1:06 am
by R.F.
Como siempre amigos, estan matando pulgas a cañonazos, la solucion es mas facil:
Code: Select all
Function VentanaHija
STATIC oWnd := NIL
IF oWnd == NIL
Define Window oWnd.... bla bla bla MDICHILD OF ....
... bla
... bla
... bla
ACTIVATE WINDOW ..... bla bla bla .... [b]VALID (oWnd:= NIL)[/b] // esta es la importante
ELSE
oWnd:SetFocus()
oWnd:restore()
ENDIF
Posted: Sat Jan 13, 2007 5:32 am
by Armando Picon
Bueno... por ahí va la cosa. Al final el usuario no se va ha enterar si se ha utilizado un misil para matar la paloma!!!
Gracias amigos del foro
Posted: Mon Jan 15, 2007 3:22 pm
by ACC69
Armando Picon wrote:Bueno... por ahí va la cosa. Al final el usuario no se va ha enterar si se ha utilizado un misil para matar la paloma!!!
Gracias amigos del foro por la ayuda y sugerencias, problema resuelto, ya el usuario no podra abrir nuevamente mismo menu, estando deshabilitado...
Gracias se los agradezco
Adriano C. C.