Index: APPS/MAG/Optibox/OptiboxImpl.cls.xml =================================================================== diff -u -r1159 -r1162 --- APPS/MAG/Optibox/OptiboxImpl.cls.xml (.../OptiboxImpl.cls.xml) (revision 1159) +++ APPS/MAG/Optibox/OptiboxImpl.cls.xml (.../OptiboxImpl.cls.xml) (revision 1162) @@ -32,9 +32,7 @@ Set Computer = ##class(APPS.Computer.Computer).Create(OptiboxServerName) - // [ CSC -> JBL OPTIBOX ] Kan ook via $$USERNAME^vhUSER() - // of initialen opvragen via runtime context - Set Persoon = $Get(QU,"SYS") + Set Persoon = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen() Do ##class(vhLib.Logger).%New("Computer").Warning(Computer.ServerName_" wordt herstart",Computer.ServerName_" wordt herstart door "_Persoon_".") Do Computer.StopProces("PanotecWatchdog.exe") @@ -56,10 +54,9 @@ set FP=0405 write @F,@F2,"Bezig met afsluiten... ("_Period_")",! Hang 1 } - // [ CSC -> JBL OPTIBOX ] Mss toch beter op alive checken om mogelijks terug actief worden net op de timeout te controleren? - If (Period < ..#TimeOut){ - // [ CSC -> JBL OPTIBOX ] typfoutje: Afsloten :)) - set FP=0405 write @F,@F2,"Afsloten om "_$zt(##class(TECH.DateTime).CurrentTime()) + + If ('##class(BL.Prod.OptiBox.Diverse).Alive(AlivePage)){ + set FP=0405 write @F,@F2,"Afgesloten om "_$zt(##class(TECH.DateTime).CurrentTime()) Set Start = ##class(TECH.DateTime).CurrentTime() Set Period = ##class(TECH.DateTime).CurrentTime() - Start @@ -68,9 +65,9 @@ set FP=0505 write @F,@F2,"Bezig met herstarten... ("_Period_")",! Hang 1 } - If (Period < ..#TimeOut){ + If (##class(BL.Prod.OptiBox.Diverse).Alive(AlivePage)){ set FP=0505 write @F,@F2,"Herstart om ",$zt(##class(TECH.DateTime).CurrentTime()) - set FP=0705 write @F,@F2,"U kan nu de optibox terug gebruiken." + set FP=0705 write @F,@F2,"U kan binnen 30 seconden de optibox terug gebruiken." }Else{ Set Fout = "TimeOut bij het herstarten : "_Period_" seconden." }