Estou começando a migrar meus sistemas para minigui, na net achei os fontes de um sistema muito interessante, mas ao tentar compila-lo pela HMG 3.0.35 apareceram alguns erros,
tentei compilar a pagina main() do sistema e erros ocorreram nas linhas com comandos como set tooltipballoon on, set menustyle extended e button btn_01;, gostaria que alguem me informase em qual versao da minigui este sistema foi compilado.
/*propósito |montar tela inicial
parâmetros|nenhum
retorno |nil
*/
#include 'minigui.ch'
*________________________________________________________________________________________________
function Main()
public _AZUL := {071,089,135}
public _AMARELO := {255,255,225}
public _AMARELO2 := {255,255,240}
public _CIANO := {000,255,255}
public _AZUL_CLARO := {000,118,236}
public _AZUL_CLARO_2 := {113,184,255}
public _VERMELHO := {242,079,000}
public _LARANJA := {255,126,064}
public _VERDE := {000,102,051}
public _AZUL_ESCURO := {000,000,128}
public _CINZA := {128,128,128}
public cPathImagem := ''
public cPathTabela := ''
public nChave_ForPro := 0
public nCod_Usu_Log := 0
public cNom_Usu_Log := space(30)
public nTotServ := 0
public nTotPeca := 0
public lLog_IAE := .F.
public nNumOS := 0
public lEncerrada := .F.
public nLimite_DEMO := 3
public lDemo := .T. //se for .T. assume cópia demo, .F. pede senha
hb_setcodepage('PT')
request dbfcdx
rddsetdefault('DBFCDX')
set interactiveclose query main
set date british
set century on
set epoch to 1950
set browsesync on
set deleted on
set multiple off warning
set tooltipballoon on
set navigation extended
set codepage to portuguese
set language to portuguese
set menustyle extended
define window form_main;
at 000,000;
width GetDesktopWidth();
height GetDesktopHeight();
title 'Sistema de Ordem de Serviço'+iif(lDemo,' (VERSÃO DEMO)','');
main;
backcolor _AZUL;
icon cPathImagem+'display.ico';
on init InicializaAmbiente();
on release SairPrograma()
define main menu
popup 'Cadastros'
item 'Produtos' action Produto() image cPathImagem+'produtos_16.bmp'
separator
item 'Fornecedores' action Fornecedor() image cPathImagem+'fornecedores_16.bmp'
item 'Clientes' action Cliente() image cPathImagem+'clientes_16.bmp'
item 'Funcionários' action Funcionario() image cPathImagem+'funcionarios_16.bmp'
item 'Grupos' action Grupo() image cPathImagem+'grupos_16.bmp'
separator
item 'Receitas' action Receita() image cPathImagem+'receitas_16.bmp'
item 'Despesas' action Despesa() image cPathImagem+'despesas_16.bmp'
item 'Condição Pagamento' action Condicao() image cPathImagem+'condicao_16.bmp'
separator
item 'Sair' action form_main.release image cPathImagem+'door.bmp'
end popup
popup 'Relatórios'
item 'OS Em Aberto (por perÃodo)' action OS_Abertas_Periodo() image cPathImagem+'imp001.bmp'
item 'OS Fechadas (por perÃodo)' action OS_Fechadas_Periodo() image cPathImagem+'imp001.bmp'
separator
item 'OS Em Aberto (por técnico)' action OS_Abertas_Tecnico() image cPathImagem+'imp001.bmp'
item 'OS Fechadas (por técnico)' action OS_Fechadas_Tecnico() image cPathImagem+'imp001.bmp'
separator
item 'OS Em Aberto (por cliente)' action OS_Abertas_Cliente() image cPathImagem+'imp001.bmp'
item 'OS Fechadas (por cliente)' action OS_Fechadas_Cliente() image cPathImagem+'imp001.bmp'
separator
item 'Posição Estoque Produtos' action Posicao_Estoque() image cPathImagem+'imp002.bmp'
item 'Produtos em Falta' action Produtos_em_Falta() image cPathImagem+'imp002.bmp'
item 'Produtos mais Vendidos' action Produtos_mais_Vendidos() image cPathImagem+'imp002.bmp'
end popup
popup 'Utilitários'
item 'Indexar Tabelas' action msginfo('x') image cPathImagem+'save_as.bmp'
end popup
end menu
define splitbox
define toolbar tb_main of form_main buttonsize 60,50 flat
button btn_01;
caption 'Atendimento';
picture cPathImagem+'atendimento.bmp';
adjust;
action Atendimento();
tooltip 'Abrir um orçamento/OS para um cliente'
button btn_02;
caption 'OS';
picture cPathImagem+'acompanhamento.bmp';
adjust;
action Andamento();
tooltip 'Acompanhar e Realizar os serviços';
separator
button btn_03;
caption 'Produtos';
picture cPathImagem+'produtos.bmp';
adjust;
action Produto();
tooltip 'Cadastro de Produtos';
separator
button btn_04;
caption 'Fornecedores';
picture cPathImagem+'fornecedores.bmp';
adjust;
action Fornecedor();
tooltip 'Cadastro de Fornecedores'
button btn_05;
caption 'Clientes';
picture cPathImagem+'clientes.bmp';
adjust;
action Cliente();
tooltip 'Cadastro de Clientes'
button btn_06;
caption 'Funcionários';
picture cPathImagem+'funcionarios.bmp';
adjust;
action Funcionario();
tooltip 'Cadastro de Funcionários'
button btn_07;
caption 'Grupos';
picture cPathImagem+'grupos.bmp';
adjust;
action Grupo();
tooltip 'Grupos de Produtos';
separator
button btn_08;
caption 'Receber';
picture cPathImagem+'crec.bmp';
adjust;
action Contas_a_Receber();
tooltip 'Contas a Receber'
button btn_09;
caption 'Pagar';
picture cPathImagem+'cpag.bmp';
adjust;
action Contas_a_Pagar();
tooltip 'Contas a Pagar';
separator
button btn_10;
caption 'Suporte';
picture cPathImagem+'suporte.bmp';
adjust;
action SuporteTecnico();
tooltip 'Como obter Suporte Técnico do produto (telefone, e-mail, endereço)';
separator
button btn_11;
caption 'Sair';
picture cPathImagem+'saida.bmp';
adjust;
action form_main.release;
tooltip 'Sair do Programa'
end toolbar
end splitbox
on key F1 action SuporteTecnico()
on key F2 action Calculadora()
on key F3 action Calendario()
define statusbar font 'tahoma' size 10
statusitem 'F1-Ajuda' width 080 icon cPathImagem+'ajuda.ico' action SuporteTecnico()
statusitem 'F2-Calculadora' width 140 icon cPathImagem+'calculadora.ico' action Calculadora()
statusitem 'F3-Calendário' width 140 icon cPathImagem+'calendario.ico' action Calendario()
statusitem 'Usuário:' width 200 icon cPathImagem+'user.ico' action msginfo('x','x')
date width 85
clock width 75
end statusbar
end window
form_main.maximize
form_main.activate
return(nil)
*________________________________________________________________________________________________
function SuporteTecnico()
define window form_suporte;
at 000,000;
width 370;
height 340;
title 'Suporte Técnico / Vendas';
icon cPathImagem+'display.ico';
modal;
nosize
@ 005,005 label lbl_001;
width 100;
value 'OS 1.0';
font 'arial' size 16;
fontcolor _AZUL_ESCURO bold
@ 040,005 label lbl_002;
width 370;
value 'Desenvolvido por __________________________';
font 'arial' size 12;
fontcolor _AZUL bold
@ 060,005 label lbl_003;
width 300;
value 'Rua _____________________, nº __';
font 'arial' size 10;
fontcolor BLACK
@ 080,005 label lbl_004;
width 300;
value 'Bairro ________, _________-__';
font 'arial' size 10;
fontcolor BLACK
@ 100,005 label lbl_005;
width 300;
value 'Telefones: 0xx__ _________ / 0xx__ _________';
font 'arial' size 10;
fontcolor BLACK
@ 140,005 label lbl_006;
width 370;
value 'SUPORTE TÉCNICO (MSN)';
font 'arial' size 10;
fontcolor BLUE bold
@ 160,005 label lbl_007;
width 370;
value '_________@hotmail.com';
font 'arial' size 12;
fontcolor BLACK
@ 190,005 label lbl_008;
width 370;
value 'PARA COMPRAR ESTE SOFTWARE';
font 'arial' size 10;
fontcolor BLUE bold
@ 210,005 label lbl_009;
width 370;
value '___@_____.com.br';
font 'arial' size 12;
fontcolor BLACK
@ 240,005 label lbl_010;
width 370;
value 'VISITE NOSSO SITE (clique no botão)';
font 'arial' size 10;
fontcolor BLUE bold
define buttonex btn_visita_site
row 260
col 005
width 355
height 045
caption 'http://br.groups.yahoo.com/group/software_facil/'
picture cPathImagem+'site.bmp'
fontbold .T.
lefttext .F.
flat .T.
action ShellExecute(GetActiveWindow(),'open','http://br.groups.yahoo.com/group/software_facil/','',,'')
end buttonex
end window
form_suporte.center
form_suporte.activate
return(nil)
*________________________________________________________________________________________________
function InicializaAmbiente()
CriaCdx()
AbreDbfCdx()
VariaveisPUB()
Entrada()
return(nil)
*________________________________________________________________________________________________
function VariaveisPUB()
public aEstado := {}
public aCondicao := {}
public aTipo := {}
public aClassifica := {}
public aUnidade := {}
public aDiaSemana := {}
public aTipoFJ := {}
public aSexo := {}
public aLogradouro := {}
public aUf := {}
aadd(aCondicao,'Montado')
aadd(aCondicao,'Desmontado')
aadd(aEstado,'Novo')
aadd(aEstado,'Bom')
aadd(aEstado,'Ruim')
aadd(aTipo,'Peça')
aadd(aTipo,'Serviço')
aadd(aClassifica,'Ótimo')
aadd(aClassifica,'Bom')
aadd(aClassifica,'Regular')
aadd(aUnidade,'UN')
aadd(aUnidade,'PC')
aadd(aUnidade,'KG')
aadd(aUnidade,'H.')
aadd(aDiaSemana,'Domingo')
aadd(aDiaSemana,'Segunda')
aadd(aDiaSemana,'Terça')
aadd(aDiaSemana,'Quarta')
aadd(aDiaSemana,'Quinta')
aadd(aDiaSemana,'Sexta')
aadd(aDiaSemana,'Sábado')
aadd(aTipoFJ,'JurÃdica')
aadd(aTipoFJ,'FÃsica')
aadd(aSexo,'Feminino ')
aadd(aSexo,'Masculino')
aadd(aLogradouro,'Rua')
aadd(aLogradouro,'Avenida')
aadd(aLogradouro,'Rodovia')
aadd(aLogradouro,'Travessa')
aadd(aLogradouro,'Alameda')
aadd(aLogradouro,'BR')
aadd(aLogradouro,'Km')
aadd(aLogradouro,'Trevo')
aadd(aLogradouro,'Via')
aadd(aUf,'AC') //acre
aadd(aUf,'AL') //alagoas
aadd(aUf,'AM') //amazonas
aadd(aUf,'AP') //amapá
aadd(aUf,'BA') //bahia
aadd(aUf,'CE') //ceará
aadd(aUf,'DF') //distrito federal
aadd(aUf,'ES') //espÃrito santo
aadd(aUf,'GO') //goiás
aadd(aUf,'MA') //maranhão
aadd(aUf,'MG') //minas gerais
aadd(aUf,'MS') //mato grosso do sul
aadd(aUf,'MT') //mato grosso
aadd(aUf,'PA') //pará
aadd(aUf,'PB') //paraÃba
aadd(aUf,'PE') //pernambuco
aadd(aUf,'PI') //piauÃ
aadd(aUf,'PR') //paraná
aadd(aUf,'RJ') //rio de janeiro
aadd(aUf,'RN') //rio grande do norte
aadd(aUf,'RO') //rondonia
aadd(aUf,'RR') //roraima
aadd(aUf,'RS') //rio grande do sul
aadd(aUf,'SC') //santa catarina
aadd(aUf,'SE') //sergipe
aadd(aUf,'SP') //são paulo
aadd(aUf,'TO') //tocantins
return(Nil)
*________________________________________________________________________________________________
function SairPrograma()
close all
return(nil)
*________________________________________________________________________________________________
function Entrada()
if lDemo
nCod_Usu_Log := 999
cNom_Usu_Log := 'DEMO'
form_main.statusbar.item(4) := 'Usuário: DEMO'
return(nil)
endif
define window form_login;
at 000,000;
width 400;
height 280;
title 'Acesso ao programa';
icon cPathImagem+'display.ico';
modal;
noautorelease;
nosize;
nosysmenu
define label lbl_top
parent form_login
col 000
row 000
value ' Sistema de Ordem de Serviço'
width 400
height 060
fontname 'verdana'
fontsize 16
fontbold .T.
backcolor BLUE
fontcolor _AZUL_CLARO_2
transparent .F.
end label
define label lbl_top1
parent form_login
col 000
row 030
value ' versão 1.0, release 001, 2007'
width 390
height 030
fontname 'verdana'
fontsize 13
fontbold .T.
backcolor BLUE
fontcolor WHITE
transparent .T.
end label
@ 070,005 label lbl_comp01;
value 'CompatÃvel com :';
width 150;
fontcolor BLACK;
transparent
@ 090,005 label lbl_comp02;
value 'Windows 95/98/Me';
width 150;
fontcolor _CINZA;
transparent
@ 110,005 label lbl_comp03;
value 'Windows NT/2000';
width 150;
fontcolor _CINZA;
transparent
@ 130,005 label lbl_comp04;
value 'Windows XP';
width 150;
fontcolor _CINZA;
transparent
@ 080,210 label lbl_senha;
width 100;
value 'Senha';
font 'verdana';
size 10;
transparent;
fontcolor BLACK BOLD
@ 100,210 textbox txt_senha;
of form_login;
width 170;
password;
maxlength 10;
uppercase
@ 140,210 buttonex btn_ok;
caption 'Ok';
picture cPathImagem+'ok.bmp';
width 060;
height 040;
bold;
tooltip 'Confirma a entrada no programa';
action ConfirmaEntrada()
@ 140,280 buttonex btnex_cancela;
caption 'Cancela';
picture cPathImagem+'cancela.bmp';
width 100;
height 040;
bold;
tooltip 'Cancela a entrada ao programa';
action (form_main.release,SairPrograma())
define frame frame_login
parent form_login
col 005
row 190
width 385
height 001
opaque .F.
transparent .F.
end frame
@ 205,005 label lbl_rodape01;
of form_login;
value 'Desenvolvido por _________________________________________';
width 480;
font 'verdana';
size 8;
fontcolor BLACK;
transparent
@ 215,005 label lbl_rodape02;
of form_login;
value 'Comprar ou obter suporte técnico, use as informações abaixo';
width 480;
font 'verdana';
size 8;
fontcolor BLACK;
transparent
@ 225,005 label lbl_rodape03;
of form_login;
value 'Tel._____________,_____________ e-mail:______________________';
width 480;
font 'verdana';
size 8;
fontcolor BLACK;
transparent
end window
form_login.setfocus
form_login.center
form_login.activate
return(nil)
*________________________________________________________________________________________________
function ConfirmaEntrada()
local cChave := form_login.txt_senha.value
if empty(form_login.txt_senha.value)
msgstop('Senha não pode ser nulo','Atenção')
form_login.txt_senha.setfocus
return(nil)
endif
dbselectarea('funcionario')
ordsetfocus('senha')
funcionario->(dbgotop())
funcionario->(dbseek(cChave))
if found()
nCod_Usu_Log := funcionario->codigo
cNom_Usu_Log := alltrim(funcionario->nome)
form_login.release
form_main.statusbar.item(4) := 'Usuário: '+cNom_Usu_Log
else
msgstop('Senha não confere','Atenção')
return(nil)
endif
return(nil)
Obrigado aos amigos pela ajuda que tenho recebido deste forum