Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml =================================================================== diff -u -r73608 -r74307 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 73608) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 74307) @@ -39,8 +39,13 @@ 1 + +DOM.Halux.AAP.KlantinstellingenRepository +1 + + -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="" +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="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="" 1 1 %Status @@ -53,6 +58,7 @@ 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()) + Set ..KlantinstellingenRepository = $$$Inject(KlantinstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New()) Quit $$$OK ]]> @@ -152,6 +158,30 @@ Set TekstVelden.MultipersonalityKlant1 = ..GeefWaardeOfNull(..GeefEersteMultipersonality(OorsprongKettingLijst)) Set TekstVelden.MultipersonalityKlant2 = ..GeefWaardeOfNull(..GeefTweedeMultipersonality(OorsprongKettingLijst)) + #dim KlantInstellingen As DOM.Halux.AAP.Klantinstellingen + #dim KlantInstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId() + + Set TekstVelden.GebruikHalvePaletten = "false" + Set TekstVelden.IsExport = "false" + Set TekstVelden.PalletMateriaal = "EUR" + Set TekstVelden.TypeKarton = "VH" + + If (KlantInstellingenIterator.HasNext()) { + Set KlantInstellingen = KlantInstellingenIterator.Next() + + Set TekstVelden.GebruikHalvePaletten = $Select(KlantInstellingen.HalvePallet : "true", 1:"false") + Set TekstVelden.IsExport = $Select(KlantInstellingen.IsExport : "true", 1:"false") + Set TekstVelden.TypeKarton = $Select(KlantInstellingen.IsBlumXs : "Blum", 1:"VH") + + If (KlantInstellingen.WegwerpPallet) { + Set TekstVelden.PalletMateriaal = "Disposable" + } ElseIf (KlantInstellingen.KartonnenPallet) { + Set TekstVelden.PalletMateriaal = "Cardboard" + } + } + + + Quit TekstVelden ]]> Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml =================================================================== diff -u -r72932 -r74307 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml (.../BatchNaarObjectiveTekstVelden.cls.xml) (revision 72932) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml (.../BatchNaarObjectiveTekstVelden.cls.xml) (revision 74307) @@ -88,6 +88,26 @@ + +%String + + + + +%String + + + + +%String + + + + +%String + + + %Library.CacheSerialState BatchNaarObjectiveTekstVeldenState @@ -144,6 +164,18 @@ Leveradres + +PalletMateriaal + + +TypeKarton + + +IsExport + + +GebruikHalvePaletten +