Index: APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 57548)
@@ -19,6 +19,10 @@
 <Type>RegistratieStartStop</Type>
 </Property>
 
+<Property name="TestStartedUsers">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Description>
 d ##class(APPS.Halux.Planning.Activiteit.impl.BerekenActiviteitPerBatch).%New().Bereken()</Description>
@@ -31,6 +35,7 @@
 	Set ..RegistratieStartStop=##class(RegistratieStartStop).%New()
 	Set ..RecalcTijdstip=$ZDT($H,3)
 	Set ..Debug=1
+	Set ..TestStartedUsers=""
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -78,11 +83,16 @@
 <FormalSpec>Batch:%String,Resource:%String,Activiteit:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=..GeefResultSetActiviteitPerBatch(Batch, Resource, Activiteit)
-	While rs.Next()
+	
+	While rs.Next(.sc)
 	{
-		Set ActiviteitPerBatch=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch).%OpenId(rs.Data("ID"))
-		Do ..ToevoegenStartStop(ActiviteitPerBatch)
-		Do ActiviteitPerBatch.Save()
+		If $$$ISERR(sc) Quit
+		If (rs.Data("ID")?1.N)
+		{
+			Set ActiviteitPerBatch=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch).%OpenId(rs.Data("ID"))
+			Do ..ToevoegenStartStop(ActiviteitPerBatch)
+			Do ActiviteitPerBatch.Save()
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -92,8 +102,9 @@
 <FormalSpec>Batch:%String,Resource:%String,Activiteit:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=..GeefResultSetActiviteitPerBatch(Batch, Resource, Activiteit)
- 	If rs.Next()
+ 	If rs.Next(.sc)
  	{
+	 	If $$$ISERR(sc) Quit
 	 	Set ID=rs.Data("ID")
  	}
 	Quit $G(ID)'=""
@@ -136,6 +147,7 @@
 	Do ..ToevoegenVoorafTijdstippen(ActiviteitPerBatch)
 	Set ActiviteitPerBatch.RecalcTijdstip=..RecalcTijdstip
 	Do ..ToevoegenStartStop(ActiviteitPerBatch)
+	;w rs.Data("Batch")," ", rs.Data("Resource") ," ",rs.Data("Activiteit"),!
 	Do ActiviteitPerBatch.Save()
 	Quit ActiviteitPerBatch
 ]]></Implementation>
@@ -145,19 +157,26 @@
 <FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Quit:ActiviteitPerBatch.Resource?1"Lijn "1N
 		/* TIJDELIJK PV */
+	Set User=$Random(10)
+	Set User=$S(User<4:"GBS",User<7:"JBO",1:"LNA")
 	Set Rnd=$Random(100)
 	If Rnd>95 ; pauze
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"P","PV","WP","PC")
+		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"P",User,"WP","PC")
 	}
 	elseIf Rnd>85
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"F","PV","WP","PC")
+		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"F",User,"WP","PC")
 	}
 	elseIf Rnd>70
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S","PV","WP","PC")
+		If (..TestStartedUsers'[User) && (ActiviteitPerBatch.Resource="Voormontage")
+		{
+			Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S",User,"WP","PC")
+			Set ..TestStartedUsers=..TestStartedUsers_";"_User
+		}
 	}
 ]]></Implementation>
 </Method>