TBeMemoBOMarkAsDeleted
Die Klasse TBeMemoBOMarkAsDeleted kapselt Eigenschaften und Funktionen um ein Memo als gelöscht zu markieren.
Eigenschaften
|
Eigenschaft |
Beschreibung |
|---|---|
|
MarkAsDeleted.IsDeleted:L |
True=Memo ist als gelöscht markiert |
|
MarkAsDeleted.UserID:C |
Be-UserNo, muss vor Abfrage / Methodenaufruf eingestellt werden |
Funktionen
|
Funktion |
Parameter |
Beschreibung |
|---|---|---|
|
MarkAsDeleted.CbMarkAsDeleted() Memo als gelöscht markieren bzw. wiederherstellen
|
aDelete:L |
True= Memo als gelöscht markieren
|
Beispiel
//******************************************************************************
//******************************************************************************
// Memo als gelöscht markieren
//******************************************************************************
//******************************************************************************
|oMemoBo|
oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
oMemoBo.MemoID := 1234, // MemoBO positionieren
oMemoBo.WriteLastUsed := False,
oMemoBo.MarkAsDeleted.UserID := c_usr,
// Nur wenn das Memo noch nicht als gelöscht markiert ist
if not oMemoBo.MarkAsDeleted.IsDeleted then
oMemoBo.CbEdit(), // Edit-Modus
oMemoBo.MarkAsDeleted.CbMarkAsDeleted(True), // Memo gelöscht markieren
oMemoBo.CbPost(), // Änderung speichern
endif,
always,
DestroyObject(oMemoBo),
stopseq,
Weitere Verknüpfungen