frmlistpurchase.frm

金算盘软件代码

            .Redraw = True
        End If
    End With
End Sub
'筛选
Private Sub mclsMainControl_EditFilter()
    Dim blnFlage As Boolean
   '执行过滤
    If mclsList.ListSet.ListID < 1 Then
        mclsList.ListSet.SaveList
        DefaultWhere intFormType, mclsList.ListSet.ListID
    End If
    Filter.ShowFilter mclsList.ListSet.ListID, 1, , , , , blnFlage
    If Not blnFlage Then Exit Sub
    grdList.Redraw = False
    mclsList.SaveListSet
    mclsList.ListSet.ViewId = intViewID
    grdList.Cols = 0
    Set datGrid.Resultset = GetList()
    If Not datGrid.Resultset.EOF Then datGrid.Resultset.MoveLast
    datGrid.Resultset.Close
    mclsList.SetFlexGrid
'    HideColOfMe Me
    UpdateMenuStatus
    '初始化查找复合列表框
    mclsList.InitcboFindKind
    If chkShowAll.Value = 0 Then mclsList.DoShowAll False
    grdList.Redraw = True
End Sub
'搜索
Private Sub mclsMainControl_EditSearch()
On Error GoTo TheErr
    frmTreeFind.ShowFind
TheErr:
End Sub

'刷新
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, 36, Me.Caption & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName '商品进货               36
    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 1
                .mnuListReportMenu(0).Caption = "采购汇总表"
                '.mnuListReportMenu(1).Caption = "单位采购汇总表"
                '.mnuListReportMenu(2).Caption = "部门采购汇总表"
                .mnuListReportMenu(1).Caption = "采购明细表"
                '.mnuListReportMenu(4).Caption = "单位采购明细表"
                '.mnuListReportMenu(5).Caption = "部门采购明细表"
            Case 2
                .mnuListReportMenu(0).Caption = "直运采购汇总表"
                .mnuListReportMenu(1).Caption = "直运采购明细表"
            Case 3
                .mnuListReportMenu(0).Caption = "受托入库汇总表"
                '.mnuListReportMenu(1).Caption = "受托代销单位汇总表"
                .mnuListReportMenu(1).Caption = "受托入库明细表"
               ' .mnuListReportMenu(3).Caption = "受托代销单位明细表"
            Case 4
                .mnuListReportMenu(0).Caption = "受托结算汇总表"
                '.mnuListReportMenu(1).Caption = "受托结算单位汇总表"
                .mnuListReportMenu(1).Caption = "受托结算明细表"
               ' .mnuListReportMenu(3).Caption = "受托结算单位明细表"
            Case 5
                .mnuListReportMenu(0).Caption = "委托加工入库商品汇总表"
                '.mnuListReportMenu(1).Caption = "加工入库单位汇总表"
                .mnuListReportMenu(1).Caption = "委托加工入库商品明细表"
                '.mnuListReportMenu(3).Caption = "加工入库单位明细表"
            Case 6
                .mnuListReportMenu(0).Caption = "委托加工费用汇总表"
                '.mnuListReportMenu(1).Caption = "加工费用单位汇总表"
                .mnuListReportMenu(1).Caption = "委托加工费用明细表"
                '.mnuListReportMenu(3).Caption = "加工费用单位明细表"
            Case 7
                .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 8
                .mnuListReportMenu(0).Caption = "自制入库商品汇总表"
                .mnuListReportMenu(1).Caption = "自制入库商品明细表"
            Case 9
                .mnuListReportMenu(0).Caption = "商品盘盈汇总表"
                .mnuListReportMenu(1).Caption = "商品盘盈明细表"
            Case 10
                .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
                Case 1      '商品采购
                    #If conVersionType = 16 Then
                         Report.ShowSumReport 1458, 670 '商品采购汇总表
                    #Else
                        Report.ShowSumReport 1568, 694
                    #End If
                Case 2      '直运采购
                    Report.ShowSumReport 1585, 710       '直运采购汇总表
                Case 3      '受托入库
                    Report.ShowSumReport 1576, 702      '受托代销商品汇总表
                Case 4      '受托结算
                    Report.ShowSumReport 1578, 704      '受托结算商品汇总表
                Case 5      '加工入库
                    Report.ShowSumReport 1555, 578      '加工入库商品汇总表
                Case 6      '加工费用
                    Report.ShowSumReport 1557, 691      '加工费用商品汇总表
                Case 7      '采购发票
                    Report.ShowStandardReport 1586, 711      '采购发票一览表
                Case 8      '自制入库
                    Report.ShowSumReport 1320, 762        '自制入库商品汇总表
                Case 9      '盘盈入库
                   ' Report.ShowSumReport 1323, 581      '商品盘盈汇总表
                Case 10     '其它入库
                    'Report.ShowSumReport 1631, 568      '其它入库商品汇总表
            End Select
        Case 1:
            Select Case intFormType
                Case 1      '商品采购
                    #If conVersionType = 16 Then
                        Report.ShowStandardReport 1460, 668
                    #Else
                         Report.ShowStandardReport 1567, 693      '单位采购汇总表
                    #End If
                Case 2      '直运采购
                    Report.ShowStandardReport 1584, 709      '直运采购明细表
                Case 3      '受托入库
                    Report.ShowStandardReport 1575, 701      '受托代销单位汇总表
                Case 4      '受托结算
                    Report.ShowStandardReport 1577, 703      '受托代销单位汇总表
                Case 5      '加工入库
                    Report.ShowStandardReport 1556, 749      '加工入库单位汇总表
                Case 6      '加工费用
                    Report.ShowStandardReport 1558, 689      '加工费用单位汇总表
                Case 7                                       '采购发票汇总表
                    Report.ShowSumReport 1588, 713
                Case 8      '自制入库
                    Report.ShowStandardReport 1302, 761       '自制入库商品明细表
                Case 9      '盘盈入库
                   ' Report.ShowStandardReport 1304, 569      '商品盘盈明细表
                Case 10     '其它入库
                    'Report.ShowStandardReport 1629, 580      '其它入库商品明细表
            End Select
        Case 2
            Select Case intFormType
                Case 7                                           '采购发票明细表
                     Report.ShowStandardReport 1587, 712
            End Select
 '       Case 2:
'            Select Case intFormType
'                Case 1      '商品采购
'                    Report.ShowStandardReport 441, 282      '部门采购汇总表
'                Case 3      '受托入库
'                    Report.ShowStandardReport 463, 441      '受托代销商品明细表
'                Case 4      '受托结算
'                    Report.ShowStandardReport 467, 445      '受托结算商品明细表
'                Case 5      '加工入库
'                    Report.ShowStandardReport 518, 476      '加工入库商品明细表
'                Case 6      '加工费用
''                    Report.ShowStandardReport 465, 443      '加工费用商品明细表
'                Case 10     '其它入库
'                  '  Report.ShowStandardReport 1302, 567      '其它入库商品明细表
'            End Select
'        Case 3:
'            Select Case intFormType
'                Case 1      '商品采购
'                    Report.ShowStandardReport 446, 285      '商品采购明细表
'                Case 3      '受托入库
'                    Report.ShowStandardReport 464, 442      '受托代销单位明细表
'                Case 4      '受托结算
'                    Report.ShowStandardReport 468, 446      '受托结算单位明细表
'                Case 5      '加工入库
'                    Report.ShowStandardReport 519, 477      '加工入库单位明细表
'                Case 6      '加工费用
'                    Report.ShowStandardReport 508, 478      '加工费用单位明细表
'                Case 10     '其它入库
'                   ' Report.ShowStandardReport 527, 486      '其它入库单位明细表
'            End Select
'        Case 4:
'            Select Case intFormType
'                Case 1      '商品采购
'                    Report.ShowStandardReport 448, 412      '单位采购明细表
'            End Select
'        Case 5:
'            Select Case intFormType
'                Case 1      '商品采购
'                    Report.ShowStandardReport 447, 411      '部门采购明细表
'            End Select
    End Select

End Sub

'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

Private Sub txtFind_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub
Public Function BindingResultSet()
    Me.Hide
     '得到付款条件列表记录集
    Debug.Print "Purchase Form_load Start:" & time
    Set datGrid.Resultset = GetList()
    
    If Not datGrid.Resultset.EOF Then datGrid.Resultset.MoveLast
    datGrid.Resultset.Close
    Debug.Print "Purchase Form_load End:" & 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