lockList est une ASRecordLockCollection
monObjet est un ASRecordLock
nb est un entier
Sablier(Vrai)
SI AsRecordLocks(lockList,"SP_CUST","*LIBL","*FIRST",PrinciConnexion) ALORS
nb = lockList.CollectionASRecordLock..Occurrence
POUR nIndice= 1 A nb
monObjet = lockList.CollectionASRecordLock[nIndice]
TableauAjoute(gtabAsRecordLock, monObjet)
FIN
FIN
TableAffiche(TABLE_recordlocks)
Sablier(Faux)