Analisando um pouco...
scom escreveu:IF CONF='S'
APPEND BLANK
IF REG_LOCK() // FUNÇÃO PARA TRAVAR O REGISTRO
Aqui há dois detalhes relevantes em rede:
1. Quando é executado o APPEND BLANK, deverá ser precedido com o NETERR() para verificar se o adicionamento de registro em branco foi feito com sucesso. Pois o arquivo DBF em questão, poderia estar bloqueado, ora seja por outro terminal ou por este em outra instância. Ora seja por terem utilizado o FLOCK() ou o uso EXCLUSIVE do DBF. Mas é necessário a utilização do NETERR() para ter certeza que o adicionamento de registro em branco foi realizada com sucesso.
2. A utilização de REG_LOCK() do colega SCOM, que bloqueia registro, é totalmente desnecessária, pois o APPEND BLANK bloqueia automáticamente o novo registro, e é desbloqueado somente apenas quando é utilizado o comando UNLOCK ou até mesmo fazendo outro RLOCK() na mesma area. Portanto a utilização do FLOCK() após ou antes do APPEND BLANK, estaria redundante e a sua utilização poderia estar provocando o erro, isto é, estaria sendo testado duas vezes o bloqueio, e seria este uma das causas que FAZ o APPEND e não faz o bloqueio do registro (provocando os registros em branco). Sei Maligno que você defende a tese que se utiliza o RLOCK() ele volta .T. (porque é a mesma instância) mesmo após de um APPEND BLANK... (concordo, com a sua tese) mas na prática eu tenho minhas dúvidas (por lei de Murphy).
Não sei se os colegas alguma vez passaram por esta situação, mas comigo ja aconteceu que mesmo que todos os terminais estarem fora do aplicativo, os sistema dizer para apenas UM terminal, que aquele arquivo estava aberto e que não poderia ser aberto nesse momento. Nesse acontecimento, verifiquei se tinha alguma janela minimizada e verifiquei TODAS as estações. O jeito foi desligar o servidor... pode ?. Por isso, guardo as minhas ressalvas... Não acredito 100% de seguridade nos DBFs, assim como a outra questão que foi levantada pelo Maligno, também acho muito passível de acontecer, isso de ter que RECRIAR o arquivo DBF, principalmente se o BD foi feito com outro aplicativo que não tenha sido em Clipper puro.
Um bom exemplo foi do Marcelog:
Código: Selecionar todos
IF LASTKEY()<>27
IF PERGUNTA("Confirma inclusão ?")="S"
SELE 1 // Eu utilizaria isto para garantir que está na área correta
APPEND BLANK
IF !NetErr()
REPLACE A_DESC WITH DESC
REPLACE A_MARC WITH MARC
REPLACE A_APLI WITH APLI
DBCommit() // E o uso do COMMIT indicado pelo Eolo, é bom
Unlock
ENDIF
ENDIF
ENDIF
A utilização do EXCLUSIVE, muito casualmente é utilizado, porém desaconselhado em rede. Também o modo READONLY, também ajudaria nos casos indicados para elaboração de relatórios no qual não haja necessidade de gravação no DBF, é claro.
Por isso, é muito conveniente utilizar-se de funções de tratamento em rede, assim como: ABREARQ(), ADIREG(), BLOQREG(), BLOQARQ().
Mas a utilização do FLOCK() para inclusão de registros... não o vejo com bons olhos... em rede ?... ummmm (e não me refiro tão somente ao comentário do Maligno, que ora tenha reconhecido de ter trocado na menção de FLOCK() para RLOCK(), digo isto porque foi mencionado anteriormente).
No entanto Maligno, quando você percebeu seu erro você RE-EDITOU sua mensagem. Sei isto porque no rodapé da sua mensagem, o sistema do FORUM menciona:
Editado pela última vez por Maligno em 20 Maio 2007 23:23; num total de 1 vez
Mas seria bom Maligno, que você faça uma ressalva abaixo (digamos colocando um asterisco) em cada RLOCK() que você REDITOU. Pois daqui algum tempo, fica meio confusso o entendimento no seu conteúdo total, ora porque você adicionou uma nova mensagem dizendo:
Poxa! Agora que vi. Eu estava me referindo ao FLock() quando na verdade eu deveria me referir ao RLock().
Evidentemente que após a sua RE-EDIÇÃO todos os FLOCK() SUMIRAM (embora do Eolo, ainda não)... hehe Ou então APAGAR essa sua ultimas mensagens que você acusa o erro cometido...(e deixar as mensagens como se não tivesse ocorrido erro algum) Sei lá... só sei que eu ví tanta confusão e decidí RE-COMPILAR todas as observações dos colegas... mas agora que vejo que foi corrigida... que confusão !! hehe, isto as vezes acontece.
Obs.: Por falar em Maligno, onte a noite na A&E Mundo, passaram o filme "AUSTIN POWERS" onde o Dr. Evil ("o Maligno"), conhecido também como Dr. Perverso.... hehe não dá para não lembrar de você Paulo.... hehehe mas este se deu mal... ficou na órbita do espaço (congelando-se junto ao seu gato)... é um barato !
Um clip-abraço :)Pos
))))