Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml =================================================================== diff -u -r71915 -r72357 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 71915) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 72357) @@ -33,19 +33,21 @@ #dim DocumentReferenties As DOM.VKP.DocumentReferenties = Order.GeefDocumentReferenties() Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderreferentie", DocumentReferenties.OrderReferentie)) Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Commissiereferentie", DocumentReferenties.CommissieReferentie)) - Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Klantordernummer", DocumentReferenties.KlantOrderNummer)) - Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderlijnreferentie", ..GeefOrderLijnReferentie(Order, UitvoeringInfo.ProductID))) - + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Klantordernummer", DocumentReferenties.KlantOrderNummer)) + Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOrderRefentieOpties(Order, UitvoeringInfo.ProductID, UitvoeringInfo)) + Quit Opties ]]> - -Order:DOM.VKP.Order,ProductId:%Integer + +Order:DOM.VKP.Order,ProductId:%Integer,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo 1 -%String Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml =================================================================== diff -u -r71915 -r72357 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71915) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72357) @@ -38,32 +38,35 @@ #dim ProductId2 As %String = "333333" #dim OrderLijnReferentie1 As %String = "OrderLijnReferentie1" #dim OrderLijnReferentie2 As %String = "OrderLijnReferentie2" + #dim PakketReferentie1 As %String = "PakketReferentie1" + #dim PakketReferentie2 As %String = "PakketReferentie2" #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo(..#SequentieNummerLade, "", ProductId2) #dim DocumentReferenties As DOM.VKP.DocumentReferenties = ..GeefDocumentReferenties(OrderReferentie, CommissieReferentie, KlantOrderNummer) - #dim ProductOrderLijn1 = ..GeefProductOrderLijn(ProductId1, OrderLijnReferentie1) - #dim ProductOrderLijn2 = ..GeefProductOrderLijn(ProductId2, OrderLijnReferentie2) + #dim ProductOrderLijn1 = ..GeefProductOrderLijn(ProductId1, OrderLijnReferentie1, PakketReferentie1) + #dim ProductOrderLijn2 = ..GeefProductOrderLijn(ProductId2, OrderLijnReferentie2, PakketReferentie2) #dim OrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(ProductOrderLijn1, ProductOrderLijn2) #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(OrderLijnIterator, DocumentReferenties, AxSalesId) #dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId) Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock) #dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo) - Do $$$AssertEquals(Resultaat.Size, 5) + Do $$$AssertEquals(Resultaat.Size, 6) Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Verkoopordernummer", AxSalesId) Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderreferentie", OrderReferentie) Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Commissiereferentie", CommissieReferentie) Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Klantordernummer", KlantOrderNummer) Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderlijnreferentie", OrderLijnReferentie2) + Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Externeartikelomschrijving", PakketReferentie2) Do OrderMock.Verifieer() Do OrderApiMock.Verifieer() ]]> - + - + -ProductId:%String="",OrderLijnReferentie:%String="" +ProductId:%String="",OrderLijnReferentie:%String="",PakketReferentie:%String="" 1 vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn