Index: vhDeploy/Deploy20160708DHLStapelaarOptiboxBigPath.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160708DHLStapelaarOptiboxBigPath.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160708DHLStapelaarOptiboxBigPath.cls.xml	(revision 35762)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160708DHLStapelaarOptiboxBigPath">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>BLUM aankooporderresponse verwerking bestanden volgens nieuwe XML structuur.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "OptiBoxBigPath"
+	#dim ProductiePath As %String = "\\OPTIBOXBIG"
+	#dim DevelopmentPath As %String = "E:\CacheExport\2010v2\ADMIN1\OptiboxBig"
+	
+	If ('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)))
+	{
+		If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,ProductiePath)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentPath)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u -r35758 -r35762
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35758)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35762)
@@ -27,8 +27,47 @@
 </Method>
 
 <Method name="WriteRequest">
-<FormalSpec>Requestcubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</FormalSpec>
+<FormalSpec>UniekeSleutel:%String,Requestcubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = ..GeefBestandVolledigNaam(UniekeSleutel)
+	Do ..ControleerOfBestandNietBestaat(BestandVolledigeNaam)
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	do FileWriter.Open(BestandVolledigeNaam)
+	do FileWriter.WriteXML(Requestcubeiq)
+	do FileWriter.Close()
+]]></Implementation>
 </Method>
+
+<Method name="ControleerOfBestandNietBestaat">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ..FileUtils.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."
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigNaam">
+<FormalSpec>UniekeSleutel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Files).AppendFile(..GeefLocatie(),"DHL_Stapelaar_" _UniekeSleutel _".xml")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r35758 -r35762
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35758)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35762)
@@ -3,16 +3,38 @@
 <Class name="vhUnitTest.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter.WriteRequest.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Method name="Test: schrijft bestand naar optiboxmap">
 <Implementation><![CDATA[
-	#dim FileAPIMock As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+	#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(FileAPIMock, FileUtilsFake)
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake, FileUtilsFake)
 	
 	#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(RequestcubeiqDummy)
+	Do RequestWriter.WriteRequest("UniekeSleutel",RequestcubeiqDummy)
+	
+	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"cubeiq"))
+	Do ..GeefBestandLocatie()
 ]]></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")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
+]]></Implementation>
+</Method>
 </Class>