Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/HaefeleBE/Melder.cls.xml
===================================================================
diff -u -r35944 -r36134
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/HaefeleBE/Melder.cls.xml	(.../Melder.cls.xml)	(revision 35944)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/HaefeleBE/Melder.cls.xml	(.../Melder.cls.xml)	(revision 36134)
@@ -15,9 +15,12 @@
 <Private>1</Private>
 <ReturnType>TECH.Http.Message</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductieServerIP As %String = "192.168.24.10"  //IP-adres van netwerk-tunnel naar hafele-server (dit i.p.v. een domeinnaam)
+	#dim TestServerIP As %String = "192.168.25.31"
+	
 	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
 		
-	Set HttpMessage.Server = "192.168.24.10"   ; ip-adres van netwerk-tunnel naar hafele-server (dit i.p.v. een domeinnaam); Testserver IP = "192.168.25.31"
+	Set HttpMessage.Server = TestServerIP
 	Set HttpMessage.Port = 15000
 	Set HttpMessage.Location = "/"
 	Set HttpMessage.ContentType = "text/xml"