Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml
===================================================================
diff -u -r32982 -r32995
--- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 32982)
+++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml	(.../TestVerwachteInvoerBijTransfers.cls.xml)	(revision 32995)
@@ -7,28 +7,60 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="KlantNummerHalux">
+<Parameter name="HaluxKlantNummer">
 <Type>%Integer</Type>
 <Default>7587</Default>
 </Parameter>
 
-<Parameter name="OrderID">
+<Parameter name="HaluxKlantID">
+<Type>%String</Type>
+<Default>K||7587</Default>
+</Parameter>
+
+<Parameter name="ProductID1">
 <Type>%Integer</Type>
-<Default>198909</Default>
+<Default>111111</Default>
 </Parameter>
 
-<Parameter name="ToeleveringID">
+<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>90001</Default>
+<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">
 <Implementation><![CDATA[
 	Do ##super()
@@ -42,18 +74,14 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+
+	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	
-	Do ..OnAfterOneTest(aTestName)
-	Do ..MaakOrder(..#KlantNummerHalux, ..#OrderID)
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductID1).DanReturn(..GeefProductStub(..#ProductID1))
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductID2).DanReturn(..GeefProductStub(..#ProductID2))
 	
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#ToeleveringID, 100, ##class(DOM.common.enu.Bedrijf).Halux())
-	Do:($IsObject(VerwachteInvoer)) VerwachteInvoer.Delete()
-	Set VerwachteInvoer = ""
+	Do ..MaakOrder(..#OrderID, ..#ProductID1)
 
-	Do ..MaakProducten()
-	Do ..MaakProductBouwstenen()
-	Do ..MaakToelevering(..#ToeleveringID)
-	
  	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -62,184 +90,166 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
 	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
-	
-	Do ..VerwijderProducten()
-	Do ..VerwijderProductBouwstenen()
-	
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="TestVerwachteInvoerBijTransfers">
+<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[
-	#dim OrderLijnCode As %String = 151
-	#dim ProductID As %String = 616815
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||" _ ..#KlantNummerHalux
+	Do ..WijzigOrderLijnAantalEnLeverDatum(15, "2011-09-17")
+	Do ..AssertVerwachteInvoer(..#ProductID1, "2011-09-17 00:00:00", 15)
 	
-	/*   Lijn aanmaken   */
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
+	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)
+	Do ..AssertGeenVerwachteInvoer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerwachteInvoer wordt verwijderd bij het op bon zetten">
+<Implementation><![CDATA[
+	#dim BonID As %String = 9999888
 	
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),ProductID,"Het product ID")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(),"2011-09-16 00:00:00","De leverdatum")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),16,"Het aantal")
+	Set ^KU1(BonID, "F") = ..#HaluxKlantNummer _ "\"
 	
-	/*  Lijn wijzigen  */
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 3) = 15 // Aantal van 16 naar 15 zetten
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 25) = 62351 // Leverdag van 62350 naar 62351 verhogen
+	#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)
 	
-	#dim ProductOrderLijnWijzigEventData As DOM.VKP.event.ProductOrderLijnWijzigEventData
-	#dim ProductOrderLijnGewijzigdEvent As DOM.VKP.event.ProductOrderLijnGewijzigd
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(Event)
 	
-	// Aantal en leverdatum wijzigen
-	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
-	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+	Kill ^KU1(BonID)
 	
-	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)
+	Do ..AssertGeenVerwachteInvoer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaand product">
+<Implementation><![CDATA[
+	#define OnbestaandeProductID "abcdef"
+	#define OrderID 800002
 	
-	Set VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(),"2011-09-17 00:00:00","De leverdatum")
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),15,"Het aantal")
-	Set VerwachteInvoer = ""
+	Do ..MaakOrder($$$OrderID, $$$OnbestaandeProductID)
 
-	// Product wijzigen
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 2) = 570175 // Product wijzigen van 616815 naar 570175
+	#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())
 	
-	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+	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())
 	
-	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.GeefInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),570175,"De leverdatum")
-	Set VerwachteInvoer = ""
-	
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 2) = 616815 // terug het product op 616815 plaatsen
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 3) = 16 // terug het aantal op 16 plaatsen
-	Set $Piece(^KOD(..#KlantNummerHalux, "F", ..#OrderID, 101), "\", 25) = 62350 // terug de leverdag op 62350 plaatsen
-	
-	#dim ProductOrderLijnEventData As DOM.VKP.event.ProductOrderLijnEventData
-	
-	/*  Lijn verwijderen  */
-	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, OrderLijnCode, KlantID, ProductID)
-	#dim ProductOrderLijnAnnulatieEvent As DOM.VKP.event.ProductOrderLijnAnnulatie = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent)
-	
-	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd")
-	Set VerwachteInvoer = ""
-	
-	/*   Lijn aanmaken   */
-	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, OrderLijnCode, KlantID, ProductID)
-	#dim ProductOrderLijnGemaaktEvent As DOM.VKP.event.ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)	
-	
-	/*  Lijn verwijderen  */
-	#dim BonID As %String = 9999888
-	Set ^KU1(BonID, "F") = ..#KlantNummerHalux _ "\"
-	
-	#dim EventData As DOM.VKP.event.ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(..#OrderID, OrderLijnCode, BonID)
-	#dim ProductLijnOpBonEvent As DOM.VKP.event.ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(EventData)
-	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
-	Kill ^KU1(BonID)
-	
-	Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
-	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd")
-	Set VerwachteInvoer = ""
+	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(), VerwachteProductID, "De productID")
+	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(), VerwachteLeverdatum, "De leverdatum")
+	Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(), VerwachtAantal, "Het aantal")
 ]]></Implementation>
 </Method>
 
-<Method name="MaakOrder">
-<FormalSpec>KlantNummer:%Integer,OrderID:%Integer</FormalSpec>
+<Method name="AssertGeenVerwachteInvoer">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KOD(KlantNummer, "F", OrderID, 1) = "\16.09.11\16.09.11 TRANSFERTORDER\\\" _ KlantNummer _ "\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#" _ OrderID _ "\T\\\\\\\\\\\\\\\\\\\\62350,27731"
-	Set ^KOD(KlantNummer, "F", OrderID, 2) = ""
-	Set ^KOD(KlantNummer, "F", OrderID, 3) = ""
-	Set ^KOD(KlantNummer, "F", OrderID, 4) = "10"
-	Set ^KOD(KlantNummer, "F", OrderID, 101) = "707000 \616815\16\\\0.05\0#\8\0.80\0.80\707000 \L\\\151\0.80\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
-	Set ^KOD(KlantNummer, "F", OrderID, 102) = "707000 \570175\1\\\4.22\0#\8\4.22\4.22\707000 \L\\\121\4.22\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(..#OrderID, ..#OrderLijnNummer, ##class(DOM.common.enu.Bedrijf).Halux())
 	
-	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(KlantNummer, OrderID)
+	Do $$$AssertFalse($IsObject(VerwachteInvoer), "De invoer werd verwijderd")
 ]]></Implementation>
 </Method>
 
-<Method name="MaakProducten">
+<Method name="WijzigOrderLijnAantalEnLeverDatum">
+<FormalSpec>Aantal:%Integer,Leverdatum:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..MaakProduct(700)
-	Do ..MaakProduct(701)
-	Do ..MaakProduct(702)
-	Do ..MaakProduct(705)
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 3) = Aantal
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 25) = $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))
 ]]></Implementation>
 </Method>
 
-<Method name="MaakProduct">
+<Method name="WijzigOrderLijnProduct">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KPR(ProductID) = ""
-	Set ^KPR(ProductID, 0) = ""
-	Set $Piece(^KPR(ProductID, 0), "\", 23) = ##class(DOM.PM.enu.LinkType).HalffabrikaatHalux()
+	Set $Piece(^KOD(..#HaluxKlantNummer, "F", ..#OrderID, ..#UniekeLijnNummerBinnenOrder), "\", 2) = 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))
 ]]></Implementation>
 </Method>
 
-<Method name="MaakProductBouwstenen">
+<Method name="VerwijderOrderLijn">
+<FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	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 EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(..#OrderID, ..#OrderLijnNummer, ..#HaluxKlantID, ProductID)
+	#dim Event As DOM.VKP.event.ProductOrderLijnAnnulatie = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
 	
-	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"
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(Event)
 ]]></Implementation>
 </Method>
 
-<Method name="MaakToelevering">
-<FormalSpec>ToeleveringID:%Integer</FormalSpec>
+<Method name="GeefProductOrderLijnGewijzigdEvent">
+<FormalSpec>ProductID:%Integer,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes</FormalSpec>
 <Private>1</Private>
+<ReturnType>DOM.VKP.event.ProductOrderLijnGewijzigd</ReturnType>
 <Implementation><![CDATA[
-	#define LeverancierNummer 5005
+	#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)
 	
-	Set ^KTO($$$LeverancierNummer, ToeleveringID, 0) = "102"
-	Set ^KTO($$$LeverancierNummer, ToeleveringID, 1) = "\17.11.11\STOCK\\\" _ $$$LeverancierNummer _ "\\\212250\\\\\\\\\EUR\62371\\\\\\\"
-	Set ^KTO($$$LeverancierNummer, ToeleveringID, 4) = "2"
-	Set ^KTO($$$LeverancierNummer, ToeleveringID, 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($$$LeverancierNummer, ToeleveringID)
+	Quit Event
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderProducten">
+<Method name="GeefProductStub">
+<FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	Kill ^KPR(700)
-	Kill ^KPR(701)
-	Kill ^KPR(702)
-	Kill ^KPR(705)
+	#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="VerwijderProductBouwstenen">
+<Method name="MaakOrder">
+<FormalSpec>OrderID:%Integer,ProductID:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Kill ^PRBS("BS", 700)
+<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>