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
(entgültiges Löschen eines Memos über "CBDelete()"

aDelete:L

True= Memo als gelöscht markieren
False= Memo wiederherstellen

Beispiel

CODE

//******************************************************************************
//******************************************************************************
// 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

TBeMemoBO