Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r39328 -r39730
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 39328)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 39730)
@@ -197,12 +197,16 @@
 		Continue:PropertyName="TussenrugMateriaal"
 		Continue:PropertyName="FrontOndersteuningAantal"
 		Continue:PropertyName="FrontOndersteuningType"
+		Continue:PropertyName="BodemKleur"
+		Continue:PropertyName="LadeKleur"
 		
 		Do ..ConverterData.Add(PropertyName,PropertyName)
 	}
 	Do ..ConverterData.Add("TussenrugMateriaal","TussenrugMateriaal","Set Output = $Case(Input, ""W"":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), ""S"":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(), :Input)")
 	Do ..ConverterData.Add("HeeftOpvullijstLinks","HeeftOpvullijstLinks","Set Output = $Case(Input, """":""0"", :Input)")
 	Do ..ConverterData.Add("HeeftOpvullijstRechts","HeeftOpvullijstRechts","Set Output = $Case(Input, """":""0"", :Input)")
+	Do ..ConverterData.Add("BodemKleur","BodemKleur","Set Output = $Case(Input, ""TS"":""BZ"", :Input)")
+	Do ..ConverterData.Add("LadeKleur","LadeKleur","Set Output = $Case(Input, ""TS"":""BZ"", :Input)")
 	
 	Quit ..ConverterData
 ]]></Implementation>