Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml
===================================================================
diff -u -r50929 -r73117
--- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 50929)
+++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 73117)
@@ -67,7 +67,7 @@
 			If (ProductOrderLijnIterator.HasNext())
 			{
 				#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
-				Set ReceptieTijdstip = DateTimeAPI.HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), OrderMetGoederenInHalux2.DragerID))
+				Set ReceptieTijdstip = DateTimeAPI.HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), $Extract(OrderMetGoederenInHalux2.DragerID, 1, 8)))
 			}
 			
 			#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
Index: APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml
===================================================================
diff -u -r64330 -r73117
--- APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 64330)
+++ APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 73117)
@@ -27,6 +27,7 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set OrdersMetGoederenInHalux2 = ##class(%ListOfDataTypes).%New()
+	#dim DnaCodeService As APPS.Halux.AAP.DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
 	#dim Query As %String
 	Set Query = "SELECT L.loc_id as loc_id, rtrim(I.Product) As ProductID, I.Qty_Pcs As AantalStuks FROM EWMS.Inventory I "
 					_"JOIN EWMS.Locations L ON L.loc_id = I.loc_id "
@@ -35,41 +36,59 @@
 	While (ResultSet.Next())
 	{
 		#dim DragerID As %String = ResultSet.Data("loc_id")
-		#dim OrderIDs As list of %String = ##class(BL.Legacy.EWPAL).GeefOrderIDsVanProductOpDrager(ResultSet.Data("ProductID"), DragerID)
+		#dim ProductID As %String = ResultSet.Data("ProductID")
+		#dim OrderIDs As list of %String = ##class(BL.Legacy.EWPAL).GeefOrderIDsVanProductOpDrager(ProductID, DragerID)
 		Set OrderIDIterator = ##class(TECH.ListIterator).%New(OrderIDs)
+		
 		While (OrderIDIterator.HasNext())
 		{
 			#dim OrderID As %String = OrderIDIterator.Next()
-			Set OrderMetGoederenInHalux2 = ..%New()
-			Set OrderMetGoederenInHalux2.ProductID = ResultSet.Data("ProductID")
-			Set OrderMetGoederenInHalux2.DragerID = DragerID
-			Set OrderMetGoederenInHalux2.OrderID = OrderID
-			Set OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet = ResultSet.Data("AantalStuks")
-			
-			// [CACHE01] Error - EXCEL : Orders met goederen in Halux2 Execute failed - 10/12/2015 14:48:02  --> Order 111493 bestaat niet!
-			// Goederen waren reeds gepicked van een andere locatie en 'op bon gezet'. Daarom was order al weg.
-			//
-			// Voorstel :  If Not(OrderAPI.BestaatOrder())  Then  object sowieso toevoegen aan de lijst en veldje "OrderID" markeren als "ID onbekend"
-			
 			#dim HeeftEenKOMLink As %Boolean = 0
-			If ##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID) { // Orders die al gepicked zijn, hebben geen nut op die lijst.
-				#dim LijnIterator As TECH.Iterator = ##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()
-					If (Lijn.GeefProductID() = OrderMetGoederenInHalux2.ProductID) {
-						Set HeeftEenKOMLink = $IsObject(Lijn.GeefToelevering())
-					}
+			#dim LijnIterator As TECH.Iterator = ##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()
+				If (Lijn.GeefProductID() = ProductID) {
+					Set HeeftEenKOMLink = $IsObject(Lijn.GeefToelevering())
 				}
+			}
 			
-				If ('HeeftEenKOMLink) Do OrdersMetGoederenInHalux2.Insert(OrderMetGoederenInHalux2)
-			} 
+			Set:('##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID)) OrderID = "ID onbekend"
+			
+			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)
+				} ElseIf ((PalletKantABVoorProduct = "AB") || (PalletKantABVoorProduct = "BA")) {
+					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "A", OrderID)
+					Do ..VoegOrderToeAanOrdersMetGoederenInHalux2(.OrdersMetGoederenInHalux2, ResultSet, DragerID _ "B", OrderID)
+				}
+			}
 		}
 	}
 	
 	Quit OrdersMetGoederenInHalux2
 ]]></Implementation>
 </Method>
+
+<Method name="VoegOrderToeAanOrdersMetGoederenInHalux2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&OrdersMetGoederenInHalux2:%ListOfDataTypes,ResultSet:TECH.ResultSet,DragerID:%String,OrderID:%String]]></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")
+	
+	Do OrdersMetGoederenInHalux2.Insert(OrderMetGoederenInHalux2)
+]]></Implementation>
+</Method>
 </Class>