DbCloseAll Function |
Namespace: XSharp.RT
1cLast := "Winston" 2DBUseArea(TRUE, "DBFNTX", "sales", "Sales", TRUE) 3Sales->DBSetIndex("salefnam") 4Sales->DBSetIndex("salelnam") 5DBUseArea(TRUE, "DBFNTX", "colls", "Colls", TRUE) 6Colls->DBSetIndex("collffnam") 7Colls->DBSetIndex("colllnam") 8// Select "Sales" work area 9IF (Sales->DBSeek(cLast)) 10 IF Sales->Deleted() 11 IF Sales->RLock() 12 Sales->DBRecall() 13 QOut("Record deleted: ", Sales->Deleted()) 14 ENDIF 15 ENDIF 16ELSE 17 QOut("Not found") 18ENDIF 19DBCloseAll() // Close all work areas