插件中获取多级审核级次
oMultiMgr.CurrentLevel
Private Sub m_BillInterface_AfterLoadBill()
Dim oMultiMgr As Object
Set oMultiMgr = m_BillInterface.MultiCheckMgr
If Not oMultiMgr Is Nothing Then
If oMultiMgr.CurrentLevel = 3 Then '当前单据处于第三级
m_BillInterface.LockCell '锁定要锁的字段
End If
End If
End If