Index: zTryout/MVI/KOD/Order/OrderLijn.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KOD/Order/OrderLijn.cls.xml	(revision 0)
+++ zTryout/MVI/KOD/Order/OrderLijn.cls.xml	(revision 33141)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KOD.Order.OrderLijn">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Property name="Order">
+<Type>zTryout.MVI.KOD.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijnNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakOrderLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,OrderLijnNummer:%String,KlantNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KOD.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ^KOD(KlantNummer, "F", OrderNummer, OrderLijnNummer) = ""
+	
+	Quit ##class(zTryout.MVI.KOD.Order.OrderLijn).%New(OrderNummer, OrderLijnNummer, KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOrderLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,OrderLijnNummer:%String,KlantNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KOD(KlantNummer, "F", OrderNummer, OrderLijnNummer)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>OrderNummer:%String,OrderLijnNummer:%String,KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Order = ##class(zTryout.MVI.KOD.Order).%New(OrderNummer, KlantNummer)
+	Set ..OrderLijnNummer = OrderLijnNummer
+	
+	Do ..Valideer()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<ReturnType>zTryout.MVI.KOD.Order</ReturnType>
+<Implementation><![CDATA[	Quit ..Order
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderLijnNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefUniekOrderLijnNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 15)
+]]></Implementation>
+</Method>
+
+<Method name="ZetUniekOrderLijnNummer">
+<FormalSpec>UniekOrderLijnNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 15) = UniekOrderLijnNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductNummer">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 2) = ProductNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 3)
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantal">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer), "\", 3) = Aantal
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KOD(..Order.GeefKlantNummer(), "F", ..Order.GeefOrderNummer(), ..OrderLijnNummer)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KOD(" _ ..Order.GeefKlantNummer() _ ", ""F"", " _ ..Order.GeefOrderNummer() _ ", " _ ..OrderLijnNummer _ ")"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KOD/Order/Index1.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KOD/Order/Index1.cls.xml	(revision 0)
+++ zTryout/MVI/KOD/Order/Index1.cls.xml	(revision 33141)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KOD.Order.Index1">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Property name="KlantNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KOD.Order.Index1</ReturnType>
+<Implementation><![CDATA[
+	Set ^KO1(OrderNummer, "F") = KlantNummer
+	
+	Quit ##class(zTryout.MVI.KOD.Order.Index1).%New(OrderNummer, KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KO1(OrderNummer, "F")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderNummer = OrderNummer
+	Set ..KlantNummer = KlantNummer
+	
+	Do ..Valideer()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KO1(..OrderNummer, "F")
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KO1(" _ ..OrderNummer _ ", ""F"")"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KOD/Order/OrderLijn/Test.cls.xml	(revision 33141)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KOD.Order.OrderLijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="OrderNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OrderLijnNummer">
+<Type>%String</Type>
+<Default>101</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OrderNummer, ..#KlantNummer)
+	Do ##class(zTryout.MVI.KOD.Order).MaakOrder(..#OrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien OrderLijn niet bestaat voor Order">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden voor", "OrderLijn", ..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).%New(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef- en ZetUniekOrderLijnNummer">
+<Implementation><![CDATA[
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#OrderNummer, ..#OrderLijnNummer, ..#KlantNummer)
+	Do $$$AssertEquals(OrderLijn.GeefUniekOrderLijnNummer(), "")
+	
+	Do OrderLijn.ZetUniekOrderLijnNummer("abcd")
+	Do $$$AssertEquals(OrderLijn.GeefUniekOrderLijnNummer(), "abcd")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KOD/Order.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KOD/Order.cls.xml	(revision 0)
+++ zTryout/MVI/KOD/Order.cls.xml	(revision 33141)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KOD.Order">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Property name="KlantNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KOD.Order</ReturnType>
+<Implementation><![CDATA[
+	Set ^KOD(KlantNummer, "F", OrderNummer, 0) = ""
+	
+	Do ##class(zTryout.MVI.KOD.Order.Index1).MaakIndex(OrderNummer, KlantNummer)
+	Do ##class(zTryout.MVI.KOD.Order.Index2).MaakIndex(OrderNummer, KlantNummer)
+	
+	Do ##class(BL.Legacy.Order).RebuildIndexKOD(KlantNummer, OrderNummer)
+	//Do ..VerhoogOrderLijnNummer() (?)
+	
+	
+	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).%New(OrderNummer, KlantNummer)
+
+	Do ..RaiseOrderGemaaktEvent(Order)
+		
+	Quit Order
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(zTryout.MVI.KOD.Order.Index1).VerwijderIndex(OrderNummer)
+	Do ##class(zTryout.MVI.KOD.Order.Index2).VerwijderIndex(OrderNummer, KlantNummer)
+	
+	Kill ^KOD(KlantNummer, "F", OrderNummer)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseOrderGemaaktEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Order:zTryout.MVI.KOD.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(Order.GeefOrderNummer())
+	
+	#dim Iterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+	
+	While (Iterator.HasNext()) {
+		#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = Iterator.Next()
+		
+		// raise event per orderlijn
+		Do ProductOrderLijnGemaakt^FLOWORD2(Order.GeefKlantNummer(), Order.GeefOrderNummer(), OrderLijn.GeefOrderLijnNummer())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderNummer = OrderNummer
+	Set ..KlantNummer = KlantNummer
+	
+	Do ..Valideer()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim OrderLijnNummer As %String = $Order(^KOD(..KlantNummer, "F", ..OrderNummer, 100))
+
+	While $$$Not(OrderLijnNummer = "") {
+		Do OrderLijnen.Insert(##class(zTryout.MVI.KOD.Order.OrderLijn).%New(..OrderNummer, OrderLijnNummer, ..KlantNummer))
+		
+		Set OrderLijnNummer = $Order(^KOD(..KlantNummer, "F", ..OrderNummer, OrderLijnNummer))
+	}
+
+	Quit ##class(TECH.ListIterator).%New(OrderLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KOD(..KlantNummer, "F", ..OrderNummer, 0)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KOD(" _ ..KlantNummer _ ", ""F"", " _ ..OrderNummer _ ", 0)"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(revision 33141)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KOD.Order.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="BestaandOrderNummer">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="OnbestaandOrderNummer">
+<Type>%String</Type>
+<Default>654321</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OnbestaandOrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaand Order">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden voor", "Order", ..#OnbestaandOrderNummer, ..#KlantNummer)
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+
+	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).%New(..#OnbestaandOrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/KOD/Order/Index2.cls.xml
===================================================================
diff -u
--- zTryout/MVI/KOD/Order/Index2.cls.xml	(revision 0)
+++ zTryout/MVI/KOD/Order/Index2.cls.xml	(revision 33141)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.KOD.Order.Index2">
+<Super>zTryout.MVI.NodeObject</Super>
+
+<Property name="KlantNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KOD.Order.Index1</ReturnType>
+<Implementation><![CDATA[
+	Set ^KO2("F", KlantNummer, OrderNummer) = ""
+	
+	Quit ##class(zTryout.MVI.KOD.Order.Index2).%New(OrderNummer, KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^KO2("F", KlantNummer, OrderNummer)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderNummer = OrderNummer
+	Set ..KlantNummer = KlantNummer
+	
+	Do ..Valideer()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Node As %String = ^KO2("F", ..KlantNummer, ..OrderNummer)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(zTryout.MVI.Excepties.NietGevondenExceptie).%New(..%ClassName(), "^KO2(""F"", " _ ..KlantNummer _ ", " _ ..OrderNummer _ ")"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/NodeObject.cls.xml
===================================================================
diff -u
--- zTryout/MVI/NodeObject.cls.xml	(revision 0)
+++ zTryout/MVI/NodeObject.cls.xml	(revision 33141)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.NodeObject">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Valideer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml
===================================================================
diff -u
--- zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(revision 0)
+++ zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(revision 33141)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.MVI.UnitTest.KOD.Order.Index1.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="BestaandOrderNummer">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="OnbestaandOrderNummer">
+<Type>%String</Type>
+<Default>222222</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Do ##class(zTryout.MVI.KOD.Order.Index1).VerwijderIndex(..#OnbestaandOrderNummer)
+	Do ##class(zTryout.MVI.KOD.Order.Index1).VerwijderIndex(..#BestaandOrderNummer)
+	
+	Do ##class(zTryout.MVI.KOD.Order.Index1).MaakIndex(..#BestaandOrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien onbestaande Index">
+<Implementation><![CDATA[
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen resultaat gevonden", "Index1")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("zTryout.MVI.Excepties.NietGevondenExceptie", Omschrijvingen)
+	
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	
+	#dim OrderIndex As zTryout.MVI.KOD.Order.Index1 = ##class(zTryout.MVI.KOD.Order.Index1).%New(..#OnbestaandOrderNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>