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