APPS.Halux.PPS.Document.impl.VHossDocumentAfdrukker 1 %Integer Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst 1 BL.PPS.TBX.sub.pxVHossUnits ProductID:%String 1 %String 1 BL.PPS.TBX.sub.pxVHossUnit Unit:BL.PPS.TBX.sub.pxVHossUnit %String Unit:BL.PPS.TBX.sub.pxVHossUnit 1 %ListOfDataTypes RefLijst:%ListOfDataTypes 1 %String 12) MaxRefsPerRij = 4 ; indien meer dan 12 refs, dan 4 kolommen. Set:(AantalRefs=4) MaxRefsPerRij = 2 ; indien 4 dan blokje van 2x2, anders 3 kolommen x N rijen. Set RefsIterator = ##class(TECH.ListIterator).%New(RefLijst) While (RefsIterator.HasNext()) { #dim Ref As %String = RefsIterator.Next() Set RefsTeller = RefsTeller + 1 Set TekstblokRef = TekstblokRef _ ##class(TECH.StringUtils).AddTrailingSpace(Ref,12) _ $Select(RefsTeller#MaxRefsPerRij = 0 : $$$CRLF, 1:" ") } Quit TekstblokRef ]]> 1 BL.PPS.TBX.sub.pxVHossSubUnit