Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r35952 -r35954
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35952)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35954)
@@ -5,9 +5,9 @@
 
 <Method name="Test: schrijft bestand naar optiboxmap">
 <Implementation><![CDATA[
-	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake, FileUtilsFake)
+	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsFake)
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
 	
 	#dim RequestcubeiqDummy As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq).Geefcubeiq()
 	Do RequestWriter.WriteRequest("UniekeSleutel",RequestcubeiqDummy)
@@ -20,11 +20,11 @@
 
 <Method name="Test : schrijft bestand naar optiboxmap geeft foutmelding dat bestand reeds bestaat">
 <Implementation><![CDATA[
-	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
 	#dim FileUtilsMock As vhTest.Mock.TECH.File.impl.FileUtils = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
 	Do FileUtilsMock.IndienMethodCall("FileExists",$$$ElkeWaarde).DanReturn(1)
+	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsMock)
 	
-	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake, FileUtilsMock)
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
 
 	#dim VerwachteError As %String = "Bestand " _..GeefBestandVolledigNaam() _" bestaat reeds in de OptiboxBig folder!"
 	set VerwachteError = VerwachteError _ $$$CRLF _ "Gelieve na te zien waarom optiboxBig dit bestand niet verwerkt heeft."
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u -r35952 -r35954
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35952)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35954)
@@ -8,20 +8,14 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FileUtils">
-<Type>TECH.File.FileUtils</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
-	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -42,7 +36,7 @@
 <FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ..FileUtils.FileExists(BestandVolledigeNaam)
+	if ..FileAPI.GeefFileUtils().FileExists(BestandVolledigeNaam)
 	{
 		#dim Error As %String = "Bestand " _BestandVolledigeNaam _" bestaat reeds in de OptiboxBig folder!"
 		set Error = Error _ $$$CRLF _ "Gelieve na te zien waarom optiboxBig dit bestand niet verwerkt heeft."