frmautovoucher.frm

金算盘软件代码

VERSION 5.00
Begin VB.Form frmAutoVoucher 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "机制凭证"
   ClientHeight    =   2085
   ClientLeft      =   60
   ClientTop       =   330
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2085
   ScaleWidth      =   4650
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Height          =   350
      Left            =   3450
      Style           =   1  'Graphical
      TabIndex        =   11
      Tag             =   "1002"
      Top             =   630
      UseMaskColor    =   -1  'True
      Width           =   1100
   End
   Begin VB.CommandButton cmdOK 
      Default         =   -1  'True
      Height          =   350
      Left            =   3450
      Style           =   1  'Graphical
      TabIndex        =   10
      Tag             =   "1001"
      Top             =   240
      UseMaskColor    =   -1  'True
      Width           =   1100
   End
   Begin VB.Frame famSource 
      Caption         =   "机制凭证来源"
      Height          =   1905
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   3105
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "结转成本"
         Height          =   195
         Index           =   8
         Left            =   1620
         TabIndex        =   9
         Top             =   1560
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "计提折旧凭证"
         Height          =   195
         Index           =   7
         Left            =   1620
         TabIndex        =   8
         Top             =   1260
         Width           =   1395
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "固资凭证"
         Height          =   195
         Index           =   6
         Left            =   1620
         TabIndex        =   7
         Top             =   960
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "工资凭证"
         Height          =   195
         Index           =   5
         Left            =   1620
         TabIndex        =   6
         Top             =   660
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "损益结转"
         Height          =   195
         Index           =   4
         Left            =   1620
         TabIndex        =   5
         Top             =   360
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "汇兑损益"
         Height          =   195
         Index           =   3
         Left            =   210
         TabIndex        =   4
         Top             =   1200
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "收支凭证"
         Height          =   195
         Index           =   2
         Left            =   210
         TabIndex        =   3
         Top             =   930
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "往来凭证"
         Height          =   180
         Index           =   1
         Left            =   210
         TabIndex        =   2
         Top             =   660
         Width           =   1035
      End
      Begin VB.OptionButton OpnVoucherSource 
         Caption         =   "购销凭证"
         Height          =   180
         Index           =   0
         Left            =   210
         TabIndex        =   1
         Top             =   390
         Width           =   1035
      End
   End
End
Attribute VB_Name = "frmAutoVoucher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------
'机制凭证（WXY）
'1998-07
'---------------
Private Sub CmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim i As Integer
    For i = 0 To OpnVoucherSource.Count - 1
        If OpnVoucherSource(i).Value Then
            VoucherSource_Click (i)
            Exit For
        End If
    Next i
End Sub

Private Sub Form_Load()
    Set cmdOK.Picture = Utility.GetFormResPicture(1001, 0)
    Set cmdCancel.Picture = Utility.GetFormResPicture(1002, 0)
    SetHelpID Me.hwnd, 11010
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Utility.RemoveFormResPicture 1001
    Utility.RemoveFormResPicture 1002
    Set frmPur = Nothing
    Set frmTran = Nothing
    Set frmLos = Nothing
    Set frmSal = Nothing
    Set frmFix = Nothing
    Set frmOld = Nothing
    Set frmCost = Nothing
End Sub

Private Sub VoucherSource_Click(Index As Integer)
' Dim frmPur As New frmPurchaseSaleVoucher
 Dim frmTran As New FrmTransferLoss
 Dim frmLos As New FrmLoss
 Dim frmSal As New frmSalaryPilot
 Dim frmFix As New frmFixedVoucher
 Dim frmOld As New frmFixedOldWizard
 Dim frmCost As New frmCloseCost
 Dim dtmBegin As Date
 Dim dtmEnd As Date
 Dim BeginPeriod As Integer
 Dim EndPeriod As Integer
 
    Select Case Index
        Case 0  '购销凭证
            With frmPur
                .SetManner "购销业务"
                .Show
                .ZOrder
            End With
        Case 1  '往来凭证
            With frmPur
                .SetManner "应收应付"
                .Show
                .ZOrder
            End With
        Case 2  '收支凭证
            With frmPur
                .SetManner "现金银行"
                .Show
                .ZOrder
            End With
        Case 3  '汇况损益
            With frmTran
                .Show
                .ZOrder
            End With
        Case 4  '损益结转
            With frmLos
                .Show
                .ZOrder
            End With
        Case 5  '工资凭证
            With frmSal
                .Show
                .ZOrder
            End With
        Case 6  '固资凭证
            With frmFix
                .Show
                .ZOrder
            End With
        Case 7  '计提折旧凭证
            With frmOld
                .Show
                .ZOrder
            End With
        Case 8  '结转成本
            With frmCost
                Call gclsBase.GetBeginAndEndDate("本期", gclsBase.BaseDate, dtmBegin, dtmEnd)
                BeginPeriod = gclsBase.PeriodOfDate(dtmBegin)
                EndPeriod = gclsBase.PeriodOfDate(dtmEnd)
                .SetParameters BeginPeriod, EndPeriod
                .Show
                .ZOrder
            End With
    End Select
    Unload Me
End Sub
Public Sub SetList(ByVal blnCloseCost As Boolean)
    If blnCloseCost Then
        OpnVoucherSource(8).Visible = True
    Else
        OpnVoucherSource(8).Visible = False
    End If
    Me.Show
End Sub