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())