Index: APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren.cls.xml	(revision 29382)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren">
+<Super>%ListOfDataTypes</Super>
+
+<Method name="Insert">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do:('(..Find(Rol))) ##super(Rol)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Remove">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..RemoveAt(..Find(Rol))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/dto/IngegevenKenmerkenNietMeeleveren/Test.cls.xml	(revision 29382)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="NietMeeleveren">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test insert unieke rollen">
+<Implementation><![CDATA[
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling()
+	
+	Do ..NietMeeleveren.Insert(Rol)
+	Do ..NietMeeleveren.Insert(Rol)
+	
+	Do $$$AssertEquals(..NietMeeleveren.Count(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test remove bestaande rol">
+<Implementation><![CDATA[
+	#Dim Rol1 As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling()
+	#Dim Rol2 As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Bodem()
+	
+	Do ..NietMeeleveren.Insert(Rol1)
+	Do ..NietMeeleveren.Insert(Rol2)
+	
+	Do ..NietMeeleveren.Remove(Rol1)
+	
+	Do $$$AssertEquals(..NietMeeleveren.Count(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test remove onbestaande rol zonder error">
+<Implementation><![CDATA[
+	Do ..NietMeeleveren.Remove(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling())
+	
+	Do $$$AssertEquals(..NietMeeleveren.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..NietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>