Index: vhDeploy/D20180515xConfigItemUnishopRunsInTestmodeSFS.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180515xConfigItemUnishopRunsInTestmodeSFS.cls.xml	(revision 0)
+++ vhDeploy/D20180515xConfigItemUnishopRunsInTestmodeSFS.cls.xml	(revision 51393)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180515xConfigItemUnishopRunsInTestmodeSFS">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem instellen voor BesteldeOfferteMelder RunsInTestmode voor SFS</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS_RunsInTestmode"
+
+	If $$$Not(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)) {
+		If ##class(TECH.StringUtils).Equals($$$Server, "CACHETEST2010", "CACHESTAGING2010", "CACHEACCEPT2010") {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,$$$True)
+		}
+		Else {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,$$$False)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml
===================================================================
diff -u -r45754 -r51393
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 45754)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml	(.../SFS.cls.xml)	(revision 51393)
@@ -3,6 +3,23 @@
 <Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS">
 <Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender</Super>
 
+<Method name="%OnNew">
+<FormalSpec>Logger:vhLib.Logger="",OfferteGenerator:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator="",HttpPoster:TECH.Http.Poster=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(Logger,OfferteGenerator,HttpPoster)
+
+	If ..RunsInTestmode() {
+		Set ..HttpPoster = ##class(TECH.Http.impl.Poster).%New()
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersonality">
 <Private>1</Private>
 <ReturnType>DOM.common.Personality</ReturnType>
@@ -13,7 +30,7 @@
 <Method name="RunsInTestmode">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 0
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS_RunsInTestmode")
 ]]></Implementation>
 </Method>
 
@@ -22,7 +39,16 @@
 <Private>1</Private>
 <ReturnType>TECH.Http.Message</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductieServer As %String = "extranet.sfsservices.biz"
+	#dim TestServerIP As %String = "192.168.25.31"
+
 	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
+
+	If ..RunsInTestmode() {
+		Set HttpMessage.Server = TestServerIP
+	} Else {
+		Set HttpMessage.Server = ProductieServer
+	}
 	
 	Set HttpMessage.Server = "extranet.sfsservices.biz"
 	Set HttpMessage.Location = "/xic34/sap/xi/adapter_plain"   ; Productie : "xic34"    <->    Test : "xic30"