Hola buenas tardes Ingenieros del foro ,necesito de su ayuda de ustedes.
Una de las cosas que nunca he logrador hacer en los menus, es deshabilitar y habilitar opciones a menus, como por ejemplo , si quiero generar indices al entrar a la opcion de menu de generar indices, que me deshabilite me deshabilite el resto de las opciones de menu para evitar errores a la hora de generar indices.
Ahora con ese nuevo proyecto que lo tengo rezagado por falta de tiempo que logre entrar de acceso al menu,gracias a los Ing. Cristobal Navarro,Jose Luis y Francisco Alegria,salio perfecto.
Pero ahora quiero accesar a la opcion de menu que dice altas+empresas,como puedo deshabilitar las opciones de menu:
Avisos, Reportes, Utilerias, Configuracion, sin antes no he seleccionado la empresa; el unico que debe quedar habilitada es Altas y mas Empresas y estar deshabilitada Cerrar empresas e Incidencias.
Ya una vez que elija abrir la empresa, ahora si que me quede habilitada algunas opciones de menus, asi como cerrar empresas
No tengo problemas en mostrar en un txbrowse la lista de empresas a seleccionar, es lo de menos, lo unico que quiero es deshabilitar las opciones que mencione!
Pongo la imagen, y me entiendan lo que quiero hacer:
<a href='http://www.subirimagenes.com/otros-deshabilitar-9568593.html'><img src='http://s2.subirimagenes.com/otros/previo/thump_9568593deshabilitar.jpg' alt='subir imagenes' border='0'></a>
Y codigo del menu....
Alguien que me pueda ayudar con ese codigo habilitar y deshabilitar opciones de menu...
Gracias ,esperando contar con su apoyo de siempre de todos ustedes Ingenieros.
Atte: Adrian C. C.
Una de las cosas que nunca he logrador hacer en los menus, es deshabilitar y habilitar opciones a menus, como por ejemplo , si quiero generar indices al entrar a la opcion de menu de generar indices, que me deshabilite me deshabilite el resto de las opciones de menu para evitar errores a la hora de generar indices.
Ahora con ese nuevo proyecto que lo tengo rezagado por falta de tiempo que logre entrar de acceso al menu,gracias a los Ing. Cristobal Navarro,Jose Luis y Francisco Alegria,salio perfecto.
Pero ahora quiero accesar a la opcion de menu que dice altas+empresas,como puedo deshabilitar las opciones de menu:
Avisos, Reportes, Utilerias, Configuracion, sin antes no he seleccionado la empresa; el unico que debe quedar habilitada es Altas y mas Empresas y estar deshabilitada Cerrar empresas e Incidencias.
Ya una vez que elija abrir la empresa, ahora si que me quede habilitada algunas opciones de menus, asi como cerrar empresas
No tengo problemas en mostrar en un txbrowse la lista de empresas a seleccionar, es lo de menos, lo unico que quiero es deshabilitar las opciones que mencione!
Pongo la imagen, y me entiendan lo que quiero hacer:
<a href='http://www.subirimagenes.com/otros-deshabilitar-9568593.html'><img src='http://s2.subirimagenes.com/otros/previo/thump_9568593deshabilitar.jpg' alt='subir imagenes' border='0'></a>
Y codigo del menu....
DEFINE WINDOW oWnd MENU DespMenu() ICON oICON Title "Control de obligaciones de SAT" MenuInfo 1 MDI COLOR nClr,nClr
聽 聽SET FONT OF oWnd TO oFont1
聽 聽SET MESSAGE OF oWnd TO "Selecci贸n de empresa..." CENTER
聽 聽DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 26,26 OF oWnd
聽 聽oWnd:bPainted := { | hDC | BmpTiled( hDC, oWnd, oBmp ) }
聽 聽*oWnd:oMsgBar:nClrPane := nRgb(0,0,200)
聽 聽*oWnd:oMsgBar:nClrText := nRgb(0,0,200)
聽 聽oWnd:oMsgBar:KeybOn()
聽 聽oWnd:oMsgBar:DateOn()
聽ACTIVATE WINDOW oWnd MAXIMIZED // ON INIT Sel_Acceso(oWnd)
聽DbCloseAll()// --- Despliegue de Men煤s
//------------------------------------------------------------------------------\\
STATIC FUNCTION DespMenu()
聽LOCAL oMenu
聽MENU oMenu
聽 聽IF aMod[1] .AND. aPer[1]
聽 聽 聽 聽MENUITEM "&Altas"
聽 聽 聽 聽MENU
聽 聽 聽 聽 聽MENUITEM oItem[01] PROMPT "Empresas" Action AltasSAT() ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MESSAGE "Abrir Empresas"
聽 聽 聽 聽 聽MENUITEM oItem[02] PROMPT "Cerrar empresa" Action Calcula();
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MESSAGE "Cerrar empresa"
聽 聽 聽 聽 聽MENUITEM oItem[03] PROMPT "Incidencias" Action EnProceso()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 *MESSAGE "Altas de incidencias"
聽 聽 聽 聽 聽SEPARATOR
聽 聽 聽 聽 聽MENUITEM oItem[04] Prompt "&Salir";
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ACTION IF( MsgYesNo("Desea salir del programa?"),oWnd:End(),);
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MESSAGE "Finalizar el programa"
聽 聽 聽 聽ENDMENU
聽 聽ENDIF
聽 聽IF aMod[2] .AND. aPer[2]
聽 聽 聽 聽MENUITEM "&Avisos"
聽 聽 聽 聽MENU
聽 聽 聽 聽 聽MENUITEM oItem[05] PROMPT "Avisos" Action EnProceso();
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MESSAGE "Avisos y seleccion de imagen"
聽 聽 聽 聽ENDMENU
聽 聽ENDIF
聽 聽IF aMod[3] .AND. aPer[3]
聽 聽 聽 聽MENUITEM "&Reportes"
聽 聽 聽 聽MENU
聽 聽 聽 聽 聽MENUITEM oItem[06] PROMPT "Reporte Asistencias" Action EnProceso()
聽 聽 聽 聽 聽MENUITEM oItem[07] PROMPT "Impr. de Credenciales" Action EnProceso() 聽// Action EnProceso()
聽 聽 聽 聽 聽*MENUITEM oItem[16] PROMPT "Ventas" Action RVENTA()
聽 聽 聽 聽 聽*MENUITEM oItem[17] PROMPT "Compras" Action RCOMPRAS()
聽 聽 聽 聽 聽*MENUITEM oItem[18] PROMPT "Clasif. de grupos" Action EnProceso()
聽 聽 聽 聽 聽*MENUITEM oItem[19] PROMPT "Inventario" Action RINVENTARI()
聽 聽 聽 聽 聽*MENUITEM oItem[20] PROMPT "Inventario f铆sico" Action EnProceso()
聽 聽 聽 聽ENDMENU
聽 聽ENDIF
聽 聽IF aMod[5] .AND. aPer[5]
聽 聽 聽 聽MENUITEM "&Utiler铆as"
聽 聽 聽 聽MENU
聽 聽 聽 聽 聽*MENUITEM oItem[21] PROMPT "Indexar archivos" Action Indexa()
聽 聽 聽 聽ENDMENU
聽 聽ENDIF
聽 聽IF aMod[6] .AND. aPer[6]
聽 聽 聽 聽MENUITEM "&Configuraci贸n"
聽 聽 聽 聽MENU
聽 聽 聽 聽 聽MENUITEM oItem[26] PROMPT "Perf铆l de Usuarios" Action EnProceso("PERFUSUA()",oItem[26], oItem[26]);
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 Message "Alta de Usuarios"
聽 聽 聽 聽ENDMENU
聽 聽ENDIF
聽ENDMENU
RETURN (oMenu)Alguien que me pueda ayudar con ese codigo habilitar y deshabilitar opciones de menu...
Gracias ,esperando contar con su apoyo de siempre de todos ustedes Ingenieros.
Atte: Adrian C. C.
