Index: PRKLEUR.mac.rou
===================================================================
diff -u -r31098 -r48224
--- PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 31098)
+++ PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 48224)
@@ -93,7 +93,7 @@
  New I,KortTxt,Kode,Kleur New:PRNr?4.7N B
  Set Taal=$G(Taal,"N")
  If PRNr For I=0:1 Quit:'$D(^KPR(PRNr,I))  Set B(I+1)=^KPR(PRNr,I)
- Set KortTxt=$P(B(1),D),Kode=$E(KortTxt,22,25)
+ Set KortTxt=$P(B(1),"\"),Kode=$E(KortTxt,22,25)
  Set:$L(Kode) Kleur=$G(^KCOL(Kode_" ",Taal))
  Quit $G(Kleur)
  ;
Index: vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47903 -r48224
--- vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47903)
+++ vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48224)
@@ -508,8 +508,9 @@
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
 <Implementation><![CDATA[
 	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
-	do AxProduct.BasisSetObjectId(..#ProductId)
-	quit AxProduct
+	Do AxProduct.BasisSetObjectId(..#ProductId)
+	Do AxProduct.TekstSetObjectId(..#ProductId)
+	Quit AxProduct
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml
===================================================================
diff -u -r47903 -r48224
--- AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml	(.../ProductDixfConverter.cls.xml)	(revision 47903)
+++ AX/Uitgaand/PM/Product/impl/ProductDixfConverter.cls.xml	(.../ProductDixfConverter.cls.xml)	(revision 48224)
@@ -31,7 +31,7 @@
 	Set AxProduct.ADUCertClaimLevel = $$$If(..IsBasisProductFilter.IsValid(Product),"",..BepaalADUCertClaimLevel(Product))
 	Set AxProduct.DisplayProductNumber = Product.Basis.IdentNummer
 	Set AxProduct.EcoResProductDimensionGroupName = $$$If(..IsBasisProductFilter.IsValid(Product),"Con","")
-	Set AxProduct.EcoResProductTranslationDescription = $Translate(Product.Tekst.GetOmschrijving("N"," "),";",",")
+	Set AxProduct.EcoResProductTranslationDescription = ..GeefEcoResProductTranslationDescription(Product)
 	Set AxProduct.EcoResProductTranslationLanguageId = "nl-be"
 	Set AxProduct.EcoResProductTranslationName = Product.Basis.KortTekst
 	Set AxProduct.EcoResStorageDimensionGroupName = "WMS"
@@ -99,6 +99,21 @@
 	Quit ADUCertClaimLevel
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEcoResProductTranslationDescription">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EcoResProductTranslationDescription As %String = Product.Tekst.GetOmschrijving("N"," ")
+	
+	If $$$Not(Product.Tekst.GeefKleurOmschrijving() = "") {
+		Set EcoResProductTranslationDescription = EcoResProductTranslationDescription_", kleur: "_##class(TECH.StringUtils).ToLower(Product.Tekst.GeefKleurOmschrijving())
+	}
+	
+	Quit $Translate(EcoResProductTranslationDescription,";",",")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: Prod/ProductTekst.cls.xml
===================================================================
diff -u -r37689 -r48224
--- Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 37689)
+++ Prod/ProductTekst.cls.xml	(.../ProductTekst.cls.xml)	(revision 48224)
@@ -1328,6 +1328,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKleurOmschrijving">
+<FormalSpec>Taal:%String="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$OMSCHR^PRKLEUR(..ProductNr,Taal)
+]]></Implementation>
+</Method>
+
 <Storage name="DataM">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Prod.ProductBasisS</StreamLocation>