GeMIS_WEB/GUI/Tools/KalenderFuellen.p

def var ddatum as date format "99.99.9999".
def var wotag as int.

ddatum = today.

do while true:
    wotag = WEEKDAY(ddatum).
    if wotag = 1 OR wotag = 7 then do:
        FIND Kalender NO-LOCK 
            WHERE Kalender.Firma = '1000'
            AND   Kalender.Ereignisdatum = DATETIME-TZ(ddatum) NO-ERROR.
        IF NOT AVAILABLE Kalender THEN DO:
        CREATE  Kalender.
        assign  Kalender.Firma         = '1000'
                Kalender.EreignisDatum = DATETIME-TZ(dDatum)
                Kalender.Bez           = (IF wotag = 7 THEN 'Samstag' ELSE 'Sonntag')
                Kalender.Zeitspanne = 'FD'.
        END.
    end.
    ddatum = ddatum + 1.
    if year(ddatum) = 2050 then leave.
end.