Página 1 de 1
NAO PERMITIR ABRIR O SISTEMA DUAS VEZES
Enviado: 07 Nov 2004 08:59
por CDV
Bom dia amigos.
Alguem sabe uma forma de nao deixar acessar o sistema se o mesmo
ja estiver aberto ?. Acontece que as vezes o usuario minimiza o sistema
e naum perceber que ja esta aberto no rodape e tenta abrir novamente
causando problema.
Se alguem puder me ajudar desde ja agradeco...
Obrigado.
Enviado: 07 Nov 2004 15:27
por Ricardo Sales Ribeiro
Boa Tarde Amigo!
Tudo Bem!
Tive este problema a algum tempo atrás, e resolvi desta maneira, acho que esta solução tb peguei aqui no forum, mas vamos ao que interessa.
Vc coloca este teste no inicio de sua aplicação ok
E coloca esta função nas suas procedures, eu tenho um programa só de funções e coloca ela lá e chamo de qualquer lugar ok.
Código: Selecionar todos
Function TravaJan
If !File("Controle.Ini")
Va:=FCreate("Controle.Ini",0)
FWrite(Va,"[ Arquivo de Controle do Sistema ]")
FClose(Va)
Else
Va:=FOpen("Controle.Ini",1)
If FError()<>0
Som()
Alert('O Sistema J Estar sendo Executado...Tecle [ENTER]')
Return(.F.)
Endif
Endif
Return(.T.)
Qdo o sistema e acionado pela primeira vez ele checa o Controle.Ini, e não permite que o sistema seja aberto mais de uma vez na mesma máquina. Eu tinha este problemas com um frente de loja, que as meninas do caixa eram desatenciosas, e abriam o sistema sem verificar que esle já estava aberto ok.
Se vc estiver trabalhando em rede, este controle tem que estar sendo gravado no C:\ de cada máquina, entendeu.
Espero ter colaborado, assim como me ajudaram qdo precisei.
Um forte abraço
Ricardo Sales
Fortaleza
Travar 2 execucoes do sistema clipper no xp
Enviado: 16 Nov 2004 11:31
por managercorp
Oi amigo a funcao travajan nao funciona o windows
xp, voce tem alguma ideia de como realizar este bloqueio
para que nao se acesse duas vezes o sistema
no ambiente xp
no 98 o travajan funciona beleza.