Como saber se meu sistema em clipper ja esta aberto

[Clipper]

Prezado Janio

Eu também abro e fecho meus DBF´s conforme vou usando, utilizo a TRAVAJAN() tranquilamente, porém neste caso você não poderá usar DBCLOSEALL() ou CLOSE ALL, você terá que fechar os arquivos individualmente com DBCLOSE().

Até logo.

Marcelo

[Vander]

A função é a do amigo clipper, porém não é a versão para XP e eu abro e fecho os arquivos DBF a cada módulo de acordo com a necessidade e funciona perfeitamente.

Aqui esta a função

Código: Selecionar todos

*---------------------------------------------------------------*
* Esta fun‡Æo impede que um sistema seja aberto mais de uma vez *
* fa‡a a cahamada dela no inicio do sistema                     *
* Exemplo                                                       *
* IF TRAVAJAN()=.F.                                             *
*    //Sai do sistema
*    QUIT // Ou RETURN  
* ENDIF
*                                                               *
*---------------------------------------------------------------*
*-----------------*
 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
      CLS
      @ 02,00 SAY "O Sistema ja esta sendo executado..."
      @ 03,00 SAY STRZERO(FERROR(),3)
      @ 04,00 SAY STRZERO(VA,3)
      @ 05,00 SAY REPLICATE("=",40)
      RETURN(.F.)
   ENDIF
ENDIF
RETURN(.T.)

[Vander]

A função é a do amigo clipper, porém não é a versão para XP e eu abro e fecho os arquivos DBF a cada módulo de acordo com a necessidade e funciona perfeitamente.

Aqui esta a função

Código: Selecionar todos

*---------------------------------------------------------------*
* Esta fun‡Æo impede que um sistema seja aberto mais de uma vez *
* fa‡a a cahamada dela no inicio do sistema                     *
* Exemplo                                                       *
* IF TRAVAJAN()=.F.                                             *
*    //Sai do sistema
*    QUIT // Ou RETURN  
* ENDIF
*                                                               *
*---------------------------------------------------------------*
*-----------------*
 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
      CLS
      @ 02,00 SAY "O Sistema ja esta sendo executado..."
      @ 03,00 SAY STRZERO(FERROR(),3)
      @ 04,00 SAY STRZERO(VA,3)
      @ 05,00 SAY REPLICATE("=",40)
      RETURN(.F.)
   ENDIF
ENDIF
RETURN(.T.)

[Marcos]

Também utilizo a Função do amigo Marcelo que funciona perfeitamente, atendendo minhas necessidades.
Abraços,
Marcos.