Index: vhTest/Fake/TECH/File/FileNameGenerator.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/File/FileNameGenerator.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/File/FileNameGenerator.cls.xml	(revision 2428)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.File.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="Activeer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.File.FileWriter</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.Context).Instance().PushFileAPIClassName(##class(vhTest.Integratie.FakeFileAPI).%ClassName(1))
+	Quit ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+]]></Implementation>
+</Method>
+
+<Method name="Instance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.DomeinContext</ReturnType>
+<Implementation><![CDATA[
+	#dim %TECHFakeFileNameGenerator As TECH.File.FileNameGenerator
+	If ($G(%TECHFakeFileNameGenerator) = "") || ('$IsObject(%TECHFakeFileNameGenerator)) || ('%TECHFakeFileNameGenerator.%ClassIsLatestVersion()) {
+		Set %TECHFakeFileNameGenerator = ..%New()
+	}
+	Quit %TECHFakeFileNameGenerator
+]]></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: vhTest/Fake/TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r2401 -r2428
--- vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2401)
+++ vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2428)
@@ -11,7 +11,7 @@
 
 <Method name="GeefFileNameGenerator">
 <ReturnType>TECH.File.FileNameGenerator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Integratie.FakeFileNameGenerator).Instance()
+<Implementation><![CDATA[	Quit ##class(vhTest.Fake.TECH.File.FileNameGenerator).Instance()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml
===================================================================
diff -u -r1453 -r2428
--- vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml	(.../TestFake.cls.xml)	(revision 1453)
+++ vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml	(.../TestFake.cls.xml)	(revision 2428)
@@ -72,7 +72,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Set ..FileNameGenerator = ##class(vhTest.Integratie.FakeFileNameGenerator).%New()
+	Set ..FileNameGenerator = ##class(vhTest.Fake.TECH.File.FileNameGenerator).%New()
 ]]></Implementation>
 </Method>
 </Class>