apiouttestwan.frm
来自「金算盘软件代码」· FRM 代码 · 共 1,390 行 · 第 1/5 页
FRM
1,390 行
Case 11 '直运销售汇总表
Report.ShowSumReport 1601, 725
Case 12 '委托代销结算汇总表
Report.ShowSumReport 1613, 737
Case 13 '分期收款发出商品结算汇总表
Report.ShowSumReport 1605, 729
Case 14 '销售订单执行情况表
Report.ShowSumReport 1594, 718
Case 15 '我的报表
frmMain.ShowMyReport
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 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 20 ''业务处理
ClearPageInfo (m_lngPageNo)
m_lngDealType = 1
InitPageInfoXS 1
RefreshDepartArea
m_lngOldSelectedItem = 20
Case 21 ''帐表查询
ClearPageInfo (m_lngPageNo)
m_lngDealType = 2
InitPageInfoXS 2
RefreshDepartArea
m_lngOldSelectedItem = 21
Case 22 ''建帐
ClearPageInfo (m_lngPageNo)
m_lngDealType = 3
InitPageInfoXS 3
RefreshDepartArea
m_lngOldSelectedItem = 22
End Select
''*****************************************************************************************************************
''( 采购管理 )
Case m_page_1
Select Case m_lngSelectedItem
Case 0 ''采购订单
If frmMain.mnuTaskPurchaseOrder.Enabled Then
Me.Enabled = False
frmMain.mnuTaskPurchaseOrder_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 1 ''采购分摊
If frmMain.mnuTaskPurchaseExpense.Enabled Then
Me.Enabled = False
frmMain.mnuTaskPurchaseExpense_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 2 ''商品采购
If frmMain.mnuTaskPurchase.Enabled Then
Me.Enabled = False
frmMain.mnuTaskPurchase_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 3 ''直运采购
If frmMain.mnuTaskDirectPurchase.Enabled Then
Me.Enabled = False
frmMain.mnuTaskDirectPurchase_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 4 ''受托入库
If frmMain.mnuTaskBorrowIn.Enabled Then
Me.Enabled = False
frmMain.mnuTaskBorrowIn_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 5 ''受托结算
If frmMain.mnuTaskBorrowPurchase.Enabled Then
Me.Enabled = False
frmMain.mnuTaskBorrowPurchase_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 6 ''采购发票
If frmMain.mnuTaskPurchaseInvoice.Enabled Then
Me.Enabled = False
frmMain.mnuTaskPurchaseInvoice_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 7 ''采购凭证
If IsCanDo(66, gclsBase.OperatorID) Then
If Not gclsBase.PeriodClosed(gclsBase.BaseDate) Then
Me.Enabled = False
frmPurchaseSaleVoucher.SetManner ("采购业务")
frmPurchaseSaleVoucher.Show vbModal
Set frmPurchaseSaleVoucher = Nothing
Me.Enabled = True
Else
ShowMsg frmMain.hwnd, "本期已结帐，不能再制作凭证！", vbCritical + vbOKOnly, m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript
End If
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 10 ''采购汇总表
Report.ShowSumReport 1568, 694
Case 11 ''直运采购汇总表
Report.ShowSumReport 1585, 710
Case 12 ''受托结算商品汇总表
Report.ShowSumReport 1578, 704
Case 13 ''商品采购费用汇总表
Report.ShowSumReport 1570, 696
Case 14 ''采购订单执行情况表
Report.ShowSumReport 1563, 688
Case 15 ''我的报表
frmMain.ShowMyReport
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 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 20 ''业务处理
ClearPageInfo (m_lngPageNo)
m_lngDealType = 1
InitPageInfoCG 1
RefreshDepartArea
m_lngOldSelectedItem = 20
Case 21 ''帐表查询
ClearPageInfo (m_lngPageNo)
m_lngDealType = 2
InitPageInfoCG 2
RefreshDepartArea
m_lngOldSelectedItem = 21
Case 22 ''建帐
ClearPageInfo (m_lngPageNo)
m_lngDealType = 3
InitPageInfoCG 3
RefreshDepartArea
m_lngOldSelectedItem = 22
End Select
''*****************************************************************************************************************
''( 委托加工 )
Case m_page_2
Select Case m_lngSelectedItem
Case 0 '加工分摊
If frmMain.mnuInventoryEntrustApportion.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryEntrustApportion_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 1 '加工入库
If frmMain.mnuInventoryEntrustIn.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryEntrustIn_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 2 ''自制入库
If frmMain.mnuInventoryIn.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryIn_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 3 ''其它入库
If frmMain.mnuInventoryOtherIn.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryOtherIn_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 4 ''加工费用
If frmMain.mnuInventoryEntrustExpense.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryEntrustExpense_Click
Me.Enabled = True
Else
''MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
End If
Case 5 ''商品盘点
If frmMain.mnuInventoryStockTaking.Enabled Then
Me.Enabled = False
frmMain.mnuInventoryStockTaking_Click
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?