Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72033 -r72932
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72033)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72932)
@@ -102,7 +102,7 @@
Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Korttekst", ..#DummyKorttekst)
Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Langtekst", ..#DummyLangtekst)
Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dossiercode", ..#DummyDossierCode)
- Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FSC-claim", "NonApplicable")
+ 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 ProductMock.Verifieer()
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72681 -r72932
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72681)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72932)
@@ -58,7 +58,7 @@
]]>
-
+
+
+
+
+
1
+
+DOM.VKP.VerkoopAPI
+1
+
+
vhLib.Logger
1
+
+BL.Flow.Levering.LabelLogoBepaler
+1
+
+
-BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger=""
+BatchPitchExportedService:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI="",Logger:vhLib.Logger="",VerkoopAPI:DOM.VKP.VerkoopAPI="",LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler=""
1
1
%Status
@@ -39,8 +49,10 @@
Set ..BatchPitchExportedService = $$$Inject(BatchPitchExportedService, ##class(APPS.Halux.PPS.Activiteit.impl.common.BatchNaarObjectiveIoCContainer).Instance().Resolve("BatchPitchExportedService"))
Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
- Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+ Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator"))
+ Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+ Set ..LabelLogoBepaler = $$$Inject(LabelLogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
Quit $$$OK
]]>
@@ -114,7 +126,12 @@
Set TekstVelden.CommissieReferentie = ..GeefWaardeOfNull(Order.GeefCommissieReferentie())
Set TekstVelden.Verzendwijze = ..GeefWaardeOfNull($Piece(Order.GeefVerzendingWijze(), ";", 1))
Set TekstVelden.KlantOrderId = ..GeefWaardeOfNull(Order.GeefDocumentReferenties().KlantOrderNummer)
+ Set TekstVelden.Leveradres = ..GeefWaardeOfNull(Order.GeefAfleveradres().GeefNaam())
+ #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Toelevering.GeefKlantID())
+ Set TekstVelden.KlantLogo = ..GeefWaardeOfNull(..LabelLogoBepaler.GeefLogo(Toelevering.GeefOorsprongKetting(), Klant.GeefCode()))
+ Set TekstVelden.KlantTaal = ..GeefWaardeOfNull(Klant.GeefTaal())
+
#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
Set TekstVelden.KlantNaam = ..GeefWaardeOfNull(Partij.GeefNaam())
Set TekstVelden.KlantId = ..GeefWaardeOfNull(..PrependNul(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())))
FishEye: Tag 72932 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/FscNaarObjective.cls.xml'.
FishEye: No comparison available. Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r72083 -r72932
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 72083)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml (.../IngegevenKenmerkenOptiesGenerator.cls.xml) (revision 72932)
@@ -52,8 +52,7 @@
#dim KenmerkenObjt As OBJT.PM.Maatwerk.dto.LadeKenmerken = ..AppsNaarObjectiveConverter.ConverteerAppsNaarObjt(KenmerkenApps)
Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenObjt, Variant, SequentieNummerLade))
- // Voor fase MES M1 eruit laten
- ; Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesGekoppeldeIngegevenKenmerken(KenmerkenApps, SequentieNummerLade))
+ Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesGekoppeldeIngegevenKenmerken(KenmerkenApps, SequentieNummerLade))
Quit Opties
]]>
@@ -130,13 +129,31 @@
While (GekoppeldeIngegevenKenmerkenIterator.HasNext()) {
#dim GekoppeldIK As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = GekoppeldeIngegevenKenmerkenIterator.Next()
-
- Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesIngegegevenKenmerken(GekoppeldIK.IngegevenKenmerken, SequentieNummerLade, GekoppeldIK.Key _ "."))
+ If (GekoppeldIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) {
+ Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesSpaceStepKenmerken(GekoppeldIK.IngegevenKenmerken, SequentieNummerLade, GekoppeldIK.Key _ "."))
+ }
}
Quit LijstOpties
]]>
+
+
+KenmerkenObjt:APPS.PM.Maatwerk.dto.SSTKenmerken,SequentieNummerLade:%String,VoorvoegselNaam:%String=""
+1
+%ListOfObjects
+
+
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml
===================================================================
diff -u -r72120 -r72932
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml (.../BatchNaarObjectiveTekstVelden.cls.xml) (revision 72120)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml (.../BatchNaarObjectiveTekstVelden.cls.xml) (revision 72932)
@@ -58,11 +58,26 @@
+
+%String
+
+
+
%String
+
+%String
+
+
+
+
+%String
+
+
+
%String
@@ -120,6 +135,15 @@
CommissieReferentie
+
+KlantLogo
+
+
+KlantTaal
+
+
+Leveradres
+
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72357 -r72932
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72357)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 72932)
@@ -49,8 +49,10 @@
#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 ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+ Do ProductTypeApiMock.IndienMethodCall("IsSpaceTowerProduct", ProductId2).DanReturn($$$False)
- Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
Do $$$AssertEquals(Resultaat.Size, 6)
@@ -76,8 +78,10 @@
#dim LegeOrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects()
#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(LegeOrderLijnIterator, DocumentReferenties)
#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId)
+ Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+ Do ProductTypeApiMock.IndienMethodCall("IsSpaceTowerProduct", ProductId).DanReturn($$$False)
- Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
Do $$$AssertEquals(Resultaat.Size, 6)
@@ -100,8 +104,10 @@
#dim OrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(ProductOrderLijn)
#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(OrderLijnIterator, DocumentReferenties)
#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId)
+ Set ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+ Do ProductTypeApiMock.IndienMethodCall("IsSpaceTowerProduct", ProductId).DanReturn($$$False)
- Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+ Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock, ProductTypeApiMock)
#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
Do $$$AssertEquals(Resultaat.Size, 6)
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml
===================================================================
diff -u -r72381 -r72932
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 72381)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 72932)
@@ -8,14 +8,20 @@
1
+
+DOM.PM.ProductTypeAPI
+1
+
+
-OrderApi:DOM.VKP.OrderAPI=""
+OrderApi:DOM.VKP.OrderAPI="",ProductTypeAPI:DOM.PM.ProductTypeAPI=""
1
1
%Status
1
@@ -57,10 +63,10 @@
If OrderLijn.GeefProductID() = ProductId {
Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie()
+ Do ..VulAanProjectReferentieMetLadeNaamIndienSpaceTower(.OrderlijnReferentie, ProductId)
Set PakketReferentie = OrderLijn.GeefPakketReferentie()
Set IsGevonden = $$$True
-
}
}
} Catch {
@@ -73,6 +79,27 @@
Quit LijstOrderRefentieOpties
]]>
+
+
+
+
+
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r72033 -r72932
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 72033)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 72932)
@@ -18,11 +18,6 @@
1
-
-APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective
-1
-
-
vhLib.Logger
1
@@ -38,7 +33,6 @@
Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
Set ..DnaCodeService = $$$Inject(DnaCodeService, ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
- Set ..FscConverterNaarObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective).%New()
Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
Quit $$$OK
@@ -61,8 +55,7 @@
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Langtekst", Product.GeefLangtekst(Taal)))
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Dossiercode", Product.GeefDossierCode()))
- #dim FscHoutCertificaat As %String = ..FscConverterNaarObjective.Converteer(Product.GeefFSCHout())
- Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "FSC-claim", FscHoutCertificaat))
+ Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "FSC-claim", ..GeefFSCLogoURL(Product)))
Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Vhoss-info", ..GeefVhossInfo(UitvoeringInfo)))
Quit Opties
@@ -170,6 +163,28 @@
Quit VhossInfo
]]>
+
+
+Product:DOM.PM.MaatwerkProduct
+1
+%String
+
+