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