新增文章

文章标题分类内容

Private Sub m_BillInterface_AfterSelBillBeforeFillData(ByVal dcData As KFO.IDictionary, ByVal dctLink As KFO.IDictionary)
    Call m_BillInterface_AfterLoadBill
End Sub

Private Sub m_BillInterface_AfterLoadBill()

Dim oBand As K3ClassEvents.BOSBand: Set oBand = m_BillInterface.MenuBar.BOSBands("BandToolBar")   '【 BandToolBar 工具栏 】
    Dim oTool As K3ClassEvents.BOSTool
    
    If m_BillInterface.BillStatus = Enu_BillStatusExt_View Then  '【 Enu_BillStatusExt_View 查看 】【 Enu_BillStatusExt_New 新增 】【 Enu_BillStatusExt_Modify 修改 】
    
        oBand.BOSTools("mnuFileSave").Visible = False           '【 保存 mnuFileSave 】
        oBand.BOSTools("mnuRecover").Visible = False            '【 恢复 mnuRecover 】
        oBand.BOSTools("mnuEditResetOrder").Visible = False     '【 单序 mnuEditResetOrder 】
    Else
        oBand.BOSTools("mnuFileSave").Visible = True            '【 保存 mnuFileSave 】
    End If
    
  '----------------------------------------------------------------------------------------------------------------------------------
    Set oBand = m_BillInterface.MenuBar.BOSBands("Menu")   '【 Menu 菜单栏 】

oBand.BOSTools("mnuFile").Visible = False   '【 文件 】
        oBand.BOSTools("mnuEdit").Visible = False   '【 编辑 】
        oBand.BOSTools("mnuData").Visible = False   '【 查看 】
        
        oBand.BOSTools("mnuSelectBill").Visible = False   '【 选单 】
    
  '----------------------------------------------------------------------------------------------------------------------------------
    Set oBand = Nothing
    Set oTool = Nothing
End Sub