Index: TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r1173 -r1410
--- TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1173)
+++ TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1410)
@@ -27,6 +27,11 @@
 <Abstract>1</Abstract>
 <ReturnType>TECH.DataExporter.DataExporter</ReturnType>
 </Method>
+
+<Method name="GeefFileNameGenerator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.File.FileNameGenerator</ReturnType>
+</Method>
 </Class>
 
 
Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r1173 -r1410
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1173)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1410)
@@ -27,6 +27,12 @@
 <Implementation><![CDATA[	Quit ##class(TECH.DataExporter.impl.DataExporterCSV).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFileNameGenerator">
+<ReturnType>TECH.File.FileNameGenerator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.File.impl.FileNameGenerator).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/File/impl/FileNameGenerator.cls.xml
===================================================================
diff -u
--- TECH/File/impl/FileNameGenerator.cls.xml	(revision 0)
+++ TECH/File/impl/FileNameGenerator.cls.xml	(revision 1410)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.impl.FileNameGenerator">
+<Super>TECH.RegisteredObject,TECH.File.FileNameGenerator</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^||FileNameGeneratorGroup</Default>
+</Parameter>
+
+<Property name="FrequentieTabel">
+<Type>TECH.FrequentieTabel</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Instance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.DomeinContext</ReturnType>
+<Implementation><![CDATA[
+	#dim %TECHFileNameGenerator As TECH.File.FileNameGenerator
+	If ($G(%TECHFileNameGenerator) = "") || ('$IsObject(%TECHFileNameGenerator)) || ('%TECHFileNameGenerator.%ClassIsLatestVersion()) {
+		Set %TECHFileNameGenerator = ..%New()
+	}
+	Quit %TECHFileNameGenerator
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FrequentieTabel = ##class(TECH.FrequentieTabel).%New()
+	Do ..Reset()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateFileName">
+<FormalSpec>FileName:TECH.String,Extension:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Groep As %String = $Get(@..#Global)
+	#dim GroepID As %String = Groep_"_ID"
+	
+	Do ..FrequentieTabel.Verhoog(GroepID)
+	#dim Teller As %String = ##class(TECH.StringUtils).AlignRight(..FrequentieTabel.GeefFrequentieVanItem(GroepID),0,3)
+	#dim BestandNaam As %String = Teller_"_"_FileName_"."_Extension
+	set:$length(Groep) BestandNaam = Groep_"_"_BestandNaam
+	Quit BestandNaam
+]]></Implementation>
+</Method>
+
+<Method name="ZetGroep">
+<FormalSpec>Groep:TECH.String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global = Groep
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[
+	Do ..FrequentieTabel.ResetItems()
+	Do ..ZetGroep("")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/File/FileNameGenerator.cls.xml
===================================================================
diff -u
--- TECH/File/FileNameGenerator.cls.xml	(revision 0)
+++ TECH/File/FileNameGenerator.cls.xml	(revision 1410)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.FileNameGenerator">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GenerateFileName">
+<Abstract>1</Abstract>
+<FormalSpec>FileName:TECH.String,Extension:TECH.String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>