Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r74602 -r74712
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74602)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74712)
@@ -77,6 +77,7 @@
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Korttekst", Product.GeefKorttekst()))
#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Langtekst", Product.GeefLangtekst(Taal)))
+ Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "GenericProductId", ..ProductApi.GeefIdentNummerVoorProductId(Product.GeefGenerischProductID())))
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Dossiercode", Product.GeefDossierCode()))
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "FSC-claim", ..GeefFSCLogoURL(Product)))
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r74606 -r74712
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 74606)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 74712)
@@ -33,6 +33,11 @@
111111
+
+%String
+1.2.3.4
+
+
%String
DummyDnaCode
@@ -98,9 +103,11 @@
Do HalffabItemsBoomMock.VerwachtMethodCall("BevatRol", ##class(DOM.PM.enu.Variant).MatStandaard()_ "_" _##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()).DanReturn($$$False)
Do HalffabItemsBoomMock.VerwachtMethodCall("GeefHalffabItem", $$$ElkeWaarde).DanReturn(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("", "Dummy", ""))
Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomMock)
+ Do ProductMock.VerwachtMethodCall("GeefGenerischProductID").DanReturn("1234")
Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+ Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", "1234").DanReturn(..#DummyGenericProductId)
#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
#dim IngegevenKenmerkenSpaceStepHelperMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper = ..GeefIngegevenKenmerkenSpaceStepHelper($$$False, ..LbxKenmerken)
@@ -117,26 +124,27 @@
Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock, , HoutCertificaatServiceMock, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
- Do $$$AssertEquals(Resultaat.Size, 19)
+ Do $$$AssertEquals(Resultaat.Size, 20)
Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-PIN", ..#DummyDnaCode)
Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SHORTPIN", "ode")
Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Inventtransid", ..#DummyInventTransId)
Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Axconfigid", ..#DummyAxConfigId)
Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Korttekst", ..#DummyKorttekst)
Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Langtekst", ..#DummyLangtekst)
- Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dossiercode", ..#DummyDossierCode)
- Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FSC-claim", "null")
- Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "null")
- Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-TOBSynchroLinkageLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(11), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(12), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLinkageLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(14), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DesignElementFrontLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(15), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DistanceTrimLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(16), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FrontPanelLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(17), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-GalleryFrontLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(18), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-CrossGalleryLength", "null")
- Do ..AssertOptie(Resultaat.GetAt(19), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-CrossGalleryLowerLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-GenericProductId", ..#DummyGenericProductId)
+ Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dossiercode", ..#DummyDossierCode)
+ Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FSC-claim", "null")
+ Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "null")
+ Do ..AssertOptie(Resultaat.GetAt(11), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-TOBSynchroLinkageLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(12), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(14), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SideStabiliserLinkageLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(15), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DesignElementFrontLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(16), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DistanceTrimLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(17), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FrontPanelLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(18), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-GalleryFrontLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(19), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-CrossGalleryLength", "null")
+ Do ..AssertOptie(Resultaat.GetAt(20), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-CrossGalleryLowerLength", "null")
Do ProductMock.Verifieer()
Do ProductApiMock.Verifieer()
@@ -159,9 +167,11 @@
Set HalffabItemsBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
Do HalffabItemsBoomMock.VerwachtMethodCall("BevatRol", $$$ElkeWaarde).DanReturn($$$False)
Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomMock)
+ Do ProductMock.VerwachtMethodCall("GeefGenerischProductID").DanReturn("1234")
Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+ Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", "1234").DanReturn(..#DummyGenericProductId)
#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
#dim IngegevenKenmerkenSpaceStepHelperMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper = ..GeefIngegevenKenmerkenSpaceStepHelper($$$False, ..LbxKenmerken)
@@ -178,8 +188,8 @@
Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock,, HoutCertificaatServiceMock, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
- Do $$$AssertEquals(Resultaat.Size, 9)
- Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "123.A.789")
+ Do $$$AssertEquals(Resultaat.Size, 10)
+ Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "123.A.789")
Do ProductMock.Verifieer()
Do ProductApiMock.Verifieer()
@@ -199,9 +209,11 @@
Set HalffabItemsBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
Do HalffabItemsBoomMock.VerwachtMethodCall("BevatRol", $$$ElkeWaarde).DanReturn($$$False)
Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomMock)
+ Do ProductMock.VerwachtMethodCall("GeefGenerischProductID").DanReturn("1234")
Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+ Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", "1234").DanReturn(..#DummyGenericProductId)
#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..GeefDnaCode(..#DummyDnaCode)
#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..GeefDnaCode(DnaCodeSst)
@@ -220,7 +232,7 @@
Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock,,, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
- Do $$$AssertEquals(Resultaat.Size, 10)
+ Do $$$AssertEquals(Resultaat.Size, 11)
Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DNA-code-SST", DnaCodeSst)
Do ProductMock.Verifieer()
@@ -240,9 +252,11 @@
Set HalffabItemsBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
Do HalffabItemsBoomMock.VerwachtMethodCall("BevatRol", $$$ElkeWaarde).DanReturn($$$False)
Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomMock)
+ Do ProductMock.VerwachtMethodCall("GeefGenerischProductID").DanReturn("1234")
Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+ Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", "1234").DanReturn(..#DummyGenericProductId)
#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..GeefDnaCode(..#DummyDnaCode)
#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)