apiouttest.frm

金算盘软件代码

                    End If
                Case "应收明细帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 125, 2
                    Else
                        Report.ShowAcntBook 1738, 1107
                    End If
                Case "应收余额表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowBalance 1723, 638
                    Else
                        Report.ShowBalance 1723, 638
                    End If
                Case "应收明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowStandardReport 254, 212
                    Else
                        Report.ShowStandardReport 1694, 1008
                    End If
                Case "应收帐龄分析汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 120, 610
                    Else
                        Report.ShowAgeReport 1691, 1005
                    End If
                Case "应收帐龄分析明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 118, 611
                    Else
                        Report.ShowAgeReport 1690, 1004
                    End If
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        Case "应付"
            Select Case strItemCommand
                #If conVersionType = 16 Then
                Case "采购发票"
                    If frmMain.mnuAccountPurchase.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountPurchase_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“采购发票”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #End If
                Case "应付贷项"
                    If frmMain.mnuAccountAP.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountAP_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“应付贷项”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应付借项"
                    If frmMain.mnuAccountAP.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountAP_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“应付借项”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应付凭证"
                    If IsCanDo(210, 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, "应付凭证"
                        End If
                    Else
                      ShowMsg Me.hwnd, "没有“查询和填制应付凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应付明细帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 126, 359
                    Else
                        Report.ShowAcntBook 1739, 1108
                    End If
                Case "应付余额表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowBalance 1724, 639
                    Else
                        Report.ShowBalance 1724, 639
                    End If
                Case "应付明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowStandardReport 256, 214
                    Else
                        Report.ShowStandardReport 1699, 1012
                    End If
                Case "应付帐龄分析汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 121, 126
                    Else
                        Report.ShowAgeReport 1693, 1007
                    End If
                Case "应付帐龄分析明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 119, 609
                    Else
                        Report.ShowAgeReport 1692, 1006
                    End If
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        Case "现金银行"
            Select Case strItemCommand
                Case "收款"
                    If frmMain.mnuAccountReceive.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountReceive_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“收款”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "付款"
                    If frmMain.mnuAccountPayment.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountPayment_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“付款”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "收支凭证"
                    If frmMain.mnuAccountRPVoucher.Enabled 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, "收支凭证"
                         End If
                    Else
                        ShowMsg Me.hwnd, "没有“查询和填制收支凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "银行对帐"
                    If frmMain.mnuAccountReconcile.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountReconcile_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“银行对帐”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "现金日记帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1726, 4
                    Else
                        Report.ShowAcntBook 1741, 1109
                    End If
                Case "银行存款日记帐", "现金存款日记帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1727, 360
                    Else
                        Report.ShowAcntBook 1743, 1109
                    End If
                Case "收款汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 1306, 572
                    Else
                        Report.ShowSumReport 1702, 1017
                    End If
                Case "付款汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 1307, 1149
                    Else
                        Report.ShowSumReport 1704, 1019
                    End If
                Case "银行对帐单"
                    Report.ShowStandardReport 591, 540
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        
'医疗保险专版使用
        #Else
        Case "医疗保险"
            Select Case strItemCommand
                Case "保费汇缴"
                    If frmMain.mnuHosTransfer.Enabled Then
                         Me.Enabled = False
                         frmMain.mnuHosTransfer_Click
                         Me.Enabled = True
                    Else
                       MsgBox "没有使用“保费汇缴”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "费用结算"
                    If frmMain.mnuHosSettle.Enabled Then
                         Me.Enabled = False
                         frmMain.mnuHosSettle_Click
                         Me.Enabled = True
                    Else
                       ShowMsg Me.hwnd, "没有“费用结算”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "帐户计息"
                   If frmMain.mnuHosAccrual.Enabled Then
                     Me.Enabled = False
                     frmMain.mnuHosAccrual_Click
                     Me.Enabled = True
                   Else
                       ShowMsg Me.hwnd, "没有“帐户计息”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "自动凭证"
                    If frmMain.mnuHosVoucher.Enabled Then
                        If Not gclsBase.PeriodClosed(gclsBase.BaseDate) Then
                            MousePointer = vbHourglass
                            Dim intCount As Integer
                            For intCount = gclsSys.MainControls.Count To 1 Step -1
                                If gclsSys.MainControls(intCount).Form.Name = "frmPurchaseSaleVoucher" Then
                                    Exit For
                                End If
                            Next
                            If intCount < 1 Then
                                Set frmPurchaseSaleVoucher = Nothing
                            End If
                            With frmPurchaseSaleVoucher
                                .SetManner "自动凭证"
                                .Show vbModal
                            End With
                            MousePointer = vbDefault
                        Else
                            ShowMsg frmMain.hwnd, "本期已结帐，不能再制作凭证！", vbCritical + vbOKOnly, "自动凭证"
                        End If
                    Else
                       ShowMsg Me.hwnd, "没有查询和填制“自动凭证”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "保险个人医疗台帐"
                    Report.ShowAcntBook 1809, 1155
                Case "保险缴费统计表"
                     Report.ShowStandardReport 1808, 1154
                Case "保险费汇缴清册"
                    Report.ShowStandardReport 1810, 1156
                Case "保险费汇缴变更清册"
                    Report.ShowStandardReport 1811, 1157
                Case "我的报表"
                    frmMain.ShowMyReport
                Case "费用结算汇总表"
                     Report.ShowSumReport 1814, 1163
               
               End Select
            #End If
            '医疗conHos

'只有标准版本包含进销存
#If conVersionType = 1 Then
        Case "采购"
            Select Case strItemCommand
                Case "采购订单"
                    If frmMain.mnuTaskPurchaseOrder.Enabled Then
                       Me.Enabled = False
                       frmMain.mnuTaskPurchaseOrder_Click
                       Me.Enabled = True
                    Else
                         ShowMsg Me.hwnd, "没有“采购订单”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "采购分摊"
                    If frmMain.mnuTaskPurchaseExpense.Enabled Then
                       Me.Enabled = False
                       frmMain.mnuTaskPurchaseExpense_Click
                       Me.Enabled = True
                    Else
                         ShowMsg Me.hwnd, "没有“采购分摊”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "商品采购"
                    If frmMain.mnuTaskPurchase.Enabled Then
                       Me.Enabled = False
                       frmMain.mnuTaskPurchase_Click
                       Me.Enabled = True