Boa Tarde, Marcelo
uso de forma similiar aos nossos colegas, utilizo um DBF com os Campos:
Usuario-Codigo do Operador
Supervisor-Quem cadastrou o operador
DataInicial-Data que foi cadastrado no sistema
DataFinal- Data Limite para utilizar o sistema
HoraInicial- Hora Inicial para utilizar o sistema
Horafinal - hora final para utilizar o sistema
Senha-Senha com ate 20 digitos
NivelDeAcessoMenu-Nivel de acesso nos menu, para cada opcao utilizo um BIT, para identificar se pode acessar aquela opção no menu
NivelDeAcessoCadastro- Nivel de Acesso nos cadastro
NivelDeAcessoFinanceiro- Nivel de Acesso no financeiro
NivelDeAcessoRelatorio- Nivel de Acesso nos relatorios
EX:
//cria a janela de opcao, valores 0 posiciona a janela automaticamente
#command @ <li>,<ci>,<lf>,<cf> MENU <m> [<h:HORIZONTAL>] [NIVEL <nivel>] ;
[WHEN <w>[,<wh>]] [VALI <v>[,<vh>]] [COLOR <cor>] [OPCAO <op>] ;
[JANELA [<jchar>] [,[<jcor>] [,<jsombra>] ]] ;
[TITULO <tit> [,<tli>, <tci>] [TCOR <tcor>] ]=> ;
//cria as opcões, valores 0 posiciona a janela automaticamente em menu horizontal, vertical ignora
#command @ [<li>,<ci>] OPCAO <o>[,<oh>] [ACAO <a>] [NIVEL <nivel>] ;
[WHEN <w>[,<wh>]] [VALI <v>[,<vh>]] TO <m> =>;
menuopadd(<m>, <li>, <ci>, <o>, <oh>, <{a}>, <{w}>, <wh>, <{v}>, <vh>, <nivel>)
//chama outra janela
#command @ [<li>,<ci>] OPCAO <o>[,<oh>] NEXT <a> [NIVEL <nivel>] ;
[WHEN <w>[,<wh>]] [VALI <v>[,<vh>]] TO <m> =>;
menuopadd(<m>, <li>, <ci>, <o>, <oh>, <a>, <{w}>, <wh>, <{v}>, <vh>, <nivel>)
@ 2, 2, 2, 70 menu Principal nivel 1
@ 0, 0, 0, 0 menu CadProduto nivel 2
@ 0, 0 opcao "Cadastro" next CadProduto nivel 3 to Principal
@ 0, 0 opcao "Relatorio" acao RelProduto nivel 4 to principal
//janela grade
@ 0, 0, 0, 0 menu CadGrade nivel 14
//cadastro de produto
@ 0, 0 opcao "Produto" acao CadastroProduto() nivel 5 to CadProduto
@ 0, 0 opcao "Grupo" acao CadastroGrupo() nivel 6 to CadProduto
@ 0, 0 opcao "SubGrupo" acao CadastrosubGrupo() nivel 7 to CadProduto
@ 0, 0 opcao "Grade" acao CadastrosubGrupo() nivel 8 to CadProduto
@ 0, 0 opcao "Departamento" acao CadastroDepartamento() nivel 9 to CadProduto
@ 0, 0 opcao "Grade" acao CadastroGrade() nivel 10 to CadGrade
@ 0, 0 opcao "Familia" acao CadastroFamilia() nivel 11 to CadGRade
@ 0, 0 opcao "Tamanho" acao CadastroTamanho() nivel 12 to CadGrade
@ 0, 0 opcao "Cor" acao CadastroCor() nivel 13 to CadGrade