Preciso da ajuda de vocês para resolver a seguinte situação: estou usando as funções menumodal(), topbar(), popup() e menuitem() - de acordo com o código abaixo -, para criar um menu para meu sistema em modo console.
Não pretendo mudar para um modo gráfico. Sou adepto do ditado "em time que está ganhando não se deve mexer!".
Uso Harbour 3.2 mas, também, posso utilizar XHarbour 1.2.3. Como faço para acrescentar sombra aos menus gerados?
Agradecido!
#INCLUDE "BUTTON.CH"
#INCLUDE "INKEY.CH"
FUNCTION CARDAPIO
LOCAL oMENU
LOCAL nSAIR := 0
LOCAL nLINMOUSE
LOCAL nCOLMOUSE
PUBLIC nMENPRIN
PUBLIC nMENSEC
PUBLIC nMENTER
PUBLIC cAFORNCAD := SPACE(01)
PUBLIC cAFORNREL := SPACE(01)
PUBLIC cAPRODCAD := SPACE(01)
PUBLIC cAPRODREL := SPACE(01)
PUBLIC cACUSTCAD := SPACE(01)
PUBLIC cACUSTREL := SPACE(01)
PUBLIC cAESTOCAD := SPACE(01)
PUBLIC cAESTOREL := SPACE(01)
PUBLIC cACLIECAD := SPACE(01)
PUBLIC cACLIEREL := SPACE(01)
PUBLIC cAVENDCAD := SPACE(01)
PUBLIC cAVENDREL := SPACE(01)
PUBLIC cACOMPCAD := SPACE(01)
PUBLIC cACOMPREL := SPACE(01)
PUBLIC cAPAGCAD := SPACE(01)
PUBLIC cAPAGREL := SPACE(01)
PUBLIC cARECECAD := SPACE(01)
PUBLIC cARECEREL := SPACE(01)
PUBLIC cAEMPR := SPACE(01)
PUBLIC cAUSUA := SPACE(01)
PUBLIC cAREINDEX := SPACE(01)
PUBLIC cABACKUP := SPACE(01)
PUBLIC cAELIMINA := SPACE(01)
PUBLIC cATABELAS := SPACE(01)
PUBLIC cEMPRRAZAO := SPACE(50)
PUBLIC cEMPRFANTASIA := SPACE(50)
PUBLIC cEMPRRAMO := SPACE(30)
PUBLIC cEMPRCNPJ := SPACE(20)
PUBLIC cEMPRIE := SPACE(20)
PUBLIC cEMPRIM := SPACE(20)
PUBLIC cEMPRSUFRAMA := SPACE(20)
PUBLIC cEMPRENDERECO := SPACE(50)
PUBLIC cEMPRNUMERO := SPACE(06)
PUBLIC cEMPRCOMPLEMENT := SPACE(30)
PUBLIC cEMPRCEP := SPACE(10)
PUBLIC cEMPRBAIRRO := SPACE(40)
PUBLIC cEMPRCIDADE := SPACE(50)
PUBLIC cEMPRUF := SPACE(02)
PUBLIC cEMPRPAIS := SPACE(30)
PUBLIC cEMPRPORTO := SPACE(30)
PUBLIC cEMPRAEROPORTO := SPACE(30)
PUBLIC cEMPRDDI := SPACE(03)
PUBLIC cEMPRDDD := SPACE(03)
PUBLIC cEMPRTEL := SPACE(50)
PUBLIC cEMPRCEL := SPACE(50)
PUBLIC cEMPRFAX := SPACE(50)
PUBLIC cEMPRRECADO := SPACE(50)
PUBLIC cEMPREMAIL := SPACE(50)
PUBLIC cEMPRSITE := SPACE(50)
PUBLIC cEMPRCONTATO := SPACE(50)
DO WHILE nSAIR <> 1
SET CURSOR OFF
//CABECALHO DO PROGRAMA
SETCOLOR("W+/B")
@ 00,00 CLEAR TO 00,MAXCOL()
@ 00,00 SAY "SISTEMA DE GESTAO"
//FUNDO DA TELA PRINCIPAL
SETCOLOR("N/GR+") //COR DE FUNDO
@ 01,00 CLEAR TO 22,MAXCOL()
//FUNDO LISTRADO
FOR I = 1 TO 22
@ I,00 SAY REPLICATE(CHR(176)+CHR(177),(MAXCOL()/2))
NEXT
//MOSTRA HORAS E MEMORIA LIVRE
nRAMLIVRE = INT(MEMORY(0)/1024)
SETCOLOR("W+/N")
@ 24,00 CLEAR TO 24,MAXCOL()
@ 24,00 SAY DIASEMANA(DTOC(DATE())) + " - " + ALLTRIM(DTOC(DATE()))
@ 24,(MAXCOL() - LEN("RAM LIVRE: " + ALLTRIM(STR(nRAMLIVRE)) + " MB")) SAY "RAM LIVRE: " + ALLTRIM(STR(nRAMLIVRE)) + " MB"
SHOWTIME(24,28,.F.,"W+/N",.F.,.F.)
//MOSTRA DADOS DA EMPRESA OU TELA DE CADASTRO
MENUTELA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
MENUCOR = SETCOLOR()
SELECT 1
IF .NOT. ABRE(cDADOS + "EMPRESAS.DBF", 5,"C")
ALERT("ARQUIVO EMPRESAS.DBF INDISPONIVEL NO MOMENTO!",{"OK"},"W+/B")
SET CURSOR ON
SET COLOR TO
CLEAR SCREEN
CLOSE DATA
EXIT
ENDIF
cINDEMPRESA = cDADOS + "EMPRESAS.CDX"
SET INDEX TO &cINDEMPRESA
SET ORDER TO 1
COUNT TO nREGISTROS
IF nREGISTROS = 0
ALERT("CADASTRE PELO MENOS UMA EMPRESA!",{"OK"},"W+/B")
CLOSE DATA
EMPRESAS()
ELSE
IF DBSEEK(cEMPRESA) = .F.
ALERT("EMPRESA NAO CADASTRADA!",{"OK"},"W+/B")
CLOSE DATA
EXIT
ELSE
cEMPRRAZAO = RAZAO
cEMPRFANTASIA = FANTASIA
cEMPRRAMO = RAMO
cEMPRCNPJ = CNPJ
cEMPRIE = IE
cEMPRIM = IM
cEMPRSUFRAMA = SUFRAMA
cEMPRENDERECO = ENDERECO
cEMPRNUMERO = NUMERO
cEMPRCOMPLEMENT = COMPLEMENT
cEMPRCEP = CEP
cEMPRBAIRRO = BAIRRO
cEMPRCIDADE = CIDADE
cEMPRUF = UF
cEMPRPAIS = PAIS
cEMPRPORTO = PORTO
cEMPRAEROPORTO = AEROPORTO
cEMPRDDI = DDI
cEMPRDDD = DDD
cEMPRTEL = TEL
cEMPRCEL = CEL
cEMPRFAX = FAX
cEMPRRECADO = RECADO
cEMPREMAIL = EMAIL
cEMPRSITE = SITE
cEMPRCONTATO = CONTATO
SETCOLOR(MENUCOR)
RESTSCREEN(00,00,MAXROW(),MAXCOL(),MENUTELA)
SETCOLOR("W+/G")
@ 07,03 CLEAR TO 17,(MAXCOL()-3)
@ 07,03 TO 17,(MAXCOL()-3)
@ 08,05 SAY "RAZAO SOCIAL: " + cEMPRRAZAO
@ 09,05 SAY "CNPJ: " + cEMPRCNPJ
@ 10,05 SAY "ENDERECO: " + cEMPRENDERECO
@ 10,66 SAY "No: " + cEMPRNUMERO
@ 11,05 SAY "COMPLEMENTO: " + cEMPRCOMPLEMENT
@ 11,49 SAY "CEP: " + cEMPRCEP
@ 12,05 SAY "CIDADE: " + cEMPRCIDADE
@ 12,64 SAY "UF: " + cEMPRUF
@ 13,05 SAY "TELEFONE: (" + cEMPRDDI + "-" + cEMPRDDD + ")" + cEMPRTEL
@ 14,05 SAY "E-MAIL: " + cEMPREMAIL
@ 15,05 SAY "SITE: " + cEMPRSITE
@ 16,05 SAY "CONTATO: " + cEMPRCONTATO
CLOSE DATA
ENDIF
ENDIF
/*
//PEDE CADASTRO DE USUARIOS CASO NAO EXISTA ALGUM CADASTRADO
MENUTELA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
MENUCOR = SETCOLOR()
SELECT 2
IF .NOT. ABRE(cDADOS + "USUARIOS.DBF", 5,"C")
ALERT("ARQUIVO USUARIOS.DBF INDISPONIVEL NO MOMENTO!",{"OK"},"W+/B")
SET CURSOR ON
SET COLOR TO
CLEAR SCREEN
CLOSE DATA
EXIT
ENDIF
cINDUSUSEN = cDADOS + "USUARIOS.CDX"
SET INDEX TO &cINDUSUSEN
SET ORDER TO 1
nREGISTROS = RECCOUNT()
IF nREGISTROS = 0
ALERT("CADASTRE PELO MENOS UM USUARIO!",{"OK"},"W+/B")
CLOSE DATA
//USUARIOS()
ALERT("FECHE O SISTEMA E INICIE-O NOVAMENTE!",{"OK"},"W+/B")
ELSE
IF DBSEEK(cEMPRESA + cUSUARIO + cSENHA) = .F.
ALERT("USUARIO NAO CADASTRADO!",{"OK"},"W+/B")
CLOSE DATA
EXIT
ELSE
cAFORNCAD = FORNCAD
cAFORNREL = FORNREL
cAPRODCAD = PRODCAD
cAPRODREL = PRODREL
cACUSTCAD = CUSTCAD
cACUSTREL = CUSTREL
cAESTOCAD = ESTOCAD
cAESTOREL = ESTOREL
cACLIECAD = CLIECAD
cACLIEREL = CLIEREL
cAVENDCAD = VENDCAD
cAVENDREL = VENDREL
cACOMPCAD = COMPCAD
cACOMPREL = COMPREL
cAPAGCAD = PAGACAD
cAPAGREL = PAGAREL
cARECECAD = RECECAD
cARECEREL = RECEREL
cAEMPR = EMPR
cAUSUA = USUA
cAREINDEX = REINDEX
cABACKUP = BACKUP
cAELIMINA = ELIMINA
cATABELAS = TABELAS
CLOSE DATA
SETCOLOR(MENUCOR)
RESTSCREEN(00,00,MAXROW(),MAXCOL(),MENUTELA)
ENDIF
ENDIF
*/
//FECHA AS TABELAS EMPRESAS E USUARIOS (QUE ESTAO ABERTAS)
CLOSE DATA
//MOSTRA DIRETORIO DE TRABALHO E USUARIO LOGADO
//(cDIRETORIO E cUSUARIO SAO OBTIDAS EM ACESSO.PRG)
SETCOLOR("W+/B,W+/R")
@ 23,00 CLEAR TO 23,MAXCOL()
@ 23,00 SAY cDIRETORIO
@ 23, (MAXCOL() - LEN(ALLTRIM("USUARIO: " + cUSUARIO))) SAY ALLTRIM("USUARIO: " + cUSUARIO)
//SALVA TELA INICIAL
TELAMENU = SAVESCREEN(00,00,24,MAXCOL())
CORMENU = SETCOLOR()
//CONSTROI MENU DO SISTEMA
SETCOLOR("N/W")
@ 01,00 CLEAR TO 01,MAXCOL()
oMENU := MONTA_MENU()
// ESPERA POR UM EVENTO DO MENU E NAO SAI ENQUANTO O USUARIO NAO ESCOLHER O ITEM 'SAIR' DO MENU
DO WHILE MENUMODAL(oMENU,01,,,,) != 999 ; ENDDO
//QUANDO O USUARIO SAI DO MENU PERGUNTA SE QUER SAIR DO SISTEMA
nSAIR = ALERT("SAIR DO SISTEMA?",{"SIM","NAO"},"W+/B")
IF nSAIR = 1
EXIT
ELSE
LOOP
ENDIF
ENDDO
RETURN(.F.)
FUNCTION MONTA_MENU()
LOCAL oBARRA, oCADASTRO, oPROCED, oRELATORIO, oSISTEMA
LOCAL oRELFORN, oRELFOL, oSISDEPT, oSISIMOV
LOCAL oITEM, oSUBITEM
LOCAL cCORES := "N/W,W+/R,N/W,W+/BG,N/W,N/W"
//CRIA O MENU NA POSICAO INDICADA
oBARRA := TOPBAR(01, 01, MAXCOL())
oBARRA:COLORSPEC := cCORES
//MENU CADASTRO
oCADASTRO := POPUP()
oCADASTRO :COLORSPEC:= cCORES
oBARRA:ADDITEM(MENUITEM("CADASTROS", oCADASTRO,,))
//ITENS DO MENU CADASTRO
oITEM := MENUITEM( "01 FORNECEDORES" ,{||MNUCADFORN()}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "02 PRODUTOS" ,{||MNUCADPROD()}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "03 COMPRAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "04 RESUMO DA FOLHA" ,{||MNUCADFOL()}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "05 CONTAS A PAGAR" ,{||MNUCADPAG()}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "06 ESTOQUE" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "07 CUSTOS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oCADASTRO:AddItem(MENUITEM(MENU_SEPARATOR))
oITEM := MENUITEM( "08 TRANSPORTADORAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "09 VENDEDORES" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "10 CLIENTES" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "11 VENDAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "12 FATURAMENTO" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "13 CONTAS A RECEBER" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
oITEM := MENUITEM( "14 FLUXO DE CAIXA" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oCADASTRO:ADDITEM(oITEM)
//MENU PROCEDIMENTOS
oPROCED := POPUP()
oPROCED :COLORSPEC:= cCORES
oBARRA:ADDITEM(MENUITEM("PROCEDIMENTOS", oPROCED,,))
//ITENS DO MENU PROCEDIMENTOS
oITEM := MENUITEM( "01 PAGAMENTO EM LOTE - POR FORNECEDOR" ,{||MNUPROCNFPGLTF()}, , ,)
oPROCED:ADDITEM(oITEM)
oITEM := MENUITEM( "02 PAGAMENTO EM LOTE - MAIOR OU IGUAL A MIL" ,{||MNUPROCNFPGLTM()}, , ,)
oPROCED:ADDITEM(oITEM)
//MENU RELATORIOS
oRELATORIO := POPUP()
oRELATORIO :COLORSPEC:= cCORES
oBARRA:ADDITEM(MENUITEM("RELATORIOS", oRELATORIO,,))
//ITENS DO MENU RELATORIO
//SUBMENU RELATORIOS DOS FORNECEDORES
oRELFORN := POPUP()
oRELFORN:COLORSPEC:= cCORES
oITEM := MENUITEM( "01 FORNECEDORES", oRELFORN)
oRELATORIO:ADDITEM(oITEM)
//ITENS DO SUBMENU RELATORIOS DOS FORNECEDORES
oSUBITEM := MENUITEM( "01 LISTA DE FORNECEDORES", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oRELFORN:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "02 LISTA DE PRODUTOS / SERVICOS POR FORNECEDORES", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oRELFORN:ADDITEM(oSUBITEM)
oITEM := MENUITEM( "02 PRODUTOS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "03 COMPRAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
//SUBMENU RELATORIOS DE RESUMO DA FOLHA
oRELFOL := POPUP()
oRELFOL:COLORSPEC:= cCORES
oITEM := MENUITEM( "04 RESUMO DA FOLHA", oRELFOL)
oRELATORIO:ADDITEM(oITEM)
//ITENS DO SUBMENU RELATORIOS DE RESUMO DA FOLHA
oSUBITEM := MENUITEM( "01 LISTA DE INFORMACOES", {||MNURELFOL01()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "02 FOLHA - RESUMO", {||MNURELFOL02()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "03 FOLHA - DESP. VARIAVEIS (16.99)", {||MNURELFOL03()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "04 FOLHA - SALARIO FAMILIA (05.01)", {||MNURELFOL04()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "05 FERIAS - ABONO CONSTITUC. (11.45)", {||MNURELFOL05()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "06 FERIAS - DESP. VARIAVEIS (16.99)", {||MNURELFOL06()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "07 FERIAS - ABONO PECUNIARIO (11.44)", {||MNURELFOL07()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "08 FERIAS - REM. AGENTES POL. (11.60)", {||MNURELFOL08()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "09 FERIAS - 13o. SALARIO (11.43)", {||MNURELFOL11()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "10 FGTS (13.01)", {||MNURELFOL09()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "11 INSS (13.02)", {||MNURELFOL10()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "12 ADIANT. DE SALARIOS", {||MNURELFOL12()}, , )
oRELFOL:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "13 RESCISOES", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oRELFOL:ADDITEM(oSUBITEM)
//SUBMENU RELATORIOS DE CONTAS A PAGAR
oRELPAG := POPUP()
oRELPAG:COLORSPEC:= cCORES
oITEM := MENUITEM( "05 CONTAS A PAGAR", oRELPAG)
oRELATORIO:ADDITEM(oITEM)
//ITENS DO SUBMENU RELATORIOS DE CONTAS A PAGAR
oSUBITEM := MENUITEM( "01 EMPENHOS DAS NOTAS FISCAIS", {||MNURELNFEMP()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "02 CONTAS A PAGAR NAO LIQUIDADAS", {||MNURELNF01()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "03 CONTAS A PAGAR LIQUIDADAS", {||MNURELNF02()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "04 CONTAS A PAGAR DEVOLVIDAS", {||MNURELNF03()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "05 PLANILHA PARA SECRETARIO(A) DE FINANCAS", {||MNURELNF04()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "06 PLANILHA PARA SECRETARIO(A) DE FINANCAS (HTML)", {||MNURELNF05()}, , )
oRELPAG:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "07 CONTAS JA PAGAS", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oRELPAG:ADDITEM(oSUBITEM)
oITEM := MENUITEM( "06 ESTOQUE" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "07 CUSTOS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oRELATORIO:AddItem(MENUITEM(MENU_SEPARATOR))
oITEM := MENUITEM( "08 TRANSPORTADORAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "09 VENDEDORES" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "10 CLIENTES" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "11 VENDAS" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "12 FATURAMENTO" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "13 CONTAS A RECEBER" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
oITEM := MENUITEM( "14 FLUXO DE CAIXA" ,{||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , ,)
oRELATORIO:ADDITEM(oITEM)
//MENU SISTEMA
oSISTEMA := POPUP()
oSISTEMA :COLORSPEC:= cCORES
oBARRA:ADDITEM(MENUITEM("SISTEMA", oSISTEMA,,))
//ITENS DO MENU SISTEMA
oITEM := MENUITEM( "CALCULADORA" ,{||CALC()}, , ,)
oSISTEMA:ADDITEM(oITEM)
oITEM := MENUITEM( "CALENDARIO" ,{||CALENDAR()}, , ,)
oSISTEMA:ADDITEM(oITEM)
oITEM := MENUITEM( "REINDEXACAO" ,{||MNUSISREINDEXA()}, , ,)
oSISTEMA:ADDITEM(oITEM)
oSISTEMA:AddItem(MENUITEM(MENU_SEPARATOR))
oITEM := MENUITEM( "01 EMPRESAS" ,{||ALERT("EM CONSTRUCAO!", "W+/B")}, , ,)
oSISTEMA:ADDITEM(oITEM)
//SUBMENU DEPARTAMENTOS
oSISDEPT := POPUP()
oSISDEPT:COLORSPEC:= cCORES
oITEM := MENUITEM( "02 DEPARTAMENTOS", oSISDEPT)
oSISTEMA:ADDITEM(oITEM)
//ITENS DO SUBMENU DEPARTAMENTOS
oSUBITEM := MENUITEM( "01 CADASTROS", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oSISDEPT:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "02 LISTA DE DEPARTAMENTOS", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oSISDEPT:ADDITEM(oSUBITEM)
//SUBMENU IMOVEIS
oSISIMOV := POPUP()
oSISIMOV:COLORSPEC:= cCORES
oITEM := MENUITEM( "03 IMOVEIS", oSISIMOV)
oSISTEMA:ADDITEM(oITEM)
//ITENS DO SUBMENU IMOVEIS
oSUBITEM := MENUITEM( "01 CADASTROS", {||MNUSISIMOV()}, , )
oSISIMOV:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "02 LISTA DE IMOVEIS", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oSISIMOV:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "03 IMOVEIS POR DEPARTAMENTO", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oSISIMOV:ADDITEM(oSUBITEM)
oSUBITEM := MENUITEM( "04 FICHA DO IMOVEL", {||ALERT("EM CONSTRUCAO!", {"OK"}, "W+/B")}, , )
oSISIMOV:ADDITEM(oSUBITEM)
oITEM := MENUITEM( "04 USUARIOS" ,{||ALERT("EM CONSTRUCAO!", "W+/B")}, , ,)
oSISTEMA:ADDITEM(oITEM)
oSISTEMA:AddItem(MENUITEM(MENU_SEPARATOR))
oITEM := MENUITEM("SAIR <ALT>+<F4>", {||.T.}, K_ALT_F4, , 999)
oSISTEMA:ADDITEM(oITEM)
RETURN(oBARRA)
FUNCTION MNUCADFORN()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
FORNECED()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUCADPROD()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
PRODUTOS()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUCADPAG()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
NF()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUCADFOL()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
FOLHA()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUPROCNFPGLTF()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
NFPGLTF()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUPROCNFPGLTM()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
NFPGLTM()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL01()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL01()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL02()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL02()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL03()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL03()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL04()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL04()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL05()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL05()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL06()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL06()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL07()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL07()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL08()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL08()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL09()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL09()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL10()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL10()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL11()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL11()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELFOL12()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELFOL12()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNF01()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNF01()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNF02()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNF02()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNF03()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNF03()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNF04()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNF04()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNF05()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNF05()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUSISIMOV()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
IMOVEIS()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNUSISREINDEXA()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
REINDEXA()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)
FUNCTION MNURELNFEMP()
cCORPREVIA = SETCOLOR()
cTELAPREVIA = SAVESCREEN(00,00,MAXROW(),MAXCOL())
KEYBOARD(0)
RELNFEMP()
SET COLOR TO &cCORPREVIA
CLEAR SCREEN
RESTSCREEN(00,00,MAXROW(),MAXCOL(), cTELAPREVIA)
KEYBOARD(0)
RETURN(0)