Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml
===================================================================
diff -u -r45754 -r45755
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 45754)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 45755)
@@ -19,15 +19,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HttpPoster">
+<Type>TECH.Http.Poster</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Logger:vhLib.Logger="",OfferteGenerator:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator=""</FormalSpec>
+<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[
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.VKP"))
 	Set ..OfferteGenerator = $$$Inject(OfferteGenerator, ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New())
+	Set ..HttpPoster = $$$Inject(HttpPoster, ##class(TECH.Context).Instance().GeefHttpAPI().GeefHttpPoster() )
 
 	Quit $$$OK
 ]]></Implementation>
@@ -98,22 +104,34 @@
 </Method>
 
 <Method name="VerzendHttpMessage">
-<Final>1</Final>
 <FormalSpec>HttpMessage:TECH.Http.Message</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Try {
-		#dim HttpPoster As TECH.Http.Poster = ##class(TECH.Context).Instance().GeefHttpAPI().GeefHttpPoster()
-		Do HttpPoster.PostMessage(HttpMessage)
+		Do ..HttpPoster.PostMessage(HttpMessage)
 		
-		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID())
+		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID(), "Doelserver='"_HttpMessage.Server_"'")
+		;Do ..LogMessageInhoud(HttpMessage)
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		
 		Do ..Logger.ErrorMail(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="LogMessageInhoud">
+<FormalSpec>HttpMessage:TECH.Http.Message</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		Do HttpMessage.Data.Rewind()
+		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_INHOUD", HttpMessage.Data)
+	} Catch {
+		Do ..Logger.Error(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_INHOUD", ##class(TECH.ExceptionHandler).Catch().ToString() )
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml
===================================================================
diff -u -r45754 -r45755
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 45754)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 45755)
@@ -41,6 +41,27 @@
 	Quit HttpMessage
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendHttpMessage">
+<FormalSpec>HttpMessage:TECH.Http.Message</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+
+	// Tijdelijke override van de method. 
+	 
+	Try {
+		;Set ..HttpPoster = ##class(TECH.Http.impl.Poster).%New()
+		Do ..HttpPoster.PostMessage(HttpMessage)
+		
+		Do ..Logger.Info(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_SUCCESS","Offerte = " _ ..Offerte.GeefID(), "Doelserver='"_HttpMessage.Server_"'")
+		;Do ..LogMessageInhoud(HttpMessage)
+	} Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		
+		Do ..Logger.ErrorMail(..GeefPersonality().GeefNaam() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
+	}
+]]></Implementation>
+</Method>
 </Class>