clspz.cls

财务信息管理系统,适合做毕业论文的人使用

'函数： DoPzlc                                                  *
'功能： 凭证联查                                                 *
'参数：                                                          *
'                                                               *
'返回：                                                         *
'***************************************************************
Private Sub DoPzlc(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_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
    Select Case DeriveBIType
        Case 21
            zClsPz.StartUpPz "FD", "FD05020103", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 22
            zClsPz.StartUpPz "FD", "FD05020203", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 23
            zClsPz.StartUpPz "FD", "FD05020304", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 24
            zClsPz.StartUpPz "FD", "FD05020403", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 25
            zClsPz.StartUpPz "FD", "FD05020503", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 26
            zClsPz.StartUpPz "FD", "FD05020603", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 27
            zClsPz.StartUpPz "FD", "FD05020703", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 28
            zClsPz.StartUpPz "FD", "FD05020803", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 31
            zClsPz.StartUpPz "FD", "FD05020903", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 32
            zClsPz.StartUpPz "FD", "FD05021004", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 33
            zClsPz.StartUpPz "FD", "FD05021103", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 34
            zClsPz.StartUpPz "FD", "FD05021204", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 41
            zClsPz.StartUpPz "FD", "FD05021304", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 42
            zClsPz.StartUpPz "FD", "FD05021403", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 43
            zClsPz.StartUpPz "FD", "FD05021504", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 44
            zClsPz.StartUpPz "FD", "FD05021603", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 45
            zClsPz.StartUpPz "FD", "FD05021704", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 46
            zClsPz.StartUpPz "FD", "FD05021803", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 51
            zClsPz.StartUpPz "FD", "FD05021903", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 52
            zClsPz.StartUpPz "FD", "FD05022004", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 54
            zClsPz.StartUpPz "FD", "FD05022103", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 55
            zClsPz.StartUpPz "FD", "FD05022204", Pz_LC, "CN", "FD", Rst![ioutperiod], Rst![coutsign], Rst![coutno_id]
        Case 61
        Case 62
        Case 63
        Case 64
    End Select
End Sub

'***************************************************************
'函数： FillVouchOther                                          *
'功能： 填制 GL_Vouchother 表，为生成凭证做准备                   *
'参数： bytJd - 行号                                             *
'       rsGl -  可选，填制凭证的附加信息                          *
'返回：                                                         *
'***************************************************************
Private Sub FillVouchOther(bytJd As Byte, Optional rsGl As UfRecordset)
   Dim rsVouchOther As New UfRecordset
   On Error Resume Next
   If bytJd = 1 Then
      With pzOtherInfo
         .pzDf = 0
         If rsGl Is Nothing Then
            .pzHh = bytJd
         Else
            .pzHh = rsGl![inid]
         End If
         .pzJf = pzInfo.pMoney
         .pzLb = GetLb(left(pzInfo.pYwID, 2))
         .pzWbDf = 0
         .pzWbJf = pzInfo.pMoney
      End With
   ElseIf bytJd = 2 Then
      With pzOtherInfo
         .pzDf = pzInfo.pMoney
         If rsGl Is Nothing Then
            .pzHh = bytJd
         Else
            .pzHh = rsGl![inid]
         End If
         .pzJf = 0
         .pzLb = GetLb(left(pzInfo.pYwID, 2))
         .pzWbDf = pzInfo.pMoney
         .pzWbJf = 0
      End With
   Else
      With pzOtherInfo
         .pzDf = 0
         .pzHh = rsGl![inid]
         .pzJf = 0
         .pzLb = GetLb(left(pzInfo.pYwID, 2))
         .pzWbDf = 0
         .pzWbJf = 0
      End With
   End If
   Set rsVouchOther = dbsZJ.OpenRecordset(aClsPub.WbTableName)
   With rsVouchOther
      .AddNew
      !coutaccset = zjLogInfo.cAcc_Id
      !ioutyear = zjLogInfo.cIYear
      !coutsysname = "FD"
      !coutsysver = App.Major & "." & App.Minor & "." & App.Revision
      !doutbilldate = zjLogInfo.curDate
      !ioutperiod = zjLogInfo.iMonth
      !coutsign = pzOtherInfo.pzLb
      !coutno_id = pzInfo.pYwID
      !inid = pzOtherInfo.pzHh
      !doutdate = pzInfo.pDjrq
      '!coutbillsign =
      !coutid = pzInfo.pYwID
      '!idoc
      !cBill = zjLogInfo.cUserName
      '!ccashier
      '!iflag =
      !cDigest = IIf(pzInfo.pDigest = "", Null, pzInfo.pDigest)
      If pzInfo.pHl <> 1 Then
         !md = Format(pzOtherInfo.pzJf * pzInfo.pHl, "#0.00")
         !mc = Format(pzOtherInfo.pzDf * pzInfo.pHl, "#0.00")
         !md_f = pzOtherInfo.pzWbJf
         !mc_f = pzOtherInfo.pzWbDf
         !nFrat = pzInfo.pHl
      Else
         !md = pzOtherInfo.pzJf
         !mc = pzOtherInfo.pzDf
         !md_f = 0
         !mc_f = 0
         !nFrat = 0
      End If
      !nd_s = 0
      !nc_s = 0
      If Not rsGl Is Nothing Then
         !cCode = rsGl![cCode]
         !ccus_id = rsGl![ccus_id]
         !cdept_id = rsGl![cdept_id]
         !citem_class = rsGl![citem_class]
         !cItem_id = rsGl![cItem_id]
         !cperson_id = rsGl![cperson_id]
         !csup_id = rsGl![csup_id]
         !cSign = rsGl![cSign]
      End If
      '!csettle
      '!cn_id
      '!dt_date
      '!cname
      '!ccode_equal
      !bvouchedit = True
      !bvouchaddordele = True
      !bvouchmoneyhold = False
      !bvalueedit = True
      !bcodeedit = True
      !ccodecontrol = "#"
      !bPCSedit = True
      !bDeptedit = True
      !bItemedit = True
      !bCusSupInput = True
      .Update
   End With
   
End Sub

'***************************************************************
'函数： GetLb                                                  *
'功能： 单据编码转换名称                                         *
'参数： mID - 单据编码                                           *
'                                                               *
'返回： 单据名称                                                 *
'***************************************************************
Private Function GetLb(mID As String) As String
   Dim rsName As New UfRecordset
   Set rsName = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE [csign]='" & mID & "'", dbOpenSnapshot)
   GetLb = rsName![ctext]

End Function

Public Sub InitPz()
    On Error GoTo errHandle
    Set zClsPz = New clsPZ
    Set zClsPz.zzLogin = zjLogInfo
    Set zClsPz.zzSys = aClsPub
    Exit Sub
errHandle:
    Resume Next
End Sub

Private Sub zClsPz_Save(rstCurrentVouch As UfDbKit.UfRecordset, IsSuccess As Boolean)
   Dim rsvouch As New UfRecordset
   On Error GoTo lblExit
'   Set rsVouch = dbsZJ.OpenRecordset("FD_Vouch", 2)
   If rstCurrentVouch.RecordCount = 0 Then GoTo lblExit
   Set rsvouch = dbsZJ.OpenRecordset("Select * From FD_Vouch Where cBus_id='" + rstCurrentVouch!coutid + "'", 2) 'CuiDong Efficiency-A 2000/06/20 效率优化A
   With rsvouch
'''''      .Index = "PrimaryKey"
'      .FindFirst "cBus_id='" + rstCurrentVouch!coutid + "'"
'      If .NoMatch Then
      If .EOF Or .BOF Then
         .AddNew
      Else
         .Edit
      End If
      ![cAcc1_id] = pzInfo.pZhID1
      ![cAcc2_id] = pzInfo.pZhID2
      ![cBus_id] = pzInfo.pYwID
      ![iPeriod] = rstCurrentVouch![ioutperiod]
      ![cSign] = rstCurrentVouch![coutsign]
      ![cno_id] = rstCurrentVouch![coutno_id]
      ![dDate] = zjLogInfo.curDate
      '![inid]=
      .Update
   End With
   IsSuccess = True
   Exit Sub
lblExit:
   IsSuccess = False
   On Error GoTo 0
End Sub