Index: zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml
===================================================================
diff -u -r33141 -r33146
--- zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(.../Test.cls.xml)	(revision 33141)
+++ zTryout/MVI/UnitTest/KOD/Order/Index1/Test.cls.xml	(.../Test.cls.xml)	(revision 33146)
@@ -37,9 +37,17 @@
 	
 	Do ..ZetVerwachteExceptie(VerwachteExceptie)
 	
-	#dim OrderIndex As zTryout.MVI.KOD.Order.Index1 = ##class(zTryout.MVI.KOD.Order.Index1).%New(..#OnbestaandOrderNummer, ..#KlantNummer)
+	#dim OrderIndex As zTryout.MVI.KOD.Order.Index1 = ##class(zTryout.MVI.KOD.Order.Index1).%New(..#OnbestaandOrderNummer)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geef KlantNummer">
+<Implementation><![CDATA[
+	#dim OrderIndex As zTryout.MVI.KOD.Order.Index1 = ##class(zTryout.MVI.KOD.Order.Index1).%New(..#BestaandOrderNummer)
+	
+	Do $$$AssertEquals(OrderIndex.GeefKlantNummer(), ..#KlantNummer)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: zTryout/MVI/KOD/Order/Index1.cls.xml
===================================================================
diff -u -r33141 -r33146
--- zTryout/MVI/KOD/Order/Index1.cls.xml	(.../Index1.cls.xml)	(revision 33141)
+++ zTryout/MVI/KOD/Order/Index1.cls.xml	(.../Index1.cls.xml)	(revision 33146)
@@ -20,7 +20,7 @@
 <Implementation><![CDATA[
 	Set ^KO1(OrderNummer, "F") = KlantNummer
 	
-	Quit ##class(zTryout.MVI.KOD.Order.Index1).%New(OrderNummer, KlantNummer)
+	Quit ##class(zTryout.MVI.KOD.Order.Index1).%New(OrderNummer)
 ]]></Implementation>
 </Method>
 
@@ -32,19 +32,24 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>OrderNummer:%String,KlantNummer:%String</FormalSpec>
+<FormalSpec>OrderNummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..OrderNummer = OrderNummer
-	Set ..KlantNummer = KlantNummer
 	
 	Do ..Valideer()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ^KO1(..OrderNummer, "F")
+]]></Implementation>
+</Method>
+
 <Method name="Valideer">
 <Private>1</Private>
 <Implementation><![CDATA[