Index: APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml =================================================================== diff -u -r3872 -r3909 --- APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml (.../VanHoeckeReservatieService.cls.xml) (revision 3872) +++ APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml (.../VanHoeckeReservatieService.cls.xml) (revision 3909) @@ -262,9 +262,7 @@ Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode() Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) - If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } - + Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id()) ]]> @@ -278,9 +276,7 @@ Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode() Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) - If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } - + Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id()) ]]> @@ -295,8 +291,7 @@ Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode() Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) - If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } + Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Set OrderID = EventData.GeefOrderID() Set OrderLijnCode = EventData.GeefOrderLijnCode()