Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml =================================================================== diff -u -r3005 -r3202 --- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 3005) +++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 3202) @@ -15,10 +15,10 @@ Set Order = OrderAPI.GeefOrder(90000) Set OrderLijn = Order.GeefOrderLijnIterator().Next() - Set ReservatieStructuur = Service.MaakReservatieStructuur(Order, OrderLijn) + Set ReservatieStructuur = Service.MaakReservatieStructuurHalux(OrderLijn) Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90000,"Het ordernr") Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,100,"Het order lijn uniek nr") - Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf") + Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).Halux(),"Het bedrijf") Set MoederProductReservatie = ReservatieStructuur.Reservatie Do $$$AssertEquals(MoederProductReservatie.ProductID,700,"Moederproduct ProductID") @@ -61,8 +61,12 @@ Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).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") + Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor van hoecke") Set VerwachteUitvoer = "" Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 1 // Aantal van 2 naar 1 zetten @@ -77,10 +81,11 @@ Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) + // 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 het moeder is gewijzigd naar 2011-10-08 00:00:00") + 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") @@ -93,6 +98,13 @@ 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() + 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 VerwachteUitvoer = "" + // Product wijzigen Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 701 // Product wijzigen van 700 naar 701 @@ -103,11 +115,18 @@ Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) + // Halux controleren + 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 = "" + // Van hoecke controleren + 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 = "" + Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 700 // terug het product op 700 plaatsen Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 2 // terug het aantal op 2 plaatsen Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62371 // terug de leverdag op 62371 plaatsen @@ -118,8 +137,11 @@ Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).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).VanHoecke()) - Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd") + Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd") // Lijn terug registreren @@ -131,8 +153,11 @@ Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).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).VanHoecke()) - Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd") + Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd") ]]> @@ -158,7 +183,8 @@ Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijWachtendOpPicking(WachtendOpPickingEvent) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) + // 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() @@ -170,14 +196,21 @@ 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 Reservatie = VerwachteUitvoer.GeefReservatie() + Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering") + Set VerwachteUitvoer = "" + // Order voor picking annuleren 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) - Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke()) + // 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() @@ -189,6 +222,12 @@ 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() + Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase") + Set VerwachteUitvoer = "" + // Lijn terug verwijderen Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) @@ -324,10 +363,14 @@