Index: APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml =================================================================== diff -u -r30416 -r37527 --- APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml (.../MaatwerkBatchBuilder.cls.xml) (revision 30416) +++ APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml (.../MaatwerkBatchBuilder.cls.xml) (revision 37527) @@ -153,6 +153,12 @@ Set dtoToelevering.VerpakkingTypes = ..GeefVerpakkingenInToelevering(Toelevering) If (Toelevering.GeefOrderID()'="") { + + If $$$Not(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(Toelevering.GeefOrderID())) { + ;#dim FixDataMsg As %String = $$$CRLF_"Fix data via "_$$$CRLF_"Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderOrderVerwijzingIndienOrderNietBestaat("_..GeefID()_")" + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Foutieve orderverwijzing in Toelevering "_Toelevering.GeefID()_": order "_Toelevering.GeefOrderID()_" bestaat niet!")) + } + #dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(Toelevering.GeefOrderID()) Set dtoToelevering.IngegevenDoor = $$USERNAMESQL^vhUSER(Order.GeefIngegevenDoor(),-1) Set dtoToelevering.IsASAP = Order.IsASAP()