Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml =================================================================== diff -u -r69603 -r70301 --- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 69603) +++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml (.../KartonSnijVisitor.cls.xml) (revision 70301) @@ -91,15 +91,9 @@ } If (##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.Machine."_UitvoeringInfo.MachineID_"_Codepad") = "NodeRed") { - Try { - Set DoosService = ##class(APPS.Verpakking.DoosService).%New() - Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack, "") - Set Status = $$$OK - } Catch { - Set Status = $$$ERROR($$$GeneralError, "GeefDoos fout") - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - #dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. Doosgroep: '"_UitvoeringInfo.DoosGroep_"', DoosNaam: '"_ UitvoeringInfo.DoosNaam _", PRNr: '"_ UitvoeringInfo.ProductID _"', MachineID: '"_ UitvoeringInfo.MachineID _"'."_Exception.GeefOmschrijving()) - } + Set DoosService = ##class(APPS.Verpakking.DoosService).%New() + Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack, "") + Set Status = $$$OK } Quit Status