📄 clspz.cls

📁 财务信息管理系统,适合做毕业论文的人使用
💻 CLS
📖 第 1 页 / 共 2 页
字号:
12 下一页
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

'***************************************************************
12 下一页
💿 文件大小 971 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#财务 #信息管理系统 #毕业论文
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -