Index: zTryout/MVI/KOD/Order.cls.xml
===================================================================
diff -u -r33141 -r33147
--- zTryout/MVI/KOD/Order.cls.xml	(.../Order.cls.xml)	(revision 33141)
+++ zTryout/MVI/KOD/Order.cls.xml	(.../Order.cls.xml)	(revision 33147)
@@ -106,6 +106,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijn">
+<FormalSpec>OrderLijnNummer:%String</FormalSpec>
+<ReturnType>zTryout.MVI.KOD.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[	Quit ##class(zTryout.MVI.KOD.Order.OrderLijn).%New(..OrderNummer, OrderLijnNummer, ..KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="Valideer">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml
===================================================================
diff -u -r33141 -r33147
--- zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(.../Test.cls.xml)	(revision 33141)
+++ zTryout/MVI/UnitTest/KOD/Order/Test.cls.xml	(.../Test.cls.xml)	(revision 33147)
@@ -24,12 +24,18 @@
 	Do ##super(aTestName)
 	
 	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#OnbestaandOrderNummer, ..#KlantNummer)
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#BestaandOrderNummer, ..#KlantNummer)
+	
+	Do ##class(zTryout.MVI.KOD.Order).MaakOrder(..#BestaandOrderNummer, ..#KlantNummer)
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[	Do ##super(aTestName)
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Do ##class(zTryout.MVI.KOD.Order).VerwijderOrder(..#BestaandOrderNummer, ..#KlantNummer)
 ]]></Implementation>
 </Method>
 
@@ -43,6 +49,15 @@
 	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).%New(..#OnbestaandOrderNummer, ..#KlantNummer)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefOrderLijn">
+<Implementation><![CDATA[
+	#dim Order As zTryout.MVI.KOD.Order = ##class(zTryout.MVI.KOD.Order).%New(..#BestaandOrderNummer, ..#KlantNummer)
+	#dim OrderLijn As zTryout.MVI.KOD.Order.OrderLijn = ##class(zTryout.MVI.KOD.Order.OrderLijn).MaakOrderLijn(..#BestaandOrderNummer, "abcd", ..#KlantNummer)
+	
+	Do $$$AssertTrue($IsObject(Order.GeefOrderLijn("abcd")))
+]]></Implementation>
+</Method>
 </Class>