FoxPro/Visual FoxPro - PARA FOXPERTO !

Tengo un campo numérico donde almaceno derechos de usuario.
Los valores los muestro en un combobox para 3 módulos.
NO ACCESO, CONSULTAR, ADICIONAR,ELIMINAR.
Si el valor para un módulo es mayor que 1 tiene derechos sino no.
El problema es que al mostrar la Barra de Herramientas que está
definida en un PRG. A veces habilita los botones y a veces no,
como si no verificara los valores almacenados en el campo.

--- Boton de Aceptar Formulario de Ingreso ---
FFERING",5,ALIAS())
SELECT usuar
LOCATE FOR Asc2cha(ALLTRIM(usuar.paword))==lcpword
IF FOUND() .AND. Asc2cha(ALLTRIM(usuar.paword))==lcpword
gcreg=RECNO()
PUBLIC gcinfac,gcininv,gcinpar
GO gcreg
gcinfac=usuar.nivfac ** ESTOS SON LOS CAMPOS DONDE
gcininv=usuar.nivinv ** ESTAN LOS VALORESPARA LOS _SCREEN.CAPTION='Sistema de Facturación y Control de '
DO Barra2 WITH gcinfac,gcininv,gcinpar ** Aquí llamo Barra
THISFORM.RELEASE
THISFORM.HIDE
READ EVENTS
ENDIF
--- Programa Barra2.prg --- Para Barra de herramientas
PARAMETER accesofac,accesoinv,accesopar
IF accesofac>1
laccesofac=.T.
ELSE
laccesofac=.F.
ENDIF
SET CLASSLIB TO inventario
PUBLIC tbrdesktop
tbrdesktop=CREATEOBJ('mibarra')
tbrdesktop.SHOW
*Ahora defino la clase como Toolbar y defino los elementos
etc.
**Ahora definimos las medidas de los botones y los iconos
botfactur.HEIGHT=22
botfactur.PICTURE="Facturacion.bmp"
botfactur.ENABLED=laccesofac *** PERO NO FUNCIONA,POR QUE ?