📄
字号:
Else
For Jsqte = Max_Text_Index To 0 Step -1
LrText(Jsqte).Enabled = False
Next Jsqte
End If
End Sub
Private Sub Sub_CheckStatus() '设置审核弃审按钮状态(亦可设置其他动作按钮状态)
'根据当前单据状态来确定审核弃审按钮状态
If Trim(LrText(8).Text) = "" And Trim(LrText(9).Text) = "" Then
Tlb_Action.Buttons("shsh").Enabled = True '审核
Else
Tlb_Action.Buttons("shsh").Enabled = False '审核
End If
If Trim(LrText(8).Text) = "" And Trim(LrText(9).Text) <> "" Then
Tlb_Action.Buttons("shqs").Enabled = True '弃审
Else
Tlb_Action.Buttons("shqs").Enabled = False '弃审
End If
If Trim(LrText(10).Text) = "" Then
Tlb_Action.Buttons("shsh").Enabled = False '审核
Tlb_Action.Buttons("shqs").Enabled = False '弃审
End If
End Sub
Private Sub Wbkcl() '文本框录入之前处理(根据实际情况)
Dim xswbrr As String
With WglrGrid
Zdlrqnr = Trim(.Text)
xswbrr = Trim(.Text)
If GridBoolean(.Col, 3) Then '列表框录入
'填充列表框程序
Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
Else
Wbkbhlock = True
'====以下为用户自定义
Ydtext.Text = xswbrr
'====以上为用户自定义
Wbkbhlock = False
Ydtext.SelStart = Len(Ydtext.Text)
End If
End With
End Sub
Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long) As Boolean '录入数据字段有效性判断,同时进行字段录入事后处理
'函数参数:Dqpdwgh, Dqpdwgl 当前要判断网格单元所处行列值
Dim Str_JudgeText As String '临时有效性判断字段内容
Dim Coljsq As Long '临时列计数器
Dim Rectemp As New ADODB.Recordset '临时使用动态集
Dim SqlStr As String '临时使用查询字符串
With WglrGrid
'非录入状态或非数据行则其有效性为合法
If Yxxpdlock Or .Row < .FixedRows Then
sjzdyxxpd = True
Exit Function
End If
'取得当前要判断字段内容
Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
'根据不同字段进行相应的处理(依据其逻辑编号)
Select Case GridStr(Dqpdwgl, 1)
'[>>以下为自定义部分
Case "001" '存货编码
If Not Trim(Str_JudgeText) = "" Then
'1.放置字段有效性判断
SqlStr = "SELECT mnumber,mName,Model,primaryunitname,planprice From Gy_Material Where mnumber='" & Str_JudgeText & "' "
Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
If Rectemp.EOF Then
Tsxx = "此存货编码不存在!"
GoTo Lrcwcl
End If
'2.放置字段事后处理程序
.TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(Rectemp.Fields("Mnumber") & "") '显示存货编码
.TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = Trim(Rectemp.Fields("Mname") & "") '显示存货名称
.TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = Trim(Rectemp.Fields("Model") & "") '显示存货规格型号
.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Rectemp.Fields("Primaryunitname" & "") '计量单位
.TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = Rectemp.Fields("planprice") '计划单价
'根据公式计算结果
Call Sub_JoinCount(Dqpdwgh, Sydz("007", GridStr(), Szzls)) '计划金额
Else
'3.清空相关字段
.TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = "" '存货名称
.TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = "" '存货规格型号
.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = "" '存货规格型号
.TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = "" '存货规格型号
.TextMatrix(Dqpdwgh, Sydz("007", GridStr(), Szzls)) = "" '存货规格型号
End If
Case "005" '数量
'1.放置字段有效性判断
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("007", GridStr(), Szzls)) '计划金额(根据公式计算结果)
Call Sub_JoinCount(Dqpdwgh, Sydz("005", GridStr(), Szzls)) '实际金额(根据公式计算结果)
Case "008" '实际单价
'1.放置字段有效性判断
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("009", GridStr(), Szzls)) '实际金额(根据公式计算结果)
Case "009" '金额
'1.放置字段有效性判断
'2.放置字段事后处理程序
Call Sub_JoinCount(Dqpdwgh, Sydz("008", GridStr(), Szzls)) '实际金额(根据公式计算结果)
'<<以上为自定义部分]
End Select
'字段录入正确后为零字段清空(Fixed)
Call Qkwlzd(Dqpdwgh, Dqpdwgl)
'字段录入正确后进行数据合计(Fixed)
For Coljsq = Qslz To .Cols - 1
Call Sjhj(Coljsq)
Next Coljsq
'字段有效性判断通过,将字段有效性判断加锁直至再次改变(Fixed)
sjzdyxxpd = True
Yxxpdlock = True
Exit Function
End With
Lrcwcl: '录入错误处理
With WglrGrid
'给出错误提示信息
Call Xtxxts(Tsxx, 0, 1)
'返回网格错误位置(ChangeLock避免再次引发RowColChange有效性判断),装入录入载体
Changelock = True
.Select Dqpdwgh, Dqpdwgl
Changelock = False
Call xswbk
'函数返回False
sjzdyxxpd = False
Exit Function
End With
End Function
Private Sub Sub_JoinCount(Lng_CountRow As Long, Lng_CountCol As Long) '当网格列值发生改变时,处理网格列之间的关联计算(可选)
'过程参数:Lng_CountRow,Lng_CountCol 网格改变内容所处行列值
With WglrGrid
Select Case GridStr(Lng_CountCol, 1) '判断网格列对应逻辑编号
'[>>以下为自定义部分
Case "007" '计划单价改变
'计算公式:计划单价*数量=计划金额
If Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("007", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("006", GridStr(), Szzls))), "###0." + String(Xtslxsws, "0"))
Else
.TextMatrix(Lng_CountRow, Sydz("007", GridStr(), Szzls)) = ""
End If
Case "005" '数量改变
'计算公式:实际单价=实际金额\数量
If Val(.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls))) <> 0 And Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls))) / Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))), "##0." + String(Xtjexsws, "0"))
Else
.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls)) = ""
End If
Case "009" '实际单价改变
'计算公式:实际金额=实际单价*数量
If Val(.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls))) <> 0 And Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls))) * Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))), "##0." + String(Xtjexsws, "0"))
Else
.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls)) = ""
End If
Case "008" '金额改变
'计算公式:实际金额/数量=实际单价
If Val(.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls))) <> 0 And Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))) <> 0 Then
.TextMatrix(Lng_CountRow, Sydz("008", GridStr(), Szzls)) = Format(Val(.TextMatrix(Lng_CountRow, Sydz("009", GridStr(), Szzls))) / Val(.TextMatrix(Lng_CountRow, Sydz("005", GridStr(), Szzls))), "###0." + String(Xtdjxsws, "0"))
End If
'<<以上为自定义部分]
End Select
End With
End Sub
Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean '录入数据行有效性判断,同时进行行处理
'函数参数:Yxxpdh 要进行有效性判断的网格数据行的行值
Dim Lrywlz As Long '录入有误网格列值
Dim Rectemp As New ADODB.Recordset '临时使用动态集
With WglrGrid
If Yxxpdh > (.Rows - .FixedRows) Then Exit Function
'判断行为空(行中所有可编辑列数据均为空或为零)和无效数据行则清除当前行
If .TextMatrix(Yxxpdh, 0) <> "*" Then
Sjhzyxxpd = True
Exit Function
Else
If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
'当要判断行处于网格末行时才允许删行,否则要进行有效性判断
If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
Changelock = True
.RemoveItem Yxxpdh
If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
.AddItem ""
.RowHeight(.Rows - 1) = Sjhgd
End If
Changelock = False
Sjhzyxxpd = True
Exit Function
End If
End If
End If
'行没有发生变化则不进行有效性判断
If Hyxxpdlock Then
Sjhzyxxpd = True
Exit Function
End If
'[>>以下为自定义部分
'1.放置行有效性判断程序
'1.1首先进行单个不能为空或不能为零判断(Fixed)
For Jsqte = Qslz To .Cols - 1
'字段不能为空
If GridInt(Jsqte, 5) = 1 Then
If Len(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
Tsxx = GridStr(Jsqte, 2)
Lrywlz = Jsqte
GoTo Lrcwcl
Exit For
End If
End If
'字段不能为零
If GridInt(Jsqte, 5) = 2 Then
If Val(Trim(.TextMatrix(Yxxpdh, Jsqte))) = 0 Then
Tsxx = GridStr(Jsqte, 2)
Lrywlz = Jsqte
GoTo Lrcwcl
Exit For
End If
End If
Next Jsqte
'1.2进行其他有效性判断,编写格式同1.1
'2.放置行处理程序(当数据行通过有效性判断)
If Val(.TextMatrix(Yxxpdh, Sydz("008", GridStr(), Szzls))) <= 0 Then
Tsxx = "实际单价不能小于等于零！"
Lrywlz = Sydz("008", GridStr(), Szzls)
GoTo Lrcwcl
End If
'以上为自定义部分<<]
End With 'WglrGrid
'如果此行通过行有效性判断则加锁,直至此行数据再次发生变化
Sjhzyxxpd = True
Hyxxpdlock = True
Exit Function
Lrcwcl: '录入错误处理
With WglrGrid
'给出错误提示信息
Call Xtxxts(Tsxx, 0, 1)
'返回网格错误位置 (ChangeLock避免再次引发RowColChange有效性判断), 装入录入载体
Changelock = True
.Select Yxxpdh, Lrywlz
Changelock = False
Call xswbk
'函数返回False
Sjhzyxxpd = False
Exit Function
End With
End Function
Private Sub Sub_AddBill() '新增一张单据
Dim Rectemp As New ADODB.Recordset '临时使用动态集
Dim Jsqte As Long '临时计数器
'判断用户是否有此功能执行权限,如有则写上机日志(进入)
If Not Security_Log(Str_RightEdi⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -