TECH.RegisteredObject %Boolean APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator %TimeStamp RegistratieStartStop %String d ##class(APPS.Halux.Planning.Activiteit.impl.BerekenActiviteitPerBatch).%New().Bereken() 1 1 %Status 1 1 :VorigCalcTijdstip) } /* TIJDELIJK PV*/ Do ##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitStartStop).%DeleteExtent() ]]> 1 Batch:%String,Resource:%String,Activiteit:%String 1 Batch:%String,Resource:%String,Activiteit:%String 1 Batch:%String,Resource:%String,Activiteit:%String %ResultSet rs:%ResultSet 1 ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch 1 95 ; pauze { 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",User,"WP","PC") } elseIf Rnd>70 { If (..TestStartedUsers'[User) && (ActiviteitPerBatch.Resource="Voormontage") { Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S",User,"WP","PC") Set ..TestStartedUsers=..TestStartedUsers_";"_User } } ]]> ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch 1 ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch 1 1 TECH.Iterator