Index: APPS/VKP/VerzendDatumExceptions.cls.xml
===================================================================
diff -u -r29059 -r40781
--- APPS/VKP/VerzendDatumExceptions.cls.xml	(.../VerzendDatumExceptions.cls.xml)	(revision 29059)
+++ APPS/VKP/VerzendDatumExceptions.cls.xml	(.../VerzendDatumExceptions.cls.xml)	(revision 40781)
@@ -59,15 +59,18 @@
 Do ##class(APPS.VKP.VerzendDatumExceptions).VerplaatsKerst()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set Dag=$$INTDATE^vhLib.DataTypes("03/01/2013")
+	Set Dag=$$INTDATE^vhLib.DataTypes("03/01/2017")
 	Do ..DeleteDag(Dag)
-	Set sc=..AddSuppress(Dag,$LB("DI1","DI2"),4)
+	Set sc=..AddSuppress(Dag,$LB("DI1","DI2"),2)
 	If $$$ISERR(sc) Write "error in AddSuppress - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
-
+ /*
 	Set Dag=$$INTDATE^vhLib.DataTypes("24/12/2012")
 	Do ..DeleteDag(Dag)
 	Set sc=..AddAllow(Dag,$LB("DI1","DI2"),1)
 	If $$$ISERR(sc) Write "error in AddMove - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
+	*/
+	
+	Write "Klaar", !
 ]]></Implementation>
 </Method>
 
@@ -80,29 +83,47 @@
 <Implementation><![CDATA[
 	Set Dag=$$INTDATE^vhLib.DataTypes(Datum)-1
 	Do ..DeleteDag(Dag)
-	Set sc=..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3"),3)
+	Set sc=..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),3)
 	If $$$ISERR(sc) Write "error in AddSuppress - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
 
 	Set Dag=$$INTDATE^vhLib.DataTypes(Datum)
 	Do ..DeleteDag(Dag)
-	Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3"),4,Dag-1,"OD")
+	Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),4,Dag-1,"OD")
 	If $$$ISERR(sc) Write "error in AddMove - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
 ]]></Implementation>
 </Method>
 
+<Method name="VerwisselODWoensdagMetDonderdag">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WoensdagDate:%Date</FormalSpec>
+<Implementation><![CDATA[
+	Set Woensdag=$$INTDATE^vhLib.DataTypes(WoensdagDate)
+	Set Donderdag=$$INTDATE^vhLib.DataTypes(WoensdagDate)+1
+	
+	Do ..DeleteDag(Woensdag)
+	Do ..DeleteDag(Donderdag)
+	
+	Set sc=..AddMove(Woensdag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),3 /*=woensdag*/,Donderdag,"OD")
+	If $$$ISERR(sc) Write "error in AddMove - Dag:",Woensdag," -> ",$$ParseStatus^vhLib(sc),!
+	
+	Set sc=..AddMove(Donderdag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),4 /*=donderdagdag*/,Woensdag,"OD")
+	If $$$ISERR(sc) Write "error in AddMove - Dag:",Donderdag," -> ",$$ParseStatus^vhLib(sc),!
+]]></Implementation>
+</Method>
+
 <Method name="Create">
 <Description>
 Do ##class(APPS.VKP.VerzendDatumExceptions).Create()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set Dag=$$INTDATE^vhLib.DataTypes("08/05/2013")
 	Do ..DeleteDag(Dag)
-	Set sc=..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3"),3)
+	Set sc=..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),3)
 	If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
 
 	Set Dag=$$INTDATE^vhLib.DataTypes("09/05/2012")
 	Do ..DeleteDag(Dag)
-	Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3"),4,Dag-1,"OD")
+	Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),4,Dag-1,"OD")
 	If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
 ]]></Implementation>
 </Method>