Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r53858 -r61255
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 53858)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 61255)
@@ -40,6 +40,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KenmerkenConverterSST">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.SST</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -52,6 +57,7 @@
 	Set ..KenmerkenConverterOlm = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm).%New()
 	Set ..KenmerkenConverterTax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
 	Set ..KenmerkenConverterTbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tbx).%New()
+	Set ..KenmerkenConverterSST = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.SST).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -119,6 +125,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkSSTKenmerken">
+<FormalSpec>SSTKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken = ..KenmerkenConverterSST.Converteer(SSTKenmerken)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBasis">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
Index: APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/SST.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/SST.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/SST.cls.xml	(revision 61255)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.SST">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.SSTKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.SSTKenmerken = ##class(APPS.PM.Maatwerk.dto.SSTKenmerken).%New()
+
+	Set AppsKenmerken.Breedte = DomKenmerken.Breedte
+	Set AppsKenmerken.Diepte = DomKenmerken.Diepte
+	Set AppsKenmerken.Hoogte = DomKenmerken.Hoogte
+	Set AppsKenmerken.Kleur = DomKenmerken.Kleur
+	Set AppsKenmerken.Uitvoering = DomKenmerken.Uitvoering
+	Set AppsKenmerken.Bewegingstechnologie = DomKenmerken.Bewegingstechnologie
+	Set AppsKenmerken.NietMeeleveren = ..GeefNietMeeleveren(DomKenmerken)
+	
+	Quit AppsKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeleveren">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(DomKenmerken.NietMeeleveren)
+	
+	While (Iterator.HasNext()) {
+		Do NietMeeleveren.Insert(Iterator.Next())
+	}
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>