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 + +