DbServer.RLockList Property |
|
Namespace: VO
1CLASS Sales INHERIT DBServer 2... 3METHOD ProcessLocked() CLASS Sales 4LOCAL siCount AS SHORTINT 5FOR siCount := 1 UPTO ALen(SELF:RLockList) 6SELF:GoTo(RLockList[siCount]) 7// Process record 8NEXT 9SELF:Unlock() // Release all locks