TECH.RegisteredObject DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder DOM.PM.Maatwerk.Calc.HF.HalffabContext APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper 1 1 %Status 1 %Query BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug 1 1 %Status 1 qPlatenLijstExecute %Status 1 qPlatenLijstExecute %Status BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal" 1 PlaatMateriaal:APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal 1 %String Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol 1 %ListOfObjects ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab" PlaatMateriaalLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.LBXPlaatMateriaal"),HalffabLijst:%ListOfObjects(ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"),PlaatType:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rol:DOM.PM.Maatwerk.Calc.HF.enu.LBXRol 1 KleurenLijst:%List 1 %String 1) { Set Kleuren = $$ListToPieces^vhLib(KleurenLijst,"/") } Else { Set Kleuren = $LG(KleurenLijst) } Quit Kleuren ]]> KleurCode:%String 1 PlaatKleuren:%List 1