Index: BL/Prod/OptiBox/Diverse.cls.xml =================================================================== diff -u -r1445 -r2472 --- BL/Prod/OptiBox/Diverse.cls.xml (.../Diverse.cls.xml) (revision 1445) +++ BL/Prod/OptiBox/Diverse.cls.xml (.../Diverse.cls.xml) (revision 2472) @@ -358,12 +358,12 @@ . . 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 Werkpost=$S(MachineID="HALUX":##class(APPS.Halux.PPS.TBXZaag.enu.Werkpost).KartonHalux(),1:##class(APPS.Halux.PPS.TBXZaag.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)) + . . Do ##class(APPS.Halux.PPS.common.Stilstanden).Create(Werkpost, , OldMachineStatus.Message, (CurrentTijdStip-OldTijdStip)) ]]>