T6 EAI 导入凭证提示出错T6 7.0产品,导入901演示账套,使

山峰1419320357

在用友T6企业管理件的用友T6初始化模块中碰到如下 问题，T6 EAI 导入凭证提示出错，详细问题描述如下：
T6 7.0产品,导入901演示账套,使用EAI前台输出凭证,再导入正常,但是通过程序提交出错,提示"实时错误"91",对象变量....,DOM与HTTP方式均返回此错误.附代码
Dim obj As Object
    Dim strRet As String ' //EAI返回的Xml数据
    Dim domAll As New MSXML2.DOMDocument
    Dim strTemp As String
    Dim ls_http As String
    ls_http = "http://127.0.0.1/U8EAI/import.asp"
'    SendToEAI = True
     Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")  '创建XMLHTTP对象
    Call xmlhttp.Open("POST", ls_http, False)  '使用XMLHTTP对象打开                网络连接，URL中的u8appsrv填U8应用服务器
    Dim requestXml As String
    requestXml = strData 'domAl
    xmlhttp.send (requestXml)    '发送Request消息
    Dim responseXml As String
    responseXml = xmlhttp.responseText   '获取返回Response消息
    domAll.loadXML responseXml
    Dim ls_temp As String
    Dim ls_succeed As String '成功失败标识
    Dim ls_dsc As String '出错时描述
    ls_succeed = Trim(domAll.selectSingleNode("ufinterface").childNodes(0).Attributes.getNamedItem("succeed").Text)
    If ls_succeed = "0" Then '成功
        ls_temp = Trim(domAll.selectSingleNode("ufinterface").Attributes.getNamedItem("request-roottag").Text)
        If ls_temp = "voucher" Then '凭证获取凭证号
            as_dsc = Trim(domAll.selectSingleNode("ufinterface").childNodes(0).Attributes.getNamedItem("u8voucher_id").Text)
        Else '其它获取U8 KEY
            as_dsc = Trim(domAll.selectSingleNode("ufinterface").childNodes(0).Attributes.getNamedItem("key").Text)
        End If
    Else '失败
'        SendToEAI = False
        as_dsc = Trim(domAll.selectSingleNode("ufinterface").childNodes(0).Attributes.getNamedItem("dsc").Text) '出错时错误信息
    End If
    Set xmlhttp = Nothing '释放资源

用友软件聂龙

您好，这个是导出的文件有问题，建议联系您服务商提交支持网