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 LangtekstDetail:TECH.String 1 1 1 1 1 1 1 1 1 %ListOfDataTypes gebruik in de plaats de rol van MVXNietMeeleveren #dim IsRolVoorBoxcover As %Boolean = (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXNietMeeleveren).Boxcover()) If (IsRolVoorFrontBevestiging && ($$$Not(IsRolFrontBevestigingToegevoegd))) { Do NietMeegeleverdeRollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging()) ; Review opmerking: MVX en LBX hier door elkaar gebruikt !!! Set IsRolFrontBevestigingToegevoegd = $$$True } ElseIf (($$$Not(IsRolVoorFrontBevestiging)) && (..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol))) { Do NietMeegeleverdeRollen.Insert(Rol) } ElseIf (IsRolVoorBoxcover) { Do NietMeegeleverdeRollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXNietMeeleveren).Boxcover()) } } If ($Extract(..IngegevenKenmerken.GeefVariant(),1,3) = "TBX") { Do ..VoegToeExtraNietMeegeleverdeRollenVoorTbx(.NietMeegeleverdeRollen) } Quit NietMeegeleverdeRollen ]]> 1 Rol:%String 1 %String 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