Bevat per rol een HalffabItem. Kent de context waaruit hij is opgebouwd 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItem,TECH.Mockable DOM.PM.Maatwerk.Calc.HF.IHalffabItem list %List array TECH.Iterator TECH.Iterator TECH.Iterator %Boolean 0 ]]> Rol:%String %String Visitor:DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor Rol:%String DOM.PM.Maatwerk.Calc.HF.IHalffabItem " #dim Index As %List = ..HalffabItemsIndex.GetAt($Piece(Rol, Delimiter)) ; Indien $ListLength(Index) = 2 , dan moeten we een exceptie gooien. If ($ListLength(Index) > 0) { Set HalffabItem = ..HalffabItems.GetAt($listget(Index,1)) #dim Counter As %Integer For Counter=2:1:$Length(Rol, Delimiter) { Set HalffabItem = HalffabItem.GeefHalffabItem($Piece(Rol, Delimiter, Counter)) } } Quit HalffabItem ]]> %Integer HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem %Decimal IsMeeTeRekenenVoorVoorraad:%Boolean IsMeeTeRekenenInPrijs:%Boolean IndexNr:TECH.Integer 1 IndexNr set $list(HalffabItemIndices,Counter) = $listget(HalffabItemIndices,Counter)-1 } do ..HalffabItemsIndex.SetAt(HalffabItemIndices,Index) } ]]>