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()
 	}