Index: APPS/PM/IKenmerkBuilder.cls.xml
===================================================================
diff -u -r1217 -r1218
--- APPS/PM/IKenmerkBuilder.cls.xml	(.../IKenmerkBuilder.cls.xml)	(revision 1217)
+++ APPS/PM/IKenmerkBuilder.cls.xml	(.../IKenmerkBuilder.cls.xml)	(revision 1218)
@@ -74,7 +74,6 @@
 <Implementation><![CDATA[
 	Set Kenmerk=""
 	For { Set KenmerkWaarde=..AantepassenKenmerken.GetNext(.Kenmerk) Quit:(Kenmerk="")
-		  ;Do:($length(KenmerkWaarde)) ..WriteLine()
 		  Do ..WriteLine()
 		  Do ..Write($$$TAB_Kenmerk_" : "_$$$LCVT(KenmerkWaarde))
 	}
@@ -91,25 +90,9 @@
 	For { Set KenmerkWaarde=..AantepassenKenmerken.GetNext(.Kenmerk) Quit:(Kenmerk="")
 		If ($length(KenmerkWaarde)) { 
 			
- /*			If Kenmerk="xProductSorteerSleutel" {
-				// Debug voor dit kenmerk
-				d WLIP^vhDBG(97,"Kenmerk ProductSorteerSleutel :  DataDef obj: "_$G(DataDef(Kenmerk)))
-				s objTestNew=##class(Prod.Kenmerk.DataDefinitie).%New()
-				s objTestOpenOther=##class(Prod.Kenmerk.DataDefinitie).%OpenId("89998||TB||BasisType")
-				s objTestOpenDDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId("435360.1||OL||ProductSorteerSleutel")
-				
-				d WLIP^vhDBG(97,"   oref New "_objTestNew_$$$CRLF_"   oref other "_objTestOpenOther_$$$CRLF_"   oref DDef "_objTestOpenDDef)
-				d:($IsObject(objTestOpenDDef)) WLIP^vhDBG(97,"DataDef is modified "_objTestOpenDDef.%IsModified()_"   Waarden is modified "_objTestOpenDDef.WaardenIsModified())
-				
-			}
- */			
-			
 			Set sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak(GroepID,..KenmerkObject.GetID(),Kenmerk,KenmerkWaarde)
 			Set:(sc=0) sc=$$$ERROR($$$GeneralError,"Prod.Kenmerk.DataDefinite "_Kenmerk_" kan niet toegevoegd worden.")
 
- /*				d:(xKenmerk="ProductSorteerSleutel")&&($IsObject(objTestOpenDDef)) WLIP^vhDBG(97,"Set done.  DataDef is modified "_objTestOpenDDef.%IsModified()_"   Waarden is modified "_objTestOpenDDef.WaardenIsModified())
-				Set (objTestNew,objTestOpenOther,objTestOpenDDef)=""
- */
 			If $$$ISERR(sc) { 
 				Do ..Write($$$CRLF_$$$TAB_$$ParseStatus^vhLib(sc))
 			 	quit
@@ -120,24 +103,8 @@
 		
 		} Else { 
 
- /*			If Kenmerk="xLadeBreedteMaxAangeraden" {
-				// Debug voor dit kenmerk
-				d WLIP^vhDBG(97,"Kenmerk LadeBreedteMaxAangeraden :  DataDef obj: "_$G(DataDef(Kenmerk)))
-				s objTestNew=##class(Prod.Kenmerk.DataDefinitie).%New()
-				s objTestOpenOther=##class(Prod.Kenmerk.DataDefinitie).%OpenId("89998||TB||BasisType")
-				s objTestOpenDDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId("435360.1||OL||LadeBreedteMaxAangeraden")
-				
-				d WLIP^vhDBG(97,"   oref New "_objTestNew_$$$CRLF_"   oref other "_objTestOpenOther_$$$CRLF_"   oref DDef "_objTestOpenDDef_$S($IsObject(objTestOpenDDef):"   waarde "_objTestOpenDDef.Waarden.Count()_" "_objTestOpenDDef.Waarden.GetAt(1) , 1:""))
-				d:($IsObject(objTestOpenDDef)) WLIP^vhDBG(97,"DataDef is modified "_objTestOpenDDef.%IsModified()_"   Waarden is modified "_objTestOpenDDef.WaardenIsModified())
-				
-			}
- */			
 			Set sc=##class(Prod.Kenmerk.DataDefinitie).DeleteKM(GroepID,..KenmerkObject.GetID(),Kenmerk)
 
- /*				d:(Kenmerk="xLadeBreedteMaxAangeraden")&&($IsObject(objTestOpenDDef)) WLIP^vhDBG(97,"Set done.  DataDef is modified "_objTestOpenDDef.%IsModified()_"   Waarden is modified "_objTestOpenDDef.WaardenIsModified()_" - "_$S($IsObject(objTestOpenDDef):"   waarde "_objTestOpenDDef.Waarden.Count()_" "_objTestOpenDDef.Waarden.GetAt(1) , 1:""))
-				Set (objTestNew,objTestOpenOther,objTestOpenDDef)=""
- */
-
 			If $$$ISERR(sc) {  
 				Do ..Write($$$CRLF_$$$TAB_$$ParseStatus^vhLib(sc))
 				quit }
@@ -212,35 +179,17 @@
 		do ChildBuilder.PreProcessing()	
 	}	
 
- /*	
 	/// Loop over alle opgegeven kenmerkUnIDs
 	Set cnt=0
-	Set UnID=""
-	For { Set UnID=$order(arUnIDs(UnID)) Quit:(UnID="")
-		  ; ... All the rest 
-	}
-*/
-
-	/// Loop over alle opgegeven kenmerkUnIDs
-	Set cnt=0
 	While UnIDsIterator.HasNext() { 
 		Set UnID=UnIDsIterator.Next()
 				
 		Do:($increment(cnt)#100=0) ..WriteToTerminal(cnt_$C(13))
- /*		set tmpIO = $IO  	; store currrent output device
-		use 0  				; set output device to local terminal 
-		write:($increment(cnt)#100=0) cnt,*13
-		use tmpIO 			; switch back to the provided output device
- */
+
 		set ..KenmerkObject = ..GetKenmerkObject(UnID)
 		
 		if '$IsObject(..KenmerkObject) { 
 			Do ..WriteToTerminal($$$CRLF_"Kan Kenmerkobject niet creëeren : "_UnID_$$$CRLF)
- /*			set tmpIO = $IO
-			use 0
-			write !,"Kan Kenmerkobject niet creëeren : "_UnID,!
-			use tmpIO
- */
 			continue
 		}
 
Index: APPS/PM/OL/KenmerkBuilderOL.cls.xml
===================================================================
diff -u -r1133 -r1218
--- APPS/PM/OL/KenmerkBuilderOL.cls.xml	(.../KenmerkBuilderOL.cls.xml)	(revision 1133)
+++ APPS/PM/OL/KenmerkBuilderOL.cls.xml	(.../KenmerkBuilderOL.cls.xml)	(revision 1218)
@@ -16,14 +16,9 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Must use ProcedureBlock=0 in this method, because array  arUnIDs  is passed by Name-ref !!! 
-
-]]></Content>
-</UDLText>
-
 <Method name="BuildKenmerkenArray">
+<Description>
+Must use ProcedureBlock=0 in this method, because array  arUnIDs  is passed by Name-ref !!! </Description>
 <FormalSpec><![CDATA[&arUnIDs:%String]]></FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>