TBeMemoBOMarkAsRead

Die Klasse TBeMemoBOMarkAsRead kapselt Eigenschaften und Funktionen für den Gelesen-Status eines Memos.

Eigenschaften

Eigenschaft	Beschreibung
MarkAsRead.IsRead:L	True=Memo ist für die eingestellte UserID als gelesen markiert
MarkAsRead.UserID:C	Be-UserNo, muss vor Abfrage / Methodenaufruf eingestellt werden
MarkAsRead.WriteMemoHistory:L	(default) True=History-Eintrag bei Änderung schreiben

Funktionen

Funktion	Beschreibung
MarkAsRead.CBMarkAsRead()	Memo gelesen markieren
MarkAsRead.CBMarkAsUnread()	Memo ungelesen markieren

Beispiel

CODE

//******************************************************************************
//******************************************************************************
// Memo als gelesen markieren
//******************************************************************************
//******************************************************************************

|oMemoBo|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
   oMemoBo.MemoID := 1234, // MemoBO positionieren
   oMemoBo.MarkAsRead.UserID := c_usr,
   oMemoBo.MarkAsRead.WriteMemoHistory := True,

   // Nur wenn das Memo für den User noch nicht als gelesen markiert ist
   if not oMemoBo.MarkAsRead.IsRead then
      oMemoBo.CBEdit(), // Edit-Modus
      oMemoBo.MarkAsRead.CBMarkAsRead(), // Memo gelesen markieren
      oMemoBo.CBPost(), // Änderung speichern
   endif,
always,
   DestroyObject(oMemoBo),
stopseq,

Weitere Verknüpfungen

TBeMemoBO