Index: APPS/MAG/Optibox/OptiboxImpl.cls.xml
===================================================================
diff -u -r1073 -r1145
--- APPS/MAG/Optibox/OptiboxImpl.cls.xml	(.../OptiboxImpl.cls.xml)	(revision 1073)
+++ APPS/MAG/Optibox/OptiboxImpl.cls.xml	(.../OptiboxImpl.cls.xml)	(revision 1145)
@@ -7,6 +7,13 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="TimeOut">
+<Description>
+TimeOut voor het afsluiten en opstarten van de optibox in seconden.</Description>
+<Type>%Integer</Type>
+<Default>120</Default>
+</Parameter>
+
 <Method name="SluitOptiboxProcessen">
 <Description>
 Afsluiten van de optibox processen op de opgegeven server.</Description>
@@ -33,13 +40,61 @@
 
 			//Herstart van pc
 			Do Computer.Herstart()
-
-			// herstarten van processen
-			//Do Computer.StartProces("C:\OptiboxStart.bat")
 			
+			Set AlivePage = ..GetServerAlivePage(OptiboxServerName)
+			
+			set FP=0205 write @F,"Door "_Persoon_" om "_$zt(##class(TECH.DateTime).CurrentTime())
+			set FP=0405 write @F,"Bezig met afsluiten..."
+			
+			Set Start = ##class(TECH.DateTime).CurrentTime()
+			Set Period = ##class(TECH.DateTime).CurrentTime() - Start
+			While(##class(BL.Prod.OptiBox.Diverse).Alive(AlivePage) && (Period < ..#TimeOut)){
+				Set Period = ##class(TECH.DateTime).CurrentTime() - Start
+				set FP=0405 write @F,@F2,"Bezig met afsluiten... ("_Period_")",!
+				Hang 1	
+			}
+			If (Period < ..#TimeOut){
+				set FP=0405 write @F,@F2,"Afsloten om "_$zt(##class(TECH.DateTime).CurrentTime())			
+				
+				Set Start = ##class(TECH.DateTime).CurrentTime()
+				Set Period = ##class(TECH.DateTime).CurrentTime() - Start
+				While('##class(BL.Prod.OptiBox.Diverse).Alive(AlivePage) && (Period < ..#TimeOut)){
+					Set Period = ##class(TECH.DateTime).CurrentTime() - Start
+					set FP=0505 write @F,@F2,"Bezig met herstarten... ("_Period_")",!
+					Hang 1	
+				}
+				If (Period < ..#TimeOut){
+					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."				
+				}Else{
+					Set Fout = "TimeOut bij het herstarten : "_Period_" seconden."
+				}
+			} Else {
+				Set Fout = "TimeOut bij het afsluiten : "_Period_" seconden."
+			}
+			If ($Get(Fout)'=""){
+				Set Message = "De optibox kon niet herstart worden. Gelieve contact op te nemen met de IT-dienst."
+				Set ExtendedMessage = Message_$C(13,10)_"Persoon:"_$C(9)_Persoon
+				Set ExtendedMessage = Message_$C(13,10)_"Tijdstip"_$C(9)_$zd(+$h,4)_" om "_Start
+				Set ExtendedMessage = ExtendedMessage_$C(13,10)_"Server:"_$C(9)_Computer.ServerName
+				Set ExtendedMessage = ExtendedMessage_$C(13,10)_"Fout:"_$C(9)_Fout
+				set FP=0405 write @F,@F1,@FMTI,Message,@FMTi
+				Do ##class(vhLib.Logger).%New("Computer").Error(Computer.ServerName_" kon niet worden herstart",)	
+			}	
 		}
 	}
+	read enter
 ]]></Implementation>
 </Method>
+
+<Method name="GetServerAlivePage">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OptiboxServerName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:OptiboxServerName="optibox" ##class(BL.Prod.OptiBox.enu.OptiServer).SmallEnCuts()
+	Quit ##class(BL.Prod.OptiBox.enu.OptiServer).Big()
+]]></Implementation>
+</Method>
 </Class>
 </Export>