PC Toledo

Código: Selecionar todos

#include "inkey.ch"
#include "visual2.ch"

local aEnv

VL850()
FREETSLICE(20)
SETMODE(25,80)

REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
RDDSETDEFAULT("_DBFCDX") //CLIPPER 5.3
DBSETDRIVER("DBFCDX")

// Carrega as variaveis do sistema
MOVCAL_X=1
MOVCAL_Y=-49
MOVdat_X=0
MOVdat_Y=-14
WUSUARIO=Space(10)
Wsetor=Space(10)
WACESSOS=Space(60)
vVOLTAR=SPACE(1)
vPESQ=SPACE(1)

PRIVATE msg_tel:="SyGeCom Informatica - (51) 3366-6683"    //mensagem de erro
SET CENTURY ON
SET BELL OFF
SET DATE FRENCH
SET DATE BRITISH
SET EPOCH TO 2000
SET CONFIRM ON
SET DELETED ON
SET EXACT ON
SET SCOREBOARD OFF
SET WRAP ON
public saida:=space(1)

USE
Desktop(MENSAGEM)

SETCOLOR( "+W/GB," )
@ 00,01 SAY "SyGeCom"
@ 00,01 SAY"S"  COLOR( "+R/GB,N*/W, , , N*/W" )
@ 00,03 SAY"G"  COLOR( "+R/GB,N*/W, , , N*/W" )
@ 00,05 SAY"C"  COLOR( "+R/GB,N*/W, , , N*/W" )

SHOWTIME(00,75,.T.,"+R/GB,N*/W, , , N*/W" ) // HORARIO COM O BLINKER

DO WHILE .T.
   MENUS()  // sistema de menus
ENDDO
return nil

**********
FUNC MENUS
**********

SetKeyMouse( K_F1,  { 24, 24, 00, 07 } )     // coordenadas do click do mouse
SetKeyMouse( K_F2,  { 24, 24, 09, 15 } )
SetKeyMouse( K_F9,  { 24, 24, 64, 70 } )
SetKeyMouse( K_F10, { 24, 24, 72, 79 } )

******************************************************************************
mBar := NewBarMenu()             // PROJETO MENU DE BARRAS
******************************************************************************
* Menu CADASTRO
mCad  := NewDownMenu()  //DEFINI AS VAR...DO MENUS
mCad1 := NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS
mCad11:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS 
mCad12:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS
mCad13:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS
mCad14:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS

* Menu FERRAMENTAS
mFER := NewDownMenu()  //DEFINI AS VAR...DO MENUS
mFER1:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS
mFER2:= NewDownMenu()  //DEFINI AS VAR...DO SUB-MENUS

*****************************************************************************
* MENU CADASTROS
*****************************************************************************
*****************************************************************************
* SUB-MENU TABELAS
*****************************************************************************
AddDownItem( mCAD  ,"&1-Tabela de Precos",   "Cad,Alt e Consultar a Tabela",mCAD1)
AddDownItem( mCAD1 ,"&1-Tabela de COMPRA",   "Cad,Alt e Consultar a Tabela", mCAD11 )
AddDownItem( mCAD11,"&1-Tabela de COMPRA",   "Cadastrar e Alterar Tabela de Compra",{ || CHAMAFUNC() } )
AddDownSep ( mCAD11)
AddDownItem( mCAD11,"&2-Alterar Pre‡o",      "Cad e Alt Tabela de Compra",{ || CHAMAFUNC() } )
AddDownSep ( mCAD11)
AddDownItem( mCAD11,"&3-Imprimir Tabela",    "Imprimir Tabela de Compra",{ || RELPRO100("I") } )
AddDownSep ( mCAD1)
AddDownItem( mCAD1 ,"&2-Tabela de VENDA",    "Cad,Alt e Consultar a VENDA", mCAD12 )
AddDownItem( mCAD12,"&1-Tabela de VENDA",    "Cadastrar e Alterar Tabela de VENDA",{ || PESQTABV("N") } )
AddDownSep ( mCAD12)
AddDownItem( mCAD12,"&2-Alterar Pre‡o",      "Cadastrar e Alterar Tabela de VENDA",{ || PESQTABV("E") } )
AddDownSep ( mCAD12)
AddDownItem( mCAD12,"&3-Imprimir Tabela",    "Imprimir Tabela de Venda",{ || RELPRO200() } )
AddDownSep ( mCAD1)
AddDownItem( mCAD1 ,"&3-COMPRA Diferenciada","Cad,Alt e Consultar Tabela Diferenciada",mCAD13 )
AddDownItem( mCAD13,"&1-Cadastrar/Alterar",  "Cad e Alt Tabela Diferenciada",{ || TABELADIFC() } )
AddDownSep ( mCAD13)
AddDownItem( mCAD13,"&2-Imprimir Tabela",    "Imprimir Tabela Diferenciada",{ || RELTABDI() } )
AddDownSep ( mCAD1)
AddDownItem( mCAD1 ,"&4-VENDA Diferenciada", "Cad,Alt e Consultar Venda Diferenciada", mCAD14 )
AddDownItem( mCAD14,"&1-Cadastrar/Alterar",  "Cad e Alt Venda Diferenciada",{ || TABELADIFV() } )
AddDownSep ( mCAD14)
AddDownItem( mCAD14,"&2-Imprimir Tabela",    "Imprimir Venda Diferenciada",{ || RELTABDIV() } )

*******************************************************************************
* MENU FERRAMENTAS
*******************************************************************************
AddDownItem( mFER, "&Dados da Empresa",           "Controle dados da Empresa" ,{ || dados() } )
AddDownSep ( mFER )
AddDownItem( mFER, "&Controle de Senhas",         "Controle de SENHAS" ,mFER1 )
AddDownSep ( mFER )
AddDownItem( mFER1, "&1-Incluir Usuarios",        "Incluir Usuario", {|| FUNSENHA("I")})
AddDownItem( mFER1, "&2-Alterar Usuarios",        "Alterar Acessos do Usuario", {|| FUNSENHA("A")})
AddDownItem( mFER1, "&3-Excluir Usuarios",        "Exclui  Usuarios", {|| FUNSENHA("E")})
AddDownItem( mFER,  "&Reindexar Banco de Dados",  "Reindexar Banco de Dados",{ || indexa() } )
AddDownSep ( mFER )
AddDownItem( mFER,  "&Copia de Seguranca",        "Copia de Seguranca", mFER2 )
AddDownItem( mFER2, "&1-Fazer Back-up",           "Efetua uma Copia o Banco de Dados",{ || back_up() } )
AddDownItem( mFER2, "&2-Retornar Back-up",        "Retorna uma do Copia de Dados",{ || RESTORE() } )
AddDownSep ( mFER )
AddDownItem( mFER, "&Parametros do SISTEMA",      "Parametros do Sistema ",{ || PARAMETROS() } )
AddDownSep ( mFER )
AddDownItem( mFER, "&Manual do Sistema SAGI",     "Manual do Sistema ",)
AddDownSep ( mFER )
AddDownItem( mFER, "&LogOn do Sistema SAGI",      "Login do Usuario",{||SENHACE("E")} )

*******************************************************************************
AddBarItem( mBar, "C&adastro",                    "Sistema de Cadastros Geral",mCAD )
AddBarItem( mBar, "&Ferramentas",                 "Manutencao do Sistema",mFER )
BarMenu( mBar )