TBeSchedulerEventBusinessController

Die Klasse TBeSchedulerEventBusinessController kapselt Funktionen zur Ermittlung von Terminen und deren Rechte.

Funktionen

Funktion	Parameter	Beschreibung
CbCalcParticipantList:O Liefert eine Liste (TBeSchedulerEventParticipantList) aller Teilnehmer eines Termins zurück.	aEventBO:O	Positioniertes Termin BusinessObject (TbeSchedulerEventBO)
CbCalcUpcomingEventIDListForCurrentUser:O Liefert eine Liste (TBeSchedulerEventIDList) mit allen anstehenden Terminen des aktuellen Benutzers zurück.	aMaxCount:N	Maximale Anzahl der zukünftigen Termine
CbCalcUpcomingEventIDListByPersonnelID:O Liefert eine Liste (TBeSchedulerEventIDList) mit allen anstehenden Terminen für ein Personal zurück.	aPersonnellID:N	Personal-ID (Dab262:ID)
	aMaxCount:N	Maximale Anzahl der zukünftigen Termine
CbCalcUpcomingEventIDListByPersonnelIDAndStartDate:O Liefert eine Liste (TBeSchedulerEventIDList) mit allen anstehenden Terminen für ein Personal ab einem festen Zeitpunkt zurück. Damit lassen sich auch veraltete Termine abfragen.	aPersonnellID:N	Personal-ID (Dab262:ID)
	aMaxCount:N	Maximale Anzahl der zukünftigen Termine
	aStartDate:D	Datum des "Jetzt" Zeitpunktes, ab welchem die anstehenden Termine berechnet werden
CbCalcReadRight:N Berechnet die Leseberechtigung für einen Termin. 0 (serNone) - Keine Berechtigung 1 (serInfo) - Nur eingeschränkte Anzeige-Berechtigungen 2 (serFull) - Volle Berechtigungen 3 (serAbsence) - Nur Berechtigung zur Anzeige der Abwesenheit	aEventBO:O	Positioniertes Termin BusinessObject (TbeSchedulerEventBO)

Beispiel

CODE

//##############################################################################
//##############################################################################
// Beschreibung: TbeSchedulerEventBusinessController
//               BusinessController zur Ermittlung von Termin Informationen
//##############################################################################
//##############################################################################

| m_oSchedulerEventBO, m_oSchedulerEventBC |

function GetParticipantsForEvent(nEventID)
  |oList, i, oParticipant|

  m_oSchedulerEventBO.CbGotoID(nEventID),
  oList := m_oSchedulerEventBC.CbCalcParticipantList(m_oSchedulerEventBO),
  startseq
     writeln('Teilnehmer für Termin ' + Str(nEventID)),
     for i := 0 to oList.CbCount - 1 do
        oParticipant := oList.CbItem(i),
        writeln(oParticipant.CbDescription),
     next,
  always
     DestroyObject(oList),
  stopseq,
end,

function GetReadRightForEvent(nEventID)
  Result := '',
  m_oSchedulerEventBO.CbGotoID(nEventID),
  case m_oSchedulerEventBC.CbCalcReadRight(m_oSchedulerEventBO)
     of 0 :: Result := 'Keine Berechtigung',
     of 1 :: Result := 'Nur Infoansicht',
     of 2 :: Result := 'Volle Berechtigungen',
     of 3 :: Result := 'Nur Abwesenheitsanzeige',
  endcase,
end,

function GetUpcomingEventsForPerson(nPersID, dStartDate)
  |oList, i, oEventInfo|

  oList := m_oSchedulerEventBC.CbCalcUpcomingEventIDListByPersonnelIDAndStartDate(nPersID, 10, dStartDate),
  startseq
     writeln('Nächste Termine für Person-ID ' + Str(nPersID)),
     for i := 0 to oList.CbCount - 1 do
        oEventInfo := oList.CbItem(i),
        m_oSchedulerEventBO.CbGotoID(oEventInfo.CbEventID),
        writeln(m_oSchedulerEventBO.CbSubject),
     next,
  always
     DestroyObject(oList),
  stopseq,
end,

function GetMyUpcomingEvents()
  |oList, i, oEventInfo|

  oList := m_oSchedulerEventBC.CbCalcUpcomingEventIDListForCurrentUser(10),
  startseq
     writeln('Meine nächsten Termine '),
     for i := 0 to oList.CbCount - 1 do
        oEventInfo := oList.CbItem(i),
        m_oSchedulerEventBO.CbGotoID(oEventInfo.CbEventID),
        writeln(m_oSchedulerEventBO.CbSubject),
     next,
  always
     DestroyObject(oList),
  stopseq,
end,

//##############################################################################

m_oSchedulerEventBO := CreateObject('TbeSchedulerEventBO'),
m_oSchedulerEventBC := CreateObject('TbeSchedulerEventBusinessController'),
startseq
   m_oSchedulerEventBC.CbDataModule := m_oSchedulerEventBO.CbDataModule,
   GetParticipantsForEvent(10),
   writeln('Berechtigung:', GetReadRightForEvent(10)),
   GetUpcomingEventsForPerson(Lookup(waDab262, 'DAB263', <code>MBEUSERPERSNR</code>, 'ID'), Now()),
   GetMyUpcomingEvents(),
always
   DestroyObject(m_oSchedulerEventBO),
   DestroyObject(m_oSchedulerEventBC),
stopseq,

TBeSchedulerEventBusinessController

Funktionen

Beispiel

Weitere Verknüpfungen