Skip to main content
Skip table of contents

TBeVacationBusinessController

TBeVacationBusinessController

Die Klasse TBeVacationBusinessController stellt Funktionen zur Ermittlung von Urlaubs-Informationen für BDE-Personen bereit.

Funktionen

Funktion ParameterBeschreibung

CbCreateVacationInfoMemTable

Erstellt eine MemTable mit der benötigten Struktur für CbCalcVacationInfosForUsers()

aOwner:OOwner auf welchem die MemTable erstellt werden soll

CbCalcVactionInfo

Ermittelt für eine Person deren Urlaubs-Informationen
siehe TBeVacationInfoItem

aPersNo:NPersonal-Nummer

CbCalcVactionInfoForDate

Ermittelt für eine Person zum übergebenen Zeitpunkt deren Urlaubs-Informationen

aPersNo:NPersonal-Nummer
aDate:DDatum für welches die Urlaubs-Informationen ermittelt werden sollen

CbCalcVacationInfosForUsers

Ermittelt für mehrere Personen die Urlaubs-Informationen und stellt diese in einer MemTable zur Verfügung




aMemTable:O

MemTable
(kann mit CbCreateVacationInfoMemTable() erstellt werden)

aOnlyPersNos:Cper '/' getrennte Liste von Personal-Nummern für welche die Informationen ermittelt werden sollen. Leere Eingabe entspricht allen Personen
aIgnorePersNos:Cper '/' getrennte Liste von Personal-Nummern für welche KEINE Informationen ermittelt werden sollen.
aDate:DDatum für welches die Urlaubs-Informationen ermittelt werden sollen

Beispiel

CODE
|oDM, oVacationBC, oVacationInfo, oMemTable|

oDM         := CreateObject('TBeDbGet'),
oVacationBC := CreateObject('TBeVacationBusinessController'),
startseq
   oVacationBC.CbDataModule := oDM,

   // Urlaubs-Information für User 2 ermitteln
   oVacationInfo := oVacationBC.CbCalcVactionInfo(2),
   startseq
      writeln('Urlaub für dieses Jahr: ' + Str(oVacationInfo.CbTotalDays) + ' (Resturlaub vom letzten Jahr ' + Str(oVacationInfo.CbRemainingDaysFromLastYear) + ' Tag/e)'),
      writeln('Resturlaub für dieses Jahr: ' + Str(oVacationInfo.CbRemainingDays)),
      writeln('Bereits genommener Urlaub: ' + Str(oVacationInfo.CbConsumptDays)),
      writeln('Bereits geplanter Urlaub: ' + Str(oVacationInfo.CbScheduledDays)),
   always
      Destroyobject(oVacationInfo),
   stopseq,

   // Urlaubs-Information für Benutzer 1 bis 9 ermitteln
   oMemTable := oVacationBC.CbCreateVacationInfoMemTable(oDM),
   startseq
      oVacationBC.CbCalcVacationInfosForUsers(oMemTable, '1/2/3/4/5/6/7/8/9', '', Now()),
      Browse(, oMemTable),
   always
      DestroyObject(oMemTable),
   stopseq,
always
   DestroyObject(oVacationBC),
   DestroyObject(oDM),
stopseq,

Weitere Verknüpfungen


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.