Foxtable(狐表)用户栏目专家坐堂 → webservice调用报错


  共有2215人关注过本帖平板打印复制链接

主题:webservice调用报错

帅哥哟,离线,有人找我吗?
s111321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:44 积分:516 威望:0 精华:0 注册:2020/6/27 10:03:00
webservice调用报错  发帖心情 Post By:2020/11/27 17:10:00 [只看该作者]

1、vsWEB引用
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20201127170515.png
图片点击可在新窗口打开查看

2、Public Class Class1
    Public Function execute(ByVal routeIdField As String, ByVal signDataField As String, ByVal callerIdField As String, ByVal userIdField As String, ByVal transIdField As String, ByVal referenceIdField As String,
                     ByVal referenceTimeField As String, ByVal signTypeField As String, ByVal reserveField As String, ByVal returnCodeField As String, ByVal errorCodeField As String, ByVal errorMsgField As String,
                     ByVal recordField As String, ByVal typeField As String, ByVal recordsField As String()) As String
        Dim obj As New WebReference.TargetService
        Dim str2 As New WebReference.recordsType
        str2.type = typeField
        str2.record = recordsField
        Dim strheader As New WebReference.headerType
        strheader.callerId = callerIdField
        strheader.userId = userIdField
        strheader.transId = transIdField
        strheader.referenceId = referenceIdField
        strheader.referenceTime = referenceTimeField
        strheader.signType = signTypeField
        strheader.reserve = reserveField
        strheader.returnCode = returnCodeField
        strheader.errorCode = errorCodeField
        strheader.errorMsg = errorMsgField
        Dim strbody As New WebReference.bodyType
        strbody.record = recordField
        strbody.records = {str2}
        Dim Str As New WebReference.executeMsgType
        Str.routeId = routeIdField
        Str.header = strheader
        Str.body = strbody
        Str.signData = signDataField
        Return obj.execute(Str).routeId
    End Function
End Class

3、Dim dl As new ClassLibrary14.Class1()
Dim str5 As String = dl.execute("ZG10JH0201","","ZG00000002","8348","","","","","","","","","{""MessageHeader"":{""MessageType"":""5002"",""IsZip"":""0"",""HospitalId"":""8348"",""HospitalRegion"":""330799"",""IPAddress"":""192.192.106.139"",""MacAddress"":""8C-16-45-96-0B-A1"",""BmiNo"":""A33492489"",""BmiNoIden"":""A33492489330799D15600000529418E405EFC597B"",""AdmissionNo"":""10592"",""InsuredPersonRegion"":""330799"",""TransactionDate"":""2020-11-11 09:30:55"",""HospitalVerifyCode"":""eN3bzL9UF/LV+qk6fMF80Q==""}}","",{})
e.Form.Controls("TextBox3").text = str5

4、报错
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:窗口,窗口1,Button3,Click
详细错误信息:
XML 文档(2, 2)中有错误。
未识别指定的类型: name='executeResponse',namespace='http://www.jhlss.gov.cn/esb/TargetService',位于 <executeResponse xmlns='http://www.jhlss.gov.cn/esb/TargetService'>。

 回到顶部