TECH.RegisteredObject %String ; DOM.common.Transl.Vertaler 1 DOM.common.Transl.Vertaler 1 DOM.PM.ProductTekst.impl.KleurcodeBepaler 1 DOM.PM.LangtekstHelper 1 DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 DOM.enu.Taal 1 %String 1 DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 %String 1 %String list 1 IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String="",HalffabItemsBoomOnHerwerkt:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom="" DOM.PM.ProductLangtekst 1 LangtekstDetail:TECH.String 1 1 1 1 1 1 1 1 %ListOfDataTypes 0 { Set:(Rol="Glijder") Rol = "Geleider" ;Oude benaming Glijder heeft key Geleider in de nieuwe vertalingen Do NietMeegeleverdeRollen.Insert(Rol) } } Quit NietMeegeleverdeRollen ]]> 1 HalfabRol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol 1 %Integer 1 HalffabRol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol,Tekst:TECH.String,MetSeparator:%Boolean 1 1 HalfabRol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol 1 %Integer HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem %Decimal 1 0) FrequentieTabelInfo.Verhoog(GekoppeldeLangtekst) } #dim InfoIt As TECH.Iterator = FrequentieTabelInfo.GeefItemIterator() If InfoIt.HasNext() { #dim VermeldAantalMaal As %Boolean = $$$Not(..IsSifonlade()) } While InfoIt.HasNext(){ #dim Aantal As %Double = InfoIt.Next() #dim Key As %String = InfoIt.Key() #dim Info As %String = Key If (VermeldAantalMaal) && (Aantal > 1) { Set Info = Aantal_" x "_Info } Do ..LangtekstDetail.Insert(Info) } ]]> 1 1 %Boolean 1 %String 1 TECH.String 1 TECH.String 1 TECH.String 1 TECH.String 1 TECH.String KleurCode:%String 1 %String