Skip to main content
Skip table of contents

AdsGetUserLocks()


AdsGetUserLocks() - Eigene Satzsperren einer ADS-Tabelle ermitteln



Die Funktion ermittelt alle eigenen Satzsperren eines speziellen ADS-Tabellen-Objekts.
Insbesondere in Transaktionen können mit dieser Funktion alle in der Transaktion veränderten Sätze ermittelt werden.


ParameterBeschreibung

oTable:O

Tabellen-Objekt, für welches die Satzsperren ermittlen werden sollen


Rückgabewert

Array im Format: { Gesperrte Satz-Nr. 1, ..., Gesperrte Satz-Nr. n }

Beispiel


CODE
| oDM, oDab000, oDab010 |

function ShowLockedRecors()
   | aTables, aLocks, oTable, i, k |

   aTables := AdsGetConnectTables(oDM.AdsConnection),

   for i := 1 to 5 do
      oDab000.CbEdit(),
      oDab000.CbPost(),
      oDab000.CbNext(),
   next,

   for i := 1 to 5 do
      oDab010.CbEdit(),
      oDab010.CbPost(),
      oDab010.CbNext(),
   next,

   for i := 1 to ALen(aTables) do
      oTable := aTables[i],
      WriteLn(oTable.AliasName),
      aLocks := AdsGetUserLocks(oTable),
      for k := 1 to ALen(aLocks) do
         oTable.CbGoTo(aLocks[k]),
         if oTable.WorkArea = waDAB000 then
            WriteLn('     ' + Str(oTable:KDNR)),
         else
            WriteLn('     ' + oTable:ARTNR),
         endif,
      next,
   next,

end,

oDM     := CreateObject('TBeDBGet'),
oDab000 := DBGetTable(oDM, waDAB000),
oDab010 := DBGetTable(oDM, waDAB010),

DBStartTrans(oDM.AdsConnection),
startseq,
   WriteLn('Transaktion aktiv'),
   ShowLockedRecors(),
   DBCommit(oDM.AdsConnection),
onerror,
   DBRollBack(oDM.AdsConnection),
   Raise(),
stopseq,

WriteLn('Transaktion nicht aktiv'),
ShowLockedRecors()
JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.