hallo Leo

hier den Code, den ich verwende:

let myFerienVon := Objekte.UnterbruchFerien.von; "/// hier,it sollen Ferien berücksichtigt werden";
let myFerienBis := Objekte.UnterbruchFerien.bis;
let myFerien := myFerienVon + " bis " + myFerienBis;
let mySTEP := Anzahl;
let mySTART := abDatum;
let Frage := dialog("ACHTUNG", "Planung generieren
für Objekt : " + Objekte.'Obj-ID' + "
Adresse : " + Objekte.ObjAdresse + "
ab Datum : " + mySTART + if myFerienVon != null then
"
Ferien : " + myFerien
end + "
" + "Step : " + mySTEP, ["ok", "zurück"]);
if Frage = "ok" then
do as server
let myDATE := date(2020, 10, 25); "/// Beginn Winterzeit - da keine Zeit zwischen 00:00 und 04:00 Zeit nicht berücksichtigt)";
let my1LAUF := 0;
let myNEXTDATE := abDatum; "/// Parameter von Tabelle 1: 1 Record enthält Abdatum, Frequenz, Wochentage und Weekendtage die berücksichtigt werden soll";
let mySTART := abDatum;
let myUSERSTART := abDatum;
let me := Objekte;
let myBEZ := Beschrieb;
let my := this;
let myEND := date(2021, 1, 14);
let myVON := WoVon;
let myBIS := WoBis;
let myWON := WeVon;
let myWBI := WeBis;
if myWON != null then myVON := myWON end;
if myWBI != null then myBIS := myWBI end;
"// User Schlaufe RK M:N TAbelle, die User enthält, die für den Termin eingesetzt werden ";
for i in select dummyPersonal where LKObjekt = my do
let myUSER := i.Kontakte.Benutzer;
mySTART := myUSERSTART;
"// Objekt";
"/// Job generieren";
let myTEST := 0;
while mySTART <= myEND do
let myJOB := (create Jobs);
myJOB.(Objekte := me);
myJOB.(LTF := me.LTF);
myJOB.(Bezeichnung := myBEZ);
myJOB.(Beschreibung = null);
myJOB.(Firmen := me.Firmen);
myJOB.(Kontakte := me.Kontakte);
myJOB.(Art := 1);
myJOB.(Startdatum := mySTART);
myJOB.(Startzeit := myVON);
myJOB.(Endzeit := myBIS);
"/// ohne diesen Zusatz sind die Termin ab 25.10.2020 falsch";
if myTEST = 0 then
myJOB.(Termin := appointment(datetime(mySTART, myVON), datetime(mySTART, myBIS)))
else
let myVONW := number(myVON) + 3600000;
let myBISW := number(myBIS) + 3600000;
myJOB.(Termin := appointment(datetime(mySTART - 1, myVONW), datetime(mySTART - 1, myBISW)))
end;
"/// Unterbruch / Ferien checken";
if myFerienVon != null and myFerienBis != null then
if myFerienVon <= mySTART and myFerienBis >= mySTART then
myJOB.(Status := 17)
else
myJOB.(Status := 1);
if mySTART < today() then myJOB.(Status := 6) end
end;
"///";
myJOB.(Benutzer := myUSER);
closeRecord();
mySTART := mySTART + mySTEP;
if mySTART >= myDATE and myTEST = 0 then
mySTART := mySTART + 1;
myTEST := 1
else
mySTART := mySTART
end
end
end

end;
if my1LAUF := 0 then
myNEXTDATE := mySTART + 7;
my1LAUF := 1
end;
abDatum := mySTART
end
end

LG

und nun habe ich ein weiteres Problem: Wenn ich die Daten öffne ist die Kalendansicht nur teilweise farblich und inhaltlich dargestellt. Muss dann auf Monat und dann wieder auf Woche switchen, um die richtige Darstellung zu haben (zweiter Bild).

Auch wenn ich andere Tabellen verwende und dann den Kalender aufrufe, muss ich switchen.

In der Kalendar Übersicht werden die Termine farblich nicht richtig angezeigt bzw garnicht ausgefüllt. Da muss ich