persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder 0 %String ##class(DOM.PM.Maatwerk.Calc.HF.enu.KADRol).Profiel() 1 SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder 1 1 %Status IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Boolean IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %ArrayOfDataTypes 1 DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItem mm ??? Set KadBreedte=IngegevenKenmerken.Breedte ; Conversie cm --> mm ??? Set HalffabItemProfielen=Context.HalffabItemsBoom.GeefHalffabItem("Profiel") Set HalffabProfBO=HalffabItemProfielen.GeefHalffabItem("Boven").Halffab Set HalffabProfON=HalffabItemProfielen.GeefHalffabItem("Onder").Halffab Set HalffabProfLI=HalffabItemProfielen.GeefHalffabItem("Links").Halffab Set HalffabProfRE=HalffabItemProfielen.GeefHalffabItem("Rechts").Halffab Set VullingHoogte =KadHoogte -(HalffabProfBO.AftrekVoorGlas+HalffabProfON.AftrekVoorGlas) Set VullingBreedte=KadBreedte-(HalffabProfLI.AftrekVoorGlas+HalffabProfRE.AftrekVoorGlas) ;d WLIP^vhDBG(97,"KAD : "_KadHoogte_" x "_KadBreedte_" -> Glas aftrek : "_HalffabProfBO.AftrekVoorGlas_" "_HalffabProfON.AftrekVoorGlas_" "_HalffabProfLI.AftrekVoorGlas_" "_HalffabProfRE.AftrekVoorGlas) ;d WLIP^vhDBG(97,"VUL : "_VullingHoogte_" x "_VullingBreedte) ;Set HalffabItem.AfwijkendeKenmerken="..." Quit HalffabItem ]]> %Library.CacheStorage