En el init del form donde ejecutas tu menu, pon;
Public lMenu
****************************************
DO MENUMPR WITH THIS,.T.
****************************************
SELECT usuarios
GO TOP
Luego en el gotfocus de tu form pon;
if lMenu = .t.
Public lMenu
set sysmenu to
***************
select usuarios
go top
if alltrim(usuario) = "Administrador"
SET SKIP OF BAR 1 OF Archivo .T. IN (m.oFormRef.Name) BAR
SET SKIP OF BAR 1 OF Reportes .T. IN (m.oFormRef.Name) BAR
else
if alltrim(usuario) = "Operador"
SET SKIP OF BAR 1 OF Archivo .F. IN (m.oFormRef.Name) BAR
SET SKIP OF BAR 1 OF Reportes .F. IN (m.oFormRef.Name) BAR
else
DO MENUMPR WITH THIS,.T.
endif
endif
select USUARIOS
go top
thisform.caption = "Usuario que esta en el sistema" + " - "+ " " + alltrim(usuarios)
lMenu = .f.
endif
**NOTA:
Archivo es el menu, en la primera condicion Habilitamos la primera opcion del menu archivo y la primea opcion del menu Reportes.
Archivo es el menu, en la primera condicion DesHabilitamos la primera opcion del menu archivo y la primea opcion del menu Reportes.
Saludes, espero te sirva, si no puedes me ayudas, yo te hago un ejemplo.
Desde Honduras C.A
