frmlistsales.frm

金算盘软件代码

Private Sub mclsMainControl_ToolRefresh()
    Dim strOldText As String
    Dim strOldSort As String
    
    Me.MousePointer = vbHourglass
    'HaveAnyVoid
    With grdList
        '保存当前排序列
        strOldSort = cboFindKind.Text
        strOldText = .TextMatrix(.Row, mclsList.SortCol)
        .Redraw = False
        '刷新列表记录
        .Cols = 0
        Set datGrid.Resultset = GetList()
        If Not datGrid.Resultset.EOF Then datGrid.Resultset.MoveLast
        datGrid.Resultset.Close
        mclsList.SetFlexGrid
'        HideColOfMe Me
        '恢复以前排序列
        cboFindKind.Text = strOldSort
        cboFindKind.Text = strOldSort
        .Redraw = False
        If .Rows > 1 Then
            txtFind.Text = strOldText
        End If
        If chkShowAll.Value = 0 Then
            mclsList.DoShowAll False
        Else
            If Not chkShowAll.Enabled Then
                chkShowAll.Enabled = True
                chkShowAll.Value = 0
                chkShowAll.Enabled = False
            End If
        End If
        '更新菜单状态
        UpdateMenuStatus
        .Redraw = True
    End With
    Me.MousePointer = vbDefault
End Sub

'打印
Private Sub mclsMainControl_FilePrint()
    Dim myPrintclass As PrintClass
    Set myPrintclass = New PrintClass
    mclsList.ReGetColCaption
    myPrintclass.PrintList gclsBase.BaseDB, mclsList.FlexGrid, 39, Me.Caption & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName '商品出货               39
    mclsList.AddReGetColCaption
    Set myPrintclass = Nothing
End Sub
'
' 报表菜单
'
Private Sub MakeListReportMenu()
    Dim intCnt As Integer
  
    With frmMain
        For intCnt = .mnuListReportMenu.Count - 1 To 1 Step -1
            Unload .mnuListReportMenu(intCnt)
        Next
        
        .mnuListReportMenu(0).Enabled = True
        .mnuListReportMenu(0).Visible = True
        .mnuListReportMenu(0).Checked = False

        Load .mnuListReportMenu(1)
        .mnuListReportMenu(1).Enabled = True
        .mnuListReportMenu(1).Visible = True
        .mnuListReportMenu(1).Checked = False
'
'         Load .mnuListReportMenu(2)
'        .mnuListReportMenu(2).Enabled = True
'        .mnuListReportMenu(2).Visible = True
'        .mnuListReportMenu(2).Checked = False
'
'        Load .mnuListReportMenu(3)
'        .mnuListReportMenu(3).Enabled = True
'        .mnuListReportMenu(3).Visible = True
'        .mnuListReportMenu(3).Checked = False
'
'        Load .mnuListReportMenu(4)
'        .mnuListReportMenu(4).Enabled = True
'        .mnuListReportMenu(4).Visible = True
'        .mnuListReportMenu(4).Checked = False
'
'        Load .mnuListReportMenu(5)
'        .mnuListReportMenu(5).Enabled = True
'        .mnuListReportMenu(5).Visible = True
'        .mnuListReportMenu(5).Checked = False
        
        Select Case intFormType
            Case 11 '商品销售
                .mnuListReportMenu(0).Caption = "销售汇总表"
               ' .mnuListReportMenu(1).Caption = "单位销售汇总表"
               ' .mnuListReportMenu(2).Caption = "部门销售汇总表"
                .mnuListReportMenu(1).Caption = "销售明细表"
              '  .mnuListReportMenu(4).Caption = "单位销售明细表"
             '   .mnuListReportMenu(5).Caption = "部门销售明细表"
            Case 12 '直运销售
                .mnuListReportMenu(0).Caption = "直运销售汇总表"
                .mnuListReportMenu(1).Caption = "直运销售明细表"
              '  .mnuListReportMenu(2).Caption = "直运采购-销售汇总表"
             '   .mnuListReportMenu(3).Caption = "直运采购-销售明细表"
            Case 13 '代销出库
                .mnuListReportMenu(0).Caption = "委托代销汇总表"
                '.mnuListReportMenu(1).Caption = "代销出库单位汇总表"
                .mnuListReportMenu(1).Caption = "委托代销明细表"
                '.mnuListReportMenu(3).Caption = "代销出库单位明细表"
            Case 14 '代销结算
                .mnuListReportMenu(0).Caption = "代销结算汇总表"
               ' .mnuListReportMenu(1).Caption = "代销结算单位汇总表"
                .mnuListReportMenu(1).Caption = "代销结算明细表"
               ' .mnuListReportMenu(3).Caption = "代销结算单位明细表"
               
            Case 15 '加工出库
                .mnuListReportMenu(0).Caption = "委托加工出库商品汇总表"
                '.mnuListReportMenu(1).Caption = "加工出库单位汇总表"
                .mnuListReportMenu(1).Caption = "委托加工出库商品明细表"
                '.mnuListReportMenu(3).Caption = "加工出库单位明细表"
            Case 16 '分期出库
                .mnuListReportMenu(0).Caption = "分期发出商品汇总表"
               ' .mnuListReportMenu(1).Caption = "分期发出单位汇总表"
                .mnuListReportMenu(1).Caption = "分期发出商品明细表"
                
                '.mnuListReportMenu(3).Caption = "分期发出单位明细表"
            Case 17 '分期结算
                .mnuListReportMenu(0).Caption = "分期结算商品汇总表"
                '.mnuListReportMenu(1).Caption = "分期结算单位汇总表"
                .mnuListReportMenu(1).Caption = "分期结算商品明细表"
               ' .mnuListReportMenu(3).Caption = "分期结算单位明细表"
            Case 18 '销售发票
                .mnuListReportMenu(0).Caption = "销售发票一览表"
                .mnuListReportMenu(1).Caption = "销售发票汇总表"
                Load .mnuListReportMenu(2)
                .mnuListReportMenu(2).Caption = "销售发票明细表"
                .mnuListReportMenu(2).Enabled = True
                .mnuListReportMenu(2).Visible = True
                .mnuListReportMenu(2).Checked = False
            Case 19 '领用出库
                .mnuListReportMenu(0).Caption = "领用出库商品汇总表"
                .mnuListReportMenu(1).Caption = "领用出库商品明细表"
            Case 20 '成本调整
                .mnuListReportMenu(0).Caption = "成本调整单一览表"
                Unload .mnuListReportMenu(1)
            Case 21 '盘亏出库
                .mnuListReportMenu(0).Caption = "商品盘亏汇总表"
                .mnuListReportMenu(1).Caption = "商品盘亏明细表"
            Case 22 '其它出库
                .mnuListReportMenu(0).Caption = "其它出库商品汇总表"
               ' .mnuListReportMenu(1).Caption = "其它出库单位汇总表"
                .mnuListReportMenu(1).Caption = "其它出库商品明细表"
'                .mnuListReportMenu(3).Caption = "其它出库单位明细表"
'
        End Select
    End With
End Sub

Private Sub mclsMainControl_ListReportMenu(ByVal intIndex As Integer)
    Select Case intIndex
        Case 0:
            Select Case intFormType - 10
                Case 1      '商品销售
                    #If conVersionType = 16 Then
                        Report.ShowSumReport 1459, 670
                    #Else
                        Report.ShowSumReport 1595, 719      '商品销售汇总表
                    #End If
                Case 2      '直运销售
                    Report.ShowSumReport 1601, 725      '直运销售汇总表
                Case 3      '代销出库
                    Report.ShowSumReport 1611, 735      '代销出库商品汇总表
                Case 4      '代销结算
                    Report.ShowSumReport 1613, 737      '代销结算商品汇总表
                Case 5      '加工出库
                    Report.ShowSumReport 1553, 578       '加工出库商品汇总表
                Case 6      '分期出库
                    Report.ShowSumReport 1603, 727      '分期发出商品汇总表
                Case 7      '分期结算
                    Report.ShowSumReport 1605, 729      '分期结算商品汇总表
                Case 8      '销售发票
                    Report.ShowStandardReport 1620, 744      '销售发票一览表
                Case 9      '领用出库
                    Report.ShowSumReport 1319, 762 '领用出库商品汇总表
               ' Case 10 '成本调整单一览表
                Case 11     '盘亏出库
                    'Report.ShowSumReport 1323, 581      '商品盘亏汇总表
                Case 12     '其它出库
                   ' Report.ShowSumReport 1632, 568      '其它出库商品汇总表
            End Select
        Case 1:
            Select Case intFormType - 10
                Case 1      '商品销售
                    #If conVersionType = 16 Then
                       Report.ShowStandardReport 1461, 668
                    #Else
                        Report.ShowStandardReport 1596, 720      '单位销售汇总表
                    #End If
                Case 2      '直运销售
                    Report.ShowStandardReport 1602, 726      '直运销售明细表
                Case 3      '代销出库
                    Report.ShowStandardReport 1612, 736       '代销出库单位汇总表
                Case 4      '代销结算
                    Report.ShowStandardReport 1614, 738      '代销出库单位汇总表
                Case 5      '加工出库
                    Report.ShowStandardReport 1554, 567      '加工出库单位汇总表
                Case 6      '分期出库
                    Report.ShowStandardReport 1604, 728      '分期发出单位汇总表
                Case 7      '分期结算
                    Report.ShowStandardReport 1606, 730      '分期结算单位汇总表
                Case 8
                    Report.ShowSumReport 1619, 743
                Case 9      '领用出库
                    Report.ShowStandardReport 1301, 761      '领用出库商品明细表
                Case 11     '盘亏出库
                    'Report.ShowStandardReport 1304, 569      '商品盘亏明细表
                Case 12     '其它出库
                    'Report.ShowStandardReport 1630, 580      '其它出库商品明细表
            End Select
        Case 2
            Select Case intFormType - 10
                    Case 8
                        Report.ShowStandardReport 1621, 745
            End Select
'        Case 2:
'            Select Case intFormType - 10
'                Case 1      '商品销售
'                    Report.ShowStandardReport 395, 256      '部门销售汇总表
'                Case 2      '直运销售
''                    Report.ShowStandardReport 395, 256      '直运采购-销售汇总表
'                Case 3      '代销出库
'                    Report.ShowStandardReport 413, 431      '代销出库商品明细表
'                Case 4      '代销结算
'                    Report.ShowStandardReport 416, 431      '代销结算商品明细表
'                Case 5      '加工出库
'                    Report.ShowStandardReport 514, 472      '加工出库商品明细表
'                Case 6      '分期出库
'                    Report.ShowStandardReport 422, 431      '分期发出商品明细表
'                Case 7      '分期结算
''                    Report.ShowStandardReport 420, 254      '分期结算商品明细表
'
'            End Select
'        Case 3:
'            Select Case intFormType - 10
'                Case 1      '商品销售
'                    Report.ShowStandardReport 183, 264       '商品销售明细表
'                Case 2      '直运销售
''                    Report.ShowStandardReport 395, 256      '直运采购-销售明细表
'                Case 3      '代销出库
'                    Report.ShowStandardReport 414, 431      '代销出库单位明细表
'                Case 4      '代销结算
''                    Report.ShowStandardReport 468, 446      '代销结算单位明细表
'                Case 5      '加工出库
'                    Report.ShowStandardReport 515, 473      '加工出库单位明细表
'                Case 6      '分期出库
''                    Report.ShowStandardReport 465, 443      '分期发出单位明细表
'                Case 7      '分期结算
''                    Report.ShowStandardReport 420, 254      '分期结算单位明细表
'                Case 12     '其它出库
'                   ' Report.ShowStandardReport 531, 490      '其它出库单位明细表
'            End Select
'        Case 4:
'            Select Case intFormType - 10
'                Case 1      '商品销售
'                    Report.ShowStandardReport 399, 423      '单位销售明细表
'            End Select
'        Case 5:
'            Select Case intFormType - 10
'                Case 1      '商品销售
'                    Report.ShowStandardReport 398, 259      '部门销售明细表
'            End Select
    End Select

End Sub

Private Sub mclsMainControl_Report(intReportType As Integer)
    Dim mclsPrintclass As PrintClass
    Set mclsPrintclass = New PrintClass
    Select Case intReportType
    Case 0:  '销售单商品汇总
        Report.ShowStandardReport 173, 254
    Case 1:  '销售单商品明细
        Report.ShowStandardReport 178, 259
    Case 2:
        Report.ShowStandardReport 351, 393
    End Select
End Sub
Public Function BindingResultSet()
    Me.Hide
    Set datGrid.Resultset = GetList()
    If Not datGrid.Resultset.EOF Then datGrid.Resultset.MoveLast
    datGrid.Resultset.Close
    Debug.Print "Sale Form_load Start:" & time
    mclsList.SetFlexGrid

'    HideColOfMe Me
    '初始化查找复合列表框
    mclsList.InitcboFindKind
    mclsList.FlexNoChange = False
    mclsList.FindNoChange = False
    
    '设置第一行为选定行
    With grdList
        If .Rows > 1 Then grdList.Row = 1
        .col = 0
        .ColSel = .Cols - 1
    End With
    If chkShowAll.Value = 0 Then mclsList.DoShowAll False
    Me.Show
    Me.ZOrder 0
End Function
'Public Sub RefreshList(theCurrentID As Long)
'    Dim i As Long
'    mclsMainControl_ToolRefresh
'
'   '将当前行设置到刷新后的ID=theCurrentID的行
'    With grdList
'        For i = 1 To .Rows - 1
'            If CLng(.TextMatrix(i, 0)) = theCurrentID Then
'                GotoRow (i)
'                Exit For
'            End If
'        Next i
'    End With
' '   Me.ZOrder 1
' '   FrmPayable.SetFocus
'End Sub

'告诉列表：编辑窗口已关闭
'argintFormType：编辑窗口返回编辑窗口对应的lngReceiptTypeID
'Public Sub IAmCLosed(argintFormType As Integer)
'End Sub