Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml =================================================================== diff -u -r70785 -r71026 --- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 70785) +++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71026) @@ -200,16 +200,6 @@ Set Etiket.KlantQRCode = "" } - 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/LadeEigenschappenEtiketAanvuller.cls.xml =================================================================== diff -u -r68832 -r71026 --- vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 68832) +++ vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 71026) @@ -51,8 +51,7 @@ Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0 - + Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml =================================================================== diff -u -r70902 -r71026 --- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 70902) +++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml (.../LadeEigenschappenEtiketAanvuller.cls.xml) (revision 71026) @@ -62,13 +62,8 @@ } Set ..Etiket.LadeCode = IngegevenKenmerken.GeefLadeCode() + Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" - 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) @@ -114,20 +109,10 @@ #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" + Set ..Etiket.Layout = "MaatwerkProductVHoss 8x11" + } Else { + 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 ]]> @@ -145,7 +130,7 @@ Set ..Etiket.Diepte = ..Etiket.Diepte_IngegevenKenmerken.LadeDiepte If IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte { Set ..Etiket.WandDikte = "" - }Else{ + } Else { Set ..Etiket.WandDikte = ..Etiket.WandDikte_IngegevenKenmerken.GUIKenmerken.WandDikte } Set ..Etiket.LadeCode = IngegevenKenmerken.GeefLadeCode() @@ -162,13 +147,10 @@ #dim Verpakking As DOM.PM.enu.LBXVerpakkingType = IngegevenKenmerken.VerpakkingType If (Verpakking = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()){ - Set ..Etiket.Layout = "MaatwerkProductInVHoss2D LBX 5x10" + Set ..Etiket.Layout = "MaatwerkProductVHoss 8x11" + } Else { + 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" - } ]]> @@ -192,12 +174,9 @@ #dim Verpakking As DOM.PM.enu.MVXVerpakkingType = IngegevenKenmerken.VerpakkingType If (Verpakking = ##class(DOM.PM.enu.MVXVerpakkingType).VHoss()){ - Set ..Etiket.Layout = "MaatwerkProductInVHoss2D LBX 5x10" - } - ElseIf (Verpakking = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()){ - Set ..Etiket.Layout = "MaatwerkProduct 5x10" + Set ..Etiket.Layout = "MaatwerkProductVHoss 8x11" } Else { - Set ..Etiket.Layout = "MaatwerkProduct 8x11" + Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" } ]]> @@ -217,7 +196,7 @@ Set ..Etiket.WandDikte = "D: " _ IngegevenKenmerken.InbouwDiepte Set ..Etiket.Info3 = IngegevenKenmerken.GeefVariant() _ " " _ IngegevenKenmerken.Toepassing Set ..Etiket.LadeCode = "" - Set ..Etiket.Layout = "MaatwerkProduct 5x10" + Set ..Etiket.Layout = "MaatwerkProduct_Nieuw 8x11" 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()) {