PC Toledo

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?

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.

Aproveitando este post....

No Clipper o PACK eventualmente gerava registros dupllicados.
No Harbour isto acontece?

Boa pergunta, alguém sabe responder?

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