Index: Tools/ResultSetWriter.cls.xml
===================================================================
diff -u
--- Tools/ResultSetWriter.cls.xml	(revision 0)
+++ Tools/ResultSetWriter.cls.xml	(revision 3814)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ResultSetWriter">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="WriteFromClassQuery">
+<Description>
+Oproepen via : 
+  Do ##class(Tools.ResultSetWriter).WriteFromClassQuery( "APPS.Halux.PPS.TBXZaag.impl.PlaatmateriaalHelperVoorMVX","qPlatenLijst",$LB("B+R")) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,QueryName:%String,lbParams:%List=""</FormalSpec>
+<Implementation><![CDATA[
+	Set QueryAPI = ##class(TECH.Query.impl.QueryAPI).%New() 
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.ClassQuery).%New(ClassName,QueryName,lbParams))
+	Do ##class(Tools.ResultSetWriter).Write(ResultSet, 10)
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<Description>
+Do ##class(Tools.ResultSetWriter).Write()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[ResultSet:%ResultSet,AantalKolommenPerBlock:%Integer=10,&mdColumnSettings:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#define ColWidth(%ColIndex)   $G(mdColumnSettings("ColWidth_Nr",%ColIndex), ColWidth)
+	#dim i, j, k, Van, Tot, Cnt, ColWidth, NCols, Cols
+	#dim TekstLengte As %Integer
+	
+	Set ColWidth = $G(mdColumnSettings("ColWidth_Nr",0), 25)
+	Set NCols = $G(mdColumnSettings("NCols_per_block"), AantalKolommenPerBlock)
+	
+	
+	Set Cols = ResultSet.GetColumnCount()
+	
+	Set Data = ##class(%ListOfObjects).%New()		
+	Set Cnt = 0
+	While (ResultSet.Next())
+	{
+		Set Cnt = Cnt + 1
+		Do Data.Insert(##class(%ListOfDataTypes).%New())
+		For i=1:1:Cols
+		{
+			Do Data.GetAt(Cnt).Insert(ResultSet.GetData(i))
+			Set TekstLengte = $Length(ResultSet.GetData(i))
+			If (TekstLengte > $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 !!
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>