'调用K3组件反审核单据



Public Function UnCheckK3Bill(ByVal lTranType As Long, ByVal lInterID As Long) As Boolean
On Error GoTo Err
    Dim MOBJ As Object
    Dim DictParam As KFO.Dictionary
    Dim obj As Object
    Dim ReturnCode As Long
    Dim ReturnString As String
    Dim vectItemInfo As KFO.Vector
    Dim MultiCheckLevel As Long
    UnCheckK3Bill = True
    Set MOBJ = CreateObject("K3MCheckBill.CheckNow")
    Set DictParam = New KFO.Dictionary
    DictParam("PropString") = sPropsString
    DictParam("TransType") = lTranType
    DictParam("InterID") = lInterID
    DictParam("CheckerID") = 0
    DictParam("CheckSwitch") = 0 'check
    DictParam("ReCheck") = 0
    DictParam("OperateType") = 0
    DictParam("CheckDate") = Format(Now, "yyyy-MM-dd hh:mm:ss")
    DictParam("ReturnCode") = ReturnCode
    DictParam("ReturnString") = ReturnString
    Set DictParam("vectItemInfo") = vectItemInfo
    DictParam("MultiCheckLevel") = MultiCheckLevel
    DictParam("WorkFlowFlag") = 0 '发送工作流消息标志
    DictParam("BillNO") = gsBillNo
    DictParam("OperateCode") = 2
 
    MOBJ.CheckBill DictParam
    If DictParam("ReturnCode") < 0 Then
       Msg DictParam("ReturnString")
       UnCheckK3Bill = False
    Else
        'Msg "反审核成功!"
    End If

    Set DictParam = Nothing
    Set MOBJ = Nothing
    Exit Function
Err:
    UnCheckK3Bill = False
    Msg Err.Description
End Function

DictParam("OperateCode") = 2'反审核
【八戒】赖洪 2015/12/4 10:18:37

DictParam("OperateCode") = 1 是审核