Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r1163 -r1445
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 1163)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 1445)
@@ -338,7 +338,6 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>oStatus:BL.Prod.OptiBox.sub.pxStatus</FormalSpec>
 <Implementation><![CDATA[
-	
 	Set MachineID=..SnijMachineNr2Naam(oStatus.ID,oStatus.ServerName)
 	Quit:MachineID=""
 	
@@ -348,20 +347,23 @@
 
 	; mail offline
 	If (OldMachineStatus.Status=0) && (MachineStatus.Status=1) Do ; alleen overgang van OFF naar ON
-	. Set CurrentTijdStip=##class(TECH.DateTime).TimestampToSeconds(##class(TECH.DateTime).CurrentTimeStamp())
-	. Set OldTijdStip=##class(TECH.DateTime).TimestampToSeconds(OldMachineStatus.UpdateTijdStip)
-	. Quit:(CurrentTijdStip-OldTijdStip)<60 ; als de machine 60 seconden uitligt
-	. Set DezeMorgenTijdStip=##class(TECH.DateTime).HorologToSeconds(##class(TECH.DateTime).CurrentDate())
-	. Quit:DezeMorgenTijdStip>OldTijdStip ; meer dan dag tussen
-	. Set From="System@vanhoecke.be"
-	. Set Subj="Kartonsnijmachine : "_MachineID_", "_$J((CurrentTijdStip-OldTijdStip)/60,0,0)_"min. niet beschikbaar, machinestatus = "_$S(OldMachineStatus.Status=0:"ERROR",1:"OK")_" : "_OldMachineStatus.Message
-	. Set To=$LB("pv@vanhoecke.be","stm@vanhoecke.be")
-	. Set:MachineID="HALUX" To=To_$LB("dgu@vanhoecke.be")
-	. Set To=$LB("pv@vanhoecke.be")
-	. Set Body="Duur : "_(CurrentTijdStip-OldTijdStip)_" sec"
-	. Do:($ZCVT($ZU(110),"U")="CACHE01") SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
-	. Set Werkpost=$S(MachineID="HALUX":##class(APPS.Halux.TBX.enu.Werkpost).KartonHalux(),1:##class(APPS.Halux.TBX.enu.Werkpost).KartonOrgalux())
-	. Do ##class(APPS.Halux.TBX.Stilstanden).Create(Werkpost, , OldMachineStatus.Message, (CurrentTijdStip-OldTijdStip))
+	. If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.Prod.OptiBox.Diverse_VerstuurMachineStatus") && (oStatus.ServerName=##class(BL.Prod.OptiBox.enu.OptiServer).SmallEnCuts()) Do
+	. . Set CurrentTijdStip=##class(TECH.DateTime).TimestampToSeconds(##class(TECH.DateTime).CurrentTimeStamp())
+	. . Set OldTijdStip=##class(TECH.DateTime).TimestampToSeconds(OldMachineStatus.UpdateTijdStip)
+	. . Quit:(CurrentTijdStip-OldTijdStip)<60 ; als de machine 60 seconden uitligt
+	. . Set DezeMorgenTijdStip=##class(TECH.DateTime).HorologToSeconds(##class(TECH.DateTime).CurrentDate())
+	. . Quit:DezeMorgenTijdStip>OldTijdStip ; meer dan dag tussen
+	. . Set From="System@vanhoecke.be"
+	. . Set Subj="Kartonsnijmachine : "_MachineID_", "_$J((CurrentTijdStip-OldTijdStip)/60,0,0)_"min. niet beschikbaar, machinestatus = "_$S(OldMachineStatus.Status=0:"ERROR",1:"OK")_" : "_OldMachineStatus.Message
+	. . Set To=$LB("pv@vanhoecke.be","stm@vanhoecke.be")
+	. . Set:MachineID="HALUX" To=To_$LB("dgu@vanhoecke.be")
+	. . Set To=$LB("pv@vanhoecke.be")
+	. . Set Werkpost=$S(MachineID="HALUX":##class(APPS.Halux.TBX.enu.Werkpost).KartonHalux(),1:##class(APPS.Halux.TBX.enu.Werkpost).KartonOrgalux())
+	. . Set Body="Duur : "_(CurrentTijdStip-OldTijdStip)_" sec"
+	. . Set Body=Body_$C(13)_"Werkpost : "_Werkpost
+	. . Set Body=Body_$C(13)_"OptiServer : "_oStatus.ServerName
+	. . Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
+	. . Do ##class(APPS.Halux.TBX.Stilstanden).Create(Werkpost, , OldMachineStatus.Message, (CurrentTijdStip-OldTijdStip))
 ]]></Implementation>
 </Method>