Index: CHUI/VKP/OrderIngave/OrderSluiter.cls.xml
===================================================================
diff -u
--- CHUI/VKP/OrderIngave/OrderSluiter.cls.xml	(revision 0)
+++ CHUI/VKP/OrderIngave/OrderSluiter.cls.xml	(revision 47602)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.VKP.OrderIngave.OrderSluiter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="KanOrderSluiten">
+<Abstract>1</Abstract>
+<FormalSpec>ORDNr:%String,KLNr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="Sluit">
+<Abstract>1</Abstract>
+<FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml
===================================================================
diff -u -r47601 -r47602
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 47601)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 47602)
@@ -12,7 +12,7 @@
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)	
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 ]]></Implementation>
 </Method>
 
@@ -28,7 +28,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
@@ -49,7 +49,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
@@ -70,7 +70,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
@@ -91,7 +91,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
@@ -112,7 +112,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
@@ -133,7 +133,7 @@
 	Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
 	
 	Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
-	#dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
+	#dim OrderSluiter As CHUI.VKP.OrderIngave.OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
 	
 	Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
 	Do OrderAPIMock.Verifieer()
Index: CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml
===================================================================
diff -u -r47601 -r47602
--- CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(.../OrderSluiterFactory.cls.xml)	(revision 47601)
+++ CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml	(.../OrderSluiterFactory.cls.xml)	(revision 47602)
@@ -22,7 +22,7 @@
 
 <Method name="GeefOrderSluiter">
 <FormalSpec>ORDNr:%String</FormalSpec>
-<ReturnType>TECH.RegisteredObject</ReturnType>
+<ReturnType>CHUI.VKP.OrderIngave.OrderSluiter</ReturnType>
 <Implementation><![CDATA[
 	Do ..ValideerOrderNr(ORDNr)
 	
Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r47577 -r47602
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 47577)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 47602)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01">
-<Super>TECH.RegisteredObject</Super>
+<Super>CHUI.VKP.OrderIngave.OrderSluiter</Super>
 
 <Property name="Generator">
 <Type>AXimpl.Generator</Type>
Index: CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml
===================================================================
diff -u -r47581 -r47602
--- CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 47581)
+++ CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 47602)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="CHUI.VKP.OrderIngave.OrderSluiterv01">
 <IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>CHUI.VKP.OrderIngave.OrderSluiter</Super>
 
 <Method name="KanOrderSluiten">
 <FormalSpec>ORDNr:%String,KLNr:%String</FormalSpec>
Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r47600 -r47602
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47600)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47602)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01">
-<Super>TECH.RegisteredObject</Super>
+<Super>CHUI.VKP.OrderIngave.OrderSluiter</Super>
 
 <Property name="Generator">
 <Type>AXimpl.Generator</Type>