Preciso de algum exemplo de rotina de Senha!

[ERCS123]

Não consegui encontrar no forum, algo sobre senhas. Onde cada usuario terá ou não acesso para acessar determinadas rotinas do sistema. Alguem teria um exemplo simples para mostrar.
Obrigado!
Ewerton

[sygecom]

Tche, fiz uma pergunta a vc no outro post ?
https://pctoledo.org/forum/viewtopic.php?t=5759

[ERCS123]

Sygecom, qual foi a pergunta, porque nao consegui localizar

[sygecom]

Colega ERCS123, vc esta usando a Visual Lib ?

[ERCS123]

Sygecom, eu acho que não uso não. O que seria o visual lib? Muita coisa que uso, são amigos que me ensinam, talves posso até ter uma rotina, mas não sei te dizer.
Ewerton

[sygecom]

A Visual Lib ...é uma LIB que dah um visual diferente na cara do sistema se quiser saber mais de uma olhada no link abaixo, e procure pela LIB e Manual da Visual Lib:

http://www.vagucs.com.br/dl.php

Perguntei se vc estava usando pq o exemplo que o Janio Postou...foi com a VL !! e eu uso assim tb...libero por acesso no MENU dos meus sistema.

Abraços
Leonardo Machado

[ERCS123]

Código: Selecionar todos

 do while (.T.)
      centra(2, "®¯ MENU CLIENTE ®¯")
      princip:= SaveScreen(7, 26, 15, 52)
      private op:= 0
      aOptions := {{09,32 ,  '1  Inclusao'},;
                          {10,32 ,  '2  Alteracao'},;
                          {11,32 ,  '3  Consulta'},;  
                          {12,32 ,  '4  Exclusao'},;
                          {14,32 ,  '5  Consulta Video'},;
                          {15,32 ,  '6  Relatorio'},;
                          {16,32,   '7  Funcionario'}} 
      do case
      case op = 1
         prx0004()
      case op = 2
         prx0005()
      case op = 3
         prx0006()
      case op = 4
         prx0007()
      case op = 5
         prx0002()
      case op = 6
         prx0003()
      case op = 7
         prx0330()
      case op = 0 .OR. LastKey() = 13
         exit
      endcase
   enddo
   informa=0
   (7, 26, 15, 52, restscreen:= princip)
   return
   set escape off

Basicamente, é este o codigo que uso no cadastro de cliente.
No caso do exemplo mostrado pelo Janio logo abaixo, teria como adaptar ?

Código: Selecionar todos

AddDownItem( mCONPAG, "&Cadastros Gerais"  ,, mCADPAG ) 
AddDownItem( mCONPAG, "&Movimento Diario"  ,, mLANPAG ) 
AddDownItem( mCONPAG, "&Relatorios Gerais" ,, mRELPAG ) 

AddDownItem( mCADPAG, "Cadastra &Fornecedores"                   ,, { || P17CCRE() } ) 
AddDownItem( mCADPAG, "Cadastra Tipo de &Documento"              ,, { || P16CTDC() } ) 
AddDownItem( mCADPAG, "Cadastra &Matriz e Filial"                ,, { || P17CEMP() } ) 
AddDownItem( mCADPAG, "Cadastra &Produto de Compra"              ,, { || P17CPRD() } ) 
AddDownItem( mCADPAG, "Cadastra Grupo de Produtos"               ,, { || S13CGPR() } ) 
AddDownItem( mCADPAG, "Cadastra Sub Grupo de Produtos"           ,, { || S13CSGP() } ) 

if( SENHA->TIPUSU = "S" .OR. SENHA->P17CCRE  = .T., SETDOWNITEM( mCADPAG, 01, .T. ), SETDOWNITEM( mCADPAG, 01, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->P16CTDC  = .T., SETDOWNITEM( mCADPAG, 02, .T. ), SETDOWNITEM( mCADPAG, 02, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->P16CTDC  = .T., SETDOWNITEM( mCADPAG, 02, .T. ), SETDOWNITEM( mCADPAG, 02, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->P17CEMP  = .T., SETDOWNITEM( mCADPAG, 03, .T. ), SETDOWNITEM( mCADPAG, 03, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->P17CPRD1 = .T., SETDOWNITEM( mCADPAG, 04, .T. ), SETDOWNITEM( mCADPAG, 04, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->S13CGPR1 = .T., SETDOWNITEM( mCADPAG, 05, .T. ), SETDOWNITEM( mCADPAG, 05, .F. ) ) 
if( SENHA->TIPUSU = "S" .OR. SENHA->S13CSGP1 = .T., SETDOWNITEM( mCADPAG, 06, .T. ), SETDOWNITEM( mCADPAG, 06, .F. ) ) 
 

[sygecom]

Tche, claro que tem como adptar, isso é facil.....mas para vc poder usar a VL aconselho a vc dar uma olhada no Manual dela...e ver as funções disponivel..se quiser posso te mandar um sisteminha de exemplo de uso de menus.

Abraços
Leonardo Machado

[ERCS123]

Leonardo, voce sempre me ajudando, valeu mesmo!

Assim que puder, pode me enviar um exemplo (manual da vl). Pode ser bem simples, senão eu não consigo por em pratica.

Obrigado!

Ass:Ewerton

[sygecom]

Tche, se vc me mandar seu e-mail...e mandarei os exemplos + o Manual concerteza...

[ERCS123]

ewerton@netsite.com.br

[sygecom]

Tah na conta qualquer coisa prende o grito !!!