DBResetDM()
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
CODE
| 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),