VoDbCloseAll Function |
Namespace: XSharp.RT
1LOCAL rddList AS _RDDLIST 2... 3aRdds := {"CAVODBF", "DBFNTX"} 4n := ALen(aRdds) 5rddList := MemAlloc( (_SizeOf(DWORD)) + (n * _SizeOf(SYMBOL)) ) 6rddList.uiRddCount := n 7FOR i := 1 TO n 8 rddList.atomRddName[i] := SysAddAtomUpperA(aRdds[i]) 9NEXT 10VODBUseArea(TRUE, rddList, "sales", "sales", TRUE, FALSE) 11VODBOrdListAdd("Last", NIL) 12VODBUseArea(TRUE, rddList, "customer", "", TRUE, FALSE) 13MemFree(rddList) 14cLast := customer->last 15IF (Sales->(VODBSeek(cLast))) 16 IF Sales->(Deleted()) 17 IF RLock() 18 Sales->(VODBRecall()) 19 ? "Record deleted: ", sales; 20 (Deleted()) 21 ENDIF 22 ENDIF 23ELSE 24 ? "Not found" 25ENDIF 26VODBCloseAll() // Close all work areas