Index: APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml
===================================================================
diff -u -r73117 -r73123
--- APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 73117)
+++ APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 73123)
@@ -44,7 +44,16 @@
 		{
 			#dim OrderID As %String = OrderIDIterator.Next()
 			#dim HeeftEenKOMLink As %Boolean = 0
-			#dim LijnIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+			#dim LijnIterator As TECH.Iterator
+			#dim BestaatOrder As %Boolean = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID)
+			
+			If 'BestaatOrder {
+				Set OrderID = "ID onbekend"
+				Set LijnIterator = ##class(Tech.ListIterator).%New()
+			} Else {
+				Set LijnIterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+			}
+			
 			While ('HeeftEenKOMLink && LijnIterator.HasNext())
 			{
 				#dim Lijn As DOM.VKP.ProductOrderlijn = LijnIterator.Next()
@@ -53,20 +62,17 @@
 				}
 			}
 			
-			Set:('##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID)) OrderID = "ID onbekend"
-			
-			If ('HeeftEenKOMLink) { // Orders die al gepicked zijn, hebben geen nut op die lijst.
-				
+			If 'HeeftEenKOMLink { // Orders die al gepicked zijn, hebben geen nut op die lijst.
 				#dim OrderMetGoederenInHalux2
 				#dim PalletKantABVoorProduct = DnaCodeService.GeefPalletKantABVoorProduct(ProductID, DragerID)
 				
 				If (PalletKantABVoorProduct = "") {
 					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID, OrderID)
 				} ElseIf ((PalletKantABVoorProduct = "A") || (PalletKantABVoorProduct = "B")) {
-					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ PalletKantABVoorProduct, OrderID)
+					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ PalletKantABVoorProduct, OrderID, 1)
 				} ElseIf ((PalletKantABVoorProduct = "AB") || (PalletKantABVoorProduct = "BA")) {
-					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "A", OrderID)
-					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "B", OrderID)
+					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "A", OrderID, 1)
+					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "B", OrderID, 1)
 				}
 			}
 		}
@@ -78,14 +84,20 @@
 
 <Method name="VoegOrderToeAanOrdersMetGoederenInHalux2">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&OrdersMetGoederenInHalux2:%ListOfDataTypes,ResultSet:TECH.ResultSet,DragerID:%String,OrderID:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&OrdersMetGoederenInHalux2:%ListOfDataTypes,ResultSet:TECH.ResultSet,DragerID:%String,OrderID:%String,AantalViaDnaCode:%Boolean=0]]></FormalSpec>
 <Implementation><![CDATA[
 	Set OrderMetGoederenInHalux2 = ..%New()
 	Set OrderMetGoederenInHalux2.ProductID = ResultSet.Data("ProductID")
 	Set OrderMetGoederenInHalux2.DragerID = DragerID
 	Set OrderMetGoederenInHalux2.OrderID = OrderID
-	Set OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet = ResultSet.Data("AantalStuks")
 	
+	If (AantalViaDnaCode) {
+		#dim DnaCodeService As APPS.Halux.AAP.DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
+		Set OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet = DnaCodeService.GeefAantalVanProductOpPallet(ResultSet.Data("ProductID"), DragerID)
+	} Else {
+		Set OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet = ResultSet.Data("AantalStuks")
+	}
+	
 	Do OrdersMetGoederenInHalux2.Insert(OrderMetGoederenInHalux2)
 ]]></Implementation>
 </Method>