Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml
===================================================================
diff -u -r73117 -r73646
--- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 73117)
+++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 73646)
@@ -18,7 +18,7 @@
 <Implementation><![CDATA[
 	Try {
 		Set %OrdersMetGoederenInHalux2 = ##class(TECH.ListIterator).%New(##class(APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2).GeefOrdersMetGoederenInHalux2())
-		If '$IsObject(%OrdersMetGoederenInHalux2) {
+		If $$$Not($IsObject(%OrdersMetGoederenInHalux2)) {
 			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( "##class(APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2).GeefOrdersMetGoederenInHalux2() is niet gelukt!" ) )
 		}
 	}Catch{
@@ -49,7 +49,7 @@
 	Set Row = ""
 	#dim OrdersMetGoederenInHalux2 As TECH.Iterator = %OrdersMetGoederenInHalux2
 	
-	Set AtEnd = 'OrdersMetGoederenInHalux2.HasNext()
+	Set AtEnd = $$$Not(OrdersMetGoederenInHalux2.HasNext())
 	
 	If (OrdersMetGoederenInHalux2.HasNext())
 	{
@@ -58,25 +58,45 @@
 		{
 			#dim OrderMetGoederenInHalux2 As APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2 = OrdersMetGoederenInHalux2.Next()
 			#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(OrderMetGoederenInHalux2.ProductID)
-			#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderMetGoederenInHalux2.OrderID)
-			#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Order.GeefKlantID())
-			#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Order.GeefKlantID())
+			#dim KlantNr As %String = ""
+			#dim PartijNaam As %String = ""
 			#dim ReceptieTijdstip As %TimeStamp = ""
+			#dim VroegsteLeverdatum as %TimeStamp = ""
+			#dim VerzendwijzeId As %String = ""
+			
+			If ##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderMetGoederenInHalux2.OrderID) {
+				#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderMetGoederenInHalux2.OrderID)
+				#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Order.GeefKlantID())
+				#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Order.GeefKlantID())
 		
-			#dim ProductOrderLijnIterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
-			If (ProductOrderLijnIterator.HasNext())
-			{
-				#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
-				Set ReceptieTijdstip = DateTimeAPI.HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), $Extract(OrderMetGoederenInHalux2.DragerID, 1, 8)))
+				#dim ProductOrderLijnIterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
+				If (ProductOrderLijnIterator.HasNext())
+				{
+					#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
+					Set ReceptieTijdstip = DateTimeAPI.HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), $Extract(OrderMetGoederenInHalux2.DragerID, 1, 8)))
+				}
+			
+				Set KlantNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+				Set PartijNaam = Partij.GeefNaam()
+				Set VroegsteLeverdatum = ##class(TECH.DateTime).DateToTimeStamp(Order.GeefVroegsteLeverdatum())
+				Set VerzendwijzeId = Order.GeefVerzendWijze().VerzendWijzeID
 			}
 			
-			#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
-			Set Row = $LB(AdministratiefProduct.GeefID(),AdministratiefProduct.GeefKorttekst(),KlantNr,Partij.GeefNaam(),Order.GeefID(),##class(TECH.DateTime).DateToTimeStamp(Order.GeefVroegsteLeverdatum()),Order.GeefVerzendWijze().VerzendWijzeID,ReceptieTijdstip, OrderMetGoederenInHalux2.DragerID, OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet)
+			Set Row = $LB(AdministratiefProduct.GeefID(),
+						  AdministratiefProduct.GeefKorttekst(),
+						  KlantNr,
+						  PartijNaam,
+						  OrderMetGoederenInHalux2.OrderID,
+						  VroegsteLeverdatum,
+						  VerzendwijzeId,
+						  ReceptieTijdstip,
+						  OrderMetGoederenInHalux2.DragerID,
+						  OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet)
 		}
 		Catch
 		{
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			do ##class(vhLib.Logger).%New("EXCEL").ErrorMail("Orders met goederen in Halux2 failed",Exception.ToString())
+			Do ##class(vhLib.Logger).%New("EXCEL").ErrorMail("Orders met goederen in Halux2 failed",Exception.ToString())
 			Set Row = $LB("","","",Exception.GeefOmschrijving(),"","","","")
 				
 		}
Index: APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml
===================================================================
diff -u -r73123 -r73646
--- APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 73123)
+++ APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml	(.../OrderMetGoederenInHalux2.cls.xml)	(revision 73646)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="OrderID">
 <Type>%String</Type>
@@ -47,22 +47,23 @@
 			#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()
+			If $$$Not(BestaatOrder) {
+				Set OrderID = "OrderId onbekend"
+				Set LegeLijst = ##class(%ListOfDataTypes).%New()
+				Set LijnIterator = ##class(TECH.ListIterator).%New(LegeLijst)
 			} Else {
 				Set LijnIterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
 			}
 			
-			While ('HeeftEenKOMLink && LijnIterator.HasNext())
+			While ($$$Not(HeeftEenKOMLink) && LijnIterator.HasNext())
 			{
 				#dim Lijn As DOM.VKP.ProductOrderlijn = LijnIterator.Next()
 				If (Lijn.GeefProductID() = ProductID) {
 					Set HeeftEenKOMLink = $IsObject(Lijn.GeefToelevering())
 				}
 			}
 			
-			If 'HeeftEenKOMLink { // Orders die al gepicked zijn, hebben geen nut op die lijst.
+			If $$$Not(HeeftEenKOMLink) { // Orders die al gepicked zijn, hebben geen nut op die lijst.
 				#dim OrderMetGoederenInHalux2
 				#dim PalletKantABVoorProduct = DnaCodeService.GeefPalletKantABVoorProduct(ProductID, DragerID)