Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3202 -r3851
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 3202)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 3851)
@@ -9,39 +9,39 @@
@@ -59,12 +59,8 @@
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor halux")
- Set VerwachteUitvoer = ""
-
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor van hoecke")
Set VerwachteUitvoer = ""
@@ -79,25 +75,8 @@
Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
- // Halux uitvoer controleren
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- 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 de moeder is gewijzigd naar 2011-10-08 00:00:00")
- Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
- Set KindReservatie1 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie1.GeefAantal(),1,"Het aantal van het kindreservatie1 is van 2 naar 1 gegaan")
- Do $$$AssertEquals(KindReservatie1.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
- Set KindReservatie2 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie2.GeefAantal(),2,"Het aantal van het kindreservatie2 is van 4 naar 2 gegaan")
- Do $$$AssertEquals(KindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
- Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
- Do $$$AssertEquals(KindVanKindReservatie2.GeefAantal(),2,"Het aantal van het kind van kindreservatie2 is van 4 naar 2 gegaan")
- Do $$$AssertEquals(KindVanKindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het kind van kindreservatie2 is gewijzigd naar 2011-10-08 00:00:00")
- Set VerwachteUitvoer = ""
-
// Van hoecke uitvoer controleren
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Set Reservatie = VerwachteUitvoer.GeefReservatie()
@@ -113,13 +92,13 @@
Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
// Halux controleren
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+ /*Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
Set Reservatie = VerwachteUitvoer.GeefReservatie()
Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd")
- Set VerwachteUitvoer = ""
+ Set VerwachteUitvoer = ""*/
// Van hoecke controleren
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
@@ -135,26 +114,26 @@
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")
+ /*Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+ Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")*/
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
// Lijn terug registreren
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
// Orderlijn op bon plaatsen
Set BonID = 123456
Set ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(OrderID, OrderLijnCode, BonID)
Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")
+ /*Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+ Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")*/
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
@@ -174,30 +153,17 @@
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
// Order op wachtend voor picking geplaatst
Set ConsolidatieID = 4567
Set WachtendOpPickingEventData = ##class(DOM.MAG.event.WachtendOpPickingEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijWachtendOpPicking(WachtendOpPickingEvent)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijWachtendOpPicking(WachtendOpPickingEvent)
- // Halux controleren
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- Set Reservatie = VerwachteUitvoer.GeefReservatie()
- Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
- Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
- Set KindReservatie1 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
- Set KindReservatie2 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
- Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
- Do $$$AssertEquals(KindVanKindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
- Set VerwachteUitvoer = ""
-
// Van hoecke controleren
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+ Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Set Reservatie = VerwachteUitvoer.GeefReservatie()
Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
Set VerwachteUitvoer = ""
@@ -207,21 +173,8 @@
Set ConsolidatieID = 4567
Set PickingAnnulatieEventData = ##class(DOM.MAG.event.PickingAnnulatieEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
Set PickingAnnulatieEvent = ##class(DOM.MAG.event.PickingAnnulatieEvent).%New(PickingAnnulatieEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijPickingAnnulatie(PickingAnnulatieEvent)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijPickingAnnulatie(PickingAnnulatieEvent)
- // Halux controleren
- Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
- Set Reservatie = VerwachteUitvoer.GeefReservatie()
- Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
- Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
- Set KindReservatie1 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
- Set KindReservatie2 = KindReservatieIterator.Next()
- Do $$$AssertEquals(KindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
- Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
- Do $$$AssertEquals(KindVanKindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
- Set VerwachteUitvoer = ""
-
// Van hoecke controleren
Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Set Reservatie = VerwachteUitvoer.GeefReservatie()
@@ -232,12 +185,14 @@
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
]]>
@@ -324,15 +311,15 @@
Set ProductID = 700
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
// Verwachte invoer aanmaken
Set ToeleveringID = 90001
Set ToeleveringLijnCode = 100
Set ProductID = 700
Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
// Invoer-uitvoer-link werd automatisch aangemaakt bij de "toeleveringlijn aangemaakt" event
@@ -342,19 +329,19 @@
// Nu de werkelijke events testen
Set InvoerUitvoerLinkEventData = ##class(DOM.ProdRes.event.InvoerUitvoerLinkEventData).%New(ToeleveringID, ToeleveringLijnCode, OrderID, OrderLijnCode)
Set InvoerUitvoerLinkVerbrokenEvent = ##class(DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent).%New(InvoerUitvoerLinkEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
Do $$$AssertFalse(VerwachteInvoer.GeefInvoerUitvoerLinkIterator().HasNext(),"Er is geen invoer-uitvoer-link meer")
// Verwachte invoer verwijderen
Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
Set ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
- Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnAnnulatie(ProductToeleveringLijnAnnulatie)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnAnnulatie)
// Verwachte uitvoer verwijderen
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)
+ Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
]]>
@@ -363,7 +350,7 @@
@@ -427,7 +415,7 @@
Kill ^PRBS("BS",700)
Kill ^PRBS("BS",700)
Kill ^ORD("IU",90000,100)
- Kill ^KTO(5005,90001)
+ Kill ^KTO(6332,90001)
Kill ^TO("IU",90001)
Kill ^KTO1(90001)
Quit $$$OK