Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml =================================================================== diff -u -r71026 -r71822 --- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71026) +++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71822) @@ -200,6 +200,18 @@ Set Etiket.KlantQRCode = "" } + If $$$Not(..ProjectSettingsAPI.IsActiefEnkelGroteKlantEtiketten()) { + If $$$HasLength(Etiket.KlantBarcode) { + If $$$Not(Etiket.Layout = "MaatwerkProductInVHoss2D 5x10") { + Set Etiket.Layout = $$$If((Partij.GeefID()=##class(DOM.VKP.enu.Klant).Labonorm()),"MaatwerkProduct 5x10","MaatwerkProduct 8x11") + } + } + + If Partij.GeefID() = ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek() { + Set Etiket.Layout = "MaatwerkProduct 8x11" + } + } + If $$$HasLength(ProductOrderLijn.GeefToeleveringID()) { Set Etiket.LblToelevering = ..GeefVertalingLabel("DOSSIER",Partij.GeefTaal(),"Dossier") Set Etiket.ToeleveringID = ProductOrderLijn.GeefToeleveringID() Index: vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml =================================================================== diff -u -r71633 -r71822 --- vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71633) +++ vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71822) @@ -22,8 +22,7 @@ - + Index: vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml =================================================================== diff -u -r70888 -r71822 --- vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 70888) +++ vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 71822) @@ -78,6 +78,12 @@ ]]> + +%Boolean + + + %Boolean -Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0 -Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0,ProjectSettingsApi:DOM.common.impl.ProjectSettingsAPI="" + Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml =================================================================== diff -u -r71065 -r71822 --- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 71065) +++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 71822) @@ -23,6 +23,11 @@ 1 + +DOM.common.impl.ProjectSettingsAPI +1 + + 1 1 @@ -36,10 +41,12 @@ -Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0 +Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0,ProjectSettingsApi:DOM.common.impl.ProjectSettingsAPI="" @@ -62,8 +69,17 @@ } Set ..Etiket.LadeCode = IngegevenKenmerken.GeefLadeCode() - Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + If ..ProjectSettingsApi.IsActiefEnkelGroteKlantEtiketten() { + Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + } Else { + If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) { + Set ..Etiket.Layout = "MaatwerkProduct 5x10" + } Else { + Set ..Etiket.Layout = "MaatwerkProduct 8x11" + } + } + If (##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.TAORVerpakkingType).V1(), ##class(DOM.PM.enu.TAORVerpakkingType).Probox())) { Set Kleuren = ##class(%ListOfDataTypes).%New() #dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(MaatwerkProduct.GeefHalffabItemsBoom(), IngegevenKenmerken) @@ -110,8 +126,17 @@ #dim Verpakking As DOM.PM.enu.TBXVerpakking = Tandembox.GeefVerpakking() If (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen()){ Set ..Etiket.Layout = "MaatwerkProductInVHoss2D 5x10" - } Else { + } ElseIf ..ProjectSettingsApi.IsActiefEnkelGroteKlantEtiketten() { Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + } ElseIf (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).StukZonderOnderdelen()) + || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) + { + Set ..Etiket.Layout = "MaatwerkProduct 8x11" + If ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) && (..Etiket.KlantID = ##class(DOM.VKP.enu.Klant).DeDecker())){ + Set ..Etiket.Layout = "MaatwerkProduct 5x10" + } + } Else { + Set ..Etiket.Layout = "MaatwerkProduct 5x10" } Quit $$$OK @@ -148,8 +173,12 @@ #dim Verpakking As DOM.PM.enu.LBXVerpakkingType = IngegevenKenmerken.VerpakkingType If (Verpakking = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()){ Set ..Etiket.Layout = "MaatwerkProductInVHoss2D LBX 5x10" - } Else { + } ElseIf ..ProjectSettingsApi.IsActiefEnkelGroteKlantEtiketten() { Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + } ElseIf (Verpakking = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()){ + Set ..Etiket.Layout = "MaatwerkProduct 5x10" + } Else { + Set ..Etiket.Layout = "MaatwerkProduct 8x11" } ]]> @@ -175,8 +204,12 @@ #dim Verpakking As DOM.PM.enu.MVXVerpakkingType = IngegevenKenmerken.VerpakkingType If (Verpakking = ##class(DOM.PM.enu.MVXVerpakkingType).VHoss()){ Set ..Etiket.Layout = "MaatwerkProductInVHoss2D LBX 5x10" - } Else { + } ElseIf ..ProjectSettingsApi.IsActiefEnkelGroteKlantEtiketten() { Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + } ElseIf (Verpakking = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()){ + Set ..Etiket.Layout = "MaatwerkProduct 5x10" + } Else { + Set ..Etiket.Layout = "MaatwerkProduct 8x11" } ]]> @@ -196,7 +229,11 @@ Set ..Etiket.WandDikte = "D: " _ IngegevenKenmerken.InbouwDiepte Set ..Etiket.Info3 = IngegevenKenmerken.GeefVariant() _ " " _ IngegevenKenmerken.Toepassing Set ..Etiket.LadeCode = "" - Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + If ..ProjectSettingsApi.IsActiefEnkelGroteKlantEtiketten() { + Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" + } Else { + Set ..Etiket.Layout = "MaatwerkProduct 5x10" + } If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) { If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).DuoUno(), ##class(DOM.PM.enu.RVGToepassing).DuoDuo(), ##class(DOM.PM.enu.RVGToepassing).UnoDuo()) {