DOM.PM.BezoekbaarProductVisitor BL.Etiket.LadeKlantEtiket 1 DOM.PM.Maatwerk.impl.LadeInfoAPI 1 %Boolean 1 1 1 %Status 1 Etiket:BL.Etiket.LadeKlantEtiket,ProductID:DOM.common.ProductID,IsKlantEtiketSpaceStep:%Boolean=0 ProductID:%String %Status 0 { #dim Zijkant As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant = Zijkanten.GetAt(1) #dim ZijkantKleuren As %ArrayOfDataTypes = Zijkant.GeefKleuren() Do Kleuren.Insert(ZijkantKleuren.GetAt(2)) Do Kleuren.Insert(ZijkantKleuren.GetAt(1)) } #dim Bodems As %ListOfObjects = Lade.GeefBodems() If Bodems.Count() > 0 { #dim Bodem As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant = Bodems.GetAt(1) Do Kleuren.Insert(Bodem.GeefKleur()) } Set ..Etiket.Kleur = ##class(TECH.ListUtils).ListToPieces(Kleuren, "/") } Quit $$$OK ]]> 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 ProductID:%String %Status