Aufruf: Betriebskalender DATUM + TAGE

DATE = Betr_Kal(_lv_qsv_ART AS ?Variant , _lv_qsv_DATUM AS ?Variant , _lv_qsv_ARBTAGE AS ?Variant , _lv_qsv_KALTYP AS ?Variant , _lv_qsv_DUMMY AS ?Variant)

Rückgabe: Betriebskalender DATUM + TAGE

Rückgabe der Funktion: DATE

Code: Betriebskalender DATUM + TAGE

PROCEDURE Betr_Kal (_lv_qsv_ART, _lv_qsv_DATUM, _lv_qsv_ARBTAGE, _lv_qsv_KALTYP, _lv_qsv_DUMMY) AS DATE
	LOCAL lvReturn
	_VFP.AUTOYIELD = .F.
	lvReturn = My.Functions.Datum.DaysFromDateWd(m._lv_qsv_KALTYP,m._lv_qsv_DATUM,m._lv_qsv_ARBTAGE,m._lv_qsv_ART)
	_VFP.AUTOYIELD = .T.
	RETURN m.lvReturn
ENDPROC