Index: zTryout/PRA/UnishopBestellingenRapport.cls.xml
===================================================================
diff -u
--- zTryout/PRA/UnishopBestellingenRapport.cls.xml	(revision 0)
+++ zTryout/PRA/UnishopBestellingenRapport.cls.xml	(revision 31798)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PRA.UnishopBestellingenRapport">
+<Super>%RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Caché verslikt zich in sql join op substring van Offerte.KlantID  ... daarom maar op deze onhandige manier ...
+
+]]></Content>
+</UDLText>
+
+<Method name="Doe">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Try {
+			#Dim OutputFileWriter As TECH.File.FileWriter = ##class(TECH.File.impl.FileAPI).%New().GeefFileWriter()
+			Do OutputFileWriter.Open("c:\unishop-verkoop-rapport.csv")
+			Do OutputFileWriter.WriteLine("OfferteID;Besteldatum;Regionummer;AantalStuks;TypeMaatwerk")
+			
+			#Dim ResultSet As %ResultSet = ##class(%ResultSet).%New( "APPS.VKP.impl.Offerte:Extent" )
+			Do ResultSet.Execute()
+			While ResultSet.Next() {
+				#Dim OfferteID As %String = ResultSet.Data("ID")
+				
+				Try {
+					#Dim sc As %Status = ""
+					#Dim Offerte As APPS.VKP.impl.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(OfferteID)
+
+					If ("" '= Offerte) {
+						If (Offerte.GeefBestelDatum() > ($h - 365))  {
+							If ($Extract( Offerte.GeefKlantID(), 1, 3) = "K||") {
+								If ( (Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld()) 
+									|| (Offerte.GeefBestelStatus() = ##class(APPS.VKP.Offerte.enu.BestelStatus).Doorbesteld()) ) 
+								{								
+									#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId( Offerte.GeefWinkelkarID() )
+									#Dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.VKP.impl.VerkoopAPI).%New().GeefKlant( Winkelkar.GeefKlantID() )
+								
+									#Dim GroepLijnen As TECH.ListIterator = Winkelkar.GeefLijnIterator()
+									While GroepLijnen.HasNext() {
+										#Dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = GroepLijnen.Next()
+										#Dim MaatwerkLijnen As TECH.ListIterator = GroepLijn.SublijnIterator()
+										While (MaatwerkLijnen.HasNext()) {
+											#Dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnen.Next()
+											Do OutputFileWriter.WriteLine( Offerte.GeefID() _ ";" _
+												Offerte.GeefBestelTimestamp() _ ";" _ 
+												Klant.GeefRegio() _ ";" _ 
+												MaatwerkLijn.GeefAantal() _ ";" _ 
+												MaatwerkLijn.GeefIngegevenKenmerken().%ClassName(1) _  ";"
+												)
+										}
+									}
+								}
+							}
+						}
+					}
+				} Catch {
+					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+					Write Exception.ToString(), !
+					Write Exception.GeefStack(), !
+				}
+			}
+			Do OutputFileWriter.Close()
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Write Exception.ToString(), !
+			Write Exception.GeefStack(), !
+			
+			Do OutputFileWriter.Close()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>