Отправлено: 24.10.08 13:19. Заголовок: ADS и удаленные записи

Помню была какая то тонкость.
Как правильно сказать ADS что бы он не показывал удаленные записи ?
Вот так не сработало.........

 
 REQUEST ADS 
 rddsetdefault("ADSCDX")  
 AdsSetServerType(2)  
 rddRegister("ADS",1) 
 AdsRightsCheck(.F.)  
 AdsSetFileType(ADS_CDX) 
 AdsSetCharType(2, .t.)  
 AdsLocking( .t. ) 
 Set delete on 
 

Проблема в Harbour и Xharbour.

 Отправлено: 24.10.08 13:56. Заголовок: ЗЫ MT режим !!!..

ЗЫ
MT режим !!!

 Отправлено: 24.10.08 14:27. Заголовок: Блин........... Функ..

Блин...........
Функция запущена в поток и юзает базы через ADS.
Set delete on не пашет.

Если вне потока то все нормально.
Как решить проблему ?
Юзается Harbour.

 Отправлено: 24.10.08 14:36. Заголовок: Ураааа ! Проблему ре..

Ураааа !
Проблему решил.
Этот код был в MAIN процедуре.
Перенес его в функцию которая работает в потоке
+ добавил AdsSetDeleted(.T.) и все заработало :)

 
  
 REQUEST ADS 
 rddRegister("ADS",1) 
 rddsetdefault("ADSCDX")  
 SET DELETED ON  
 AdsSetDeleted(.T.) 
 AdsSetServerType(2)  
 AdsRightsCheck(.F.)  
 AdsSetFileType(ADS_CDX) 
 REQUEST HB_CODEPAGE_RU1251 
 hb_SetCodepage("RU866") 
 REQUEST HB_LANG_RU866  
 HB_LANGSELECT("RU866") 
 AdsSetCharType(2, .t.)   
 AdsLocking( .t. )