Jump to content
Fivewin Brasil

Funcao NetErr()


elitenet

Recommended Posts

Caros Amigos

Existe alguma funcao no FiveWin equivalente a funcao

NetErr()do clipper ou macete para que quando se use esta funcao o uso processador no Windows 2000, XP o processador atinja 100% de uso.

Pois o meu problema e que quando um arquivo esta em uso exclusivo e outro terminal tenta acessa-lo o sistema fica em um Do While testando se foi liberado ai o processador vai a 100% e trava a maquina.

Ex:

1) Terminal

Use Cliente Exclusive

2) Terminal

Use Cliente

If NetErr()

Do While NetErr()

Use Cliente

SysRefresh()

EndDo

EndIf

O Terminal 2 e para ficar o sistema travado ate a liberacao do terminal 1, mas o problema e que neste DO WHILE o processador vai a 100% e trava o Windows também.

O que eu quero fazer e fazer com que o sistema espere, mas nao trave o Windows.

Marcelo Gomes

elitenet@terra.com.br

Muriaé - MG

FW 2.3C/CLIPPER 5.2E/BLINKER 7.0

Link to comment
Share on other sites

Ola. Experimente fazer assim:

IF !NETERR()

IF !DBRLOCK()

MsgInfo( "Arquivo ARQUIVO.DBF Não Disponivel", "Informação" )

ELSE

// O que voce quer fazer....

/*

APPEND BLANK

REPLACE CODIGO WITH cCodigo

UNLOCK ALL

COMMIT

*/

ENDIF

ELSE

MsgInfo( "Arquivo ARQUIVO.DBF Não Pode Ser Aberto", ;

"Erro de Abertura" )

ENDIF

// Mude para o seu estilo...

// Ps.: Se você tiver o LIVRO DO VILIAN, de uma olhada nele, que voce vai entender como travar o arquivo. Abraços.

Bad Boy - The HuntsMan Of E.A.J. Automação Comercial.

kapiaba@brfree.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites

Caro Amigo

O que eu quero com esta rotina e que o sistema fique aguardando a liberacao do arquivo, e nao trava-lo?

Ex: Um terminal entra usando um arquivo em modo exclusivo e um outro terminal tenta usar o arquivo ai o que eu faço:

Eu pergunto ao usuario se ele deseja aguardar a liberacao do arquivo e sim ele utiliza o DO WHILE que eu coloquei, mas o que eu quero evitar e que quando neste DO WHILE o windows trave por causa do processado atingir 100% de uso.

Marcelo Gomes

elitenet@terra.com.br

Muriaé - MG

FW 2.3C/CLIPPER 5.2E/BLINKER 7.0

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...