Estou migrando um sistema para harbour, e algumas linhas possui o comando pack
Quando o pack é executado apresenta a mensagem de erro Uso exclusivo requerido
Foi alguma coisa que esqueci?
Comando pack no harbour
Moderador: Moderadores
-
Pablo César
- Usuário Nível 7
- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
Comando pack no harbour
Como em Clipper, a utilização do comando PACK deve ser usado em modo EXCLUSIVO. Se você abriu o seu DBF em modo SHARED irá dar esta mensagem ou se você não colocou SET EXCLUSIVE ON.
Para garantir a utilização do PACK, abra USE <DBF> EXCLUSIVE e não dará mais esta mensagem.
Mas lembre, esta utilização não é aconselhada quando o programa é executado em uma rede. Pois ai terá que abrir em modo SHARED. Então o Pack, aconselha-se só vir a ser utilizado em momento de manutenção onde todos os termnais deverão sair do programa.
Para garantir a utilização do PACK, abra USE <DBF> EXCLUSIVE e não dará mais esta mensagem.
Mas lembre, esta utilização não é aconselhada quando o programa é executado em uma rede. Pois ai terá que abrir em modo SHARED. Então o Pack, aconselha-se só vir a ser utilizado em momento de manutenção onde todos os termnais deverão sair do programa.
Um clip-abraço !
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Comando pack no harbour
Aproveitando este post....
No Clipper o PACK eventualmente gerava registros dupllicados.
No Harbour isto acontece?
No Clipper o PACK eventualmente gerava registros dupllicados.
No Harbour isto acontece?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Comando pack no harbour
Boa pergunta, alguém sabe responder?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
rosalvo rosa
- Usuário Nível 3
- Mensagens: 156
- Registrado em: 10 Jan 2006 19:21
- Localização: Curitiba - PR
Comando pack no harbour
Boa tarde amigos!
Quando utilizo o comando Pack fecho o arquivo e abro novamente, conforme o Pablo comentou, no modo Exclusive.
Apenas para salientar, deve-se verificar se não tem ninguém usando o arquivo na rede, para isso eu uso o comando NetErr() antes:
Use Arquivo.dbf Exclusive Index a, b, c New
If !NetErr()
pack
EndIf
Caso alguém tenha o arquivo aberto ao mesmo tempo, o comando pack não será processado.
Abraços
Quando utilizo o comando Pack fecho o arquivo e abro novamente, conforme o Pablo comentou, no modo Exclusive.
Apenas para salientar, deve-se verificar se não tem ninguém usando o arquivo na rede, para isso eu uso o comando NetErr() antes:
Use Arquivo.dbf Exclusive Index a, b, c New
If !NetErr()
pack
EndIf
Caso alguém tenha o arquivo aberto ao mesmo tempo, o comando pack não será processado.
Abraços