1 TECH.RegisteredObject Oproepen via : Do ##class(Tools.ResultSetWriter).WriteFromClassQuery( "APPS.Halux.PPS.TBXZaag.impl.PlaatmateriaalHelperVoorMVX","qPlatenLijst",$LB("B+R")) 1 ClassName:%String,QueryName:%String,lbParams:%List="" Do ##class(Tools.ResultSetWriter).Write() 1 $G(mdColumnSettings("Optimized_ColWidth_Nr",i),0)) Set mdColumnSettings("Optimized_ColWidth_Nr",i) = TekstLengte } } For i=1:1:Cols { Set TekstLengte = $Length(ResultSet.GetColumnHeader(i)) If (TekstLengte > $G(mdColumnSettings("Optimized_ColWidth_Nr",i),0)) Set mdColumnSettings("Optimized_ColWidth_Nr",i) = TekstLengte } If $Data(mdColumnSettings("Optimized_ColWidth_Nr")) { Merge mdColumnSettings("ColWidth_Nr") = mdColumnSettings("Optimized_ColWidth_Nr") Kill mdColumnSettings("Optimized_ColWidth_Nr") } For i=1:1:##class(TECH.Math).Ceil(Cols/NCols) { Set Van = (i-1)*NCols + 1 Set Tot = ##class(TECH.Math).Min(i*NCols,Cols) w "+" For j=Van:1:Tot { w $Translate($J("",$$$ColWidth(j)+2)," ","-")_"+" } w ! w "| " For j=Van:1:Tot { w $J($Extract(ResultSet.GetColumnHeader(j),1,$$$ColWidth(j)),$$$ColWidth(j))_" | " } w ! w "+" For j=Van:1:Tot { w $Translate($J("",$$$ColWidth(j)+2)," ","-")_"+" } w ! For k=1:1:Cnt { w "| " For j=Van:1:Tot { w $J($Extract(Data.GetAt(k).GetAt(j),1,$$$ColWidth(j)),$$$ColWidth(j))_" | " } w ! } w "+" For j=Van:1:Tot { w $Translate($J("",$$$ColWidth(j)+2)," ","-")_"+" } w !! } ]]>