Index: vhUnitTest/DOM/OV/OrderData.cls.xml
===================================================================
diff -u -r1172 -r1585
--- vhUnitTest/DOM/OV/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 1172)
+++ vhUnitTest/DOM/OV/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 1585)
@@ -11,7 +11,7 @@
 	Set ^KO1(118382,"F") = "1000\"
 	
 	Set ^KOD(1000,"F",118382,0) = 104
-	Set ^KOD(1000,"F",118382,1) = "\04.02.11\Test voor CSC\\\1000\EX;1`EX;3`EX;5\3#1027#62126,28751\\cw@vanhoecke.be\\\\\\\\EUR\\\60\1\\DIV#62126,28751#118382\\\\\\\\\\\\\\\\\\\\\62126,28751"
+	Set ^KOD(1000,"F",118382,1) = "\04.02.11\KLANTREF : ABCD\\\1000\EX;1`EX;3`EX;5\3#1027#62126,28751\\cw@vanhoecke.be\\\\\\\\EUR\\\60\1\\DIV#62126,28751#118382\\\\\\\\\\\\\\\\\\\\\62126,28751"
 	Set ^KOD(1000,"F",118382,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(1000,"F",118382,3) = "1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(1000,"F",118382,4) = 4
Index: DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r1076 -r1585
--- DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1076)
+++ DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1585)
@@ -120,6 +120,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..HoofdingData,"\",3)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..KlantNr
Index: vhUnitTest/DOM/OV/TestOrder.cls.xml
===================================================================
diff -u -r1074 -r1585
--- vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 1585)
@@ -26,6 +26,7 @@
 	Do $$$AssertTrue($IsObject(Order),"Het order is een correct object")
 	Do $$$AssertEquals(Order.GeefOrderNr(),OrderNr,"Order nummer")
 	Do $$$AssertEquals(Order.GeefKlantNr(),1000,"Order voor testklant VH")
+	Do $$$AssertEquals(Order.GeefKlantReferentie(),"KLANTREF : ABCD","Klantreferentie")
 	Do $$$AssertTrue('Order.BevatLangGoed(),"Het order bevat geen langgoed")
 	Do $$$AssertFalse(Order.IsASAP(),"Het order is ASAP")
 	Do $$$AssertEquals(Order.GeefIngegevenDoor(),"CW","Order ingegeven door")
Index: DOM/OV/Order.cls.xml
===================================================================
diff -u -r1076 -r1585
--- DOM/OV/Order.cls.xml	(.../Order.cls.xml)	(revision 1076)
+++ DOM/OV/Order.cls.xml	(.../Order.cls.xml)	(revision 1585)
@@ -37,6 +37,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefKlantReferentie">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefKlantNr">
 <Abstract>1</Abstract>
 <ReturnType>%Integer</ReturnType>