Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r56130 -r56861
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 56130)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 56861)
@@ -631,10 +631,22 @@
 </Method>
 
 <Method name="ZetVerzendingWijze">
-<FormalSpec>VerzendingWijze:%String</FormalSpec>
+<FormalSpec>VerzendingWijze:%String,KeyValueListSkipFromTo:TECH.KeyValue.List=""</FormalSpec>
 <Implementation><![CDATA[
-	Do ..HoofdingData.ZetPiece(7,VerzendingWijze)
-	Do ..%SetModified(1)
+	#dim MagWaardeAanpassen As %Boolean = $$$True
+	
+	If $IsObject(KeyValueListSkipFromTo) {
+		#dim VerzendingWijzeFrom As %String = ..GeefVerzendingWijze()
+		#dim VerzendingWijzeTo   As %String = VerzendingWijze
+		If KeyValueListSkipFromTo.ValueExistsForKey(VerzendingWijzeFrom, VerzendingWijzeTo) {
+			Set MagWaardeAanpassen = $$$False
+		}
+	}
+	
+	If MagWaardeAanpassen {
+		Do ..HoofdingData.ZetPiece(7,VerzendingWijze)
+		Do ..%SetModified(1)
+	}
 ]]></Implementation>
 </Method>