NAO PERMITIR ABRIR O SISTEMA DUAS VEZES

[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.

[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

Código: Selecionar todos

If TravaJan()=.F.
   Return
Endif

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

[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.