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