Saludos,
Existe algun sample o alguien tiene algun aporte de la forma correcta para crear una tabla donde se almacenen los permisos de ususarios en una aplicacion (A nivel de permisos en menu y en barra de botones). Como puedo indicar que lea y ls aplique en un programa para manejar un browse por ejemplo?
Gracias de antemano
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
ummm, y el banco mercantil esta trabajando con fivewin?
Up!
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Gracias Ruben Dario,
Algo como eso es lo que necesito, lo que no entiendo es como enlazarlo con un menu y luego con las opciones del browse en un bar. Alguna luz sobre eso?
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Hola,
Te comento como lo manejo :
Creas un browse o algun arbol con las opciones que manejes en tu app, y le asignas algun identificador a cada una de ellas :
Agregar cliente : CLI01
Modificar cliente : CLI02
Eliminar cliente : CLI03
etc
etc
Grabas en un campo los identificadores que han sido seleccionados como permitidos.
Al momento de hacer el login el usuario asignar a una variable, en mi caso opte por un arreglo, las opciones previamente asignadas. y desde tu codigo solo tienes que hacer :
redefine button ....
bla bla bla ;
when ascan( tuarreglo, 'CLI01' ) > 0
Lo mismo puedes hacer en un menu, en la ribbon, donde quieras.
Saludos
Gracias por las imagenes, entiendo bien esta parte.
Me gustaria saber si alguien tiene un fragmento de codigo de ejemplo donde se valide el tipo de permisos que tiene el usuario para un browse o menu por ejemplo.
Gracias de antemano
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
METHOD autoriza(vCope) CLASS TLyma
oLamcla:vPermi:=vCope
nMenu:=alltrim(str(vCope))
oVar:="SELECT s_indice,s_permis,s_llaves,s_nmenus,s_autori,s_verifi,s_usuari,s_proced,s_madres from " + oLamcla:tPerm +" WHERE s_indice='"+alltrim(oLamcla:vColl)+nMenu+"'"
TRY
oTMe := CreateObject("ADODB.Recordset")
CATCH oError
MsgStop(oLamcla:mErnt,oLamcla:mErco)
RETURN(.F.)
END
oTMe:CursorLocation := adUseClient //adUseServer
oTMe:LockType := adLockOptimistic
oTMe:CursorType := adOpenKeyset
oTMe:Source := oVar
oTMe:ActiveConnection( oLamcla:oConPer )
TRY
oTMe:Open()
CATCH oError
MsgStop(oLamcla:mComa,oLamcla:mDato)
END
nRegistros := oTMe:RecordCount()
IF nRegistros > 0
vVerifi:=::cvartolog(oTMe:fields("s_verifi"):Value)
vUsuari:=lymatrim(oTMe:fields("s_usuari"):Value)
vIndice:=lymatrim(oTMe:fields("s_indice"):Value)
vNomMen:=lymatrim(oTMe:fields("s_nmenus"):Value)
vPermis:=lymatrim(oTMe:fields("s_permis"):Value)
vLlaves:=lymatrim(oTMe:fields("s_llaves"):Value)
::vAutor:=::cvartolog(oTMe:fields("s_autori"):Value)
::vProce:=lymatrim(oTMe:fields("s_proced"):Value)
::vMadre:=val(lymatrim(oTMe:fields("s_madres"):Value))
IF vVerifi=.T.
IF MSGYESNO("..............AUTORIZACION............."+CRLF+;
""+CRLF+;
"ESTE PROCESO REQUIERE APROBACION PREVIA"+CRLF+;
"¿DESEA GENERAR LA SOLICITUD?"+CRLF+;
""+CRLF+;
"Código:-> "+vIndice+CRLF+;
"Solicitud:-> "+vNomMen,::mSegu)
::RegSolicitud(vUsuari,vIndice,vNomMen,vPermis,vLlaves,::vProce)
ENDIF
ELSE
oTMe:close()
IF ::vAutor=.t.
bVar := "{|| "+::vProce+" }"
EVAL( &bVar )
ELSE
MSGINFO(::mErau+CRLF+;
"Codigo Usuario -> "+alltrim(oLamcla:vCous)+CRLF+;
"Nombre Usuario -> "+alltrim(oLamcla:vNous)+CRLF+;
"Llave -> "+oLamcla:vColl,::mSegu)
ENDIF
ENDIF
ELSE
oTMe:close()
MSGINFO(oLamcla:mErme,oLamcla:mErBa)
::vAutor:=.F.
ENDIF MENU
MenuItem "&Terceros" ACTION oLamcla:autoriza(11)
SEPARATOR
MenuItem "C&omprobantes" ACTION oLamcla:autoriza(83)
MenuItem "&Control Documentos" ACTION oLamcla:autoriza(107)
MenuItem "&Otros Conceptos Documentos" ACTION oLamcla:autoriza(147)
SEPARATOR
MenuItem "C&uentas" ACTION oLamcla:autoriza(95)
MenuItem "C&entros de Costo" ACTION oLamcla:autoriza(89)
SEPARATOR
MenuItem "C&iudades" ACTION oLamcla:autoriza(23)
SEPARATOR
MenuItem "P&lan Único de Cuentas" ACTION oLamcla:autoriza(170)
ENDMENU