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