Preciso de um Help no programa descrito abaixo, eu consegui alterar as fontes no testevl.exe , porém usei o mesmo procedimento no meu programa tb feito em summer e não funcionou, é uma ótima ferramenta, porém a inclusão das rotinas do demo.prg não funcionaram. Alguem poderia me ajudar ?
DEMO da Visual Lib xHarbour e GTWVW Enviado por: acelconsultoria Descrição do arquivo: A partir dos fontes PRG e do arquivo de fonte TTF devidamente trabalhados pelo colega "asimoes", que foram desenvolvidos para trabalharem com GTWVG e HWGUI, eu fiz uma pequena modificação para trabalhar com GTWVW e fiz um exemplo utilizando o arquivo DEMO.PRG que vinha originalmente na Visual Lib 2 do Clipper.
Basta instalar a fonte TTF Visual Lib no Windows, e seguir o exemplo no programa DEMO.PRG.
________________________________________________________________________________________________
Gostaria de Saber se compilo ele no clipper ou no xarbour, realmente é a minha primeira aplicação do xbarbour e onde devo colocar as alterações do demo.prg.
Obrigado desde já.
Código: Selecionar todos
*=======================================================================*
* Programa : - Sistema Administrativo *
* VersÆo : 1.0 *
* Programador : Paulo Peixe *
* Empresa : TECNOPOINT *
* Licenciado : BORIS *
*=======================================================================*
* Compilador : Clipper 5.3 *
* Linkeditor : Blinker 5.0 *
* Bibliotecas : LIB ORBIS, CLIPPER,LECIO,LLIBG *
*=======================================================================*
// Ambiente
#include "inkey.ch"
#include "visual2.ch"
#include "Getexit.ch"
#include "getpass.ch"
set softseek on
set cursor on
SET SCOREBOARD OFF
*set exclusive off
set century on
set date british
set deleted on
*------------------------------*
* saida
set key -8 to calen()
set key -9 to calculadora()
// In¡cio
DESKTOP("BORIS SISTEMA ADMINISTRATIVO")
* rSoftCur()
* rCursorOn ()
*PROTEGED(.t.)
*VERDBF()
Findex()
*clrted()
usa = space(10)
senha()
saldoante()
logotipo()
******************************************
******************************************
tela = savenv( 0, 0, 23, 79)
SET COLOR TO W+/BG
semana = pdow(date())
dia = pdex(date())
@ 24,58 say "³"
@ 24,70 say "³"
@ 24,01 say "Usu rio:"
@ 24,10 say usa
@ 24,31 SAY CHR(9)
set color to n+/bg
@ 24,32 say "Calend rio"
SET COLOR TO W+/BG
@ 24,46 SAY CHR(10)
set color to n+/bg
@ 24,47 say "Calculadora"
SET COLOR TO W+/BG
@ 24,60 say date()
showtime(24,72,.f.,"r/gb",.f.,.f.)
vlscrsaver ( 60, { || vlmarquee( "BORIS BEBIDAS - SISTEMA ADMINISTRATIVO","b+/n" ,)} )
mbar :=newbarmenu()
mcad :=newdownmenu() // barra cadastro
mman :=newdownmenu() // barra Pesquisas
mman1 :=newdownmenu() // barra Pesquisas
mman2 :=newdownmenu() // barra Pesquisas
mman3 :=newdownmenu() // barra Pesquisas
mman4 :=newdownmenu() // barra Pesquisas
mrel :=newdownmenu() // barra relat¢rios
mrel1 :=newdownmenu() // barra relat¢rios
mrel2 :=newdownmenu() // barra relat¢rios
mrel3 :=newdownmenu() // barra relat¢rios
mrel4 :=newdownmenu() // barra relat¢rios
mcai :=newdownmenu() // barra Caixa
mcai1 :=newdownmenu() // barra Caixa
mcon :=newdownmenu() // barra Contas
mcon1 :=newdownmenu() // barra Contas
mcon11 :=newdownmenu() // barra Contas
mcon2 :=newdownmenu() // barra Contas
mcon22 :=newdownmenu() // barra Contas
msai :=newdownmenu() // barra de saida
muti :=newdownmenu() // barra de utilitarios
mven :=newdownmenu() // barra de utilitarios
mven1 :=newdownmenu() // barra de utilitarios
// menu geral(barra)
addBarItem(mbar, "&Vendas" , "", mven)
addBarItem(mbar, "&Cadastros" , "", mcad)
AddBarItem(mbar, "C&onsultas" , "", mman)
AddBarItem(mbar, "Co&ntas" , "", mcon)
AddBarItem(mbar, "C&aixa" , "", mcai)
AddBarItem(mbar, "&Relat¢rios" , "", mrel)
AddBarItem(mbar, "&Utilit rios", "", muti)
AddBarItem(mbar, "&Sa¡da" , "", msai)
// Vendas
AddDownItem(mven, "&Vendas", "Atendimento", { || cad_6() })
AddDownItem(mven, "&Vendas com cr‚dito", "Vendas de produtos com cr‚dito de cliente", { || ven_6() })
addDownsep(mVEN)
AddDownItem(mven, "&Devolu‡äes", "Devolu‡Æo de apenas um produto", { || ven_2() })
AddDownItem(mven, "&Cancela Venda", "Cancela Vendas efetuadas", { || ven_5() })
addDownsep(mVEN)
AddDownItem(mven, "&Or‡amentos", "Realiza Or‡amentos", mven1)
AddDownItem(mven1, "&Entrada", "Incicia um novo or‡amento", { || ven_3() })
AddDownItem(mven1, "&Fechamento", "Fecha um or‡amento j efetuado", { || ven_4() })
// menu cadastro
AddDownItem(mcad, "&Clientes", "Cadastro: Clientes", { || cad_1() })
AddDownItem(mcad, "&Produtos", "Cadastro: Produtos", { || Cad_2() })
AddDownItem(mcad, "&Fornecedores", "Cadastro: Fornecedores", { || Cad_7() })
AddDownItem(mcad, "&Usu rios", "Cadastro: Ötens", { || Cad_3() })
*addDownsep(mcad)
*AddDownItem(mcad, "&Notas de Entrada", "Cadastro: ###", { || Cad_4() })
*AddDownItem(mcad, "N&otas de sa¡da", "Cadastro: ###", { || Cad_5() })
*addDownsep(mcad)
*AddDownItem(mcad, "Co&ta‡äes", "Cadastro: Cota‡äes", { || Cad_6() })
// menu Consulta
AddDownItem(mman, "&Clientes", "Consulta: Clientes)", mman1)
AddDownItem(mman1, "&Por &Codigo", "Consulta: Clientes por c¢digo", { || man_1() })
AddDownItem(mman1, "Po&r Nome" , "Consulta: Clientes por nome" , { || man_2() })
AddDownItem(mman1, "Por C&PF" , "Consulta: Clientes por nome" , { || man_3() })
AddDownItem(mman, "&Produtos", "Consulta: Produtos", mman2)
AddDownItem(mman2, "&Por C¢digo" , "Consulta: Produto por c¢digo", { || man_4() })
AddDownItem(mman2, "Por &Descri‡Æo", "Consulta: Produto por nome" , { || man_5() })
AddDownItem(mman, "&Fornecedores", "Consulta: Fornecedores", mman3)
AddDownItem(mman3, "&Por C¢digo" , "Consulta: Fornecedor por c¢digo", { || man_7() })
AddDownItem(mman3, "Por &Empresa", "Consulta: Fornecedor por nome" , { || man_8() })
AddDownItem(mman, "Usu rios", "Consulta: Usu rios", { || man_6() })
* AddDownItem(mman3, "&Por C¢digo", "Consulta: Usu rio por c¢digo", { || man_6() })
* AddDownItem(mman3, "&Por Nome", "Consulta: Usu rio por Nome" , { || man_7() })
*AddDownItem(mman, "&Grupos", "Consulta: Grupos(itens)", mman4)
*AddDownItem(mman4, "&C¢digo", "Consulta: Grupos por c¢digo", { || man_8() })
*AddDownItem(mman4, "&Descri‡Æo", "Consulta: Grupos por descri‡Æo", { || man_9() })
// menu Contas
AddDownItem(mcon, "&A Pagar" , "Controle de pagamentos a realizar" , mcon1)
AddDownItem(mcon1, "&Cadastro", "", { || cp_1() })
AddDownItem(mcon1, "&Consulta", "", mcon11)
AddDownItem(mcon11, "&Pagas", "", { || cp_3() })
AddDownItem(mcon11, "&NÆo Pagas", "", { || cp_2() })
AddDownItem(mcon, "A &Receber", "Controle de Recebimentos a realizar", mcon2)
AddDownItem(mcon2, "&Cadastro", "", { || cr_1() })
AddDownItem(mcon2, "&Consulta", "", mcon22)
AddDownItem(mcon22, "&Recebidos", "", { || cr_3() })
AddDownItem(mcon22, "&NÆo Recebidos", "", { || cr_2() })
// menu Caixa
AddDownItem(mcai, "&Di rio" , "Caixa do Dia" , { || cai_1() })
AddDownItem(mcai, "Mensal", "", mcai1)
AddDownItem(mcai1, "&Atual" , "Saldo do Mˆs Atual" , { || cai_2() })
AddDownItem(mcai1, "&Geral" , "Saldo de todos os meses" , { || cai_22() })
AddDownItem(mcai, "&Anual" , "Caixa do Ano" , { || cai_3() })
AddDownItem(mcai, "&Por Per¡odo", "Caixa por per¡odo", { || cai_4() })
addDownsep(mcai)
AddDownItem(mcai, "D‚&bitos", "D‚bitos efetuados na loja", { || cai_5() })
AddDownItem(mcai, "C&r‚ditos", "Cr‚ditos efetuados na loja", { || cai_6() })
// menu relat¢rios
AddDownItem(mrel, "&Clientes", "Relat¢rio: Clientes", mrel1)
AddDownItem(mrel1, "&C¢digo ", "Relat¢rio: Clientes por c¢digo", { || rel_1() })
AddDownItem(mrel1, "&Nome" , "Relat¢rio: Clientes por nome" , { || rel_2() })
AddDownItem(mrel, "&Produtos", "Relat¢rio: Produtos", mrel2)
AddDownItem(mrel2, "&C¢digo", "Relat¢rio: Produtos por c¢digo", { || rel_3() })
AddDownItem(mrel2, "&Nome" , "Relat¢rio: Produtos por nome" , { || rel_4() })
addDownsep(mrel2)
AddDownItem(mrel2, "&Em falta", "Relat¢rio dos Produtos com estoque 0 na lojaa", { || rel_5() })
AddDownItem(mrel2, "&Estoque M¡nimo", "Relat¢rio dos Produtos com estoque informado", { || rel_6() })
* AddDownItem(mrel2, "&Mˆs Max/Min" , "Relat¢rio: Mˆs que mais e menos houve venda" , { || rel_6() })
*AddDownItem(mrel, "&Usu rios", "Relat¢rio: Usu rios", mrel3)
* AddDownItem(mrel3, "&C¢digo", "Relat¢rio: Usu rios por c¢digo", { || rel_5() })
* AddDownItem(mrel3, "&Nome" , "Relat¢rio: Usu rios por nome" , { || rel_6() })
*addDownsep(mrel)
*AddDownItem(mrel, "&Notas de Entrada", "", { || rel_5() })
*AddDownItem(mrel, "N&otas de Sa¡da" , "", { || rel_6() })
*addDownsep(mrel)
*AddDownItem(mrel, "Cota‡äes" , "", { || rel_7() })
// menu utilit rios
AddDownItem(muti, "&Reindexar", "Reorganiza os arquivos de ¡ndices", { || uti_1() })
AddDownItem(muti, "Cria &Backup", "Realiza a copia de seguran‡a dos arquivos de dados", { || uti_2() })
AddDownItem(muti, "&Restaura Backup", "Realiza a copia de seguran‡a dos arquivos de dados", { || uti_22() })
AddDownItem(muti, "&Calend rio", "", { || uti_3() })
AddDownItem(muti, "Ca&lculadora", "", { || uti_4() })
// menu saída
AddDownItem(msai, "&Sa¡da", "Sai do sistema", { || saida() })
//////// final dos menus /////////////
while .t.
Barmenu(mbar)
saida()
end
*vlexit()
return nil
*--------------------------
function ven_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do ven_02
return
function ven_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do ven_03
return
function ven_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do ven_04
return
function ven_5
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do ven_05
return
function ven_6
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do ven_06
return
*--------------------------
function cad_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cad_01
return
function cad_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cad_02
return
function cad_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
fsenha()
return
function cad_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
* do cad_04
return
function cad_5
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
* do cad_05
return
function cad_6
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do venda
return
function cad_7
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcad = "X" .or. afcad = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cad_07
return
*--------------------------
function man_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_01
return
function man_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_02
return
function man_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_03
return
function man_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_04
return
function man_5
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_05
return
function man_6
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_06
return
function man_7
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_07
return
function man_8
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do man_08
return
function man_9
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afman = "X" .or. afman = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
* do man_09
return
*--------------------------
function cp_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cp_01
return
function cp_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cp_02
return
function cp_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cp_03
return
function cr_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cr_01
return
function cr_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cr_02
return
function cr_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcon = "X" .or. afcon = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do cr_03
return
*--------------------------
function cai_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_01
return
function cai_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_02
return
function cai_22
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do mesmami
return
function cai_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_03
return
function cai_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_04
return
function cai_5
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_05
return
function cai_6
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afcai = "X" .or. afcai = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do caixa_06
return
*--------------------------
function rel_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_01
return
function rel_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_02
return
function rel_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_03
return
function rel_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_04
return
function rel_5
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_05
return
function rel_6
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
do rel_06
return
function rel_7
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afrel = "X" .or. afrel = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
* do rel_07
return
*--------------------------
function uti_1
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afuti = "X" .or. afuti = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
findex()
return
function uti_2
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afuti = "X" .or. afuti = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
criabackup()
return
function uti_22
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afuti = "X" .or. afuti = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
restbackup()
return
function uti_3
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afuti = "X" .or. afuti = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
calen()
return
function uti_4
telaG = savenv( 0, 0, 24, 79)
use acessos
go BOTTOM
if afuti = "X" .or. afuti = "x"
else
msgbox1("M¢dulo nÆo dispon¡vel para este usu rio")
rstenv(telaG)
RETURN
endif
calculadora()
return
*--------------------------
FUNCTION SAIDA
* inicia saida
*use acessos
*go bottom
*aha = time()
*ahae = space(08)
*replace ahorab with aha
*close data
*PROTEGED(.F.)
vlexit()
* cancela saida
*PROTEGED(.T.)
*use acessos
*go bottom
*replace ahorab with ahae
*close data
RETURN nil
return
