Index: zTryout/PRA/ProbeerKlantBeoordeling.cls.xml
===================================================================
diff -u
--- zTryout/PRA/ProbeerKlantBeoordeling.cls.xml	(revision 0)
+++ zTryout/PRA/ProbeerKlantBeoordeling.cls.xml	(revision 1461)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.PRA.ProbeerKlantBeoordeling">
+<IncludeCode>BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Export">
+<Description>
+Do ##class(zTryout.PRA.ProbeerKlantBeoordeling).Export()</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New AantalMaanden,Dev,rs,sc,I,ColumnCount,lbColumn,lbP
+	Set AantalMaanden=12
+	Write !!,"Berekening loopt over ", AantalMaanden," maanden",!
+	
+	Set Dev=$$OPEN^vhDEV(,"Klantbeoordeling.txt","W","T")
+	Use Dev
+	Set rs=##class(%ResultSet).%New("DOM.CRM.Stat.KlantBeoordeling:qLijst")
+	Set sc=rs.Execute(AantalMaanden)
+	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errCreateObject,"Resultset qLijst",sc)
+	s sc=rs.GetODBCInfo(.lbColumn,.lbP)
+	Set ColumnCount=rs.GetColumnCount()
+	For I=1:1:ColumnCount Write I, " ", rs.GetColumnHeader(I),$S(I=ColumnCount:"",1:$C(9)), !
+	Write !
+
+	#define TotAankoopKolomIdx 19
+	#define TotVerkoopKolomIdx 20
+	#define KlantNrKolomIdx 1
+	#define KlantNr 1027
+
+	Set Gevonden = 0
+	While (('Gevonden) && rs.Next())
+		{
+			If ($$$KlantNr = rs.GetData($$$KlantNrKolomIdx)) 
+			{
+				Set Gevonden = 1
+			
+				/*
+				For I=1:1:ColumnCount Write ..Transform2Excel(rs.GetData(I),$LG(lbColumn,((I-1)*9)+3)),$S(I=ColumnCount:"",1:$C(9))
+				Write !, !
+				*/
+				
+				Write "Klant ", rs.GetData($$$KlantNrKolomIdx), !
+				Write "Totaal aankoop ", rs.GetData($$$TotAankoopKolomIdx), !
+				Write "Totaal verkoop ", rs.GetData($$$TotVerkoopKolomIdx), !
+			}
+		}
+
+	Do rs.Close()
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="Transform2Excel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Value,FormatNr</FormalSpec>
+<Implementation><![CDATA[
+	If FormatNr=9 ;Date
+	{
+		// Set Value=$$$ExcelDat($zdh(Value,3))
+	}
+	ElseIf FormatNr=8 ;Float
+	{
+		Set Value=$$$ExcelNum(Value)
+	}
+	Quit Value
+]]></Implementation>
+</Method>
+</Class>
+</Export>