?? clspz.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 = "clsPzcl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private WithEvents zClsPz As ZzPz.clsPZ
Attribute zClsPz.VB_VarHelpID = -1
'***************************************************************
'函數： DoVouch *
'功能： 生成與傳送憑證 *
'參數： *
'返回： *
'***************************************************************
Public Sub DoVouch(Optional DeriveBIType As Integer)
Dim rsTemp As New UfRecordset
Dim sqlTemp As String
Dim sqlVouch As String
Dim rsvouch As New UfRecordset
Dim sqlAccVouch As String
Dim rsAccVouch As New UfRecordset
Dim blnFirstJ As Boolean
Dim blnFirstD As Boolean
Dim Tmphl As Double
DeleteGLVouchOther
'檢查業務編號存在否
sqlTemp = "SELECT * FROM FD_Vouch WHERE [cBus_id]='" & pzInfo.pYwID & "'"
Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenSnapshot)
With rsTemp
If .EOF Then '***生成憑證
If pzInfo.blnFind Then
MsgBox "此張單據未生成憑證!", vbInformation, zjGl_Name
Exit Sub
End If
sqlVouch = "SELECT * FROM FD_Vouch WHERE [cAcc1_id]='" & pzInfo.pZhID1 & "' AND [cAcc2_id]='" & pzInfo.pZhID2 & "' AND [cBus_id] LIKE '" & left(pzInfo.pYwID, 2) & "%' ORDER BY [dDate] DESC"
Set rsvouch = dbsZJ.OpenRecordset(sqlVouch, dbOpenSnapshot)
With rsvouch
If .EOF Then '###此賬戶此前未生成過憑證
FillVouchOther 1
FillVouchOther 2
If IsEmpty(DeriveBIType) Then
DoPzzd
Else
DoPzzd DeriveBIType
End If
Else '###此賬戶此前生成過憑證
blnFirstJ = True: blnFirstD = True
sqlAccVouch = "SELECT * FROM GL_accvouch WHERE [coutsysname]='FD' " & _
"AND [ioutperiod]=" & ![iPeriod] & " AND [coutsign]='" & _
![cSign] & "' AND [coutno_id]='" & ![cno_id] & _
"' ORDER BY [inid]"
Set rsAccVouch = dbsZJ.OpenRecordset(sqlAccVouch, dbOpenSnapshot)
Do While Not rsAccVouch.EOF
If blnFirstJ And rsAccVouch![md] <> 0 Then
FillVouchOther 1, rsAccVouch
rsAccVouch.MoveNext
blnFirstJ = False
End If
If rsAccVouch.EOF Then Exit Do
If blnFirstD And rsAccVouch![mc] <> 0 Then
FillVouchOther 2, rsAccVouch
rsAccVouch.MoveNext
blnFirstJ = False
End If
If rsAccVouch.EOF Then Exit Do
FillVouchOther 0, rsAccVouch
rsAccVouch.MoveNext
Loop
If IsEmpty(DeriveBIType) Then
DoPzzd
Else
DoPzzd DeriveBIType
End If
End If
End With
Else '***查詢憑證
If pzInfo.blnFind Then
If IsEmpty(DeriveBIType) Then
DoPzlc ![iPeriod], ![cSign], ![cno_id]
Else
DoPzlc ![iPeriod], ![cSign], ![cno_id], DeriveBIType
End If
Else
If IsEmpty(DeriveBIType) Then
DoPzcx ![iPeriod], ![cSign], ![cno_id]
Else
DoPzcx ![iPeriod], ![cSign], ![cno_id], DeriveBIType
End If
End If
End If
End With
End Sub
'***************************************************************
'函數： DoPzzd *
'功能： 憑證制單 *
'參數： *
' *
'返回： *
'***************************************************************
Private Sub DoPzzd(Optional DeriveBIType As Integer)
Select Case DeriveBIType
Case 21
zClsPz.StartUpPz "FD", "FD05020103", Pz_ZD, "CN"
Case 22
zClsPz.StartUpPz "FD", "FD05020203", Pz_ZD, "CN"
Case 23
zClsPz.StartUpPz "FD", "FD05020304", Pz_ZD, "CN"
Case 24
zClsPz.StartUpPz "FD", "FD05020403", Pz_ZD, "CN"
Case 25
zClsPz.StartUpPz "FD", "FD05020503", Pz_ZD, "CN"
Case 26
zClsPz.StartUpPz "FD", "FD05020603", Pz_ZD, "CN"
Case 27
zClsPz.StartUpPz "FD", "FD05020703", Pz_ZD, "CN"
Case 28
zClsPz.StartUpPz "FD", "FD05020803", Pz_ZD, "CN"
Case 31
zClsPz.StartUpPz "FD", "FD05020903", Pz_ZD, "CN"
Case 32
zClsPz.StartUpPz "FD", "FD05021004", Pz_ZD, "CN"
Case 33
zClsPz.StartUpPz "FD", "FD05021103", Pz_ZD, "CN"
Case 34
zClsPz.StartUpPz "FD", "FD05021204", Pz_ZD, "CN"
Case 41
zClsPz.StartUpPz "FD", "FD05021304", Pz_ZD, "CN"
Case 42
zClsPz.StartUpPz "FD", "FD05021403", Pz_ZD, "CN"
Case 43
zClsPz.StartUpPz "FD", "FD05021504", Pz_ZD, "CN"
Case 44
zClsPz.StartUpPz "FD", "FD05021603", Pz_ZD, "CN"
Case 45
zClsPz.StartUpPz "FD", "FD05021704", Pz_ZD, "CN"
Case 46
zClsPz.StartUpPz "FD", "FD05021803", Pz_ZD, "CN"
Case 51
zClsPz.StartUpPz "FD", "FD05021903", Pz_ZD, "CN"
Case 52
zClsPz.StartUpPz "FD", "FD05022004", Pz_ZD, "CN"
Case 54
zClsPz.StartUpPz "FD", "FD05022103", Pz_ZD, "CN"
Case 55
zClsPz.StartUpPz "FD", "FD05022204", Pz_ZD, "CN"
Case 61
Case 62
Case 63
Case 64
End Select
End Sub
'***************************************************************
'函數： DoPzcx *
'功能： 憑證查詢 *
'參數： *
' *
'返回： *
'***************************************************************
Private Sub DoPzcx(mPeriod As Byte, mOutSign As String, mPzID As String, Optional DeriveBIType As Integer = 21)
Dim sqlT As String
Dim Rst As New UfRecordset
sqlT = "SELECT [ioutperiod],[coutsign],[coutno_id] FROM GL_accvouch WHERE " & _
"[coutsysname]='FD' AND [ioutperiod]=" & mPeriod & " AND [coutno_id]='" & _
mPzID & "' AND [iflag] IS NULL"
Set Rst = dbsZJ.OpenRecordset(sqlT, dbOpenSnapshot)
'zClsPz.StartUpPz "FD", "FD0318", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Select Case DeriveBIType
Case 21
zClsPz.StartUpPz "FD", "FD05020103", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 22
zClsPz.StartUpPz "FD", "FD05020203", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 23
zClsPz.StartUpPz "FD", "FD05020304", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 24
zClsPz.StartUpPz "FD", "FD05020403", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 25
zClsPz.StartUpPz "FD", "FD05020503", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 26
zClsPz.StartUpPz "FD", "FD05020603", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 27
zClsPz.StartUpPz "FD", "FD05020703", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 28
zClsPz.StartUpPz "FD", "FD05020803", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 31
zClsPz.StartUpPz "FD", "FD05020903", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 32
zClsPz.StartUpPz "FD", "FD05021004", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 33
zClsPz.StartUpPz "FD", "FD05021103", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 34
zClsPz.StartUpPz "FD", "FD05021204", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 41
zClsPz.StartUpPz "FD", "FD05021304", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 42
zClsPz.StartUpPz "FD", "FD05021403", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 43
zClsPz.StartUpPz "FD", "FD05021504", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 44
zClsPz.StartUpPz "FD", "FD05021603", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 45
zClsPz.StartUpPz "FD", "FD05021704", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 46
zClsPz.StartUpPz "FD", "FD05021803", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 51
zClsPz.StartUpPz "FD", "FD05021903", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 52
zClsPz.StartUpPz "FD", "FD05022004", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 54
zClsPz.StartUpPz "FD", "FD05022103", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 55
zClsPz.StartUpPz "FD", "FD05022204", Pz_CX, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
Case 61
Case 62
Case 63
Case 64
End Select
End Sub
'***************************************************************
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -