Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1619 -r1629
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1619)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1629)
@@ -70,7 +70,7 @@
 			/// UnIDs verzamelen van dit PRNr		
 			Set Multiples = Product.GeefMultiples()
 			If (Multiples.Count() > 0){
-				Set UnIDs = Multiples
+				Set UnIDs = ##class(TECH.ListUtils).CopyListOfDataTypes(Multiples,UnIDs)
 			}Else{
 				Do UnIDs.Insert(PRNr)
 			}		 
@@ -94,7 +94,7 @@
 	 /// DataDefinities ophalen
 	 Set RS=##class(%ResultSet).%New()
 	 Set SQLStatement = "SELECT ID, UnID, KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where KenmerkGroep IN ( "_SQLKenmerken_" ) AND UnID In ( "_SQLUnIDs_" ) ORDER BY UnID, KenmerkGroep"
-	 ///D WLIP^vhDBG(127,SQLStatement)
+	 /// D WLIP^vhDBG(127,SQLStatement)
 	 Do RS.Prepare(SQLStatement)				 
 	
 	 Set tmpStatus = RS.Execute(SQLKenmerken,SQLUnIDs)