Index: DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml
===================================================================
diff -u -r64167 -r64170
--- DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64167)
+++ DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller.cls.xml	(.../NaleveringDataAanvuller.cls.xml)	(revision 64170)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantIdOpOrder">
+<Type>DOM.common.PartijID</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ProductApi:DOM.PM.ProductAPI="",VertaalApi:DOM.common.Transl.VertaalAPI=""</FormalSpec>
 <Private>1</Private>
@@ -52,36 +57,38 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OrderIteratorOpBon,ProductOrderLijnenIterator As TECH.Iterator
-	#dim ProductOrderLijn As DOM.VKP.Orderlijn
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn
 	#dim Product As DOM.PM.Product
 	#dim ProductId As DOM.common.ProductID
 	#dim Korttekst As %String
 	#dim OrderId As %Integer
+	#dim KlantIdOpBon As DOM.common.PartijID
 	#dim AantalOpOrderLijn As %Decimal
 	#dim LeverdatumOpOrderLijn As %Date
 	
 	Set ..NaleveringDataArray = ##class(%ArrayOfDataTypes).%New()
 	
+	Set KlantIdOpBon = Bon.GeefKlantID()
 	Set OrderIteratorOpBon = Bon.GeefOrderIterator()
 	While OrderIteratorOpBon.HasNext() {
 		Set OrderId = OrderIteratorOpBon.Next()
-		
-		// CHECK TOEVOEGEN OP KLANT
-		
 		Set ProductOrderLijnenIterator = ..GeefProductOrderLijnenIterator(OrderId)
-		While ProductOrderLijnenIterator.HasNext() {
-			Set ProductOrderLijn = ProductOrderLijnenIterator.Next()
-			Set ProductId = ProductOrderLijn.GeefProductID()
-			Set AantalOpOrderLijn = 0
-			Set LeverdatumOpOrderLijn = ""
-			
-			If ..ProductApi.BestaatProduct(ProductId) {
-				Set Product = ..ProductApi.GeefProduct(ProductId)
-				Set Korttekst = Product.GeefKorttekst()
-				Set AantalOpOrderLijn = ProductOrderLijn.GeefAantal()
-				Set LeverdatumOpOrderLijn = ProductOrderLijn.GeefLeverdag()
+		
+		If (..KlantIdOpOrder = KlantIdOpBon) {
+			While ProductOrderLijnenIterator.HasNext() {
+				Set ProductOrderLijn = ProductOrderLijnenIterator.Next()
+				Set AantalOpOrderLijn = 0
+				Set LeverdatumOpOrderLijn = ""
+				Set ProductId = ProductOrderLijn.GeefProductID()
 				
-				Do ..ZetLeveringDataOpNaleveringDataArray(OrderId, Korttekst, AantalOpOrderLijn, LeverdatumOpOrderLijn)
+				If ..ProductApi.BestaatProduct(ProductId) {
+					Set Product = ..ProductApi.GeefProduct(ProductId)
+					Set Korttekst = Product.GeefKorttekst()
+					Set AantalOpOrderLijn = ProductOrderLijn.GeefAantal()
+					Set LeverdatumOpOrderLijn = ProductOrderLijn.GeefLeverdag()
+					
+					Do ..ZetLeveringDataOpNaleveringDataArray(OrderId, Korttekst, AantalOpOrderLijn, LeverdatumOpOrderLijn)
+				}
 			}
 		}
 	}
@@ -161,6 +168,7 @@
 	
 	If ..OrderApi.BestaatOrder(OrderId) {
 		Set Order = ..OrderApi.GeefOrder(OrderId)
+		Set ..KlantIdOpOrder = Order.GeefKlantID()
 		Set ProductOrderLijnenIterator = Order.GeefProductOrderLijnIterator()
 	}
 	
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml
===================================================================
diff -u -r64167 -r64170
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64167)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBon/NaleveringDataAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 64170)
@@ -8,6 +8,16 @@
 <Default>66666</Default>
 </Parameter>
 
+<Parameter name="KlantId1">
+<Type>%String</Type>
+<Default>K||1234</Default>
+</Parameter>
+
+<Parameter name="KlantId2">
+<Type>%String</Type>
+<Default>K||5678</Default>
+</Parameter>
+
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -80,6 +90,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Er staat 1 order open op de leverbon met 1 productorderlijn erop =&gt; KlantId op order verschilt van dat op bon">
+<Implementation><![CDATA[
+	#dim AantalOpenstaandeOrders As %Integer = 1
+	#dim AantalProductOrderLijnenPerOrder As %Integer = 1
+	#dim IsKlantIdOpOrderVerschillendVanDatOpBon As %Boolean = $$$True
+	#dim LeverbonStub As DOM.VKP.Bon = ..GeefLeverbon(AantalOpenstaandeOrders, AantalProductOrderLijnenPerOrder, , IsKlantIdOpOrderVerschillendVanDatOpBon)
+	
+	Set NaleveringDataAanvuller = ##class(DOM.VKP.impl.DataM.DataMBon.NaleveringDataAanvuller).%New(..OrderApi, ..ProductApi)
+	Do NaleveringDataAanvuller.VulNaleveringDataAanIndienNodig(LeverbonStub, ..OpmerkingenLijst, ..Taal)
+	
+	Do $$$AssertEquals(..OpmerkingenLijst.Count(), 0)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Er staat 1 order open op de leverbon met 3 productorderlijnen erop met verschillende producten">
 <Implementation><![CDATA[
 	#dim AantalOpenstaandeOrders As %Integer = 1
@@ -150,7 +174,7 @@
 </Method>
 
 <Method name="GeefLeverbon">
-<FormalSpec>AantalOpenstaandeOrders:%Integer=0,AantalProductOrderLijnenPerOrder:%Integer=0,HeeftVerschillendeProductenPerOrderlijn:%Boolean=0</FormalSpec>
+<FormalSpec>AantalOpenstaandeOrders:%Integer=0,AantalProductOrderLijnenPerOrder:%Integer=0,HeeftVerschillendeProductenPerOrderlijn:%Boolean=0,IsKlantIdOpOrderVerschillendVanDatOpBon:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.Bon</ReturnType>
 <Implementation><![CDATA[
@@ -161,12 +185,15 @@
 	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	#dim OrderStub As DOM.VKP.Order
 	#dim OrderId As %Integer
+	#dim KlantIdOpOrder As DOM.common.PartijID
 	
 	For OrderId=1:10:(AantalOpenstaandeOrders*10) {
 		#dim ProductOrderLijnIterator As TECH.Iterator = ..GeefProductOrderLijnIterator(ProductApiStub, AantalProductOrderLijnenPerOrder, OrderId, HeeftVerschillendeProductenPerOrderlijn)
 		
 		Set OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 		Do OrderStub.IndienMethodCall("GeefProductOrderLijnIterator").DanReturn(ProductOrderLijnIterator)
+		Set KlantIdOpOrder = $$$If(IsKlantIdOpOrderVerschillendVanDatOpBon, ..#KlantId2, ..#KlantId1)
+		Do OrderStub.IndienMethodCall("GeefKlantID").DanReturn(KlantIdOpOrder)
 		
 		Do OrderApiStub.IndienMethodCall("BestaatOrder", "OrderId"_OrderId).DanReturn($$$True)
 		Do OrderApiStub.IndienMethodCall("GeefOrder", "OrderId"_OrderId).DanReturn(OrderStub)
@@ -176,6 +203,7 @@
 	}
 	
 	Do LeverbonStub.IndienMethodCall("GeefOrderIterator").DanReturn(OrderIterator)
+	Do LeverbonStub.IndienMethodCall("GeefKlantID").DanReturn(..#KlantId1)
 	
 	Set ..OrderApi = OrderApiStub