Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u -r3704 -r3773
--- TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3704)
+++ TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3773)
@@ -28,16 +28,12 @@
 	 	Set ..HttpRequest = ##class(%Net.HttpRequest).%New()
 	 	Set ..HttpRequest.Server = Message.Server
 	 	Set ..HttpRequest.ContentType = Message.ContentType
-	 	
-	 	If ($$$HasLength(Message.XApiKey)) {
-	 		Do ..HttpRequest.SetHeader("x-api-key",Message.XApiKey)
-	 	}
-	 	
 	 	Set ..HttpRequest.ContentEncoding = Message.ContextEncoding
-	 	If ($$$HasLength(Message.Port)) {
-		 	Set ..HttpRequest.Port = Message.Port
-	 	}
 	 	
+	 	Do:($$$HasLength(Message.XApiKey)) ..HttpRequest.SetHeader("x-api-key",Message.XApiKey)	 	
+	 	Do:($$$HasLength(Message.ClientId)) ..HttpRequest.SetHeader("X-Client-Id",Message.ClientId)
+		Do:($$$HasLength(Message.ClientSecret)) ..HttpRequest.SetHeader("X-Client-Secret",Message.ClientSecret)	 	
+	 	Set:($$$HasLength(Message.Port)) ..HttpRequest.Port = Message.Port
 	 	Set:($$$HasLength(Message.Username)) ..HttpRequest.Username = Message.Username
 	 	Set:($$$HasLength(Message.Password)) ..HttpRequest.Password = Message.Password
 	 	
@@ -100,9 +96,9 @@
 	    Set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed",Status)
 	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
     }
-	
 	If ..HttpRequest.HttpResponse.StatusCode '= 200 {
-	    Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed. "_..HttpRequest.HttpResponse.ReasonPhrase)
+		#dim ErrorInfo as %String = ..HttpRequest.HttpResponse.Data.Read(..HttpRequest.HttpResponse.Data.Size)
+	    Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("HttpPost to "_..Message.Server_" failed. "_..HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
 	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		    
     }
Index: TECH/Http/Message.cls.xml
===================================================================
diff -u -r3704 -r3773
--- TECH/Http/Message.cls.xml	(.../Message.cls.xml)	(revision 3704)
+++ TECH/Http/Message.cls.xml	(.../Message.cls.xml)	(revision 3773)
@@ -29,6 +29,14 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ClientId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClientSecret">
+<Type>%String</Type>
+</Property>
+
 <Property name="ContextEncoding">
 <Type>%String</Type>
 </Property>