TBeMemoBOCRMAction

Die Klasse TBeMemoBOCRMAction kapselt Eigenschaften und Funktionen für die CRM-Aktionen eines Memos.

Eigenschaften

Eigenschaft	Beschreibung
CRMAction.UserID:C	Be-UserNo, muss vor jeder Änderungs-Aktion (CBMarkAs...) gesetzt werden
CRMAction.IsCRMMemo:L	Handelt es sich bei dem Memo um ein CRM-Memo
CRMAction.IsReleased:L	Ist das CRM-Memo als "Verarbeitung Freigabe erteilt" markiert
CRMAction.IsProcessed:L	Ist das CRM-Memo als "verarbeitet" markiert
CRMAction.IsPreviewL	Ist das CRM-Memo eine CRM-Vorschau
CRMAction.IsCreatedFromTemplate:L	Ist das CRM-Memo aus einer Vorlage erstellt worden

Funktionen

Funktion	Parameter	Beschreibung
CRMAction.CanMarkAsReleased:L Kann das CRM-Memo als "Verarbeitung Freigabe erteilt" markiert werden
CRMAction.CanMarkAsUnreleased:L Kann das CRM-Memo als "keine Verarbeitung Freigabe erteilt" markiert werden
CRMAction.CanMarkAsManualProcessed:L Kann das CRM-Memo als "manuell verarbeitet" markiert werden
CRMAction.CBMarkAsReleased() CRM-Memo als "Verarbeitung Freigabe erteilt" markieren	aAddCRMActionID:L	(default) False = CRM-Aktions ID in History-Eintrag aufnehmen
CRMAction.CBMarkAsUnreleased() CRM-Memo als "keine Verarbeitung Freigabe erteilt" markieren	aAddCRMActionID:L	(default) False = CRM-Aktions ID in History-Eintrag aufnehmen
CRMAction.CBMarkAsManualProcessed() CRM-Memo als "manuell verarbeitet" markieren	aAddCRMActionID:L	(default) False = CRM-Aktions ID in History-Eintrag aufnehmen

Beispiel

CODE

//******************************************************************************
//******************************************************************************
// CRM-Memo Verarbeitungsstatus setzen
//******************************************************************************
//******************************************************************************

|oMemoBo|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
   oMemoBo.MemoID           := 1234, // MemoBO positionieren
   oMemoBo.WriteLastUsed    := False, 
   oMemoBo.CRMAction.UserID := c_usr,

   // Handelt es sich überhaupt um ein CRM-Memo? (aber keine Vorschau)
   // Und es gehört zur CRM-Aktion "987"
   if oMemoBo.CRMAction.IsCRMMemo and
      not oMemoBo.CRMAction.IsPreview and
      (oMemoBo.CRMActionIDValue = 987) then
      // Wenn noch keine "Verarbeitungs-Freigabe" erteilt wurde und
      // es überhaupt als "freigegeben" markiert werden kann
      if not oMemoBo.CRMAction.IsReleased and
         oMemoBo.CRMAction.CanMarkAsReleased() then
         oMemoBo.CBEdit(),
         oMemoBo.CRMAction.CBMarkAsReleased(True), // "Verarbeitungs-Freigabe" erteilen
         oMemoBo.CBPost(),
      endif,
   endif,
always,
   DestroyObject(oMemoBo),
stopseq,

Weitere Verknüpfungen

TBeMemoBO