📄 frmcustomersitem.frm
字号:
RowHeightMin = 275
ForeColorFixed = -2147483640
BackColorSel = 1091552
ForeColorSel = 16777215
BackColorBkg = -2147483643
GridColor = -2147483633
GridColorFixed = -2147483633
GridColorUnpopulated= -2147483633
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
End
Begin MSComctlLib.ListView lvList
Height = 2760
Left = 150
TabIndex = 20
Top = 120
Width = 12525
_ExtentX = 22093
_ExtentY = 4868
View = 3
LabelEdit = 1
LabelWrap = 0 'False
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Company"
Object.Width = 6068
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Qty"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ImageList i16x16
Left = 3210
Top = 7110
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":0A12
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":1424
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":1E36
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":2848
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmCustomersItem.frx":325A
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Discount"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 7710
TabIndex = 30
Top = 7110
Width = 2040
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Gross"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 7710
TabIndex = 29
Top = 6810
Width = 2040
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "Net"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 7710
TabIndex = 28
Top = 8160
Width = 2040
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "Tax Base"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 7710
TabIndex = 27
Top = 7410
Width = 2040
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "Vat(0.12)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000011D&
Height = 240
Left = 7710
TabIndex = 26
Top = 7710
Width = 2040
End
Begin VB.Line Line3
BorderColor = &H80000000&
BorderWidth = 2
X1 = 9480
X2 = 11190
Y1 = 8070
Y2 = 8070
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Receipt Details"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 210
Left = 240
TabIndex = 19
Top = 3840
Width = 4365
End
Begin VB.Line Line2
BorderColor = &H80000014&
Index = 1
X1 = 150
X2 = 12650
Y1 = 3030
Y2 = 3030
End
Begin VB.Line Line1
BorderColor = &H80000010&
BorderWidth = 2
Index = 1
X1 = 150
X2 = 12700
Y1 = 3060
Y2 = 3060
End
Begin VB.Shape Shape3
BackColor = &H80000010&
BackStyle = 1 'Opaque
BorderColor = &H80000010&
Height = 240
Left = 150
Top = 3810
Width = 12525
End
End
Attribute VB_Name = "frmCustomersItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public StockID As Integer
Public blnCancel As Boolean
Dim cIGross As Currency 'Gross Amount
Dim cIAmount As Currency 'Current Invoice Amount
Dim cDAmount As Currency 'Current Invoice Discount Amount
Dim cIRowCount As Integer
Dim rs As New Recordset
Dim intQtyOld As Integer
Private Sub btnUpdate_Click()
On Error GoTo err
If MsgBox("Are you sure you want to update this record?" & vbCrLf & vbCrLf & _
"Click Yes to proceed", vbInformation + vbYesNo) = vbNo Then
txtQty.Text = intQtyOld
Exit Sub
End If
' CN.BeginTrans
Dim CurrRow As Integer
Dim intStockID As Integer
CurrRow = getFlexPos(Grid, 10, nsdStock.Tag)
intStockID = nsdStock.Tag
ChangeValue CN, "Receipts_Detail", "Qty", txtQty.Text, False, "ReceiptID=" & lvList.SelectedItem.Tag & " AND StockID=" & intStockID & ""
ChangeValue CN, "Receipts", "Deducted", "Yes", False, "ReceiptID=" & lvList.SelectedItem.Tag & ""
Dim RSStockUnit As New Recordset
With RSStockUnit
.CursorLocation = adUseClient
.Open "SELECT * FROM Stock_Unit WHERE StockID =" & intStockID & " AND UnitID = " & toNumber(dcUnit.BoundText), CN, adOpenStatic, adLockOptimistic
!Onhand = !Onhand + (intQtyOld - toNumber(txtQty.Text))
.Update
End With
Dim RSDetails As New Recordset
RSDetails.CursorLocation = adUseClient
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -