Index: APPS/VKP/VerzendDatumExceptions.cls.xml =================================================================== diff -u -r53586 -r66034 --- APPS/VKP/VerzendDatumExceptions.cls.xml (.../VerzendDatumExceptions.cls.xml) (revision 53586) +++ APPS/VKP/VerzendDatumExceptions.cls.xml (.../VerzendDatumExceptions.cls.xml) (revision 66034) @@ -62,7 +62,7 @@ #dim Dag As %Date #dim DagNummerInWeek As %Integer - Set Dag=$$INTDATE^vhLib.DataTypes("03/01/2017") + Set Dag=$$INTDATE^vhLib.DataTypes("03/01/2022") Set DagNummerInWeek = ..GeefDagNummerInWeek(Dag) Do ..DeleteDag(Dag) Set sc=..AddSuppress(Dag,$LB("DI1","DI2"),DagNummerInWeek)