clslistiteminit.cls

金算盘软件代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsListIteminit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private WithEvents mfrmInitItem As frmAListTemplate '模版窗体
Attribute mfrmInitItem.VB_VarHelpID = -1
Private frmEdit As frmStartPeriod                   '接口窗体
Private mclsItemInit As clsStartDel                 '接口类
Private mlngoldOperator As Long
Private clsListType As String
Public Function SetListType(ByVal strList As String)
    mfrmInitItem.strListType = strList
    clsListType = strList
End Function
Private Sub Class_Initialize()
    Dim i As Integer
    Set mfrmInitItem = New frmAListTemplate
    
    mfrmInitItem.blnReceptionList = True
    mfrmInitItem.mTitle = "商品劳务期初"
    mfrmInitItem.mHelpID = 30022
    
    
    mfrmInitItem.Tabs = 7
    mfrmInitItem.SpTabCaption(0) = "库存期初(&O)"
    mfrmInitItem.SpViewID(0) = 529
    mfrmInitItem.SpTabCaption(1) = "受托期初(&P)"
    mfrmInitItem.SpViewID(1) = 530
    mfrmInitItem.SpTabCaption(2) = "委托代销期初(&T)"
    mfrmInitItem.SpViewID(2) = 532
    mfrmInitItem.SpTabCaption(3) = "分期期初(&L)"
    mfrmInitItem.SpViewID(3) = 533
    mfrmInitItem.SpTabCaption(4) = "直运期初(&M)"
    mfrmInitItem.SpViewID(4) = 535
    mfrmInitItem.SpTabCaption(5) = "加工期初(&N)"
    mfrmInitItem.SpViewID(5) = 531
    mfrmInitItem.SpTabCaption(6) = "暂估期初(&V)"
    mfrmInitItem.SpViewID(6) = 534
    
   For i = 0 To 6
    mfrmInitItem.blnEditByRight(i) = IsCanDo(208, gclsBase.OperatorID)
    mfrmInitItem.SpSelect(i) = "ItemActivity.lngActivityID As id,min(decode(ItemActivity.blnIsVoid,1,'√',' ')) As ""作废"""
    mfrmInitItem.SpWhere(i) = "ItemActivity.lngActivityTypeID=" & 41 + i
    mfrmInitItem.ShowAll(i) = " ItemActivity.blnIsVoid=0"
    mfrmInitItem.SpGoupBy(i) = "ItemActivity.lngActivityID"
    mfrmInitItem.SpPrintID(i) = 72 + i
   Next
   '
    mfrmInitItem.SpPrintTitle(0) = "库存商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(1) = "受托商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(2) = "委托代销商品期初 " & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(3) = "分期商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(4) = "直运商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(5) = "加工商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmInitItem.SpPrintTitle(6) = "采购商品期初" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    
    mfrmInitItem.MenuEnbaleOnPage(0) = 127
    mfrmInitItem.MenuEnbaleOnPage(1) = 127
    mfrmInitItem.MenuEnbaleOnPage(2) = 127
    mfrmInitItem.MenuEnbaleOnPage(3) = 127
    mfrmInitItem.MenuEnbaleOnPage(4) = 127
    mfrmInitItem.MenuEnbaleOnPage(5) = 127
    mfrmInitItem.MenuEnbaleOnPage(6) = 127
    mfrmInitItem.MenuEnbaleOnPage(7) = 127
    
End Sub

Public Function Showlist()
    mfrmInitItem.Show
    mfrmInitItem.ZOrder 0
    Set mclsItemInit = New clsStartDel         '删除增加类
    mclsItemInit.SethWnd mfrmInitItem.hWnd
    Set frmEdit = New frmStartPeriod
End Function

Private Sub mfrmInitItem_ListChildActive()
    Dim vntMessage As Variant
    '响应消息
    For Each vntMessage In mfrmInitItem.mclsMainControl.Messages
        Select Case vntMessage
            Case 30 + 42
                '接收到部门雇员改变消息
                  If mfrmInitItem.sstPages.Tab = 0 Then mfrmInitItem.ToolRefresh
                  mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage) '清除部门雇员改变消息
            Case 30 + 43
                    If mfrmInitItem.sstPages.Tab = 1 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 44
                    If mfrmInitItem.sstPages.Tab = 2 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 45    '接收到部门雇员改变消息
                   If mfrmInitItem.sstPages.Tab = 3 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
            Case 30 + 46    '接收到部门雇员改变消息
                If mfrmInitItem.sstPages.Tab = 4 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
            Case 30 + 47    '接收到部门雇员改变消息
                If mfrmInitItem.sstPages.Tab = 5 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
            Case 30 + 52    '接收到部门雇员改变消息
                If mfrmInitItem.sstPages.Tab = 6 Then mfrmInitItem.ToolRefresh
                    mfrmInitItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
        End Select
    Next
    mfrmInitItem.mclsMainControl.Messages.Clear
End Sub
Private Function GetOperator(ByVal lngActivityID As Long) As Boolean
    Dim strSql As String
    Dim recOperator As rdoResultset
    
    GetOperator = False
    strSql = "select lngOperatorID from ItemActivity where ItemActivity.lngActivityID=" & lngActivityID
    Set recOperator = gclsBase.BaseDB.OpenResultset(strSql, rdOpenForwardOnly)
    If recOperator.EOF Then Exit Function
    mlngoldOperator = recOperator.rdoColumns(0)
    recOperator.Close
    GetOperator = True
End Function
Private Sub mfrmInitItem_ListDel()
    Dim lngID As Long
    lngID = mfrmInitItem.ListID
    If lngID = 0 Then Exit Sub
    If Not GetOperator(lngID) Then Exit Sub
    If mlngoldOperator <> gclsBase.OperatorID Then
       ShowMsg mfrmInitItem.hWnd, "不能删除别人制作的期初单据！", vbExclamation + MB_SYSTEMMODAL, mfrmInitItem.Caption
       Exit Sub
    End If
    If Not mclsItemInit.DeleteStartPeriod(lngID, False) Then Exit Sub
    mfrmInitItem.ToolRefresh
End Sub

Private Sub mfrmInitItem_ListEdite()
    Dim lngActivityID As Long
    
    lngActivityID = mfrmInitItem.ListID
    If lngActivityID = 0 Then Exit Sub
    frmEdit.ShowAOldBill lngActivityID
End Sub

Private Sub mfrmInitItem_oListInActive()
    Dim lngID As Long
    lngID = mfrmInitItem.ListID
    If lngID = 0 Then Exit Sub
    If mfrmInitItem.IsInActive Then Exit Sub
    If Not GetOperator(lngID) Then Exit Sub
    If mlngoldOperator <> gclsBase.OperatorID Then
       ShowMsg mfrmInitItem.hWnd, "不能作废别人制作的期初单据！", vbExclamation + MB_SYSTEMMODAL, mfrmInitItem.Caption
       Exit Sub
    End If
    If ShowMsg(mfrmInitItem.hWnd, "本张期初单作废后将不能取消作废，您确实要作废吗？", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL, mfrmInitItem.Caption) <> IDYES Then Exit Sub
    If Not mclsItemInit.DeleteStartPeriod(lngID, True) Then Exit Sub
    mfrmInitItem.ToolRefresh
End Sub


Private Sub mfrmInitItem_ListInActive(blnLevel As Boolean, blnSuceess As Boolean)
    Dim lngID As Long
    
    blnLevel = True
    blnSuceess = False
    lngID = mfrmInitItem.ListID
    If lngID = 0 Then Exit Sub
    If mfrmInitItem.IsInActive Then Exit Sub
    If Not GetOperator(lngID) Then Exit Sub
    If mlngoldOperator <> gclsBase.OperatorID Then
       ShowMsg mfrmInitItem.hWnd, "不能作废别人制作的期初单据！", vbExclamation + MB_SYSTEMMODAL, mfrmInitItem.Caption
       Exit Sub
    End If
    If ShowMsg(mfrmInitItem.hWnd, "本张期初单作废后将不能取消作废，您确实要作废吗？", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL, mfrmInitItem.Caption) <> IDYES Then Exit Sub
    If Not mclsItemInit.DeleteStartPeriod(lngID, True) Then Exit Sub
    'mfrmInitItem.ToolRefresh
    blnSuceess = True
End Sub

Private Sub mfrmInitItem_ListNew()
    Dim intReceiptType As Integer
    mfrmInitItem.MousePointer = vbHourglass
    Select Case mfrmInitItem.sstPages.Tab
        Case 6
            intReceiptType = 52
        Case Else
            intReceiptType = 42 + mfrmInitItem.sstPages.Tab
    End Select
    frmStartPeriod.ShowANewTypeBill intReceiptType
    mfrmInitItem.MousePointer = vbDefault
End Sub

Private Sub mfrmInitItem_ListPrintReceipt()
  frmPrintReceipt.ShowfrmPrintReceipt 39 + mfrmInitItem.sstPages.Tab
End Sub

Private Sub mfrmInitItem_ListShowAll()
    With mfrmInitItem
        If .chkShowall = 0 Then
                .ShowAll(0) = "ItemActivity.blnIsVoid=0"
        Else
            .ShowAll(0) = ""
        End If
        .ToolRefresh
    End With
End Sub