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