Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml
===================================================================
diff -u -r73769 -r73774
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml	(.../PpsKenmerken.cls.xml)	(revision 73769)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml	(.../PpsKenmerken.cls.xml)	(revision 73774)
@@ -13,8 +13,6 @@
 	While (PpsCharaceristicsIterator.HasNext()) {
 		#dim CharacteristicValue As %String = PpsCharaceristicsIterator.Next()
 		#dim CharacteristicKey As %String = PpsCharaceristicsIterator.Key()
-		Do ##class(Tools.Wlip).%New(252).String("key: " _ CharacteristicKey)
-		Do ##class(Tools.Wlip).%New(252).String("value: " _ CharacteristicValue)
 		
 		Do ..VoegToePpsKenmerk(PpsKenmerken, CharacteristicKey, CharacteristicValue)
 	}
@@ -27,12 +25,15 @@
 <FormalSpec><![CDATA[&PpsKenmerken:%ArrayOfDataTypes,CharacteristicKey:%String,CharacteristicValue:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (CharacteristicKey = "Colour")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Kleur") }
-	If (CharacteristicKey = "Length")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Lengte") }
-	If (CharacteristicKey = "Depth")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Diepte") }
-	If (CharacteristicKey = "Height")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Hoogte") }
-	If (CharacteristicKey = "Width")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Breedte") }
-	If (CharacteristicKey = "Print")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Print") }
+	If (CharacteristicKey = "Colour")		{ Do PpsKenmerken.SetAt(CharacteristicValue, "Kleur") }
+	ElseIf (CharacteristicKey = "Length")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Lengte") }
+	ElseIf (CharacteristicKey = "Depth")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Diepte") }
+	ElseIf (CharacteristicKey = "Height")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Hoogte") }
+	ElseIf (CharacteristicKey = "Width")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Breedte") }
+	ElseIf (CharacteristicKey = "Print")	{ Do PpsKenmerken.SetAt(CharacteristicValue, "Print") }
+	Else {
+		do ##class(vhLib.Logger).%New("VhConfig.Converter").Error("EncowayNaarDom", "Geen vertaling gevonden voor PpsKenmerk '" _ CharacteristicKey _ "'.")
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73656 -r73774
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73656)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73774)
@@ -238,7 +238,7 @@
 	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(ProductID)
 	
-	Set Halffab.PpsKenmerken = $Select($$$HasLength(Halffabrikaat.PpsCharacteristics): Halffabrikaat.PpsCharacteristics, 1:##class(%ArrayOfDataTypes).%New())
+	Set Halffab.PpsKenmerken = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.PpsKenmerken).%New().Converteer(Halffabrikaat.PpsCharacteristics)
 	Set Halffab.LadeDiepte = Halffabrikaat.Characteristics.GetAt("BoxSystemDepth")
 	Set Halffab.LadeHoogte = Halffabrikaat.Characteristics.GetAt("BoxSystemHeight")
 	Set Halffab.LadeKleur = Halffabrikaat.Characteristics.GetAt("BoxSystemColour")