Index: Prod/ProductTekst.cls.xml
===================================================================
diff -u -r49112 -r55012
--- Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 49112)
+++ Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 55012)
@@ -1193,6 +1193,7 @@
 <Implementation><![CDATA[
 	#dim Omschrijving As %String = ..GetOmschrijving(Taal,Sep)
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..ProductNr)
+	Set:$$$Not((Taal="N")||(Taal="D")||(Taal="F")) Taal = "E"
 	#dim Kleur As %String = Product.GeefKleurOmschrijving(Taal)
 	#dim OmschrijvingDeel As %String = $Piece(Omschrijving,Sep,1)
 	#dim LO As %Integer = $Length(OmschrijvingDeel)
@@ -1227,6 +1228,7 @@
 
 	Kill Array
 	Set Array=0
+	Set:$$$Not((Taal="N")||(Taal="D")||(Taal="F")) Taal = "E"
 	Set Label=$S(Taal="BR":"Bestelreferentie",1:"Omschrijving"_Taal)
 	Set Max=$S("BR"=Taal:20,1:22)
 	For VolgNr=1:1:Max Do
@@ -1279,6 +1281,8 @@
  Set:Taal="D" List = LangtekstPieces.Duits
  Set:Taal="E" List = LangtekstPieces.Engels
  Set:Taal="BR" List = LangtekstPieces.BestelReferentie
+ Set List = $Get(List,LangtekstPieces.Engels)
+ 
  Kill Array
  Set Array=0
  For I=1:1:$L(List,",") Do
Index: vhUnitTest/Prod/TestProductTekst.cls.xml
===================================================================
diff -u -r36726 -r55012
--- vhUnitTest/Prod/TestProductTekst.cls.xml	(.../TestProductTekst.cls.xml)	(revision 36726)
+++ vhUnitTest/Prod/TestProductTekst.cls.xml	(.../TestProductTekst.cls.xml)	(revision 55012)
@@ -26,20 +26,25 @@
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-		do ##super()
-		Kill ^KPR(..#ProductIDKleur,0) 
+		Kill ^KPR(..#ProductIDKleur,0)
+		Kill ^KPR(..#ProductIDKleur,1)
+		Kill ^KPR(..#ProductIDKleur,2)
 		Kill ^KPR(..#ProductIDLangeKleur,0) 
 		
 		Kill ^KCOL("UT 1 ")
 		Kill ^KCOL("UT 2 ")
+		
+		Do ##super()
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-		do ##super()
+		Do ##super()
 		Set ^KPR(..#ProductIDLangeKleur,0) = "MAT.CF. MMH.D510B 622UT 2\Vinyl-fiberglass uitleg\868317\\8\\226.67\C#C\\703100\inlegmat\\\\\\5#5#0\6\2.6153\\\\\\\\\"
 		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 ^KCOL("UT 1 ","N")="UnitTestKleur"
 		Set ^KCOL("UT 2 ","N")="UnitTestKleur met een langere beschrijvingsnaam"
@@ -53,6 +58,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test GeefOmschrijving Frans ">
+<Implementation><![CDATA[
+		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)
+		Do $$$AssertEquals(ProductTekst.GetOmschrijving("F",";"),"Franse omschrijving")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefOmschrijving Duits ">
+<Implementation><![CDATA[
+		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)
+		Do $$$AssertEquals(ProductTekst.GetOmschrijving("D",";"),"Duitse omschrijving")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefOmschrijving Engels ">
+<Implementation><![CDATA[
+		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)
+		Do $$$AssertEquals(ProductTekst.GetOmschrijving("E",";"),"Engelse omschrijving")
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefOmschrijving met niet-standaard taal -&gt; fallback naar Engels">
+<Implementation><![CDATA[
+		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)
+		Do $$$AssertEquals(ProductTekst.GetOmschrijving($$$DummyString,";"),"Engelse omschrijving")
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefOmschrijvingKleurINCL">
 <Implementation><![CDATA[
 		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..#ProductIDKleur)