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()) } ]]> Index: APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml =================================================================== diff -u -r3909 -r3930 --- APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml (.../VanHoeckeReservatieService.cls.xml) (revision 3909) +++ APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml (.../VanHoeckeReservatieService.cls.xml) (revision 3930) @@ -76,24 +76,6 @@ ]]> - -ProductOrderLijn:DOM.OV.ProductOrderlijn,Bedrijf:DOM.common.enu.Bedrijf -DOM.ProdRes.VerwachteUitvoer - - - - -OrderID:%String,OrderLijnCode:%String,Bedrijf:DOM.common.enu.Bedrijf -DOM.ProdRes.VerwachteUitvoer - - - 1 ProductOrderLijnGemaaktEvent:DOM.VKP.event.ProductOrderLijnGemaakt @@ -114,9 +96,11 @@ Set Service = ..%New() Set EventData = ProductOrderLijnGewijzigdEvent.Data + Set OrderID = EventData.GeefOrderID() + Set OrderLijnCode = EventData.GeefOrderLijnCode() Set OrderLijn = EventData.GeefProductOrderLijn() - Set VerwachteUitvoer = Service.GeefVerwachteUitvoer(OrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke()) + Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke()) Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator() While (WijzigingTypesIterator.HasNext()) { @@ -146,9 +130,11 @@ ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie @@ -157,20 +143,23 @@ ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent 1 WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent @@ -180,9 +169,11 @@ 1 PickingAnnulatieEvent:DOM.MAG.event.PickingAnnulatieEvent @@ -297,8 +288,7 @@ Set OrderLijnCode = EventData.GeefOrderLijnCode() Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) - If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode)) + Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Do VerwachteInvoerAPI.VerbreekInvoerUitvoerLinken(VerwachteInvoer.%Id(),VerwachteUitvoer.%Id()) ]]> Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml =================================================================== diff -u -r2262 -r3930 --- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 2262) +++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 3930) @@ -55,6 +55,18 @@ ]]> + + +Gooit een exceptie indien geen uitvoer kan gevonden worden +TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf +DOM.ProdRes.VerwachteUitvoer + + + VerwachteUitvoerID:%String + +Gooit geen exceptie wanneer geen uitvoer wordt gevonden 1 TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf DOM.ProdRes.VerwachteUitvoer + + +Gooit een exceptie indien geen uitvoer kan gevonden worden +1 +TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf +DOM.ProdRes.VerwachteUitvoer + + Gooit een error indien de uitvoer niet kan worden geannuleerd