Index: vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml =================================================================== diff -u -r32978 -r32979 --- vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml (.../TestVerwachteInvoerBijTransfers.cls.xml) (revision 32978) +++ vhUnitTest/APPS/OrderUitvoering/HaluxReservatie/TestVerwachteInvoerBijTransfers.cls.xml (.../TestVerwachteInvoerBijTransfers.cls.xml) (revision 32979) @@ -7,6 +7,19 @@ 1 vhUnitTest.TestCase + +DOM.ProdRes.VerwachteInvoerAPI +1 + + + + + + aTestName:%String %Status @@ -25,7 +38,7 @@ do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(7587,198909) - #dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux()) + #dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux()) If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() } Set VerwachteInvoer = "" @@ -96,10 +109,8 @@ #dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||"_KlantNr /* Lijn aanmaken */ + #dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) - #dim VerwachteInvoerAPI As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - #dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) - Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),ProductID,"Het product ID") Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(),"2011-09-16 00:00:00","De leverdatum") Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),16,"Het aantal") @@ -118,7 +129,7 @@ Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) + Set VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()) Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefDueIn(),"2011-09-17 00:00:00","De leverdatum") Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefAantal(),15,"Het aantal") Set VerwachteInvoer = "" @@ -133,7 +144,7 @@ Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData) Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent) - Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) + Set VerwachteInvoer = ..VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) Do $$$AssertEquals(VerwachteInvoer.GeefReservatie().GeefProductID(),570175,"De leverdatum") Set VerwachteInvoer = "" @@ -147,8 +158,7 @@ Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData) Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent) - Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) + Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd") Set VerwachteInvoer = "" @@ -167,8 +177,7 @@ Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(ProductLijnOpBonEvent) Kill ^KU1(BonID) - Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI() - Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) + Set VerwachteInvoer = ..VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux()) Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd") Set VerwachteInvoer = "" ]]>