Sub FetchData(HttpConn As WSConn,M_e As Object)
Dim strFilterXML As String = "<soap:Body><" & HttpConn.WCFFuncName & " xmlns=""" & HttpConn.WCFServerIP & "/""><" & HttpConn.WCFFuncParamName & ">" & Main.DID & "</" & HttpConn.WCFFuncParamName & "></" & HttpConn.WCFFuncName & "></soap:Body>"
HttpJobReq.Initialize("HttpJobReq", M_e)
If HttpConn.WCFFuncParamName <> "" Then
HttpJobReq.PostString( HttpConn.WCFServerIP & "/" & HttpConn.WCFProjectName & "/" & HttpConn.WCFInterfaceName, XML.Replace("<soap:Body />", strFilterXML))
Else
HttpJobReq.PostString( HttpConn.WCFServerIP & "/" & HttpConn.WCFProjectName & "/" & HttpConn.WCFInterfaceName, XML)
End If
HttpJobReq.GetRequest.SetHeader("SOAPAction", HttpConn.WCFServerIP & "/" & HttpConn.WCFFuncName)
HttpJobReq.GetRequest.Timeout = 180000 'milliseconds timeout
HttpJobReq.GetRequest.SetContentType("text/xml; charset=utf-8")
End Sub