Index: APPS/VKP/VerzendDatumExceptions.cls.xml
===================================================================
diff -u -r40781 -r53578
--- APPS/VKP/VerzendDatumExceptions.cls.xml	(.../VerzendDatumExceptions.cls.xml)	(revision 40781)
+++ APPS/VKP/VerzendDatumExceptions.cls.xml	(.../VerzendDatumExceptions.cls.xml)	(revision 53578)
@@ -111,6 +111,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WijzigODvan1Nov2018">
+<Description>
+Voor OD Ma-Wo moet de woensdag (31 okt) vrijgemaakt worden, want de OD donderdag (01 nov) zal 1 dag vroeger geplaatst worden. 
+Oproepen via : 
+	Do ##class(APPS.VKP.VerzendDatumExceptions).WijzigODvan1Nov2018() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Dag1Nov As %String = "01/11/2018"
+	#dim Dag31okt As %String = "31/10/2018"
+	#dim Dag As %Date
+	
+	// "OD woensdag" (31 okt 2018) valt weg, en zal dus automatisch op de volgende OD komen, namelijk maandag. 
+	Set Dag=$$INTDATE^vhLib.DataTypes(Dag31okt)
+	Do ..DeleteDag(Dag)
+	#dim sc As %Status = ..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),3)
+	If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),!
+	
+	// "OD donderdag" (1 nov 2018) komt op "OD woensdag" 
+	Do ##class(APPS.VKP.VerzendDatumExceptions).Verplaats1DagVroeger(Dag1Nov)
+]]></Implementation>
+</Method>
+
 <Method name="Create">
 <Description>
 Do ##class(APPS.VKP.VerzendDatumExceptions).Create()</Description>
@@ -209,8 +231,6 @@
 <IndexLocation>^APPS.VKP.VerzendDatu5491I</IndexLocation>
 <StreamLocation>^APPS.VKP.VerzendDatu5491S</StreamLocation>
 <Data name="VerzendDatumExceptionsDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>