DOM.PM.BezoekbaarProductVisitor BL.Etiket.LadeKlantEtiket 1 Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID ProductID:%String %Status ProductID:%String %Status 0) { Set ..Etiket.WandDikte = ..Etiket.WandDikte_Tandembox.GeefWandDikte() } Else { Set ..Etiket.WandDikte = "" } Set ..Etiket.LadeCode = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"LC")) #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" } 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 ]]> ProductID:%String %Status