Clipper On Line • Ver Tópico - Problemas com DbUseArea() e NetErr()

Problemas com DbUseArea() e NetErr()

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

Problemas com DbUseArea() e NetErr()

Mensagempor Grings » 13 Dez 2005 16:40

Uso a seguinte rotina para não permitir a abertura do sistema duas vezes:

DbUseArea(´.F.´,NIL,´STATUS.DBF´,NIL,NIL,.T.)
If NetErr()
Alert(´......´)
Quit
Else
.....
EndIf

Ocorre que as vezes falha, quando entra a proteção de tela e o ícone vai para barra de tarefas ocorre a falha, não é sempre.

Alguma dica do que pode estar ocorrendo ?
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 366
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Daniel » 13 Dez 2005 17:14

Troque o ultimo nil por .f. que é modo exclusivo.

DbUseArea(.F.,NIL,'STATUS.DBF',NIL,.F.,.T.)
If NetErr()
Alert('......')
Quit
Else
.....
EndIf
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 353
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 28 vezes

Mensagempor Grings » 13 Dez 2005 17:26

Não adiantou, após algumas tentativas, maximizando e minimizando janelas, e tentando abrir novamente o sistema abre várias vezes.
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 366
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Mensagempor Daniel » 14 Dez 2005 07:06

este tipo de proteção so funciona se vc nao fechar os arquivos dbf.

exemplo:
se vc usar 'close all' ou 'close databases' ja quebra a sua potreção.
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 353
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 28 vezes

Mensagempor Grings » 14 Dez 2005 07:31

É isso mesmo Daniel, o erro acontece com DbCloseAll(). Valeu!
Grings
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 366
Data de registro: 18 Ago 2004 13:51
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Problemas com DbUseArea() e NetErr()

Mensagempor alexlucc » 07 Jun 2018 20:48

Estou usando exatamente essa função para a mesma finalidade, mais ela está dando erro. Onde estou errando alguém poderia me ajudar .... segue o erro em anexo.

ArqD := GetEnv("computername")//+".DBF"

If !File(ArqD+".dbf")
Estr:={}
AADD(Estr,{"CODIGO" ,"C",05,0})
DbCreate("&ArqD",Estr)
endif

dbUseArea(.T.,NIL,"&ArqD",NIL,.F.,.F.)

Alert("SISTEMA NAO PODE SER ABERTO MAIS DE UMA VEZ NA MESMA MAQUINA !!!")
Quit
If NetErr()
Alert('O programa ja esta aberto em outra janela! Pressione qualquer tecla e, apos, maximize-o, com o mouse, na barra de tarefas...', )
Quit
Else
Use &ArqD New
EndIf
Anexos
erro.png
alexlucc
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 13 Nov 2016 18:19
Cidade/Estado: Nova Iguaçu /rj
Curtiu: 2 vezes
Mens.Curtidas: 1 vez

Problemas com DbUseArea() e NetErr()

Mensagempor Jairo Maia » 07 Jun 2018 21:31

Tem um caractere não permitido para o nome do .DBF, a saber o hífen: "-". Você tem que tratar isso.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2088
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 231 vezes
Mens.Curtidas: 204 vezes

Problemas com DbUseArea() e NetErr()

Mensagempor alexlucc » 07 Jun 2018 23:28

Obrigado Jairo, vou usar o strtran e ver se resolve.
alexlucc
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 13 Nov 2016 18:19
Cidade/Estado: Nova Iguaçu /rj
Curtiu: 2 vezes
Mens.Curtidas: 1 vez

Problemas com DbUseArea() e NetErr()

Mensagempor alexlucc » 07 Jun 2018 23:50

Resolvido Jairo !!!, Obrigado mais uma vez.

ArqD := strtran(GetEnv("computername"),"-"
alexlucc
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 13 Nov 2016 18:19
Cidade/Estado: Nova Iguaçu /rj
Curtiu: 2 vezes
Mens.Curtidas: 1 vez




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Bing [Bot] e 6 visitantes


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro