Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r56130 -r72255
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 56130)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 72255)
@@ -323,6 +323,7 @@
 		
 		Do LeverAdres.ZetVolmacht(..AfleverAdresData.GeefPiece(23))		
 		Do LeverAdres.ZetAxLeveradresId(..AfleverAdresData.GeefPiece(29))
+		Do LeverAdres.ZetTelefoon(..AfleverAdresData.GeefPiece(13))
 		
 		Set ..AfleverAdres = LeverAdres
 	}
@@ -351,7 +352,7 @@
 		Do ..AfleverAdresData.ZetPiece(26, Afleveradres.GeefVerzendingWijze())	
 		Do ..AfleverAdresData.ZetPiece(23, Afleveradres.GeefVolmacht())
 		Do ..AfleverAdresData.ZetPiece(29, Afleveradres.GeefAxLeveradresId())
-		
+		Do ..AfleverAdresData.ZetPiece(13, Afleveradres.GeefTelefoon())
 	} Else {
 		/// Leegmaken van pieces waarin adres is ingevuld. Eerste piece is de ID van het adres.
 		#Dim Teller As %Integer
@@ -469,19 +470,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalLijnenMetAxInventTransId">
+<Method name="GeefAantalLijnenViaAxInventTransId">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Do ..LaadOrderLijnenIndienNodig()
 	#dim AantalLijnenMetAxInventTransId As %Integer = 0
-	Set OrderLijnenIterator = ##class(TECH.ListIterator).%New(..OrderLijnen)
-	While OrderLijnenIterator.HasNext() {
-		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnenIterator.Next()
-		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
-			Set AantalLijnenMetAxInventTransId = AantalLijnenMetAxInventTransId + 1
-		}
+	#dim OrderLijnIterator As TECH.Iterator = ..GeefOrderLijnIteratorViaAxInventTransId(AxInventTransId)
+	
+	While OrderLijnIterator.HasNext() {
+		#dim OrderLijn As DOM.VKP.Orderlijn = OrderLijnIterator.Next()
+		Set AantalLijnenMetAxInventTransId = AantalLijnenMetAxInventTransId + 1
 	}
+	
 	Quit AantalLijnenMetAxInventTransId
 ]]></Implementation>
 </Method>
@@ -532,6 +532,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijnIteratorViaAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnListViaAxInventTransId As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim OrderLijnIterator As TECH.Iterator = ..GeefOrderLijnIterator()
+	#dim OrderLijn As DOM.VKP.Orderlijn
+	
+	While (OrderLijnIterator.HasNext()) {
+		Set OrderLijn = OrderLijnIterator.Next()
+		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
+			Do OrderLijnListViaAxInventTransId.Insert(OrderLijn)
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(OrderLijnListViaAxInventTransId)
+]]></Implementation>
+</Method>
+
 <Method name="LaadOrderLijnenIndienNodig">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -631,10 +650,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>
 
@@ -1228,6 +1259,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIngegevenDoorUserNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(61)
+]]></Implementation>
+</Method>
+
+<Method name="ZetIngegevenDoorUserNaam">
+<FormalSpec>IngegevenDoorUserNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(61,IngegevenDoorUserNaam)
+]]></Implementation>
+</Method>
+
+<Method name="ZetIngegevenDoorUserNaamEnSave">
+<FormalSpec>IngegevenDoorUserNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetIngegevenDoorUserNaam(IngegevenDoorUserNaam)
+	Do ..HoofdingData.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantDisplayNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(62)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlantDisplayNaam">
+<FormalSpec>KlantDisplayNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(62,KlantDisplayNaam)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlantDisplayNaamEnSave">
+<FormalSpec>KlantDisplayNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetKlantDisplayNaam(KlantDisplayNaam)
+	Do ..HoofdingData.Save()
+]]></Implementation>
+</Method>
+
 <Method name="GeefEindPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	Quit ..EindPersonalityBepaler.GeefEindPersonality(..GeefOorsprongKetting(), ..GeefKlantID())
@@ -1262,6 +1333,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAddressTrackTrace">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(64)
+]]></Implementation>
+</Method>
+
+<Method name="ZetEmailAddressTrackTrace">
+<FormalSpec>EmailAddressTrackTrace:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(64,EmailAddressTrackTrace)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.VKP.impl.DataM.DataMOrderD</DataLocation>