DbUnLockAll Function |
Namespace: XSharp.RT
1cLast := "Winston" 2USE sales SHARED NEW VIA "DBFNTX" 3Sales->DBSetIndex("salefnam") 4Sales->DBSetIndex("salelnam") 5USE colls SHARED NEW VIA "DBFNTX" 6Colls->DBSetIndex("collfnam") 7Colls->DBSetIndex("colllnam") 8IF Colls->DBSeek(cLast) 9 IF Colls->Deleted() 10 QOut("Record deleted: ", Colls->Deleted()) 11 IF Colls->RLock() 12 Colls->DBRecall() 13 QOut("Record recalled...") 14 ENDIF 15 ENDIF 16ELSE 17 QOut("Not found") 18 DbUnLockAll() // Remove all locks in 19ENDIF // all work areas