Отправлено: 20.12.11 13:59. Заголовок: replace?

такой код
гдето в начале
REQUEST DBFCDX, DBFFPT
SET EXCLUSIVE OFF
далее
if file( 'myfile.dbf')
Use myfile alias myfileList
locate FOR AllTrim(Name)==cName
if found()
replace cvalue with '000'
endif
select('myfileList')
use
endif
дает ошибока dbfcdx/1022 Lock required
?

 Отправлено: 20.12.11 14:09. Заголовок: hairs пишет: дает о..

hairs пишет:

цитата:

дает ошибока dbfcdx/1022 Lock required

if Rlock()
replace .........
DBUnlock()
endif

 Отправлено: 20.12.11 14:57. Заголовок: спс вот только не по..

спс
вот только не понял что запись постоянно по обновлению блокировать придется?
чтото в примере только с аппендом такового не увидел

 Отправлено: 20.12.11 15:12. Заголовок: hairs пишет: чтото ..

hairs пишет:

цитата:

чтото в примере только с аппендом такового не увидел

DBAppend() сама блокирует добавляемую запись.

 Отправлено: 20.12.11 16:26. Заголовок: hairs пишет: вот то..

hairs пишет:

цитата:

вот только не понял что запись постоянно по обновлению блокировать придется?

Можно и не делать если задача однопользовательская.
Тогда SET EXCLUSIVE ON

PSP пишет:

цитата:

DBAppend() сама блокирует добавляемую запись

Да но проверка с NetErr() не помешает (или я совсем отстал).

 Отправлено: 20.12.11 16:57. Заголовок: Dima пишет: Да но п..

Dima пишет:

цитата:

Да но проверка с NetErr() не помешает (или я совсем отстал).

Ну, если в приложении наряду с блокировкой записей используются и блокировки файлов, то - да, не помешает.
Других вариантов, когда DBAppend() не сможет заблокировать ею же созданную запись, что-то не видится (или я плохо смотрю )...

 Отправлено: 20.12.11 17:09. Заголовок: PSP я о таком ;) ..

PSP
я о таком ;)

 
    PROCEDURE Main 
       USE Customer SHARED ALIAS Cust 
       SET INDEX TO Cust01, Cust02 
  
       Cust->( DbAppend() ) 
  
       IF NetErr() 
          ? "Unabled to append new record" 
       ELSE 
          ? "Fill data to new record" 
          REPLACE Cust->Firstame WITH "Paul" 
          REPLACE Cust->Lastname WITH "Newman" 
          DbCommit() 
          DbUnlock() 
       ENDIF 
  
       WAIT 
       Browse() 
  
       CLOSE Customer 
    RETURN 
 

PS
Проехали

 Отправлено: 20.12.11 18:34. Заголовок: Dima пишет: Проехал..

Dima пишет:

цитата:

Проехали

Почему?

 Отправлено: 20.12.11 18:36. Заголовок: Петр пишет: Почему?..

Петр пишет:

цитата:

Почему?

PSP и я друг друга поняли ;)

 Отправлено: 20.12.11 18:41. Заголовок: Dima пишет: PSP и я..

Dima пишет:

цитата:

PSP и я друг друга поняли ;)

А как же топикстартер? Что ему делать?

 Отправлено: 20.12.11 18:42. Заголовок: Петр пишет: А как ж..

Петр пишет:

цитата:

А как же топикстартер? Что ему делать?

Появятся вопросы у него , напишет а пока молчит

 Отправлено: 20.12.11 18:47. Заголовок: Что-то мне кажется, ..

Что-то мне кажется, что он скорее на грабли наступит

 Отправлено: 20.12.11 18:50. Заголовок: Петр пишет: Что-то ..

Петр пишет:

цитата:

Что-то мне кажется, что он скорее на грабли наступит

Так даже интереснее
Коли наступит , поведает нам а мы поможем.

 Отправлено: 21.12.11 11:58. Заголовок: Dima пишет: Можно и..

Dima пишет:

цитата:

Можно и не делать если задача однопользовательская. Тогда SET EXCLUSIVE ON

собственно данное файло используется как локальное, но если запускать несколько экземпляров прилады, я думаю что всетаки офф
но все равно чтото мне непонятно зачем запись блокировать требуется

 Отправлено: 21.12.11 12:56. Заголовок: hairs пишет: чтото ..

hairs пишет:

цитата:

чтото мне непонятно зачем запись блокировать требуется

Блокировка нужна, если файл открывается в режиме SHARED.