Index: vhDeploy/Deploy20211108xGebruikerGroepCCToekennen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20211108xGebruikerGroepCCToekennen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20211108xGebruikerGroepCCToekennen.cls.xml	(revision 66088)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20211108xGebruikerGroepCCToekennen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Gebruikersgroep 'CC' aka cycle count toekennen aan verschillende gebruikers</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim GebruikerIds As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
+	Do GebruikerIds.Insert(1311)
+	Do GebruikerIds.Insert(1529)
+	Do GebruikerIds.Insert(1374)
+	Do GebruikerIds.Insert(1322)
+	Do GebruikerIds.Insert(1527)
+	Do GebruikerIds.Insert(1310)
+	Do GebruikerIds.Insert(1256)
+	Do GebruikerIds.Insert(1278)
+	Do GebruikerIds.Insert(1234)
+	Do GebruikerIds.Insert(1175)
+	Do GebruikerIds.Insert(1255)
+	Do GebruikerIds.Insert(1054)
+	Do GebruikerIds.Insert(1016)
+	Do GebruikerIds.Insert(1074)
+	Do GebruikerIds.Insert(1044)
+	Do GebruikerIds.Insert(1312)
+	Do GebruikerIds.Insert(1204)
+	Do GebruikerIds.Insert(1323)
+	Do GebruikerIds.Insert(1246)
+	Do GebruikerIds.Insert(1027)
+	Do GebruikerIds.Insert(1084)
+	Do GebruikerIds.Insert(1257)
+	Do GebruikerIds.Insert(1205)
+	Do GebruikerIds.Insert(1178)
+	Do GebruikerIds.Insert(1013)
+	
+	Set GebruikerIterator = ##class(TECH.ListIterator).%New(GebruikerIds)
+	
+	#dim GebruikerID As %Integer
+	#dim GebruikersGroepen As %String
+	
+	While GebruikerIterator.HasNext() {
+		Set GebruikerID = GebruikerIterator.Next()
+		Set GebruikersGroepen = $Piece(^vhUSER("D", GebruikerID,"M"),"\",1)
+		Set $Piece(^vhUSER("D", GebruikerID,"M"),"\",1) = GebruikersGroepen_ ";CC"
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>