Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml =================================================================== diff -u -r69183 -r69271 --- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml (.../DoosLade.cls.xml) (revision 69183) +++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml (.../DoosLade.cls.xml) (revision 69271) @@ -168,9 +168,9 @@ ..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos(): ..#OptiIDVouwErrondDoos, 1: ..#OptiIDDoosMetDeksel) Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack) - Set Status = $$$OK + Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(1) } Catch { - Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout") + Set Status = ##class(BL.Sys.Proxy.pxStatus).Create(0, "GeefDoos fout") #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() #dim Logger = ##class(vhLib.Logger).%New("VH doos service").Error("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep _" "_ ..#OptiIDDoosMetDeksel_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving()) }