AYUDA EN MENU CON CONDICIONES.. PLEASE !!
Publicado por Ernesto Rodríguez (61 intervenciones) el 05/11/2002 20:24:22
Podrían ayudarme ? Tengo un problema con los accesos en un menú.
Tengo tres campos lógicos en una Tabla llamada: "Usuar".
Los valores para un usuario son :
usuar.autpar = .T. && Es decir que tiene acceso
usuar.autcheq = .F. && NO ACCESO.
usuar.autder = .T. && También tiene acceso.
Pero al ejecutar el menú los valores a los que TIENE acceso
aparecen DESHABILITADOS.
Y los valores a los que NO tiene acceso aparecen HABILITADOS.
A que se debe esta INVERSA en los valores ?
*** Localizamos al usuario y sus derechos
SELECT usuar
lcpword=ALLTRIM(UPPER(THISFORM.txtpaword.VALUE))
LOCATE FOR Asc2cha(ALLTRIM(UPPER(usuar.paword)))==lcpword
IF FOUND() .AND. Asc2cha(ALLTRIM(UPPER(usuar.paword)))==lcpword
&& Estas variables estan en SALTAR POR del menu.
Valor="Verdadero"
glPar=usuar.autpar && = .T. Estos son los
glCheq=usuar.autcheq && = .F. valores que tiene
glDer=usuar.autder && = .T. la Tabla.
_SCREEN.CAPTION=' Sistema de Cheques '
DO mainmenu.mpr
THISFORM.HIDE
READ EVENTS
ELSE
Valor="Falso"
= MESSAGEBOX("Contraseña incorrecta",48," Exist 1.0" )
CLOSE ALL
SET SYSMENU TO DEFAULT
THISFORM.RELEASE
ENDIF
MUCHAS GRACIAS por su AYUDA !!
Tengo tres campos lógicos en una Tabla llamada: "Usuar".
Los valores para un usuario son :
usuar.autpar = .T. && Es decir que tiene acceso
usuar.autcheq = .F. && NO ACCESO.
usuar.autder = .T. && También tiene acceso.
Pero al ejecutar el menú los valores a los que TIENE acceso
aparecen DESHABILITADOS.
Y los valores a los que NO tiene acceso aparecen HABILITADOS.
A que se debe esta INVERSA en los valores ?
*** Localizamos al usuario y sus derechos
SELECT usuar
lcpword=ALLTRIM(UPPER(THISFORM.txtpaword.VALUE))
LOCATE FOR Asc2cha(ALLTRIM(UPPER(usuar.paword)))==lcpword
IF FOUND() .AND. Asc2cha(ALLTRIM(UPPER(usuar.paword)))==lcpword
&& Estas variables estan en SALTAR POR del menu.
Valor="Verdadero"
glPar=usuar.autpar && = .T. Estos son los
glCheq=usuar.autcheq && = .F. valores que tiene
glDer=usuar.autder && = .T. la Tabla.
_SCREEN.CAPTION=' Sistema de Cheques '
DO mainmenu.mpr
THISFORM.HIDE
READ EVENTS
ELSE
Valor="Falso"
= MESSAGEBOX("Contraseña incorrecta",48," Exist 1.0" )
CLOSE ALL
SET SYSMENU TO DEFAULT
THISFORM.RELEASE
ENDIF
MUCHAS GRACIAS por su AYUDA !!
Valora esta pregunta


0