Index: zTryout/PBO/Scripts/DollarOrder.cls.xml
===================================================================
diff -u
--- zTryout/PBO/Scripts/DollarOrder.cls.xml	(revision 0)
+++ zTryout/PBO/Scripts/DollarOrder.cls.xml	(revision 31327)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PBO.Scripts.DollarOrder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Start">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Looper = ..%New()
+	Do Looper.Loop()
+]]></Implementation>
+</Method>
+
+<Method name="Loop">
+<Implementation><![CDATA[
+	Do ..FileWriter.Open("\\pbo-w7\e$\Klanten.txt")
+	#dim i As TECH.String = ""
+	For  { Set i=$Order(^KKL(i)) Quit:i=""
+		Do:($Piece(^KKL(i,0), "\", 53)="") ..FileWriter.WriteLine(i)
+	}
+	Do ..FileWriter.Close()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>