Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r35762 -r35763
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35762)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35763)
@@ -18,9 +18,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : schrijft bestand naar optiboxmap geeft foutmelding">
+<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()
+	Do FileUtilsFake.VoegToeFileInfo(..GeefBestandVolledigNaam())
+	
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake, FileUtilsFake)
+
+	#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."
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes(VerwachteError)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	#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)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestandVolledigNaam">
-<Description>
-hier nog test op foutmelding etc...</Description>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.Files).AppendFile(..GeefLocatie(),"DHL_Stapelaar_UniekeSleutel.xml")