DBResetDM() – Datenmodul in Ursprungszustand versetzen
Alle Tabellen im Datenmodul werden in ihren ursprünglichen Zustand versetzt.
-
der Bearbeitungs-Modus wird abgebrochen
-
alle Datensatz-Sperren werden aufgehoben
-
ein evtl. vorhandener Filter wird entfernt
-
ein evtl. gesetzter Scope/Range wird entfernt
-
der erste verfügbare Index wird aktiviert
|
Parameter |
Beschreibung |
|---|---|
|
oBeDbGet:O |
Objekt der Klasse TBeDbGet (Datenmodul) |
|
lRollback:L |
True - Aktive Transaktion des Datenmoduls wird abgebrochen
|
Rückgabewert
Keiner - Exception bei Fehler
Beispiel
| oDM, oDab010 |
// das Beispiel geht davon aus, dass es Artikel mit
// Artikel-Gruppe 1 oder 2 und Artikel ohne Artikelgruppen-Zuordnung gibt
oDM := CreateObject('TBeDbGet'),
startseq
WriteLn('-- Artikel-Gruppe 1/2 --'),
oDab010 := DbGetTable(oDM, waDAB010),
oDab010.IndexName := 'DAB013',
DBScope({1}, {2}, oDab010),
DBGoTop(oDab010),
while not EoF(oDab010) do
WriteLn(oDab010:BEZ2),
DBSkip(1, oDab010),
end,
DBResetDM(oDM), // der auf der Dab010 gesetzte Scope wird hier aufgehoben
WriteLn('-- Keine Artikel-Gruppe --'),
DBFilter('ARTGRUPPE = 0', oDab010),
WriteLn(oDab010:BEZ2),
onerror,
DBResetDM(oDM), // Im Fehlerfall wird das Datenmodul in den Ursprungszustand
// versetzt (wichtig, falls das Datenmodul in anderen
// Programmteilen weiter verwendet würde, o.ä.).
stopseq,
DestroyObject(oDM),
Weitere Verknüpfungen