Index: vhDeploy/CSC/Deploy20111116x0821.cls.xml =================================================================== diff -u --- vhDeploy/CSC/Deploy20111116x0821.cls.xml (revision 0) +++ vhDeploy/CSC/Deploy20111116x0821.cls.xml (revision 2926) @@ -0,0 +1,20 @@ + + + +1 +svn.Deploy +0 + + +1 + + + + Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml =================================================================== diff -u -r2917 -r2926 --- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 2917) +++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml (.../TestOrderUitvoeringService.cls.xml) (revision 2926) @@ -151,6 +151,44 @@ Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData) Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).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) + + 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 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 = "" + + // 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()) + 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 = "" + // Lijn terug verwijderen Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID) Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml =================================================================== diff -u -r2917 -r2926 --- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml (.../OrderUitvoeringServiceImpl.cls.xml) (revision 2917) +++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml (.../OrderUitvoeringServiceImpl.cls.xml) (revision 2926) @@ -120,6 +120,7 @@ Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn,ReservatieFase:DOM.ProdRes.enu.ReservatieFase