Index: vhUnitTest/Prod/TestProductTekst.cls.xml
===================================================================
diff -u -r55012 -r55018
--- vhUnitTest/Prod/TestProductTekst.cls.xml	(.../TestProductTekst.cls.xml)	(revision 55012)
+++ vhUnitTest/Prod/TestProductTekst.cls.xml	(.../TestProductTekst.cls.xml)	(revision 55018)
@@ -29,6 +29,7 @@
 		Kill ^KPR(..#ProductIDKleur,0)
 		Kill ^KPR(..#ProductIDKleur,1)
 		Kill ^KPR(..#ProductIDKleur,2)
+		Kill ^KPR(..#ProductIDKleur,4)
 		Kill ^KPR(..#ProductIDLangeKleur,0) 
 		
 		Kill ^KCOL("UT 1 ")
@@ -45,6 +46,7 @@
 		Set ^KPR(..#ProductIDKleur,0) = "TBX.HK0008 900X900   UT 1\Hoekkast 900x900\\\8\\226.67\C#C\\703100\met 3 lage en 1 hoge laden\\\\\\\6\2.6153\\\\\\\\\62339"
 		Set ^KPR(..#ProductIDKleur,1) = "\\\\\\\\\\\\\\\\\\\\\Franse omschrijving"
 		Set ^KPR(..#ProductIDKleur,2) = "Engelse omschrijving\Duitse omschrijving"
+		Set ^KPR(..#ProductIDKleur,4) = "Bestelreferentie"
 
 		Set ^KCOL("UT 1 ","N")="UnitTestKleur"
 		Set ^KCOL("UT 2 ","N")="UnitTestKleur met een langere beschrijvingsnaam"
@@ -79,6 +81,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test GeefOmschrijving BestelReferentie ">
+<Implementation><![CDATA[
+		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)
+		Do $$$AssertEquals(ProductTekst.GetOmschrijving("BR",";"),"Bestelreferentie")
+]]></Implementation>
+</Method>
+
 <Method name="Test GeefOmschrijving met niet-standaard taal -&gt; fallback naar Engels">
 <Implementation><![CDATA[
 		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)