API 删单时报错，任务更新失败，求大神解决

ab6710669

Public Sub CallU8Api()
On Error GoTo ErrHandler
    Dim ologin As Object
    Set ologin = CreateObject("U8Login.clsLogin")
    If Not ologin.login("AS", "(default)@999", "2010", "demo", "", "2010-10-24", "localhost") Then
              Dim u8EnvCtx As New U8EnvContext
        Set u8EnvCtx.U8Login = ologin
  
        Dim u8apiBroker As New U8ApiComBroker
        u8apiBroker.Connect "U8API/PuStoreIn/Delete", u8EnvCtx
        u8apiBroker.AssignNormalValue "sVouchType", "01"   '参数类型：String"
            u8apiBroker.AssignNormalValue "VouchId", "1000000214"  '参数类型：String
             Dim domMsg As New MSXML2.DOMDocument
        u8apiBroker.AssignNormalValue "domMsg", domMsg  '参数类型：MSXML2.IXMLDOMDocument2
        If u8apiBroker.InvokeApi() = False Then
                       MsgBox u8apiBroker.GetLastError()
            If u8apiBroker.ErrorType = ExceptionType_Business Then
   
            ElseIf u8apiBroker.ErrorType = ExceptionType_System Then

            End If
        Else
            
            Dim result As Boolean
            result = CBool(u8apiBroker.GetReturnValue())

         
            Dim errMsgRet As String
            errMsgRet = CStr(u8apiBroker.GetResult("errMsg"))
            MsgBox errMsgRet

           
        End If


        u8apiBroker.Disconnect

        Set u8apiBroker = Nothing
    End If
    Exit Sub
ErrHandler:
    MsgBox Err.Description
End Sub

xiongnz

和你同样的错误还未解决，楼主解决了么？

ab6710669

xiongnz 发表于 2013-4-9 12:18

                               
登录/注册后可看大图

和你同样的错误还未解决，楼主解决了么？

一直未解决

zhaosanxing

MSXML2.IXMLDOMDocument2 domMsg = new MSXML2.IXMLDOMDocument2();
  我的实例化时说  接口无法实例化啊，这个MSXML2.IXMLDOMDocument2接口
需要自己类实现吗？

shawdavid

zhaosanxing 发表于 2013-4-26 10:10
MSXML2.IXMLDOMDocument2 domMsg = new MSXML2.IXMLDOMDocument2();
  我的实例化时说  接口无法实例化啊 ...

我也是这个问题

杨戴沐

MSXML2.IXMLDOMDocument2 domMsg = new MSXML2.DOMDocument();

这样就可以了。

xupuuser

学习学习