Index: APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml =================================================================== diff -u -r3909 -r3930 --- APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml (.../HaluxReservatieService.cls.xml) (revision 3909) +++ APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml (.../HaluxReservatieService.cls.xml) (revision 3930) @@ -125,8 +125,7 @@ If (LeverancierHalux.GeefNummer() = EventData.GeefLeverancierID()) { Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) - If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } + Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) Set Service = ..%New() @@ -165,9 +164,7 @@ If (LeverancierHalux.GeefNummer() = EventData.GeefLeverancierID()) { Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) - If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } - + Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id()) } ]]> @@ -184,9 +181,7 @@ If (LeverancierHalux.GeefNummer() = EventData.GeefLeverancierID()) { Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) - If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) } - + Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoer.%Id()) } ]]>