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