📄 frmpsd.frm
字号:
Height = 330
Left = 4320
TabIndex = 7
Top = 225
Width = 1725
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "NO."
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 8985
TabIndex = 6
Top = 240
Width = 375
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名"
Height = 180
Left = 7845
TabIndex = 5
Top = 4575
Width = 555
End
End
Begin VB.TextBox txtIamt2
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFF80&
Height = 288
Left = 5385
Locked = -1 'True
TabIndex = 24
Top = 3510
Width = 1044
End
Begin MSComctlLib.StatusBar sb1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 12
Top = 6045
Width = 10845
_ExtentX = 19129
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 13944
Key = "状态信息"
Object.Tag = "IDmsg"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "01-4-13"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "16:04"
EndProperty
EndProperty
End
Begin Threed.SSPanel SSPanel1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 13
Top = 0
Width = 10845
_ExtentX = 19129
_ExtentY = 979
_Version = 131073
BorderWidth = 0
BevelInner = 1
Begin Threed.SSCommand cmdToolSelect
CausesValidation= 0 'False
Height = 465
Left = 7545
TabIndex = 34
Tag = "退出"
ToolTipText = "退出"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "选择[&R]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdPrintBill
CausesValidation= 0 'False
Height = 465
Left = 6585
TabIndex = 22
Tag = "下一条"
ToolTipText = "打印单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "打印[&P]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdNew
CausesValidation= 0 'False
Height = 465
Left = 36
TabIndex = 21
Tag = "新建"
ToolTipText = "新建单据"
Top = 36
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "新建[&N]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdToolCommit
Height = 465
Left = 990
TabIndex = 20
Tag = "确认"
ToolTipText = "确认单据，使之生效"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "审核[&O]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdSave
Height = 465
Left = 1935
TabIndex = 19
Tag = "保存"
ToolTipText = "保存单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "保存[&S]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdDelete
CausesValidation= 0 'False
Height = 465
Left = 2865
TabIndex = 18
Tag = "删除"
ToolTipText = "删除当前单据"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "删除[&D]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdQuery
CausesValidation= 0 'False
Height = 465
Left = 3795
TabIndex = 17
Tag = "查询"
ToolTipText = "查询单据内容"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "查询[&Q]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdPrev
CausesValidation= 0 'False
Height = 465
Left = 4725
TabIndex = 16
Tag = "上一条"
ToolTipText = "翻至上一页"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "上一条[&U]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdNext
CausesValidation= 0 'False
Height = 465
Left = 5655
TabIndex = 15
Tag = "下一条"
ToolTipText = "翻至下一页"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "下一条[&M]"
ButtonStyle = 3
BevelWidth = 0
End
Begin Threed.SSCommand cmdExit
CausesValidation= 0 'False
Height = 465
Left = 8490
TabIndex = 14
Tag = "退出"
ToolTipText = "退出"
Top = 45
Width = 930
_ExtentX = 1640
_ExtentY = 820
_Version = 131073
ForeColor = 0
Caption = "退出[&X]"
ButtonStyle = 3
BevelWidth = 0
End
End
Begin VB.Label Label6
BackColor = &H80000007&
Caption = "Label6"
Height = 5190
Left = 180
TabIndex = 3
Top = 645
Width = 10455
End
End
Attribute VB_Name = "frmpsd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::商品配送管理::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Option Explicit
Private Const TableName As String = "PSD"
Private QueryFlag As Boolean '记录查询状态
Private TableState As String '当前状态
Private Temp As String
Private QueryRs As New ADODB.Recordset
Private Function AcceptVil(d As Boolean) As Boolean
On Error GoTo ComErr
Dim I As Integer
Dim TempSum As Single
Dim TempPrc As Single
Dim TempIPrc As Single
Dim TempTIPrc As Single
Dim sSQL As String
Dim strOperMsg As String
If Not DataIsOK() Then
MsgBox "表单数据存在错误!", vbExclamation, "提示窗口"
Exit Function
End If
Temp = "确认之后将不能再作改动,继续吗?"
If MsgBox(Temp, vbQuestion & vbYesNo, "提示窗口") = vbNo Then Exit Function
If Not CommSaveTable() Then
MsgBox "保存数据时发生错误!", vbExclamation, "错误窗口"
Exit Function
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Conn.BeginTrans
sSQL = "UPDATE " & TableName & " SET 确认状态=1 WHERE 表单号='" & Trim(txtPurcode.Text) & "'"
Cmd.CommandText = sSQL
Cmd.Execute
grdDET.MoveFirst
For I = 0 To grdDET.Rows - 1
sSQL = "select * from 商品主档 where 商品编码='" & Trim(grdDET.Columns("商品编码").Text) & "'"
Set RsTemp = Nothing
Set RsTemp = OpenRS(sSQL)
TempIPrc = RsTemp("进价")
TempTIPrc = RsTemp("含税进价")
TempPrc = grdDET.Columns("单价").Value 'RsTemp("零售价")
sSQL = "select 数量,进价金额 from 配送中心库存 where 商品编码='" & Trim(grdDET.Columns("商品编码").Text) & _
"' and 颜色='" & grdDET.Columns("颜色").Text & "' and 尺寸='" & grdDET.Columns("尺寸").Text & "'"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockOptimistic
If RsTemp.EOF Then
MsgBox "无库存信息！", vbInformation, "提示信息"
Conn.RollbackTrans
Exit Function
Else
RsTemp("数量") = RsTemp("数量") - grdDET.Columns("数量").Value
RsTemp("进价金额") = RsTemp("进价金额") - grdDET.Columns("数量").Value * TempIPrc
RsTemp.Update
End If
Set RsTemp = Nothing
sSQL = "select * from 分店库存 where 商品编码='" & Trim(grdDET.Columns("商品编码").Text) & "'" & " and 颜色='" & grdDET.Columns("颜色").Text & "' and 尺寸='" & grdDET.Columns("尺寸").Text & "' and 分店编码='" & Trim(txtSuppno.Text) & "'"
RsTemp.Open sSQL, Conn, adOpenStatic, adLockOptimistic
If RsTemp.EOF Then
sSQL = "insert into 分店库存 (分店编码,商品编码,品名,单位,颜色,尺寸,数量,售价金额) values('" & _
txtSuppno.Text & "','" & grdDET.Columns("商品编码").Text & "','" & grdDET.Columns("商品名称").Text & "','" & grdDET.Columns("单位").Value & "','" & _
grdDET.Columns("颜色").Value & "','" & _
grdDET.Columns("尺寸").Value & "'," & _
grdDET.Columns("数量").Value & "," & _
grdDET.Columns("数量").Value * grdDET.Columns("单价").Value & ")"
If RunSQL(sSQL) <> 0 Then GoTo ComErr
Else
RsTemp("数量") = RsTemp("数量") + grdDET.Columns("数量").Value
RsTemp("售价金额") = RsTemp("售价金额") + grdDET.Columns("数量").Value * grdDET.Columns("单价").Value
RsTemp.Update
End If
''''''''''''''''''''''''''''''''''''
'设置分店商品信息
sSQL = "select * from 分店商品信息 where 商品编码='" & Trim(grdDET.Columns(0).Text) & "' and 分店编码='" & Trim(txtSuppno.Text) & "'"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockOptimistic
If RsTemp.EOF Then RsTemp.AddNew
RsTemp("分店编码") = Trim(txtSuppno.Text)
RsTemp("商品编码") = Trim(grdDET.Columns(0).Text)
RsTemp("配送价") = Val(grdDET.Columns(4).Text)
RsTemp.Update
''''''''''''''''''''''''''''''''''''
grdDET.MoveNext
Next I
'确认，保存，删除
cmdToolCommit.Caption = "弃审[&O]"
cmdSave.Enabled = False
cmdDelete.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -