apiouttest.frm

金算盘软件代码

                    End If
                Case "应付明细帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1729, 359
                    Else
                        Report.ShowAcntBook 1761, 1108
                    End If
                Case "现金日记帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1726, 4
                    Else
                        Report.ShowAcntBook 1763, 1109
                    End If
                Case "银行存款日记帐"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAcntBook 1727, 360
                    Else
                        Report.ShowAcntBook 1762, 1109
                    End If
                '财务报表
                Case "财务状况结构分析表"
                    Report.ShowFinanceReport 1492, 658
                Case "财务状况比较分析表"
                    Report.ShowFinanceReport 1491, 657
                Case "财务状况趋势分析表"
                    Report.ShowFinanceReport 1493, 657
                Case "预算完成情况分析表"
                    Report.ShowFinanceWizard 1490, 321
                Case "收款汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 1503, 572
                    Else
                        Report.ShowSumReport 1785, 1017
                    End If
                Case "付款汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 1502, 1149
                    Else
                        Report.ShowSumReport 1784, 1019
                    End If
                Case "应收余额表"
                    Report.ShowBalance 1723, 638
                Case "应付余额表"
                    Report.ShowBalance 1724, 639
                Case "工资汇总表"
                    Report.ShowSumReport 1660, 595
                Case "工资发放表"
                    Report.ShowStandardReport 1659, 593
                Case "固定资产汇总表"
                    Report.ShowSumReport 1661, 755
                Case "固定资产增减表"
                    Report.ShowSumReport 1752, 666
                '财务稽查
                Case "错误凭证稽查表"
                    Report.ShowStandardReport 566, 510
                Case "凭证未复核稽查表"
                    Report.ShowStandardReport 1445, 659
                Case "信用风险稽查表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 567, 511
                    Else
                        Report.ShowSumReport 1747, 1113
                    End If
                Case "呆帐风险稽查表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowStandardReport 1422, 648
                    Else
                        Report.ShowStandardReport 1748, 1114
                    End If
                Case "催收款项稽查表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowStandardReport 1426, 649
                    Else
                        Report.ShowStandardReport 1749, 1115
                    End If
                Case "久未交易客户稽查表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowSumReport 1428, 651
                    Else
                        Report.ShowSumReport 1751, 1117
                    End If
                Case "催付款项稽查表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowStandardReport 1427, 650
                    Else
                        Report.ShowStandardReport 1750, 1116
                    End If
                '经营帐册
                Case "存货明细帐"
                    Report.ShowAcntBook 1732, 100
                Case "进销差价明细帐"
                    Report.ShowAcntBook 1773, 1024
                Case "成本差异明细帐"
                    Report.ShowAcntBook 1774, 1023
                Case "委托代销商品销售帐"
                    Report.ShowAcntBook 1733, 178
                Case "受托代销商品款明细帐", "受托商品代销款明细帐"
                    Report.ShowAcntBook 1775, 783
                Case "分期收款发出商品明细帐"
                    Report.ShowAcntBook 1731, 175
                Case "委托加工明细帐"
                    Report.ShowAcntBook 1776, 1016
                '经营报表
                Case "存货进销存汇总表"
                    Report.ShowSumReport 592, 541
                Case "存货余额表"
                    Report.ShowSumReport 1730, 549
                Case "采购订单执行情况表"
                    Report.ShowSumReport 1663, 688
                Case "销售订单执行情况表"
                    Report.ShowSumReport 1667, 718
                Case "采购汇总表"
                    Report.ShowSumReport 1665, 694
                Case "采购明细表"
                    Report.ShowStandardReport 1714, 693
                Case "销售汇总表"
                    Report.ShowSumReport 1666, 719
                Case "销售明细表"
                    Report.ShowStandardReport 1715, 720
                Case "商品销售毛利率表"
                    Report.ShowSumReport 488, 461
                Case "商品经营状态分析表"
                    Report.ShowSumReport 1755, 770
                '经营稽查
                Case "超储积压稽查表"
                    Report.ShowSumReport 572, 516
                Case "超低储备稽查表"
                    Report.ShowSumReport 573, 517
                Case "超期储备稽查表"
                    Report.ShowSumReport 574, 518
                Case "超期预测稽查表"
                    Report.ShowSumReport 575, 519
                Case "滞销商品稽查表"
                    Report.ShowStandardReport 1676, 520
                Case "预计到货稽查表"
                    Report.ShowStandardReport 1678, 779
                Case "预计发货稽查表"
                    Report.ShowStandardReport 1679, 780
                Case "订购未到货稽查表"
                    Report.ShowStandardReport 1680, 781
                Case "订购未发货稽查表"
                    Report.ShowStandardReport 1681, 782
                Case "亏损销售稽查表"
                    Report.ShowStandardReport 1677, 515
                Case "我的报表"
                    frmMain.ShowMyReport
            End Select
        Case "财务分析"
            Select Case strItemCommand
                '帐务分析
                Case "财务状况结构分析表"
                    Report.ShowFinanceReport 1457, 658
                Case "财务状况比较分析表"
                    Report.ShowFinanceReport 1455, 657
                Case "财务状况趋势分析表"
                    Report.ShowFinanceReport 1454, 657
                Case "财务预算方案完成表", "财务预算方案分析表"
                    Report.ShowFinanceWizard 300, 321
                Case "汇率变动趋势分析表", "财务变动趋势分析表"
                    Report.ShowFinanceReport 1434, 656
             End Select
'                    Case "财务指标分析表"
        Case "往来分析"
                Select Case strItemCommand
                Case "应收帐龄分析汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 120, 610
                    Else
                        Report.ShowAgeReport 1756, 1005
                    End If
                Case "应收帐龄分析明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 118, 611
                    Else
                        Report.ShowAgeReport 1757, 1004
                    End If
                Case "应付帐龄分析汇总表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 121, 126
                    Else
                        Report.ShowAgeReport 1758, 1007
                    End If
                Case "应付帐龄分析明细表"
                    If gclsBase.ControlAccount = True Then
                        Report.ShowAgeReport 119, 609
                    Else
                        Report.ShowAgeReport 1759, 1006
                    End If
                End Select
            Case "工资分析"
                Select Case strItemCommand
                Case "工资结构分析表"
                    Report.ShowFinanceReport 1651, 247
                Case "工资项目分析表"
                    Report.ShowFinanceReport 378, 247
                Case "职员工资分析表"
                    Report.ShowFinanceReport 1645, 247
                Case "部门工资分析表"
                    Report.ShowFinanceReport 1624, 247
                Case "工资项目增长情况表"
                    Report.ShowFinanceReport 379, 247
                Case "部门工资项目统计表"
                    Report.ShowFinanceReport 380, 247
                Case "职员类别工资部门统计表"
                    Report.ShowFinanceReport 1436, 247
                Case "职员工资项目统计表"
                    Report.ShowFinanceReport 1432, 247
                End Select
            Case "固资分析"
                Select Case strItemCommand
                Case "固定资产类别构成分析表"
                    Report.ShowFinanceReport 341, 308
                Case "固定资产部门构成分析表"
                    Report.ShowFinanceReport 342, 308
                Case "固定资产类别价值结构分析表"
                    Report.ShowFinanceReport 343, 308
                Case "固定资产部门价值结构分析表"
                    Report.ShowFinanceReport 1622, 308
                Case "固定资产使用情况分析表"
                    Report.ShowFinanceReport 346, 308
                Case "我的报表"
                    frmMain.ShowMyReport
                End Select
            
        #If conHos <> 1 Then
        Case "应收"
            Select Case strItemCommand
                #If conVersionType = 16 Then
                Case "销售发票"
                    If frmMain.mnuAccountSale.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountSale_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“销售发票”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                #End If
                Case "应收借项"
                    If frmMain.mnuAccountAR.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountAR_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“应收借项”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应收贷项"
                    If frmMain.mnuAccountAR.Visible Then
                        Me.Enabled = False
                        frmMain.mnuAccountAR_Click
                        Me.Enabled = True
                    Else
                      ShowMsg Me.hwnd, "没有“应收贷项”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应收计息"
                    If frmMain.mnuAccountFinanceCharge.Enabled Then
                        Me.Enabled = False
                        frmMain.mnuAccountFinanceCharge_Click
                        Me.Enabled = True
                    Else
                        ShowMsg Me.hwnd, "没有“应收计息”的权限！", vbCritical + vbOKOnly, App.title
                    End If
                Case "应收凭证"
                    If IsCanDo(41, 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