PC Toledo

Enviado: **19 Nov 2004 11:56**

Peguem abaixo a versão da TRAVAJAN() que funciona também no XP.

http://geocities.yahoo.com.br/mmendeso/tvjanxp.zip

Até logo.

Marcelo

Enviado: **19 Nov 2004 12:22**

Amigo Marcelo,

Tô com um problema aki crônico... rs... não sei se sou o único...

é que eu não posso baixar nenhum arquivo... tipo ZIP, EXE, COM, etc... etc... tem um tal sistema aki que bloqueia...

Dá pra disponibilizar estes arquivos com uma extensão diferente, tipo TVJANXP.ZI_ ?

Janio

Enviado: **19 Nov 2004 14:43**

Pega ele na integra aí...

Basta copiar e colar.

Código: Selecionar todos

CLS
NOME=SPACE(50)

TRAVA=TRAVAJANXP()
IF TRAVA=.F.
   RETURN
ENDIF

@ 05,00 SAY "NOME -> " GET NOME PICT "@!"
READ
RETURN

*-------------------*  
 FUNCTION TRAVAJANXP  
*-------------------* 
IF .NOT. FILE("CONTROLE.INI")
   aStructure := {} 
   aAdd( aStructure,{"CONTROL","C",1,0})
   dbCreate( "CONTROLE.INI",aStructure)
   USE CONTROLE.INI EXCLUSIVE
ELSE
   USE CONTROLE.INI EXCLUSIVE
   IF NETERR()
      CLS
      @ 02,00 SAY "O Sistema ja esta sendo executado nesta estacao"
      @ 03,00 SAY STRZERO(FERROR(),3)
      @ 04,00 SAY REPLICATE("=",50)
      INKEY(0)
      RETURN(.F.)
   ENDIF
ENDIF
// LEMBRAR DE NO FINAL DO SITEMA FECHAR O ARQUIVO 
// OBVIAMENTE QU SE VOCE USAR UM DBCLOSEALL() NAO PRECISA SE PREOCUPAR
RETURN(.T.)

Até logo.

Marcelo

PC Toledo

Travajan Agora para XP - Seus problemas se acabaram-se !!!

Travajan Agora para XP - Seus problemas se acabaram-se !!!