Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r30491 -r30575
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30491)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 30575)
@@ -158,12 +158,27 @@
 		Do DecomposeStatus^%apiOBJ(Status,.err,"-d") For i=1:1:err Set Msg = Msg _ " " _ err(i)
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Msg))
 	}
-	Set NietMeeleverenIterator = ##class(TECH.PiecesIterator).%New(NietMeeleverenLijst, "\")
-	While (NietMeeleverenIterator.HasNext()) {
-		#dim NietMeeleverenRol As DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol = NietMeeleverenIterator.Next()
-		Do:(NietMeeleverenRol '= "") IngegevenKenmerken.NietMeeleveren.Insert(NietMeeleverenRol)
+		
+	do ..VulAanNietMeeleveren(.IngegevenKenmerken, NietMeeleverenLijst)
+	
+	quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VulAanNietMeeleveren">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,NietMeeleverenLijst:TECH.String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.PiecesIterator).%New(NietMeeleverenLijst, "\")
+	
+	while (Iterator.HasNext()) {
+		#dim NietMeeleverenRol As DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol = Iterator.Next()
+		
+		if ($$$Not(NietMeeleverenRol = "") && $$$Not(##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, NietMeeleverenRol))) {
+			do IngegevenKenmerken.NietMeeleveren.Insert(NietMeeleverenRol)
+		}
 	}
-	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>