Index: zTryout/JWI/FileList/AXInFileList.cls.xml
===================================================================
diff -u
--- zTryout/JWI/FileList/AXInFileList.cls.xml	(revision 0)
+++ zTryout/JWI/FileList/AXInFileList.cls.xml	(revision 61219)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.FileList.AXInFileList">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefAXRequestDirectoryList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BaseDirectory:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim DirectoryList as %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Directory as %String = $Order(^AX.Config("In","Envelope",""))
+	while($Length(Directory)){		
+		#dim DirToScan = BaseDirectory _ "\" _Directory
+		;beetje opkuisen
+		Set DirToScan = $Replace(DirToScan,"\\","\")
+		Set DirToScan = $Replace(DirToScan,"/","\")		
+		Do DirectoryList.Insert(DirToScan)
+		Set Directory = $Order(^AX.Config("In","Envelope",Directory))
+	}
+	Quit DirectoryList
+]]></Implementation>
+</Method>
+
+<Method name="GetFilesFromListOfDirectories">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DirectoryList:%ListOfDataTypes,FileSpecificatie:%String,Aantal:%Integer=0</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set FileList = ##class(%ListOfDataTypes).%New()
+	Set DirectoryIterator = ##class(TECH.ListIterator).%New(DirectoryList)
+	#dim AantalGevondenBestanden as %Integer = 0
+	While DirectoryIterator.HasNext() && ((Aantal = 0) || ( AantalGevondenBestanden < Aantal )){
+		#dim ScanSpecificatie = DirectoryIterator.Next() _ "\" _ FileSpecificatie
+		try {
+			#dim Filename as %String  = $zsearch(ScanSpecificatie)					
+			While ( ($Length(Filename)) && ((Aantal = 0) || ( AantalGevondenBestanden < Aantal )) ){
+				Set AantalGevondenBestanden = AantalGevondenBestanden + 1
+				Do FileList.Insert(Filename)
+				Set Filename = $ZSearch("")
+			}			
+			Set Filename = $ZSearch("-1") ;clear the lock for this dir				
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			; clear lock on directory
+			Set Filename = $ZSearch("-1") ;clear the lock for this dir				
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+		}		
+	}
+	Quit ##class(TECH.ListIterator).%New(FileList)
+]]></Implementation>
+</Method>
+
+<Method name="Lees">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;#dim BaseDir as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("AX_IF_IN_RequestPath")
+	#dim BaseDir as %String = "D:\CacheExport\2010v2\dev1\AX\IF_OUT\Request"
+	;#dim BaseDir as %String = "\\\\Ax_scan\ax\Temp"
+	Set FileList = ##class(%ListOfDataTypes).%New()
+	#dim SubdirToScan as %String = $Order(^AX.Config("In","Envelope",""))
+	#dim Count  = 0
+	try {
+		while(($Length(SubdirToScan)) && (Count < 20)){
+			;process directory
+			#dim DirToScan = BaseDir _ "\" _SubdirToScan
+			;beetje opkuisen
+			Set DirToScan = $Replace(DirToScan,"\\","\")
+			Set DirToScan = $Replace(DirToScan,"/","\")
+			w !,DirToScan_"\*.xml",!
+			#dim filename as %String  = $zsearch(DirToScan_"\*.xml")
+					
+			While (($Length(filename)) && (Count < 20)) {
+				Set Count = Count + 1
+				w !,Count, " " ,filename
+				Do FileList.Insert(filename)
+				Set filename = $ZSearch("")
+				if (Count = 15){
+					set i1 = 0
+					set i2 = 1
+					set i3 = i2/i1
+				}
+			}
+			
+			Set filename = $ZSearch("-1") ;clear the lock for this dir				
+			Set SubdirToScan = $Order(^AX.Config("In","Envelope",SubdirToScan))
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		w !,"clearing lock"
+		Set filename = $ZSearch("-1") ;clear the lock for this dir				
+		Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+
+	}
+
+	Quit ##class(TECH.ListIterator).%New(FileList)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>