apiouttestwan.frm

来自「金算盘软件代码」· FRM 代码 · 共 1,390 行 · 第 1/5 页

                   frmMain.mnuInventoryOut_Click
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 13  ''其它出库
                If frmMain.mnuInventoryOtherOut.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryOtherOut_Click
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 14  ''成本调整
                If frmMain.mnuInventoryCostAdjust.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryCostAdjust_Click
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 20  '存货余额表
                Report.ShowSumReport 1843, 1223
             Case 21  ''存货进销存汇总表
                 Report.ShowSumReport 592, 541
             Case 22  ''存货入库汇总表
                 Report.ShowSumReport 1631, 1216
             Case 23  '存货出库汇总表
                Report.ShowSumReport 1632, 1217
             Case 24  ''商品盘点空表
                Report.ShowSumReport 1646, 764
             Case 25  '我的报表
                 frmMain.ShowMyReport
             Case 16 '货位
                 If IsCanDo(18, gclsBase.OperatorID) Then
                    Me.Enabled = False
                    Me.MousePointer = vbHourglass
                    With frmItemList
                         .Show
                         .sstTypAct.Tab = 4
                         .ZOrder 0
                    End With
                    Me.MousePointer = vbDefault
                    Me.Enabled = True
                  Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                  End If
             Case 17 ''部门编码
                If frmMain.mnuListDepartment.Enabled Then
                   Me.Enabled = False
                   Me.MousePointer = vbHourglass
                   With frmEmployeeList
                       frmMain.mnuListDepartment_Click
                       .sstDepEmp.Tab = 0
                       .ZOrder 0
                   End With
                   Me.MousePointer = vbDefault
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 18 ''职员编码
                If frmMain.mnuListDepartment.Enabled Then
                   Me.Enabled = False
                   Me.MousePointer = vbHourglass
                   With frmEmployeeList
                       frmMain.mnuListDepartment_Click
                       .sstDepEmp.Tab = 1
                       .ZOrder 0
                   End With
                   Me.MousePointer = vbDefault
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 19 '商品
                If frmMain.mnuListItem.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuListItem_Click
                   Me.Enabled = True
                Else
                    ''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 26 ''业务处理
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 1
                InitPageInfoKC 1
                RefreshDepartArea
                m_lngOldSelectedItem = 26
             Case 27 ''帐表查询
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 2
                InitPageInfoKC 2
                RefreshDepartArea
                m_lngOldSelectedItem = 27
             Case 28 ''建帐
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 2
                InitPageInfoKC 3
                RefreshDepartArea
                m_lngOldSelectedItem = 28
            End Select
    
        ''*****************************************************************************************************************
         #End If
         
         ''财务版
         '*****************************************************************************************************************
         ''帐务
         Case m_page_4  ''4
'           If frmMain.mnuReportAccount.Enabled Or m_lngSelectedItem = 15 Then
            Select Case m_lngSelectedItem
             Case 0  ''记帐凭证
                If IsCanDo(27, gclsBase.OperatorID) Then
                   Me.Enabled = False
                   frmMain.mnuAccountVoucher_Click
                   Me.Enabled = True
                Else
                    'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 1  ''万能转帐
                  If IsCanDo(31, gclsBase.OperatorID) Then
                     Me.Enabled = False
                     frmMain.mnuAccountTemplate_Click
                     Me.Enabled = True
                  Else
                     'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                  End If
             Case 4  ''复核
               If IsCanDo(27, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountVoucher_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
               
             Case 5  ''记帐
               If IsCanDo(27, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountVoucher_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
               
             Case 6  ''期末结帐
               If IsCanDo(34, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountFinish_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 3  ''损益结转
               If IsCanDo(33, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountProfitLoss_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 2 ''期末调汇
               If IsCanDo(32, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountCalcExchange_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 7  ''费用分摊
                    If IsCanDo(222, gclsBase.OperatorID) Then
                        MousePointer = vbHourglass
                        If CheckLoss(frmExpense.Caption) Then
                            frmExpense.Show vbModal
                        End If
                        MousePointer = vbDefault
                        Set frmExpense = Nothing
                   Else
                      'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                   End If
                               
             Case 8  ''结余分配
                    If IsCanDo(221, gclsBase.OperatorID) Then
                        MousePointer = vbHourglass
                        If CheckLoss(frmDispart.Caption) Then
                            frmDispart.Show vbModal
                        End If
                        MousePointer = vbDefault
                        Set frmDispart = Nothing
                    Else
                      'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                    End If
               
             Case 10 ''总分类帐(报表)???
               Report.ShowAcntBook 122, 5
             Case 11 ''试算平衡表 ''
               Report.ShowBalance 1437, 662
             Case 12 ''科目汇总表(报表)???
               Report.ShowBalance 1783, 680
             Case 13 ''科目余额表(报表)???
                Report.ShowBalance 1419, 636
             Case 14 ''凭证汇总表  ''
                Report.ShowBalance 1483, 680
             Case 15 ''我的报表
                frmMain.ShowMyReport
    
             Case 19 ''科目编码
               If frmMain.mnuListAccount.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuListAccount_Click
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 16 ''单位编码
               If frmMain.mnuListCustomer.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuListCustomer_Click
                  frmCustomerList.sstCustomer.Tab = 1
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 17 ''部门编码
                If frmMain.mnuListDepartment.Enabled Then
                   Me.Enabled = False
                   Me.MousePointer = vbHourglass
                   With frmEmployeeList
                       frmMain.mnuListDepartment_Click
                       .sstDepEmp.Tab = 0
                       .ZOrder 0
                   End With
                   Me.MousePointer = vbDefault
                   Me.Enabled = True
                Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 18 ''职员编码
               If frmMain.mnuListDepartment.Enabled Then
                  Me.Enabled = False
                  Me.MousePointer = vbHourglass
                  With frmEmployeeList
                      frmMain.mnuListDepartment_Click
                      .sstDepEmp.Tab = 1
                      .ZOrder 0
                  End With
                  Me.MousePointer = vbDefault
                  Me.Enabled = True
               Else
                  'MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
              Case 20 ''业务处理
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 1
                InitPageInfoZW 1
                RefreshDepartArea
                m_lngOldSelectedItem = 20
             Case 21 ''帐表查询
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 2
                InitPageInfoZW 2
                RefreshDepartArea
                m_lngOldSelectedItem = 21
             Case 22 ''建帐
                ClearPageInfo (m_lngPageNo)
                m_lngDealType = 3
                InitPageInfoZW 3
                RefreshDepartArea
                m_lngOldSelectedItem = 22
           End Select
         ''应收
         Case m_page_5        ''5
'          If frmMain.mnuReportAR.Enabled Or m_lngSelectedItem = 14 Then
           Select Case m_lngSelectedItem
             Case 0  ''应收借项''#####################################################################
               If frmMain.mnuAccountARDebit.Enabled Then
                    Me.E