📄
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Begin VB.Form CL_EndDispose
BorderStyle = 3 'Fixed Dialog
Caption = "期末处理"
ClientHeight = 4980
ClientLeft = 45
ClientTop = 330
ClientWidth = 6060
HelpContextID = 130406
Icon = "处理_期末处理.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 6060
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Com_Qx
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 4800
TabIndex = 10
Top = 4560
Width = 1120
End
Begin TabDlg.SSTab SSTab
Height = 4035
Left = 90
TabIndex = 0
Top = 405
Width = 5865
_ExtentX = 10345
_ExtentY = 7117
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "未处理仓库列表"
TabPicture(0) = "处理_期末处理.frx":1042
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Com_Qbfd(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Com_Qbxz(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Lst_Cklb(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Com_AvgPrice"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Com_Qd"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).ControlCount= 5
TabCaption(1) = "已处理仓库列表"
TabPicture(1) = "处理_期末处理.frx":105E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Com_Hfqmcl"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Com_Qbfd(1)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Com_Qbxz(1)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Lst_Cklb(1)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
Begin VB.CommandButton Com_Qd
Caption = "期末处理(&D)"
Height = 300
Left = 4410
TabIndex = 9
Top = 3600
Width = 1290
End
Begin VB.CommandButton Com_AvgPrice
Caption = "全月平均单价调整"
Height = 300
Left = 120
TabIndex = 8
Top = 3600
Width = 1695
End
Begin VB.ListBox Lst_Cklb
Height = 2985
Index = 0
Left = 120
Style = 1 'Checkbox
TabIndex = 7
Top = 450
Width = 5580
End
Begin VB.CommandButton Com_Qbxz
Caption = "全选(&A)"
Height = 300
Index = 0
Left = 3180
TabIndex = 6
Top = 3600
Width = 1120
End
Begin VB.CommandButton Com_Qbfd
Caption = "全清(&L)"
Height = 300
Index = 0
Left = 1950
TabIndex = 5
Top = 3600
Width = 1120
End
Begin VB.ListBox Lst_Cklb
Height = 2985
Index = 1
Left = -74880
Style = 1 'Checkbox
TabIndex = 4
Top = 450
Width = 5580
End
Begin VB.CommandButton Com_Qbxz
Caption = "全选(&A)"
Height = 300
Index = 1
Left = -72150
TabIndex = 3
Top = 3570
Width = 1120
End
Begin VB.CommandButton Com_Qbfd
Caption = "全清(&L)"
Height = 300
Index = 1
Left = -73380
TabIndex = 2
Top = 3570
Width = 1120
End
Begin VB.CommandButton Com_Hfqmcl
Caption = "恢复期末处理(&U)"
Height = 300
Left = -70920
TabIndex = 1
Top = 3570
Width = 1620
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数据正在处理中......"
ForeColor = &H000000FF&
Height = 240
Left = 180
TabIndex = 13
Top = 4590
Visible = 0 'False
Width = 1800
End
Begin VB.Label Lbl_labText
AutoSize = -1 'True
Caption = "Label1"
Height = 210
Left = 1110
TabIndex = 12
Top = 90
Width = 1830
End
Begin VB.Label Lbl_labTitle
AutoSize = -1 'True
Caption = "会计期间:"
Height = 210
Left = 180
TabIndex = 11
Top = 90
Width = 810
End
End
Attribute VB_Name = "CL_EndDispose"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :期末处理
'* 功 能 描 述 :
'* 程序员姓名 :杨波
'* 最后修改人 :杨波
'* 最后修改时间:2001/12/10
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Dim PlanQuery_Cond As String '计划价限制条件
Dim MoveQuery_Cond As String '移动平均限制条件
Dim AvgQuery_Cond As String '全月平均限制条件
Dim Query_Cond As String '全部限制条件
Dim WH_code() As String '仓库编码
Dim Wh_Pricemode() As String '仓库计价方法
Dim WH_codefz() As String '已期末处理仓库编码
Dim Wh_Pricemodefz() As String '已期末处理仓库计价方法
Dim CallFlag As Boolean '调用标记
Dim Tsxx As String '提示信息
Dim Jsqte% '计数器
Dim RecCount As Integer '记录数
Private Sub Com_AvgPrice_Click() '全月平均单价调整
On Error GoTo Error
'有效性判断
If Not Yxxpd Then Exit Sub
'无全月平均仓库不进行计算
If AvgQuery_Cond = "(1=0)" Then
Tsxx = "无采用全月平均法计价的仓库!"
Call Xtxxts(Tsxx, 0, 4)
Label1.Visible = False
Exit Sub
End If
Label1.Visible = True
Label1.Refresh
'系统处理暂估
If Xtsfclzg Then
Call Djzgcl '暂估处理
Call Tzzg '调整总帐
End If
'计算全月平均单价
CallFlag = True
If PdAvgprice Then
Label1.Visible = False
If Tsxx = "采用全月平均法核算的仓库本月无出库!" Then
Call Xtxxts(Tsxx, 0, 4)
Exit Sub
End If
'平均单价小于等于零时，显示修改平均单价
Edit_Flag = False
Load CL_MonthAveragePrice
CL_MonthAveragePrice.Query_Cond = AvgQuery_Cond
CL_MonthAveragePrice.Show 1
If Edit_Flag Then
Tsxx = "全月平均单价计算完毕,已保存!"
Else
Tsxx = "全月平均单价计算完毕,未保存!"
End If
Call Xtxxts(Tsxx, 0, 3)
Else
Label1.Visible = False
Tsxx = "无符合条件的记录!"
Call Xtxxts(Tsxx, 0, 4)
End If
Exit Sub
Error:
Tsxx = "数据发生冲突,稍候再试!"
Call Xtxxts(Tsxx, 0, 1)
End Sub
Private Sub Com_Hfqmcl_Click() '恢复期末处理
Dim Rectemp As New ADODB.Recordset
Dim RecTempFz As New ADODB.Recordset
Dim Now_period As Long
Dim Msg As Integer
Dim SqlStr As String
On Error GoTo Error
'操作日期
If Month(Xtrq) <> PGNowmon Then
Tsxx = "操作日期不在当前会计期间(" + Trim(Str(PGKjYear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
Call Xtxxts(Tsxx, 0, 1)
Exit Sub
End If
'至少选中一个仓库
If Lst_Cklb(1).SelCount = 0 Then
Tsxx = "至少选中一个仓库"
Call Xtxxts(Tsxx, 0, 1)
Exit Sub
End If
'限定条件
Query_Cond = "1=0"
AvgQuery_Cond = "1=0"
PlanQuery_Cond = "1=0"
MoveQuery_Cond = "1=0"
For Jsqte = 0 To Lst_Cklb(0).ListCount - 1
If Lst_Cklb(0).Selected(Jsqte) = True Then
Select Case Wh_Pricemode(Jsqte)
Case "计划价法"
PlanQuery_Cond = PlanQuery_Cond + " or view.WhCode='" & WH_codefz(Jsqte) & "'"
Case "全月平均法"
AvgQuery_Cond = AvgQuery_Cond + " or view.WhCode='" & WH_codefz(Jsqte) & "'"
Case "移动平均法"
MoveQuery_Cond = MoveQuery_Cond + " or view.WhCode='" & WH_codefz(Jsqte) & "'"
End Select
Query_Cond = Query_Cond + " or view.WhCode='" & WH_codefz(Jsqte) & "'"
End If
Next Jsqte
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -