Index: DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml =================================================================== diff -u -r2487 -r2771 --- DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml (.../ProductOrderLijnWijzigEventData.cls.xml) (revision 2487) +++ DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml (.../ProductOrderLijnWijzigEventData.cls.xml) (revision 2771) @@ -14,13 +14,13 @@ -OrderID:%String,OrderLijnID:%String,KlantID:%String,ProductID:%String,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes +OrderID:%String,OrderLijnCode:%String,KlantID:%String,ProductID:%String,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes 1 1 %Status @@ -50,6 +50,9 @@ WijzigingTypes + +OrderLijnCode + Index: DOM/VKP/event/ProductOrderLijnEventData.cls.xml =================================================================== diff -u -r2487 -r2771 --- DOM/VKP/event/ProductOrderLijnEventData.cls.xml (.../ProductOrderLijnEventData.cls.xml) (revision 2487) +++ DOM/VKP/event/ProductOrderLijnEventData.cls.xml (.../ProductOrderLijnEventData.cls.xml) (revision 2771) @@ -11,7 +11,7 @@ 1 - + %String 1 @@ -27,13 +27,13 @@ -OrderID:%String,OrderLijnID:%String,KlantID:%String,ProductID:%String +OrderID:%String,OrderLijnCode:%String,KlantID:%String,ProductID:%String 1 1 %Status + +%String + + + %String - @@ -82,6 +88,9 @@ ProductID + +OrderLijnCode + Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml =================================================================== diff -u -r2487 -r2771 --- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 2487) +++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 2771) @@ -17,7 +17,7 @@ Set ReservatieStructuur = Service.MaakReservatieStructuur(Order, OrderLijn) Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90000,"Het ordernr") - Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,101,"Het order lijn nr") + Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,100,"Het order lijn uniek nr") Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf") Set MoederProductReservatie = ReservatieStructuur.Reservatie @@ -51,17 +51,17 @@ Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() Set OrderID = 90000 - Set OrderLijnID = 101 + Set OrderLijnCode = 100 Set KlantID = 1000 Set ProductID = 700 // Nieuwe productlijn aanmaken - Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID) + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke()) + Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt") Set VerwachteUitvoer = "" @@ -73,11 +73,11 @@ Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New() Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal()) Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum()) - Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes) + Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes) Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke()) + Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Set Reservatie = VerwachteUitvoer.GeefReservatie() Do $$$AssertEquals(Reservatie.GeefAantal(),1,"Het aantal van het moederproduct is op 1 geplaatst") Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het moeder is gewijzigd naar 2011-10-08 00:00:00") @@ -99,11 +99,11 @@ Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New() Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product()) - Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes) + Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes) Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke()) + Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Set Reservatie = VerwachteUitvoer.GeefReservatie() Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd") Set VerwachteUitvoer = "" @@ -114,19 +114,19 @@ // Lijn verwijderen - Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID) + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke()) + Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd") ]]> %Status Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml =================================================================== diff -u -r2487 -r2771 --- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml (.../OrderUitvoeringServiceImpl.cls.xml) (revision 2487) +++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml (.../OrderUitvoeringServiceImpl.cls.xml) (revision 2771) @@ -18,7 +18,7 @@ Set Product = ProductOrderLijn.GeefProduct() Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = Order.GeefOrderNr() - Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefLijnNr() + Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefOLU() Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke() Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New() @@ -122,7 +122,7 @@ 1 @@ -188,9 +188,9 @@ Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI() Set ProductOrderLijnEventData = ProductOrderLijnAnnulatieEvent.Data Set OrderID = ProductOrderLijnEventData.GeefOrderID() - Set OrderLijnID = ProductOrderLijnEventData.GeefOrderLijnID() + Set OrderLijnCode = ProductOrderLijnEventData.GeefOrderLijnCode() - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke()) + 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 verwachtte uitvoer gevonden voor (OrderID, OrderLijnID): "_OrderID_", "_OrderLijnID)) Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())