Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml	(revision 73769)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.PpsKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>PpsCharacteristics:%ArrayOfDataTypes</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim PpsKenmerken As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	#dim PpsCharaceristicsIterator = ##class(TECH.ListIterator).%New(PpsCharacteristics)
+	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)
+	}
+	
+	Quit PpsKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VoegToePpsKenmerk">
+<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") }
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>