Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r1074 -r1163
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 1074)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 1163)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="BL.Prod.OptiBox.Diverse">
 <Description>
-Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen</Description>
+ Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen</Description>
 <IncludeCode>BL.Prod.OptiBox,%Prod.Product,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.Error.ErrorAdaptor</Super>
@@ -336,7 +336,7 @@
 d ##class(BL.Prod.OptiBox.Diverse).ChangeMachineStatus()
 opslaan van de laatste machinestatus wordt opgeroepen door de webservice </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>oStatus</FormalSpec>
+<FormalSpec>oStatus:BL.Prod.OptiBox.sub.pxStatus</FormalSpec>
 <Implementation><![CDATA[
 	
 	Set MachineID=..SnijMachineNr2Naam(oStatus.ID,oStatus.ServerName)
@@ -360,6 +360,8 @@
 	. 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))
 ]]></Implementation>
 </Method>