modbillevent.bas

ERP合同变更ERP合同变更ERP合同变更ERP合同变更

Attribute VB_Name = "ModBillEvent"

'------------------------------------------------------------------------
'函数：DataUpdateMode
'描述：得到当前账套的更新模式,根据
'系统设置---系统设置---存货核算---核算参数维护---库存更新控制方式
'操作说明：取系统表中的更新模式，在K3系统表中t_SystemProfile中取值
'返回：
'       0：表示审核后更新数据
'       1：表示保存后更新数据
'       2：表示没有参数设置，出错处理
'-------------------------------------------------------------------------
Public Function DataUpdateMode() As Integer
    Dim rs As ADODB.Recordset
    Dim intDefaultUpdateMode As Integer
    
    '设置默认的更新方式为0，表示审核后更新数据
    intDefaultUpdateMode = 0
    
    With m_BillInterface
        On Error GoTo ErrHandle
            Set rs = m_BillInterface.K3Lib.GetData("SELECT fValue FROM t_SystemProfile WHERE FCategory='IC' and FKEY='UPSTOCKWHENSAVE'")
            If Not rs.EOF Then intDefaultUpdateMode = CInt(rs("FValue"))            '0表示审核后更新数据，1表示保存后更新数据
            Set rs = Nothing
    End With

    DataUpateMode = intDefaultUpdateMode
    '停止错误处理
    On Error GoTo 0
    Exit Function
    
ErrHandle:
    '错误处理，表示没有核算参数设置，账套有问题
    DataUpdateMode = 2
End Function