Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestBase.cls.xml	(revision 33063)
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="HaluxKlantNummer">
+<Type>%Integer</Type>
+<Default>7587</Default>
+</Parameter>
+
+<Parameter name="HaluxKlantID">
+<Type>%String</Type>
+<Default>K||7587</Default>
+</Parameter>
+
+<Parameter name="VolgNummerBinnenOrder">
+<Type>%String</Type>
+<Default>abc</Default>
+</Parameter>
+
+<Parameter name="OrderID">
+<Description>
+TransactieReferentie</Description>
+<Type>%Integer</Type>
+<Default>800001</Default>
+</Parameter>
+
+<Parameter name="OrderLijnNummer">
+<Description>
+TransactieLijnReferentie</Description>
+<Type>%Integer</Type>
+<Default>151</Default>
+</Parameter>
+
+<Property name="VerwachteInvoerAPI">
+<Type>DOM.ProdRes.VerwachteInvoerAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPIStub">
+<Type>vhTest.Mock.DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PubSubAPIStub">
+<Type>vhTest.Mock.TECH.PubSub.PubSubAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderDataUtil">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Veld">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Set ..VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set ..OrderDataUtil = ##class(vhTest.Utils.DOM.VKP.Order.OrderDataM).%New()
+	Set ..PubSubAPIStub = ##class(vhTest.Mock.TECH.PubSub.PubSubAPI).MockInstance()
+	
+	#dim EventDispatcherUtil As vhTest.Utils.TECH.PubSub.impl.EventDispatcher = ##class(vhTest.Utils.TECH.PubSub.impl.EventDispatcher).%New()
+	
+	Do ..PubSubAPIStub.IndienMethodCall("GeefEventRaiser").DanReturn(##class(TECH.PubSub.impl.SimpelEventRaiser).%New(EventDispatcherUtil))
+
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrder">
+<FormalSpec>OrderID:%Integer,ProductID:%Integer,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define DossierGegevens "DIV#62350,27731#" _ OrderID
+	#define OrderType ##class(DOM.VKP.enu.OrderType).Transfer()
+	#define OrderLijnType ##class(DOM.VKP.enu.OrderLijnType).Product()
+	#define LeveringDatum "62350"
+	
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, 1), "\", 6) = ..#HaluxKlantNummer
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, 1), "\", 24) = $$$DossierGegevens
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, 1), "\", 25) = $$$OrderType
+	
+	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 2) = ""
+	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 3) = ""
+	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 4) = "10"
+	
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, ..#VolgNummerBinnenOrder), "\", 2) = ProductID
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, ..#VolgNummerBinnenOrder), "\", 3) = Aantal
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, ..#VolgNummerBinnenOrder), "\", 15) = ..#OrderLijnNummer
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, ..#VolgNummerBinnenOrder), "\", 17) = $$$OrderLijnType
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", OrderID, ..#VolgNummerBinnenOrder), "\", 25) = $$$LeveringDatum
+	
+	
+	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(..#HaluxKlantNummer, OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductStub">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(ProductID)
+	Do ProductStub.IndienMethodCall("GeefLinkType").DanReturn(##class(DOM.PM.enu.LinkType).HalffabrikaatHalux())
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
+	
+	Quit ProductStub
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductOrderLijnGewijzigdEvent">
+<FormalSpec>ProductID:%Integer,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.event.ProductOrderLijnGewijzigd</ReturnType>
+<Implementation><![CDATA[
+	#dim EventData As DOM.VKP.event.ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(..#OrderID, ..#OrderLijnNummer, ..#HaluxKlantID, ProductID, WijzigingTypes)
+	#dim Event As DOM.VKP.event.ProductOrderLijnGewijzigd = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(EventData)
+	
+	Quit Event
+]]></Implementation>
+</Method>
+
+<Method name="MaakKindBouwstenenLijst">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ListOfObjects).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld.cls.xml	(revision 33063)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Product;Aantal;StockAanpassing;Leverdatum</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>;2;3;14;25</Default>
+</Parameter>
+
+<Method name="Product">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</ReturnType>
+<Implementation><![CDATA[	Quit "2"
+]]></Implementation>
+</Method>
+
+<Method name="Aantal">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</ReturnType>
+<Implementation><![CDATA[	Quit "3"
+]]></Implementation>
+</Method>
+
+<Method name="StockAanpassing">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</ReturnType>
+<Implementation><![CDATA[	Quit "14"
+]]></Implementation>
+</Method>
+
+<Method name="Leverdatum">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</ReturnType>
+<Implementation><![CDATA[	Quit "25"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijToeleveringVoorHalux.cls.xml
===================================================================
diff -u -r29732 -r33063
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijToeleveringVoorHalux.cls.xml	(.../TestVerwachteInvoerBijToeleveringVoorHalux.cls.xml)	(revision 29732)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijToeleveringVoorHalux.cls.xml	(.../TestVerwachteInvoerBijToeleveringVoorHalux.cls.xml)	(revision 33063)
@@ -1,181 +1,164 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestVerwachteInvoerBijToeleveringVoorHalux">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OrderUitvoering.TestHaluxReservatie")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestBase</Super>
 
+<Parameter name="MoederProductID">
+<Type>%Integer</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="KindVanMoederProductID">
+<Type>%Integer</Type>
+<Default>222222</Default>
+</Parameter>
+
+<Parameter name="KindVanKindProductID">
+<Type>%Integer</Type>
+<Default>333333</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID">
+<Type>%Integer</Type>
+<Default>99999</Default>
+</Parameter>
+
+<Parameter name="ToeleveringLijnNummer">
+<Type>%Integer</Type>
+<Default>123</Default>
+</Parameter>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Do ..OnAfterOneTest(aTestName)
+	#dim KindVanMoeder As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New(..#KindVanMoederProductID, 2)
+	#dim KindVanKind As TECH.KeyValuePair = ##class(TECH.KeyValuePair).%New(..#KindVanKindProductID, 4)
 	
-	Set ^KOD(7587,"F",198909,0)="103"
-	Set ^KOD(7587,"F",198909,1)="\16.09.11\16.09.11 TRANSFERTORDER\\\7587\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#198909\T\\\\\\\\\\\\\\\\\\\\62350,27731"
-	Set ^KOD(7587,"F",198909,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(7587,"F",198909,3)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(7587,"F",198909,4)="10"
-	Set ^KOD(7587,"F",198909,101)="707000 \616815\16\\\0.05\0#\8\0.80\0.80\707000 \L\\\151\0.80\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
-	Set ^KOD(7587,"F",198909,102)="707000 \570175\1\\\4.22\0#\8\4.22\4.22\707000 \L\\\121\4.22\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
+	#dim MoederProductStub As vhTest.Mock.DOM.PM.Product = ..MaakProductStub(..#MoederProductID)
+	Do MoederProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..MaakKindBouwstenenIterator(KindVanMoeder))
 	
-	do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(7587,198909)
+	#dim KindVanMoederProductStub As vhTest.Mock.DOM.PM.Product = ..ProductAPIStub.GeefProduct(..#KindVanMoederProductID)
+	Do KindVanMoederProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..MaakKindBouwstenenIterator(KindVanKind))
 	
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
-	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
-	Set VerwachteInvoer = ""
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#MoederProductID).DanReturn(MoederProductStub)
 	
-	Set ^KPR(700) = ""
-	Set ^KPR(700,0) = ""
-	Set $Piece(^KPR(700,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(701) = ""
-	Set ^KPR(701,0) = ""
-	Set $Piece(^KPR(701,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(702) = ""
-	Set ^KPR(702,0) = ""
-	Set $Piece(^KPR(702,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(705) = ""
-	Set ^KPR(705,0) = ""
-	Set $Piece(^KPR(705,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
+	Do ..MaakOrder(..#OrderID, ..#MoederProductID, 16)
+	Do ..MaakToelevering(..#MoederProductID, "2013-07-17 00:00:00", 250)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachteInvoer bij Toelevering voor Halux - Moeder- en KindProducten worden gereserveerd">
+<Implementation><![CDATA[
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#ToeleveringID, ..#ToeleveringLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	#dim MoederReservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
 	
-	Set ^PRBS("BS",700) = "MSK\OL"
-	Set ^PRBS("BS",700,"KIND.005") = "701\2\K\\\\\\\\PROD"
-	Set ^PRBS("BS",700,"SUR.001") = "\1\S\5.48\\\\\\100\SURP\\Inkorten toeslag + overdoos toeslag\\\0"
-	Set ^PRBS("BS",700,"TIJD.001") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Vouwen"
-	Set ^PRBS("BS",700,"TIJD.002") = "\1\T\\\\20\20\OLVERPAK\\VERPAK\\Inpakken"
-	Set ^PRBS("BS",700,"TIJD.003") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Afwerken"
-	Set ^PRBS("BS",700,"VPK.001") = "702\1\H\\\\\\\999\optibox"
-	Set ^PRBS("BS",700,"VPK.001","D") = "1158\1158\1215"
-	Set ^PRBS("BS",700,"VPK.002") = "\1\T\\\\20\20\OL KARTON\999\optibox\\Snijden : OL WRAPAROUND"
-	Set ^PRBS("BS",700,"VPK.004") = "\1\T\\\\15\15\OL KARTON\999\optibox\\Snijden : OL SEPARATOR"
+	#dim KindVanMoederReservatieIterator As TECH.Iterator = MoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanMoederReservatie As DOM.ProdRes.InvoerReservatie = KindVanMoederReservatieIterator.Next()
 	
-	Set ^PRBS("BS",701,"BSL.001" ) = "705\1\H\\\\\\\16\GROEP\\Omschrijving van het product\\\\\FabrGroep1\FabrPrep\\FabrGroep2"
-	Set ^PRBS("BS",701,"BSL.001","D") = "536\539\646.8"
-	Set ^PRBS("BS",701,"KST.001") = "\1\T\\\\35\35\GRPZAAG\1\GROEP\\Zaagwerk\\\1"
-	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
-	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
+	#dim KindVanKindReservatieIterator As TECH.Iterator = KindVanMoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanKindReservatie As DOM.ProdRes.InvoerReservatie = KindVanKindReservatieIterator.Next()
 	
-	Set ^KTO(5005,90001,0) = "102"
-	Set ^KTO(5005,90001,1) = "\17.11.11\STOCK\\\5005\\\212250\\\\\\\\\EUR\62371\\\\\\\"
-	Set ^KTO(5005,90001,4) = "2"
-	Set ^KTO(5005,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
-	
-	Do ##class(vhUnitTest.DataHelper).MaakToeleveringCompleet(5005,90001)
-	
- 	Quit $$$OK
+	Do $$$AssertEquals(MoederReservatie.GeefProductID(), ..#MoederProductID)
+	Do $$$AssertEquals(KindVanMoederReservatie.GeefProductID(), ..#KindVanMoederProductID)
+	Do $$$AssertEquals(KindVanKindReservatie.GeefProductID(), ..#KindVanKindProductID)
 ]]></Implementation>
 </Method>
 
-<Method name="TestVerwachteInvoerBijToeleveringVoorHalux">
+<Method name="Test: VerwachteInvoer bij Toelevering voor Halux - DueIn op Toelevering wordt op alle reservaties toegepast">
 <Implementation><![CDATA[
-	#dim ProductID As %String = 700
-	#dim ToeleveringID As %String  = 90001
-	#dim ToeleveringLijnCode As %String  = 100
-	#dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(5005)
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#ToeleveringID, ..#ToeleveringLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	#dim MoederReservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
 	
-	#dim VerwachteInvoerAPI As DOM.ProdRes.VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	#dim KindVanMoederReservatieIterator As TECH.Iterator = MoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanMoederReservatie As DOM.ProdRes.InvoerReservatie = KindVanMoederReservatieIterator.Next()
 	
-	// Halux invoer controleren
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID,ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	#dim KindVanKindReservatieIterator As TECH.Iterator = KindVanMoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanKindReservatie As DOM.ProdRes.InvoerReservatie = KindVanKindReservatieIterator.Next()
 	
-	Quit:'($$$AssertTrue($IsObject(VerwachteInvoer),"De verwachte invoer werd aangemaakt voor halux"))
+	Do $$$AssertEquals(MoederReservatie.GeefDueIn(), "2013-07-17 00:00:00")
+	Do $$$AssertEquals(KindVanMoederReservatie.GeefDueIn(), "2013-07-17 00:00:00")
+	Do $$$AssertEquals(KindVanKindReservatie.GeefDueIn(), "2013-07-17 00:00:00")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachteInvoer bij Toelevering voor Halux - Aantal voor Moeder- en KindProducten wordt op reservatie toegepast">
+<Implementation><![CDATA[
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#ToeleveringID, ..#ToeleveringLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	#dim MoederReservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
 	
-	#dim Reservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
-	Do $$$AssertEquals(Reservatie.GeefProductID(),700)
-	Do $$$AssertEquals(Reservatie.GeefAantal(),250,"Het aantal van het moederproduct is op 250 geplaatst")
-	Do $$$AssertEquals(Reservatie.GeefDueIn(),"2012-05-16 00:00:00","De DueIn van de moeder")
-	#dim KindReservatieIterator As TECH.Iterator = Reservatie.GeefKindReservatieIterator()
-	#dim KindReservatie1 As DOM.ProdRes.InvoerReservatie = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie1.GeefProductID(),701)
-	Do $$$AssertEquals(KindReservatie1.GeefAantal(),500)
-	Do $$$AssertEquals(KindReservatie1.GeefDueIn(),"2012-05-16 00:00:00","De DueIn van de kindreservatie1")
-	#dim KindVanKindReservatie1 As DOM.ProdRes.InvoerReservatie = KindReservatie1.GeefKindReservatieIterator().Next()
-	Do $$$AssertEquals(KindVanKindReservatie1.GeefProductID(),705)
-	Do $$$AssertEquals(KindVanKindReservatie1.GeefAantal(),500)
-	Do $$$AssertEquals(KindVanKindReservatie1.GeefDueIn(),"2012-05-16 00:00:00","De DueIn van het kind van kindreservatie2")
-	#dim KindReservatie2 As DOM.ProdRes.InvoerReservatie = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie2.GeefProductID(),702)
-	Do $$$AssertEquals(KindReservatie2.GeefAantal(),250,"Het aantal van het kindreservatie2 is 500")
-	Do $$$AssertEquals(KindReservatie2.GeefDueIn(),"2012-05-16 00:00:00","De DueIn van de kindreservatie1")
-	Set VerwachteInvoer = ""
+	#dim KindVanMoederReservatieIterator As TECH.Iterator = MoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanMoederReservatie As DOM.ProdRes.InvoerReservatie = KindVanMoederReservatieIterator.Next()
 	
-	// Product, leverdatum en aantal wijzigen
-	Set $Piece(^KTO(5005,90001,101),"\",2) = 701
-	Set $Piece(^KTO(5005,90001,101),"\",3) = 251
-	Set $Piece(^KTO(5005,90001,101),"\",25) = "11/11"
+	#dim KindVanKindReservatieIterator As TECH.Iterator = KindVanMoederReservatie.GeefKindReservatieIterator()
+	#dim KindVanKindReservatie As DOM.ProdRes.InvoerReservatie = KindVanKindReservatieIterator.Next()
 	
-	Set ProductToelevLijnWijzigingTypes = ##class(DOM.AKP.impl.ProductToelevLijnWijzigingTypes).%New()
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
-	Set ProductToeleveringLijnWijzigEventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, 701, 5005, ProductToelevLijnWijzigingTypes)
-	Set ProductToeleveringLijnGewijzigd = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(ProductToeleveringLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
+	Do $$$AssertEquals(MoederReservatie.GeefAantal(), 250)
+	Do $$$AssertEquals(KindVanMoederReservatie.GeefAantal(), 500)
+	Do $$$AssertEquals(KindVanKindReservatie.GeefAantal(), 2000)
+]]></Implementation>
+</Method>
+
+<Method name="MaakKindBouwstenenIterator">
+<FormalSpec>AantalPerKind...:TECH.KeyValuePair</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim KindBouwstenen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim KindIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.AantalPerKind)
 	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
-	
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),251,"Het aantal")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(),"2011-03-16 00:00:00","De due in")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),701,"De productId")
-	
-	// Product, leverdatum en aantal wijzigen terugdraaien
-	Set $Piece(^KTO(5005,90001,101),"\",2) = 700
-	Set $Piece(^KTO(5005,90001,101),"\",3) = 250
-	Set $Piece(^KTO(5005,90001,101),"\",25) = "12/20"
+	While (KindIterator.HasNext()) {
+		#dim Kind As TECH.KeyValuePair = KindIterator.Next()
+		#dim Aantal As %Integer = Kind.Value
+		#dim KindProductID As %String = Kind.Key
+		#dim BouwsteenKindFake As vhTest.Fake.DOM.PM.Bouwstenen.BouwsteenKind = ##class(vhTest.Fake.DOM.PM.Bouwstenen.BouwsteenKind).%New(KindProductID)
+
+		Do ..ProductAPIStub.IndienMethodCall("GeefProduct", KindProductID).DanReturn(..MaakProductStub(KindProductID))
+
+		Set BouwsteenKindFake.Aantal = Aantal
 		
-	Set ProductToelevLijnWijzigingTypes = ##class(DOM.AKP.impl.ProductToelevLijnWijzigingTypes).%New()
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
-	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
-	Set ProductToeleveringLijnWijzigEventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, 701, LeverancierID, ProductToelevLijnWijzigingTypes)
-	Set ProductToeleveringLijnGewijzigd = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(ProductToeleveringLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
+		Do KindBouwstenen.Insert(BouwsteenKindFake)
+	}
 	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
-	Set ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)
-	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
-	
-	// Verwachte invoer terug aanmaken zodat we deze opnieuw kunnen verwijderen
-	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
-	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
-	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
-	Set ProductToeleveringLijnIngeboekt = ##class(DOM.AKP.event.ProductToelevLijnIngeboekt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
-	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID,ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte uitvoer werd verwijderd voor halux")
-	
-	// Verwachte invoer terug aanmaken zodat mooie cleanup kan gebeuren
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
-	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
+	Quit ##class(TECH.ListIterator).%New(KindBouwstenen)
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="MaakToelevering">
+<FormalSpec>ProductID:%Integer,TijdstipLevering:%TimeStamp,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	do ##class(vhUnitTest.DataHelper).VerwijderOrder(198909)
-	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(90001)
+	#define LeverancierNummer 5005
+	#define ProductLijn "KTRPL"
+		
+	#dim WeekLevering As %String = ##class(TECH.Format.impl.FormatAPI).%New().FormatTimeStamp(TijdstipLevering,"JJ/WW")
+
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 1), "\", 5) = $$$LeverancierNummer
 	
-	Kill ^KPR(700)
-	Kill ^KPR(701)
-	Kill ^KPR(702)
-	Kill ^KPR(705)
-	Kill ^PRBS("BS",700)
+	Set ^KTO($$$LeverancierNummer, ..#ToeleveringID, 2) = ""
+	Set ^KTO($$$LeverancierNummer, ..#ToeleveringID, 3) = ""
+	Set ^KTO($$$LeverancierNummer, ..#ToeleveringID, 4) = "2"
 	
-	Quit $$$OK
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 101), "\", 2) = ProductID
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 101), "\", 3) = Aantal
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 101), "\", 15) = ..#ToeleveringLijnNummer
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 101), "\", 17) = $$$ProductLijn
+	Set $Piece(^KTO($$$LeverancierNummer, ..#ToeleveringID, 101), "\", 25) = WeekLevering
+
+	Do ##class(vhUnitTest.DataHelper).MaakToeleveringCompleet($$$LeverancierNummer, ..#ToeleveringID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestMetOfZonderStockAanpassing.cls.xml
===================================================================
diff -u -r29405 -r33063
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestMetOfZonderStockAanpassing.cls.xml	(.../TestMetOfZonderStockAanpassing.cls.xml)	(revision 29405)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestMetOfZonderStockAanpassing.cls.xml	(.../TestMetOfZonderStockAanpassing.cls.xml)	(revision 33063)
@@ -1,143 +1,95 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestMetOfZonderStockAanpassing">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OrderUitvoering.TestHaluxReservatie")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestBase</Super>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="Test: VerwachteInvoer met StockAanpassing">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
+	#define ProductID 111111
+
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
 	
-	Do ..OnAfterOneTest(aTestName)
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertTrue($IsObject(VerwachteInvoer))
 	
-	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1001)
+	Do ..ZetOrderOpMetStockAanpassing($$$ProductID)
 	
-	Set ^KOD(7587,"F",198909,0)="103"
-	Set ^KOD(7587,"F",198909,1)="\16.09.11\16.09.11 TRANSFERTORDER\\\7587\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#198909\T\\\\\\\\\\\\\\\\\\\\62350,27731"
-	Set ^KOD(7587,"F",198909,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(7587,"F",198909,3)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KOD(7587,"F",198909,4)="10"
-	Set ^KOD(7587,"F",198909,101)="707000 \1000\16\\\0.05\0#\8\0.80\0.80\707000 \L\\\151\0.80\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
-	Set ^KOD(7587,"F",198909,102)="707000 \1001\1\\\4.22\0#\8\4.22\4.22\707000 \L\\\121\4.22\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
-	
-	do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(7587,198909)
-	
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
-	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
-	Set VerwachteInvoer = ""
-	
-	Set ^KPR(700) = ""
-	Set ^KPR(700,0) = ""
-	Set $Piece(^KPR(700,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(701) = ""
-	Set ^KPR(701,0) = ""
-	Set $Piece(^KPR(701,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(702) = ""
-	Set ^KPR(702,0) = ""
-	Set $Piece(^KPR(702,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	Set ^KPR(705) = ""
-	Set ^KPR(705,0) = ""
-	Set $Piece(^KPR(705,0),"\",23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
-	
-	Set ^PRBS("BS",700) = "MSK\OL"
-	Set ^PRBS("BS",700,"KIND.005") = "701\2\K\\\\\\\\PROD"
-	Set ^PRBS("BS",700,"SUR.001") = "\1\S\5.48\\\\\\100\SURP\\Inkorten toeslag + overdoos toeslag\\\0"
-	Set ^PRBS("BS",700,"TIJD.001") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Vouwen"
-	Set ^PRBS("BS",700,"TIJD.002") = "\1\T\\\\20\20\OLVERPAK\\VERPAK\\Inpakken"
-	Set ^PRBS("BS",700,"TIJD.003") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Afwerken"
-	Set ^PRBS("BS",700,"VPK.001") = "702\1\H\\\\\\\999\optibox"
-	Set ^PRBS("BS",700,"VPK.001","D") = "1158\1158\1215"
-	Set ^PRBS("BS",700,"VPK.002") = "\1\T\\\\20\20\OL KARTON\999\optibox\\Snijden : OL WRAPAROUND"
-	Set ^PRBS("BS",700,"VPK.004") = "\1\T\\\\15\15\OL KARTON\999\optibox\\Snijden : OL SEPARATOR"
-	
-	Set ^PRBS("BS",701,"BSL.001" ) = "705\1\H\\\\\\\16\GROEP\\Omschrijving van het product\\\\\FabrGroep1\FabrPrep\\FabrGroep2"
-	Set ^PRBS("BS",701,"BSL.001","D") = "536\539\646.8"
-	Set ^PRBS("BS",701,"KST.001") = "\1\T\\\\35\35\GRPZAAG\1\GROEP\\Zaagwerk\\\1"
-	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
-	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
-	
-	Set ^KTO(5005,90001,0) = "102"
-	Set ^KTO(5005,90001,1) = "\17.11.11\STOCK\\\5005\\\212250\\\\\\\\\EUR\62371\\\\\\\"
-	Set ^KTO(5005,90001,4) = "2"
-	Set ^KTO(5005,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
-	
-	Do ##class(vhUnitTest.DataHelper).MaakToeleveringCompleet(5005,90001)
-	
- 	Quit $$$OK
+	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertTrue($IsObject(VerwachteInvoer))
 ]]></Implementation>
 </Method>
 
-<Method name="TestMetOfZonderStockAanpassing">
+<Method name="Test: VerwachteInvoer zonder StockAanpassing">
 <Implementation><![CDATA[
-	#dim OrderID As %String = 198909
-	#dim OrderLijnCode As %String = 151
-	#dim ProductID As %String = 1000
-	#dim KlantNr As %String = "7587"
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||"_KlantNr
+	#define ProductID 111111
+
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
 	
-	#dim VerwachteInvoerAPI As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
-	
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
 	Do $$$AssertTrue($IsObject(VerwachteInvoer))
 	
-	// Zet op zonder stockaanpassing
-	Set $P(^KOD(7587,"F",198909,101),"\",14) = "Z"
+	Do ..ZetOrderOpZonderStockAanpassing($$$ProductID)
 	
-	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).StockAanpassing())
-	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
-	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
-	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer))
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachteInvoer bij verwijderen OrderLijn">
+<Implementation><![CDATA[
+	#define ProductID 111111
+
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
 	
-	// Zet op met stockaanpassing
-	Set $P(^KOD(7587,"F",198909,101),"\",14) = ""
-	
-	// Deze moet niks doen en zeker ook niet crashen
-	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
-	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent)
-	
-	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).StockAanpassing())
-	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
-	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
-	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
 	Do $$$AssertTrue($IsObject(VerwachteInvoer))
 	
-	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
-	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent)
+	Do ..AnnuleerOrder($$$ProductID)
 	
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer))
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="ZetOrderOpZonderStockAanpassing">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
-	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(90001)
-	do ##class(vhUnitTest.DataHelper).VerwijderOrder(198909)
+	Do ..OrderDataUtil.WijzigOrderLijn(..Veld.StockAanpassing, ..#HaluxKlantNummer, ..#OrderID, ..#VolgNummerBinnenOrder, "Z")
+
+	#dim WijzigingTypes As DOM.VKP.impl.ProductOrderLijnWijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).StockAanpassing())
+
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..MaakProductOrderLijnGewijzigdEvent(ProductID, WijzigingTypes))
+]]></Implementation>
+</Method>
+
+<Method name="ZetOrderOpMetStockAanpassing">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..OrderDataUtil.WijzigOrderLijn(..Veld.StockAanpassing, ..#HaluxKlantNummer, ..#OrderID, ..#VolgNummerBinnenOrder, "")
+
+	#dim WijzigingTypes As DOM.VKP.impl.ProductOrderLijnWijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).StockAanpassing())
+
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..MaakProductOrderLijnGewijzigdEvent(ProductID, WijzigingTypes))
+]]></Implementation>
+</Method>
+
+<Method name="AnnuleerOrder">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EventData As DOM.VKP.event.ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, ..#OrderLijnNummer, ..#HaluxKlantID, ProductID)
+	#dim Event As DOM.VKP.event.ProductOrderLijnAnnulatie = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
 	
-	Kill ^KPR(700)
-	Kill ^KPR(701)
-	Kill ^KPR(702)
-	Kill ^KPR(705)
-	Kill ^PRBS("BS",700)
-	
-	Quit $$$OK
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(Event)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/DOM/PM/Bouwstenen/BouwsteenKind.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Bouwstenen/BouwsteenKind.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Bouwstenen/BouwsteenKind.cls.xml	(revision 33063)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Bouwstenen.BouwsteenKind">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KindProductID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KindProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KindProductID = KindProductID
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KindProductGetObjectId">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..KindProductID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/AutoComplete.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/AutoComplete.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/AutoComplete.cls.xml	(revision 33063)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld.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="Aantal">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</Type>
+<InitialExpression>"3"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Leverdatum">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</Type>
+<InitialExpression>"25"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Product">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</Type>
+<InitialExpression>"2"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="StockAanpassing">
+<Type>vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</Type>
+<InitialExpression>"14"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u
--- vhTest/Utils/TECH/PubSub/impl/EventDispatcher.cls.xml	(revision 0)
+++ vhTest/Utils/TECH/PubSub/impl/EventDispatcher.cls.xml	(revision 33063)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.TECH.PubSub.impl.EventDispatcher">
+<Super>TECH.PubSub.impl.EventDispatcher</Super>
+
+<Method name="LogExceptie">
+<FormalSpec>Event:TECH.PubSub.Event,Exception:TECH.Exceptions.Exception,Subscription:TECH.PubSub.EventSubscription</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfersMetOnbestaandProduct.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfersMetOnbestaandProduct.cls.xml	(revision 0)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfersMetOnbestaandProduct.cls.xml	(revision 33063)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestVerwachteInvoerBijTransfersMetOnbestaandProduct">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestBase</Super>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaand product">
+<Implementation><![CDATA[
+	#define OnbestaandeProductID "abcdef"
+	
+	Do ..MaakOrder(..#OrderID, $$$OnbestaandeProductID, 16)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen verwachte invoer gevonden voor", ..#OrderID, ..#OrderLijnNummer,  ##class(DOM.common.enu.Bedrijf).Halux())
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.ObjectExpectedException", Substrings))
+	
+	Do ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml
===================================================================
diff -u -r32995 -r33063
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 32995)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 33063)
@@ -1,165 +1,79 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestVerwachteInvoerBijTransfers">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OrderUitvoering.TestHaluxReservatie")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.OrderUitvoering.HaluxReservatie.TestBase</Super>
 
-<Parameter name="HaluxKlantNummer">
-<Type>%Integer</Type>
-<Default>7587</Default>
-</Parameter>
-
-<Parameter name="HaluxKlantID">
-<Type>%String</Type>
-<Default>K||7587</Default>
-</Parameter>
-
-<Parameter name="ProductID1">
-<Type>%Integer</Type>
-<Default>111111</Default>
-</Parameter>
-
-<Parameter name="ProductID2">
-<Type>%Integer</Type>
-<Default>222222</Default>
-</Parameter>
-
-<Parameter name="Aantal">
-<Type>%Integer</Type>
-<Default>16</Default>
-</Parameter>
-
-<Parameter name="UniekeLijnNummerBinnenOrder">
-<Type>%String</Type>
-<Default>abc</Default>
-</Parameter>
-
-<Parameter name="OrderID">
-<Description>
-TransactieReferentie</Description>
-<Type>%Integer</Type>
-<Default>800001</Default>
-</Parameter>
-
-<Parameter name="OrderLijnNummer">
-<Description>
-TransactieLijnReferentie</Description>
-<Type>%Integer</Type>
-<Default>151</Default>
-</Parameter>
-
-<Property name="VerwachteInvoerAPI">
-<Type>DOM.ProdRes.VerwachteInvoerAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ProductAPIStub">
-<Type>vhTest.Mock.DOM.PM.ProductAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeAllTests">
+<Method name="Test: VerwachteInvoer bij het maken van TransferOrders">
 <Implementation><![CDATA[
-	Do ##super()
-	
-	Set ..VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-]]></Implementation>
-</Method>
+	#define ProductID 111111
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-
-	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
-	
-	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductID1).DanReturn(..GeefProductStub(..#ProductID1))
-	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductID2).DanReturn(..GeefProductStub(..#ProductID2))
-	
-	Do ..MaakOrder(..#OrderID, ..#ProductID1)
-
- 	Quit $$$OK
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
+	Do ..AssertVerwachteInvoer($$$ProductID, "2011-09-16 00:00:00", 16)
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="Test: VerwachteInvoer bij het maken van TransferOrders">
-<Implementation><![CDATA[	Do ..AssertVerwachteInvoer(..#ProductID1, "2011-09-16 00:00:00", ..#Aantal)
-]]></Implementation>
-</Method>
-
 <Method name="Test: VerwachteInvoer bij het wijzigen van TransferOrders">
 <Implementation><![CDATA[
-	Do ..WijzigOrderLijnAantalEnLeverDatum(15, "2011-09-17")
-	Do ..AssertVerwachteInvoer(..#ProductID1, "2011-09-17 00:00:00", 15)
+	#define ProductID1 111111
+	#define ProductID2 222222
 	
-	Do ..WijzigOrderLijnProduct(..#ProductID2)
-	Do ..AssertVerwachteInvoer(..#ProductID2, "2011-09-17 00:00:00", 15)
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID1).DanReturn(..MaakProductStub($$$ProductID1))
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID2).DanReturn(..MaakProductStub($$$ProductID2))
+	Do ..MaakOrder(..#OrderID, $$$ProductID1, 16)
+	
+	Do ..WijzigOrderLijnAantalEnLeverDatum($$$ProductID1, 15, "2011-09-17")
+	Do ..AssertVerwachteInvoer($$$ProductID1, "2011-09-17 00:00:00", 15)
+	
+	Do ..WijzigOrderLijnProduct($$$ProductID2)
+	Do ..AssertVerwachteInvoer($$$ProductID2, "2011-09-17 00:00:00", 15)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwachteInvoer bij het verwijderen van TransferOrders">
 <Implementation><![CDATA[
-	Do ..VerwijderOrderLijn(..#ProductID1)
+	#define ProductID 111111
+	
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
+	Do ..VerwijderOrderLijn($$$ProductID)
 	Do ..AssertGeenVerwachteInvoer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwachteInvoer wordt verwijderd bij het op bon zetten">
 <Implementation><![CDATA[
-	#dim BonID As %String = 9999888
+	#define BonID 9999888
+	#define ProductID 111111
 	
-	Set ^KU1(BonID, "F") = ..#HaluxKlantNummer _ "\"
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", $$$ProductID).DanReturn(..MaakProductStub($$$ProductID))
+	Do ..MaakOrder(..#OrderID, $$$ProductID, 16)
 	
-	#dim EventData As DOM.VKP.event.ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(..#OrderID, ..#OrderLijnNummer, BonID)
+	Set ^KU1($$$BonID, "F") = ..#HaluxKlantNummer _ "\"
+	
+	#dim EventData As DOM.VKP.event.ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(..#OrderID, ..#OrderLijnNummer, $$$BonID)
 	#dim Event As DOM.VKP.event.ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(EventData)
 	
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(Event)
 	
-	Kill ^KU1(BonID)
-	
+	Kill ^KU1($$$BonID)
+
 	Do ..AssertGeenVerwachteInvoer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt geraised indien onbestaand product">
-<Implementation><![CDATA[
-	#define OnbestaandeProductID "abcdef"
-	#define OrderID 800002
-	
-	Do ..MaakOrder($$$OrderID, $$$OnbestaandeProductID)
-
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen verwachte invoer gevonden voor", $$$OrderID, ..#OrderLijnNummer,  ##class(DOM.common.enu.Bedrijf).Halux())
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.ObjectExpectedException", Substrings))
-
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef($$$OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
-	
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder($$$OrderID)
-]]></Implementation>
-</Method>
-
 <Method name="AssertVerwachteInvoer">
 <FormalSpec>VerwachteProductID:%Integer,VerwachteLeverdatum:TECH.String,VerwachtAantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
+	#dim Reservatie As DOM.ProdRes.InvoerReservatie = VerwachteInvoer.GeefReservatie()
 	
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(), VerwachteProductID, "De productID")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(), VerwachteLeverdatum, "De leverdatum")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(), VerwachtAantal, "Het aantal")
+	Do $$$AssertEquals(Reservatie.GeefProductID(), VerwachteProductID, "De productID")
+	Do $$$AssertEquals(Reservatie.GeefDueIn(), VerwachteLeverdatum, "De leverdatum")
+	Do $$$AssertEquals(Reservatie.GeefAantal(), VerwachtAantal, "Het aantal")
 ]]></Implementation>
 </Method>
 
@@ -173,30 +87,30 @@
 </Method>
 
 <Method name="WijzigOrderLijnAantalEnLeverDatum">
-<FormalSpec>Aantal:%Integer,Leverdatum:TECH.String</FormalSpec>
+<FormalSpec>ProductID:%Integer,Aantal:%Integer,Leverdatum:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 3) = Aantal
-	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 25) = $ZDateTimeH(Leverdatum, 5)
+	Do ..OrderDataUtil.WijzigOrderLijn(..Veld.Aantal, ..#HaluxKlantNummer, ..#OrderID, ..#VolgNummerBinnenOrder, Aantal)
+	Do ..OrderDataUtil.WijzigOrderLijn(..Veld.Leverdatum, ..#HaluxKlantNummer, ..#OrderID, ..#VolgNummerBinnenOrder, $ZDateTimeH(Leverdatum, 5))
 	
 	#dim WijzigingTypes As DOM.VKP.impl.ProductOrderLijnWijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
 	
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..GeefProductOrderLijnGewijzigdEvent(..#ProductID1, WijzigingTypes))
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..MaakProductOrderLijnGewijzigdEvent(ProductID, WijzigingTypes))
 ]]></Implementation>
 </Method>
 
 <Method name="WijzigOrderLijnProduct">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 2) = ProductID
+	Do ..OrderDataUtil.WijzigOrderLijn(..Veld.Product, ..#HaluxKlantNummer, ..#OrderID, ..#VolgNummerBinnenOrder, ProductID)
 	
 	#dim WijzigingTypes As DOM.VKP.impl.ProductOrderLijnWijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
 	
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..GeefProductOrderLijnGewijzigdEvent(ProductID, WijzigingTypes))
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(..MaakProductOrderLijnGewijzigdEvent(ProductID, WijzigingTypes))
 ]]></Implementation>
 </Method>
 
@@ -210,48 +124,6 @@
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(Event)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefProductOrderLijnGewijzigdEvent">
-<FormalSpec>ProductID:%Integer,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.event.ProductOrderLijnGewijzigd</ReturnType>
-<Implementation><![CDATA[
-	#dim EventData As DOM.VKP.event.ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(..#OrderID, ..#OrderLijnNummer, ..#HaluxKlantID, ProductID, WijzigingTypes)
-	#dim Event As DOM.VKP.event.ProductOrderLijnGewijzigd = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(EventData)
-	
-	Quit Event
-]]></Implementation>
-</Method>
-
-<Method name="GeefProductStub">
-<FormalSpec>ProductID:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>vhTest.Mock.DOM.PM.Product</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
-	
-	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(ProductID)
-	Do ProductStub.IndienMethodCall("GeefLinkType").DanReturn(##class(DOM.PM.enu.LinkType).HalffabrikaatHalux())
-	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
-	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
-	
-	Quit ProductStub
-]]></Implementation>
-</Method>
-
-<Method name="MaakOrder">
-<FormalSpec>OrderID:%Integer,ProductID:%Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 1) = "\16.09.11\16.09.11 TRANSFERTORDER\\\" _ ..#HaluxKlantNummer _ "\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#" _ OrderID _ "\T\\\\\\\\\\\\\\\\\\\\62350,27731"
-	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 2) = ""
-	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 3) = ""
-	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, 4) = "10"
-	Set ^KOD(..#HaluxKlantNummer, "F", OrderID, ..#UniekeLijnNummerBinnenOrder) = "707000 \" _ ProductID _ "\" _ ..#Aantal _ "\\\0.05\0#\8\0.80\0.80\707000 \L\\\151\0.80\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
-	
-	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(..#HaluxKlantNummer, OrderID)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/Verwerker.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/Verwerker.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/Order/OrderDataM/enu/Veld/Verwerker.cls.xml	(revision 33063)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld.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>Veld:vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld</FormalSpec>
+<Implementation><![CDATA[
+	If Veld = "3" {
+		Do ..VerwerkAantal()
+	} ElseIf Veld = "25" {
+		Do ..VerwerkLeverdatum()
+	} ElseIf Veld = "2" {
+		Do ..VerwerkProduct()
+	} ElseIf Veld = "14" {
+		Do ..VerwerkStockAanpassing()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Veld,"vhTest.Utils.DOM.VKP.Order.OrderDataM.enu.Veld",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAantal">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLeverdatum">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkProduct">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkStockAanpassing">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>