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
+