Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml
===================================================================
diff -u -r50102 -r50929
--- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 50102)
+++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 50929)
@@ -3,7 +3,7 @@
 <Class name="APPS.OrderUitvoering.OrderUitvoeringService">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Query name="OrdersMetGoederenInHalux2">
 <Type>%Query</Type>
@@ -53,6 +53,7 @@
 	
 	If (OrdersMetGoederenInHalux2.HasNext())
 	{
+		#Dim DateTimeAPI As TECH.DateTime.impl.DateTimeAPI = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
 		Try
 		{
 			#dim OrderMetGoederenInHalux2 As APPS.OrderUitvoering.impl.OrderMetGoederenInHalux2 = OrdersMetGoederenInHalux2.Next()
@@ -66,7 +67,7 @@
 			If (ProductOrderLijnIterator.HasNext())
 			{
 				#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ProductOrderLijnIterator.Next()
-				Set ReceptieTijdstip = ##class(TECH.DateTime.impl.DateTimeAPI).%New().HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), OrderMetGoederenInHalux2.DragerID))
+				Set ReceptieTijdstip = DateTimeAPI.HorologToTimeStamp(..LaatsteReceptieTijdstipProductOpDrager(AdministratiefProduct.GeefID(), OrderMetGoederenInHalux2.DragerID))
 			}
 			
 			#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
@@ -96,14 +97,15 @@
 		For { 
 			set BewegingVolgNr = $order(^PRHIST(PRNr,BewegingVolgNr),-1) 
 			quit:""=BewegingVolgNr
-			if ($Piece(^PRHIST(PRNr,BewegingVolgNr),"\",4) = "I") {
+			if (##class(DOM.PM.enu.VoorraadBewegingType).Invoer() = $Piece(^PRHIST(PRNr,BewegingVolgNr),"\",4)) {
 				set PalletBinnenBewegingVolgNr = ""
 				for {
 					set PalletBinnenBewegingVolgNr = $order(^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr),-1)
 					quit:(""=PalletBinnenBewegingVolgNr)
 					if ($Piece( ^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr), "\", 1 ) = DragerCode) {
 						Set ReceptieTijdstip = $Piece( ^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr), "\", 3 )
 					}
+					quit:($$$Not(""=ReceptieTijdstip))
 				}
 			}
 		}
Index: DOM/PM/enu/VoorraadBewegingType.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/VoorraadBewegingType.cls.xml	(revision 0)
+++ DOM/PM/enu/VoorraadBewegingType.cls.xml	(revision 50929)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.VoorraadBewegingType">
+<Description>
+Zie in de bijbel "PRHIST Product Historiek" piece "4.	Type"</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;I</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Invoer</Default>
+</Parameter>
+
+<Method name="Invoer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.VoorraadBewegingType</ReturnType>
+<Implementation><![CDATA[	Quit "I"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/VoorraadBewegingType/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/VoorraadBewegingType/AutoComplete.cls.xml	(revision 0)
+++ DOM/PM/enu/VoorraadBewegingType/AutoComplete.cls.xml	(revision 50929)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.VoorraadBewegingType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Invoer">
+<Type>%String</Type>
+<InitialExpression>"I"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/PM/enu/VoorraadBewegingType/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/VoorraadBewegingType/Verwerker.cls.xml	(revision 0)
+++ DOM/PM/enu/VoorraadBewegingType/Verwerker.cls.xml	(revision 50929)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.enu.VoorraadBewegingType.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>VoorraadBewegingType:DOM.PM.enu.VoorraadBewegingType</FormalSpec>
+<Implementation><![CDATA[
+	If VoorraadBewegingType = "I" {
+		Do ..VerwerkInvoer()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VoorraadBewegingType,"DOM.PM.enu.VoorraadBewegingType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkInvoer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>