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()) {