Index: APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm.cls.xml	(revision 50624)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.OLMKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.OLMKenmerken = ##class(APPS.PM.Maatwerk.dto.OLMKenmerken).%New()
+
+	Set AppsKenmerken.InTeKortenPRNr = DomKenmerken.InTeKortenPRNr
+	Set AppsKenmerken.TeBekomenLengte = DomKenmerken.TeBekomenLengte
+	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 %ListOfDataTypes = ##class(%ListOfDataTypes).%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>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/OlmKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/OlmKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/OlmKenmerken.cls.xml	(revision 50624)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.OlmKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r50622 -r50624
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 50622)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 50624)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KenmerkenConverterOlm">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KenmerkenConverterTax">
 <Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax</Type>
 <Private>1</Private>
@@ -39,6 +44,7 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Set ..LbxConverter = $$$Inject(LbxConverter, ##class(APPS.PM.Maatwerk.impl.LBX.KenmerkNaarDtoConverter).%New())
+	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()
 	
@@ -117,16 +123,11 @@
 </Method>
 
 <Method name="VerwerkOLMKenmerken">
-<FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<FormalSpec>OlmKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.OLMKenmerken).%New()
-	
-	Set ..IngegevenKenmerken.InTeKortenPRNr = OLMKenmerken.InTeKortenPRNr
-	Set ..IngegevenKenmerken.TeBekomenLengte = OLMKenmerken.TeBekomenLengte
+	Set ..IngegevenKenmerken = ..KenmerkenConverterOlm.Converteer(OlmKenmerken)
 
-	Do ..KopieerNietMeeleveren(OLMKenmerken,..IngegevenKenmerken)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Olm/Test.cls.xml	(revision 50624)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.OlmKenmerken).LegeKenmerken()
+	Set DomKenmerken.InTeKortenPRNr = "InTeKortenPRNr"
+	Set DomKenmerken.TeBekomenLengte = "TeBekomenLengte"
+	
+	Do DomKenmerken.NietMeeleveren.Insert("NietMeeleveren1")
+	Do DomKenmerken.NietMeeleveren.Insert("NietMeeleveren2")
+	
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Olm).%New()
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.OLMKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertEquals(DomKenmerken.InTeKortenPRNr, AppsKenmerken.InTeKortenPRNr, "InTeKortenPRNr wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.TeBekomenLengte, AppsKenmerken.TeBekomenLengte, "TeBekomenLengte wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.NietMeeleveren.Count(), AppsKenmerken.NietMeeleveren.Count())
+	Do $$$AssertEqualsList(DomKenmerken.NietMeeleveren, AppsKenmerken.NietMeeleveren, "NietMeeleveren wordt overgenomen")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>