Permisos de acceso a usuarios

[Compuin]

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

[QAZWSX2K]

ummm, y el banco mercantil esta trabajando con fivewin?

[Compuin]

Up!

[ruben Dario]

Bueno En is aplicaciones manejo algo similar.
Donde controlo , el acesso a los diferentes programas, como ingresar, modificar , retirar, modificar ... etc...
Te anexo imagenes para darte una idea,

[img]
http://imageshack.us/photo/my-images/835/dibujotp.jpg/
[/img]

[img]
http://imageshack.us/photo/my-images/68 ... o1gcy.jpg/
[/img]

[Compuin]

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?

[Raymundo Islas M.]

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

[JavierVital]

Yo tengo algo asi :
[img]
http://imageshack.us/photo/my-images/94 ... nshot.png/
[/img]

[Compuin]

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

[leandro]

Yo hago la consulta en la base de datos de permisos de la siguiente manera:

Code: Select all

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
 

y en la accion de boton o del menú o al hacer click sobre un xbrowse, mejor dicho en cualquier evento. Lo llamo de la siguiente manera:

Code: Select all

        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
 

y listo....



Uploaded with ImageShack.us