PC Toledo

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

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

Sygecom, qual foi a pergunta, porque nao consegui localizar

Colega ERCS123, vc esta usando a Visual Lib ?

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

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

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. ) )

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

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

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

ewerton@netsite.com.br

Tah na conta qualquer coisa prende o grito !!!

PC Toledo

Preciso de algum exemplo de rotina de Senha!

Preciso de algum exemplo de rotina de Senha!