sysjz.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 = "SysJz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Property Get Name() As String
   Name = "SysJz"
End Property

Public Sub Sys_Jz(vSysCpCw_NCwQjCode As String)

   If CStr(gPublicCommon.PublicSysDatas("SYSCPCW_SCWQJCODE").SysDataValue) = "" Then
      Err.Raise vbObjectError + 1, , "系统未启用，不能进行结账！"
      Exit Sub
   End If

   If CStr(vSysCpCw_NCwQjCode) = "" Then
      Err.Raise vbObjectError + 1, , "系统未定义下一财务月份，不能进行结账！"
      Exit Sub
   End If

On Error GoTo Errorhandle
   
   gDbCommon.Conn.BeginTrans
   gDbCommon.Conn.Execute "HWJCREC_JZ '" & CStr(gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue) & "','" & vSysCpCw_NCwQjCode & "'"
   gDbCommon.Conn.Execute "YSYFJCREC_JZ '" & CStr(gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue) & "','" & vSysCpCw_NCwQjCode & "'"
   gDbCommon.Conn.Execute "UPDATE SYSCPCWREC SET SYSCPCW_CCWQJNO=CWQJNO FROM CWQJREC WHERE CWQJCODE='" & vSysCpCw_NCwQjCode & "'"
   gDbCommon.Conn.CommitTrans

Exit Sub
Errorhandle:
   gDbCommon.Conn.RollbackTrans
   Err.Raise vbObjectError + 1, , gDbCommon.Conn.Errors(0)
End Sub

Public Sub Sys_FJz(vSysCpCw_PCwQjCode As String)

   If CStr(gPublicCommon.PublicSysDatas("SYSCPCW_SCWQJCODE").SysDataValue) = "" Then
      Err.Raise vbObjectError + 1, , "系统未启用，不能进行反结账！"
      Exit Sub
   End If

   If CStr(gPublicCommon.PublicSysDatas("SYSCPCW_SCWQJCODE").SysDataValue) = CStr(gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue) Then
      Err.Raise vbObjectError + 1, , "当前财务月份为系统启用财务月份，不能进行反结账！"
      Exit Sub
   End If

   If CStr(vSysCpCw_PCwQjCode) = "" Then
      Err.Raise vbObjectError + 1, , "系统无上一财务月份，不能进行结账！"
      Exit Sub
   End If
   
On Error GoTo Errorhandle
   
   gDbCommon.Conn.BeginTrans
   gDbCommon.Conn.Execute "HWJCREC_FJZ '" & CStr(gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue) & "','" & vSysCpCw_PCwQjCode & "'"
   gDbCommon.Conn.Execute "YSYFJCREC_FJZ '" & CStr(gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue) & "','" & vSysCpCw_PCwQjCode & "'"
   gDbCommon.Conn.Execute "UPDATE SYSCPCWREC SET SYSCPCW_CCWQJNO=CWQJNO FROM CWQJREC WHERE CWQJCODE='" & vSysCpCw_PCwQjCode & "'"
   gDbCommon.Conn.CommitTrans

Exit Sub
Errorhandle:
   gDbCommon.Conn.RollbackTrans
   Err.Raise vbObjectError + 1, , gDbCommon.Conn.Errors(0)
End Sub