English
+
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：38k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
- Begin VB.Form JZ_FrmHfjz
- Caption = "恢复记帐处理"
- ClientHeight = 8250
- ClientLeft = 480
- ClientTop = 525
- ClientWidth = 11325
- HelpContextID = 5001
- Icon = "记帐_恢复记帐.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- ScaleHeight = 8250
- ScaleWidth = 11325
- StartUpPosition = 1 '所有者中心
- Begin VB.PictureBox Pic_Title
- Height = 1155
- Left = 0
- Picture = "记帐_恢复记帐.frx":1042
- ScaleHeight = 1095
- ScaleWidth = 11535
- TabIndex = 0
- Top = 540
- Width = 11595
- Begin VB.Label Lab_TitleMess
- BackStyle = 0 'Transparent
- Caption = "(下面列表为当前记帐月所有已记帐凭证)"
- ForeColor = &H00000000&
- Height = 225
- Index = 1
- Left = 2850
- TabIndex = 9
- Top = 810
- Width = 4005
- End
- Begin VB.Label tsLabel
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "恢复记帐处理"
- BeginProperty Font
- Name = "宋体"
- Size = 14.25
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 330
- Index = 4
- Left = 690
- TabIndex = 3
- Top = 180
- Width = 2085
- End
- Begin VB.Label Lab_TitleMess
- BackStyle = 0 'Transparent
- Caption = "会计期间:"
- Height = 225
- Index = 0
- Left = 1140
- TabIndex = 2
- Top = 810
- Width = 915
- End
- Begin VB.Label Lab_TitleText
- BackStyle = 0 'Transparent
- ForeColor = &H00000000&
- Height = 225
- Left = 2100
- TabIndex = 1
- Top = 810
- Width = 675
- End
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 6705
- Left = 0
- TabIndex = 4
- Top = 1740
- Width = 11715
- _cx = 5080
- _cy = 5080
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = 16777215
- ForeColor = -2147483640
- BackColorFixed = 13826538
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= 16777215
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 50
- Cols = 10
- FixedRows = 1
- FixedCols = 1
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- AutoSearchDelay = 2
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0
- ShowComboButton = 1
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- DataMember = ""
- ComboSearch = 3
- AutoSizeMouse = -1 'True
- FrozenRows = 0
- FrozenCols = 0
- AllowUserFreezing= 0
- BackColorFrozen = 0
- ForeColorFrozen = 0
- WallPaperAlignment= 9
- AccessibleName = ""
- AccessibleDescription= ""
- AccessibleValue = ""
- AccessibleRole = 24
- Begin VB.Frame Fra_Book
- BackColor = &H00C0C0C0&
- Caption = "系统正在恢复记帐,请稍候..."
- ForeColor = &H00FF0000&
- Height = 1515
- Left = 1500
- TabIndex = 7
- Top = 1050
- Visible = 0 'False
- Width = 8025
- Begin MSComctlLib.ProgressBar Prg_Book
- Height = 285
- Left = 30
- TabIndex = 8
- Top = 1020
- Width = 7965
- _ExtentX = 14049
- _ExtentY = 503
- _Version = 393216
- BorderStyle = 1
- Appearance = 1
- End
- Begin VB.Label Lab_Ccode
- BackColor = &H00C0C0C0&
- ForeColor = &H00FF0000&
- Height = 255
- Left = 3600
- TabIndex = 11
- Top = 600
- Width = 2175
- End
- Begin VB.Label Label1
- BackColor = &H00C0C0C0&
- Caption = "正在恢复记帐科目"
- Height = 255
- Left = 1920
- TabIndex = 10
- Top = 600
- Width = 1575
- End
- End
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 5
- Top = 0
- Width = 11325
- _ExtentX = 19976
- _ExtentY = 979
- ButtonWidth = 820
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 8
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "ymsz"
- ImageKey = "sz"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageKey = "yl"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "恢复"
- Key = "hf"
- ImageKey = "hf"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.ImageList ImageList1
- Left = 5400
- Top = 60
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 30
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":35106
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":354A0
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3583A
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":35BD4
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":35F6E
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":36308
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":366A2
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":36A3C
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":36DD6
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":37170
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3750A
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":378A4
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":37C3E
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":37FD8
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":38372
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3870C
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":38AA6
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":38E40
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":391DA
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":39574
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3990E
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":39CA8
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3A042
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3A3DC
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3A776
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3AB10
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3AEAA
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3B244
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3B5DE
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "记帐_恢复记帐.frx":3B978
- Key = "hf"
- EndProperty
- EndProperty
- End
- Begin VB.Timer Timer1
- Interval = 1
- Left = 5940
- Top = 120
- End
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 525
- Left = 8820
- TabIndex = 6
- Top = 0
- Width = 2475
- _ExtentX = 4366
- _ExtentY = 926
- ButtonWidth = 1455
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 3
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageKey = "bcgs"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageKey = "mrlk"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "显示项目"
- Key = "szxsxm"
- ImageKey = "xsxm"
- EndProperty
- EndProperty
- End
- End
- End
- Attribute VB_Name = "JZ_FrmHfjz"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '******************************************************************
- '* 模 块 名 称 :恢复记帐处理
- '* 功 能 描 述 :完成对已记帐的凭证的恢复
- '* 程序员姓名 :张建忠
- '* 最后修改人 :张建忠
- '* 最后修改时间:2000/03/09
- '* 备 注:由于凭证恢复过程复杂,本程序没有使用存储过程,因此
- '* 恢复速度较慢,有待于以后改进
- '******************************************************************
- Dim ReportTitle As String '报表主标题
- Dim Int_CodeScheme() As Integer '会计科目编码方案
- Dim Int_CodeLev As Integer '会计科目编码级数
- '以下为固定使用变量
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim GridCode As String '显示网格网格代码
- Dim GridInf() As Variant '整个网格设置信息
- Dim Tsxx As String '系统提示信息
- Dim Qslz As Long '网格隐藏(非操作显示)列数
- Dim Sjhgd As Double '网格数据行高度
- Dim Sfxshjwg As Boolean '是否显示合计网格
- Dim GridBoolean() As Boolean '网格列信息(布尔型)
- Dim GridStr() As String '网格列信息(字符型)
- Dim GridInt() As Integer '网格列信息(整型)
- Dim Szzls As Integer '数组总列数(网格列数-1)
- Dim Int_DqYear As Integer '系统当前会计年度
- Dim Int_DqPeriod As Integer '系统当前会计期间
- Private Sub Form_Resize() '根据窗体大小来调整网格,标题栏大小
- On Error Resume Next
- With CxbbGrid
- .Width = Me.Width - 160
- .Height = Me.Height - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- GsToolbar.Left = Me.Width - GsToolbar.Width - 140
- End Sub
- Private Sub Form_Load() '窗体装入
- '调入打印页面设置窗体
- XtReportCode = "Cwzz_hfjz"
- Load Dyymctbl
- ReportTitle = "记帐凭证列表"
- '调整标题栏及网格、格式工具条位置
- Pic_Title.Left = 40
- Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
- CxbbGrid.Left = Pic_Title.Left
- CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
- '调 入 网 格
- GridCode = "Cwzz_hfjz"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- '读入科目编码方案
- Call Sub_CodeScheme("Cwzz_kmcode", Int_CodeLev, Int_CodeScheme())
- '调整标题位置
- SetTitlePos tsLabel(4)
- End Sub
- Private Sub Form_Unload(Cancel As Integer) '窗体卸载
- '卸载条件窗体
- PZ_FrmPzcxtj.UnloadCheck.Value = 1
- Unload PZ_FrmPzcxtj
- '卸载打印页面设置窗体
- Unload Dyymctbl
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '网格格式调整
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(CxbbGrid, GridCode, GridStr)
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(CxbbGrid, GridCode, GridStr)
- Case "szxsxm" '设置显示项目
- Call Szxsxm(CxbbGrid, GridCode)
- End Select
- End Sub
- Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "ymsz" '页面设置
- Dyymctbl.Show 1
- Case "yl" '预 览
- Call bbyl(True)
- Case "dy" '打 印
- Call bbyl(False)
- Case "hf" '恢 复
- Call Sun_AbandonBook
- Case "sx" '刷 新
- Call Timer1_Timer
- Case "bz" '帮 助
- Call F1bz
- Case "fh" '退 出
- Unload Me
- End Select
- End Sub
- Private Sub Timer1_Timer() '在窗体激活后调入查询程序
- Timer1.Enabled = False
- CxbbGrid.Redraw = True
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query
- CxbbGrid.Redraw = True
- End Sub
- Private Sub Sub_Query() '生成查询结果
- Dim Rec_Query As New ADODB.Recordset '查询结果动态集
- Dim RecTemp As New ADODB.Recordset '临时使用动态集
- Dim Str_QueryCondi As String '用户录入查询条件
- Dim Sqlstr As String '查询字符串
- Dim Coljsq As Long '网格列计数器
- Dim Jsqte As Long '临时动态计数器
- Dim Int_LevTe As Integer '编码级数计数器
- Dim Str_Parent As String '上级科目号
- Dim DD As String
- '以下为用户自定义部分[
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select * From Gy_kjrlb where cwzzjzbz='0' order by kjyear,period")
- If Not RecTemp.EOF Then
- Int_DqYear = RecTemp.Fields("KjYear")
- Int_DqPeriod = RecTemp.Fields("period")
- Lab_TitleText.Caption = Mid(Trim(Str(10000 + Int_DqYear)), 2, 4) + "." + Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
- End If
- '筛选所有当前会计期间已记帐凭证
- Sqlstr = "SELECT A.*,Cwzz_AccVouchMain.Ddate,Cwzz_AccVouchMain.VouchClassCode, Cwzz_AccVouchMain.VouchNo,Cwzz_AccVouchMain.Bill, Cwzz_AccVouchMain.Checker,Cwzz_AccVouchMain.Book" & _
- " FROM (SELECT VouchID, SUM(jfje) Jfjehj, SUM(Dfje) Dfjehj From Cwzz_V_AccVouch WHERE BookFlag=1 and Year =" & Int_DqYear & " AND Period = " & Int_DqPeriod & _
- " GROUP BY VouchID) A LEFT OUTER JOIN " & _
- " Cwzz_AccVouchMain ON A.VouchID = Cwzz_AccVouchMain.VouchId Order by VouchClassCode,VouchNo"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With Rec_Query
- CxbbGrid.Rows = CxbbGrid.FixedRows
- CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
- Jsqte = CxbbGrid.FixedRows
- Do While Not .EOF
- If Jsqte >= CxbbGrid.Rows Then
- CxbbGrid.AddItem ""
- End If
- CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("VouchID") '凭证ID
- CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = .Fields("Ddate") '制单日期
- CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") + "-" + Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4) '凭证字号
- If .Fields("Jfjehj") <> 0 Then '借方金额合计
- CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Str(.Fields("Jfjehj")))
- End If
- If .Fields("Dfjehj") <> 0 Then '贷方金额合计
- CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Str(.Fields("Dfjehj")))
- End If
- CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Bill") & "") '制单人
- CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("Book") & "") '记帐人
- CxbbGrid.RowHeight(Jsqte) = Sjhgd
- Jsqte = Jsqte + 1
- .MoveNext
- Loop
- End With
- ']以上为用户自定义部分
- End Sub
- Private Sub Sun_AbandonBook() '恢复记帐处理
- Dim Lng_Rowjsq As Long '网格行值计数器
- Dim Int_VouchJsq As Integer '记帐凭证张数计数器
- Dim Int_LevTe As Integer '编码级数计数器
- Dim Str_Parent As String '上级科目号
- Dim Yhanswer As Integer '回答是否确认
- Dim Sqlstr As String '查询字符串
- Dim RecTemp As New ADODB.Recordset '临时使用动态集
- Dim Rec_AccSum As New ADODB.Recordset '科目总帐动态集
- Dim Rec_AccSumAssi As New ADODB.Recordset '科目辅助帐动态集
- Dim Int_PeriodTe As Integer '临时会计期间变量
- '用户确认是否开始恢复记帐
- Tsxx = "请确认是否开始恢复记帐?"
- Yhanswer = Xtxxts(Tsxx, 2, 2)
- If Yhanswer = 2 Then
- Exit Sub
- End If
- '打开科目总帐动态集
- With Rec_AccSum
- If .State = 1 Then .Close
- .Open "SELECT Cwzz_AccSum.* From Cwzz_AccSum WHERE Year =" & Int_DqYear & " AND Period = " & Int_DqPeriod, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- End With
- '恢复记帐主要处理过程
- '筛选符合条件记录并汇总
- Sqlstr = "SELECT Ccode, PersonCode,DeptCode,CusCode,SupplierCode,ItemClassCode,ItemCode,SUM(Wbjfje) AS WbjfjeHj, SUM(Wbdfje) AS Wbdfjehj, SUM(Jfje) AS Jfjehj," & _
- " SUM(Dfje) AS Dfjehj, SUM(Jfsl) AS Jfslhj, SUM(Dfsl) AS Dfslhj,Sum(ItemJfsl) AS ItemJfslhj,Sum(ItemDfsl) AS ItemDfslhj" & _
- " From Cwzz_V_AccVouch " & _
- " Where Year = " & Int_DqYear & " And Period = " & Int_DqPeriod & " AND bookflag = 1 " & _
- " GROUP BY Ccode,PersonCode,DeptCode,CusCode,SupplierCode,ItemClassCode,ItemCode ORDER BY Ccode"
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- If RecTemp.EOF Then
- Tsxx = "无符合条件恢复记帐记录!"
- Call Xtxxts(Tsxx, 0, 4)
- Exit Sub
- End If
- '初始化进度情况
- Prg_Book.Max = RecTemp.RecordCount
- Prg_Book.Min = 0
- Prg_Book.Value = 0
- Fra_Book.Visible = True
- Fra_Book.Refresh
- '开始恢复
- On Error GoTo Swcwcl
- Cw_DataEnvi.DataConnect.BeginTrans
- Do While Not RecTemp.EOF
- '显示恢复科目
- Lab_Ccode.Caption = Trim(RecTemp.Fields("Ccode")) & "--" & Str(Prg_Book.Value)
- Lab_Ccode.Refresh
- '1.恢复总帐(注意需要对其上级科目恢复)
- Int_LevTe = 1
- Do While True
- Str_Parent = Trim(Mid(Trim(RecTemp.Fields("Ccode")), 1, Int_CodeScheme(Int_LevTe)))
- With Rec_AccSum
- If Not (.EOF And .BOF) Then
- .MoveFirst
- End If
- '判断恢复科目是否存在
- .Find "Ccode ='" & Str_Parent & "'"
- If Not Rec_AccSum.EOF Then
- .Fields("Mjje") = .Fields("Mjje") - RecTemp.Fields("Jfjehj") '本月借方金额合计
- .Fields("Mdje") = .Fields("Mdje") - RecTemp.Fields("Dfjehj") '本月贷方金额合计
- .Fields("Byjfljje") = .Fields("Byjfljje") - RecTemp.Fields("Jfjehj") '本年借方金额累计
- .Fields("Bydfljje") = .Fields("Bydfljje") - RecTemp.Fields("Dfjehj") '本月贷方金额累计
- .Fields("Qmye") = .Fields("Qcye") + .Fields("Mjje") - .Fields("Mdje") '本月期末余额
- '只有末级科目才进行数量及外币累加
- If Str_Parent = Trim(RecTemp.Fields("Ccode")) Then
- .Fields("Mjsl") = .Fields("Mjsl") - RecTemp.Fields("Jfslhj") - 0 '本月借方数量合计
- .Fields("Mdsl") = .Fields("Mdsl") - RecTemp.Fields("Dfslhj") - 0 '本月贷方数量合计
- .Fields("Byjfljsl") = .Fields("Byjfljsl") - RecTemp.Fields("Jfslhj") - 0 '本年借方数量累计
- .Fields("Bydfljsl") = .Fields("Bydfljsl") - RecTemp.Fields("Dfslhj") - 0 '本月贷方数量累计
- .Fields("Qmsl") = .Fields("Qcsl") + .Fields("Mjsl") - .Fields("Mdsl") + 0 '本月数量余额
- .Fields("Mjwb") = .Fields("Mjwb") - RecTemp.Fields("Wbjfjehj") '本月借方外币合计
- .Fields("Mdwb") = .Fields("Mdwb") - RecTemp.Fields("Wbdfjehj") '本月贷方外币合计
- .Fields("Byjfljwb") = .Fields("Byjfljwb") - RecTemp.Fields("Wbjfjehj") '本年借方外币累计
- .Fields("Bydfljwb") = .Fields("Bydfljwb") - RecTemp.Fields("Wbdfjehj") '本月贷方外币累计
- .Fields("Qmwb") = .Fields("Qcwb") + .Fields("Mjwb") - .Fields("Mdwb") '本月外币余额
- End If
- .Update
- Sqlstr = "Update Cwzz_AccSum Set Qcye=" & .Fields("Qmye") & ",Byjfljje=" & .Fields("Byjfljje") & ",Bydfljje=" & .Fields("Bydfljje") & ",Qmye=" & .Fields("Qmye") & _
- ",Qcsl=" & .Fields("Qmsl") + 0 & ",Byjfljsl=" & .Fields("Byjfljsl") + 0 & ",Bydfljsl=" & .Fields("Bydfljsl") + 0 & ",Qmsl=" & .Fields("Qmsl") + 0 & _
- ",Qcwb=" & .Fields("Qmwb") + 0 & ",Byjfljwb=" & .Fields("Byjfljwb") + 0 & ",Bydfljwb=" & .Fields("Bydfljwb") + 0 & ",Qmwb=" & .Fields("Qmwb") + 0 & _
- " Where Ccode='" & Str_Parent & "' And Year=" & Int_DqYear & " And Period > " & Int_DqPeriod
- Cw_DataEnvi.DataConnect.Execute (Sqlstr)
- End If
- End With
- If Str_Parent = Trim(RecTemp.Fields("Ccode")) Then
- Exit Do
- End If
- Int_LevTe = Int_LevTe + 1
- Loop
- '2.恢复辅助帐
- With Rec_AccSumAssi
- '2.1 如果有辅助项不为空则恢复辅助帐
- If Trim(RecTemp.Fields("DeptCode") & "") <> "" Or Trim(RecTemp.Fields("PersonCode") & "") <> "" Or Trim(RecTemp.Fields("CusCode") & "") <> "" Or Trim(RecTemp.Fields("SupplierCode") & "") <> "" Or Trim(RecTemp.Fields("ItemClassCode") & "") <> "" Or Trim(RecTemp.Fields("ItemCode") & "") <> "" Then
- If .State = 1 Then .Close
- Sqlstr = "SELECT Cwzz_AccSumAssi.* From Cwzz_AccSumAssi WHERE Year =" & Int_DqYear & " AND Period = " & Int_DqPeriod & " And Ccode ='" & Trim(RecTemp.Fields("Ccode")) & "'" & _
- " And DeptCode='" & Trim(RecTemp.Fields("DeptCode")) & "' And PersonCode='" & Trim(RecTemp.Fields("PersonCode")) & "' And CusCode='" & Trim(RecTemp.Fields("CusCode")) & "'" & _
- " And SupplierCode='" & Trim(RecTemp.Fields("SupplierCode")) & "' And ItemClassCode='" & Trim(RecTemp.Fields("ItemClassCode")) & "' And ItemCode='" & Trim(RecTemp.Fields("ItemCode")) & "'"
- .Open Sqlstr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- If Not Rec_AccSumAssi.EOF Then
- .Fields("Mjje") = .Fields("Mjje") - RecTemp.Fields("Jfjehj") '本月借方金额合计
- .Fields("Mdje") = .Fields("Mdje") - RecTemp.Fields("Dfjehj") '本月贷方金额合计
- .Fields("Byjfljje") = .Fields("Byjfljje") - RecTemp.Fields("Jfjehj") '本年借方金额累计
- .Fields("Bydfljje") = .Fields("Bydfljje") - RecTemp.Fields("Dfjehj") '本月贷方金额累计
- .Fields("Qmye") = .Fields("Qcye") + .Fields("Mjje") - .Fields("Mdje") '本月期末余额
- .Fields("Mjsl") = .Fields("Mjsl") - RecTemp.Fields("Jfslhj") '本月借方数量合计
- .Fields("Mdsl") = .Fields("Mdsl") - RecTemp.Fields("Dfslhj") '本月贷方数量合计
- .Fields("Byjfljsl") = .Fields("Byjfljsl") - RecTemp.Fields("Jfslhj") '本年借方数量累计
- .Fields("Bydfljsl") = .Fields("Bydfljsl") - RecTemp.Fields("Dfslhj") '本月贷方数量累计
- .Fields("Qmsl") = .Fields("Qcsl") + .Fields("Mjsl") - .Fields("Mdsl") '本月数量余额
- .Fields("Mjwb") = .Fields("Mjwb") - RecTemp.Fields("Wbjfjehj") '本月借方外币合计
- .Fields("Mdwb") = .Fields("Mdwb") - RecTemp.Fields("Wbdfjehj") '本月贷方外币合计
- .Fields("Byjfljwb") = .Fields("Byjfljwb") - RecTemp.Fields("Wbjfjehj") '本年借方外币累计
- .Fields("Bydfljwb") = .Fields("Bydfljwb") - RecTemp.Fields("Wbdfjehj") '本月贷方外币累计
- .Fields("Qmwb") = .Fields("Qcwb") + .Fields("Mjwb") - .Fields("Mdwb") '本月外币余额
- .Fields("ItemMjsl") = .Fields("ItemMjsl") - RecTemp.Fields("ItemJfslhj") '本月借方项目数量合计
- .Fields("ItemMdsl") = .Fields("ItemMdsl") - RecTemp.Fields("ItemDfslhj") '本月贷方项目数量合计
- .Fields("ItemByljjfsl") = .Fields("ItemByljjfsl") - RecTemp.Fields("ItemJfslhj") '本年借方项目数量累计
- .Fields("ItemByljdfsl") = .Fields("ItemByljdfsl") - RecTemp.Fields("ItemDfslhj") '本月贷方外币累计
- .Fields("QmItemsl") = .Fields("QcItemsl") + .Fields("ItemMjsl") - .Fields("ItemMdsl") '本月项目数量余额
- .Update
- Sqlstr = "Update Cwzz_AccSumAssi Set Qcye=" & .Fields("Qmye") & ",Byjfljje=" & .Fields("Byjfljje") & ",Bydfljje=" & .Fields("Bydfljje") & ",Qmye=" & .Fields("Qmye") & _
- ",Qcsl=" & .Fields("Qmsl") + 0 & ",Byjfljsl=" & .Fields("Byjfljsl") + 0 & ",Bydfljsl=" & .Fields("Bydfljsl") + 0 & ",Qmsl=" & .Fields("Qmsl") + 0 & _
- ",Qcwb=" & .Fields("Qmwb") + 0 & ",Byjfljwb=" & .Fields("Byjfljwb") + 0 & ",Bydfljwb=" & .Fields("Bydfljwb") + 0 & ",Qmwb=" & .Fields("Qmwb") + 0 & _
- ",QcItemsl=" & .Fields("QmItemsl") & ",ItemByljjfsl=" & .Fields("ItemByljjfsl") & ",ItemByLjdfsl=" & .Fields("ItemByLjdfsl") & ",QmItemsl=" & .Fields("QmItemsl") & _
- " Where Ccode='" & Trim(RecTemp.Fields("Ccode")) & "' And DeptCode='" & Trim(RecTemp.Fields("DeptCode") & "") & "' And PersonCode='" & Trim(RecTemp.Fields("PersonCode") & "") & "' And CusCode='" & Trim(RecTemp.Fields("CusCode") & "") & "'" & _
- " And SupplierCode='" & Trim(RecTemp.Fields("SupplierCode") & "") & "' And ItemClassCode='" & Trim(RecTemp.Fields("ItemClassCode") & "") & "' And ItemCode='" & Trim(RecTemp.Fields("ItemCode") & "") & "'" & _
- " And Year=" & Int_DqYear & " And Period > " & Int_DqPeriod
- Cw_DataEnvi.DataConnect.Execute (Sqlstr)
- End If
- End If
- End With 'Rec_AccSumAssi
- '指针移动到下一条记录
- RecTemp.MoveNext
- Prg_Book.Value = Prg_Book.Value + 1
- Loop
- '恢复凭证明细记录写恢复标识
- Sqlstr = "Update Cwzz_AccVouchMain Set BookFlag=0,Book='' WHERE Year = " & Int_DqYear & " And Period = " & Int_DqPeriod & " And bookflag = 1 "
- Cw_DataEnvi.DataConnect.Execute (Sqlstr)
- Cw_DataEnvi.DataConnect.CommitTrans
- '隐藏进度显示
- Fra_Book.Visible = False
- Tsxx = "恢 复 完 毕!"
- Call Xtxxts(Tsxx, 0, 4)
- Unload Me
- Exit Sub
- Swcwcl:
- Cw_DataEnvi.DataConnect.RollbackTrans
- Tsxx = "恢复过程中出现未知错误,程序自动恢复此前状态!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End Sub
- Private Sub bbyl(bbylte As Boolean) '报表打印预览
- Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
- Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
- Bbxbtgs = 1 '报 表 小 标 题 行 数
- Bbbwhgs = 0 '报 表 表 尾 行 数
- ReDim Bbxbt(1 To Bbxbtgs)
- ReDim bbxbtzzxs(1 To Bbxbtgs)
- If Bbbwhgs <> 0 Then
- ReDim Bbbwh(1 To Bbbwhgs)
- ReDim Bbbwhzzxs(1 To Bbbwhgs)
- End If
- Bbzbt = ReportTitle
- Bbxbt(1) = " "
- bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
- Call Scyxsjb(CxbbGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub
