Index: APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r71274 -r72356
--- APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 71274)
+++ APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 72356)
@@ -117,17 +117,21 @@
 <Private>1</Private>
 <ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
 <Implementation><![CDATA[
+	
 	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,Request.%ClassName(1))
+	Do ##class(Tools.Wlip).%New(207).XMLAdapter(Request)
 	#dim Response as WS.Transsmart.tns.getStatusResponse =""
 	Try {
 		Set:(Request.%IsA(##class(WS.Transsmart.tns.doBooking).%ClassName(1))) Response = ..TranssmartWSClient.doBooking(Request)
 		Set:(Request.%IsA(##class(WS.Transsmart.tns.doDelete).%ClassName(1))) Response = ..TranssmartWSClient.doDelete(Request)
 		Set:(Request.%IsA(##class(WS.Transsmart.tns.doManifest).%ClassName(1))) Response = ..TranssmartWSClient.doManifest(Request)
+		Set:(Request.%IsA(##class(WS.Transsmart.tns.getStatusHistoryByQuery).%ClassName(1))) Response = ..TranssmartWSClient.getStatusHistoryByQuery(Request)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
 		Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
 	}	
+	Do ##class(Tools.Wlip).%New(207).XMLAdapter(Response)
 	Quit Response
 ]]></Implementation>
 </Method>