From 9af4fbd3555e8b577024eab3b30d8e22757e9cbc Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 4 Aug 2015 13:14:54 +0000
Subject: [PATCH] SOAP : the "Body" element must be namespace qualified.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4247 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/server_service_soap.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/server_service_soap.pas b/wst/trunk/server_service_soap.pas
index bea0a26eb..1670f0f1c 100644
--- a/wst/trunk/server_service_soap.pas
+++ b/wst/trunk/server_service_soap.pas
@@ -76,13 +76,18 @@ end;
 { TSOAPFormatter }
 
 procedure TSOAPFormatter.BeginCallResponse(Const AProcName,ATarget:string);
+var
+  locOldStyle : TSOAPDocumentStyle;
 begin
   if ( FCallContext = nil ) then
     FCallContext := TSimpleCallContext.Create();
   Clear();
   Prepare();
     WriteHeaders(FCallContext);
-    BeginScope('Body',sSOAP_ENV,'',stObject,asNone);
+    locOldStyle := Style;
+    Style := Document;
+      BeginScope('Body',sSOAP_ENV,'',stObject,asNone);
+    Style := locOldStyle;
       BeginScope(AProcName + 'Response',ATarget,'',stObject,asNone);
 end;