📄 frmadjustcost2.frm
字号:
Redraw = 0 'False
AllowBigSelection= 0 'False
FocusRect = 0
HighLight = 0
GridLines = 0
GridLinesFixed = 0
AllowUserResizing= 1
BorderStyle = 0
Appearance = 0
End
Begin VB.Label lblNote
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "说明"
ForeColor = &H80000008&
Height = 360
Index = 0
Left = 330
TabIndex = 31
Top = 4950
Visible = 0 'False
Width = 180
WordWrap = -1 'True
End
Begin VB.Label lblNote
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 360
Index = 1
Left = 720
TabIndex = 30
Top = 4950
Visible = 0 'False
Width = 825
WordWrap = -1 'True
End
Begin VB.Label lblCaption
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "委托代销调价单"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 360
Left = 300
TabIndex = 29
Top = 600
Visible = 0 'False
Width = 2520
End
Begin VB.Label lblmemo
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 240
Index = 1
Left = 1170
TabIndex = 25
Top = 5130
Width = 5340
End
Begin VB.Label lblTotal
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 300
TabIndex = 17
Top = 4680
Visible = 0 'False
Width = 555
End
Begin VB.Label lblmemo
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "备注(M)"
ForeColor = &H80000008&
Height = 240
Index = 0
Left = 330
TabIndex = 16
Top = 5370
Width = 630
End
Begin VB.Label lblFieldCaption
Alignment = 2 'Center
BackColor = &H80000002&
Caption = "标题"
ForeColor = &H80000009&
Height = 195
Index = 0
Left = 210
TabIndex = 8
Top = 1350
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblField
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 270
Index = 0
Left = 210
TabIndex = 9
Top = 1560
UseMnemonic = 0 'False
Visible = 0 'False
Width = 825
End
Begin VB.Label lblmemo
BackColor = &H80000005&
Caption = "制单"
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 6570
TabIndex = 19
Top = 5220
Width = 465
End
Begin VB.Label lblmemo
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Index = 3
Left = 7080
TabIndex = 18
Top = 5190
Width = 885
End
Begin VB.Label LblBack
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5370
Left = 90
TabIndex = 13
Top = 510
Visible = 0 'False
Width = 7995
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 1
Left = 750
TabIndex = 12
Tag = "0"
Top = 90
Visible = 0 'False
Width = 2580
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类型(Y)"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 3660
TabIndex = 20
Tag = "1"
Top = 120
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位(C)"
Height = 180
Index = 0
Left = 60
TabIndex = 14
Tag = "0"
Top = 135
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 3
Left = 4320
TabIndex = 11
Tag = "1"
Top = 90
Visible = 0 'False
Width = 1230
End
Begin VB.Label lblHead
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "模板(D)"
ForeColor = &H80000008&
Height = 180
Index = 4
Left = 5700
TabIndex = 15
Tag = "2"
Top = 120
Visible = 0 'False
Width = 630
End
Begin VB.Label lblHead
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 285
Index = 5
Left = 6510
TabIndex = 10
Tag = "2"
Top = 120
Visible = 0 'False
Width = 1590
End
End
Attribute VB_Name = "FrmAdjustCost2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 单据（委托代销调价单）窗体
' 作者：苏梦
' 日期：1998.07.25
'
' 方法：
' ShowANewBill 新增单据
' SHowAOldBill 修改单据
' 函数
' SaveBill 保存当前单据
' getID 取当前单据的ID号
' ReponseMessage 消息处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ReceiptTypeID As Integer
Dim clsBill As AdjustCost '
Dim WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Dim lgID As Long
Dim srName As String
Dim srCode As String
Dim blnNotResize As Boolean
Const xlngColItem = 1 '商品列号
Const xlngColItemUnit = 2 '单位
Const xlngColNumber = 3 '调价数量
Const xlngColCurOldPrice = 4 '原币原价
Const xlngColOldPrice = 5 '本币原价
Const xlngColCurOldPriceTax = 6 '原币含税原价
Const xlngColOldPriceTax = 7 '本币含税原价
Const xlngColCurPrice = 8 '原币现价
Const xlngColPrice = 9 '本币现价
Const xlngColCurPriceTax = 10 '原币含税现价
Const xlngColPriceTax = 11 '本币含税现价
Const xlngColCurAmount = 12 '原价调价金额
Const xlngColAmount = 13 '本价调价金额
Const xlngColCurAmountTax = 14 '原价含税调价金额
Const xlngColAmountTax = 15 '本价含税调价金额
Const xlngColTax = 16 '税率
Const xlngColCurTaxAmount = 17 '原币调价税额
Const xlngColTaxAmount = 18 '本币调价税额
Const xlngColJob = 19 '工程
Const xlngColCustom0 = 20 '自定义项目1
Const xlngColCustom1 = 21 '自定义项目2
Const xlngColCustom2 = 22 '自定义项目3
Const xlngColCustom3 = 23 '自定义项目4
Const xlngColCustom4 = 24 '自定义项目5
Const xlngColCustom5 = 25 '自定义项目6
Const xlngColItemID = 26 '商品列号
Const xlngColItemUnitID = 27 '单位
Const xlngColTaxID = 28 '税率
Const xlngColJobID = 29 '工程
Const xlngColCustom0ID = 30 '自定义项目1
Const xlngColCustom1ID = 31 '自定义项目2
Const xlngColCustom2ID = 32 '自定义项目3
Const xlngColCustom3ID = 33 '自定义项目4
Const xlngColCustom4ID = 34 '自定义项目5
Const xlngColCustom5ID = 35 '自定义项目6
Dim strSql As String
Dim blnEdit As Boolean '可填制权限
Dim blnView As Boolean '可查询权限
Private Sub cmbInput_Click()
If Not blnEdit Then Exit Sub
Static blnFirst As Boolean
clsBill.SaveInput2Form
If clsBill.bytRegion = FHead Then
Dim lngID As Long
Dim lngT As Long
Dim strT As String
Dim strC As String
lngID = BillPublic.ReceiptNameToTypeID(cmbInput.Text)
lngT = FirstId(xTemplatE, lngID)
Call BillPublic.IdToCodeAndName(xTemplatE, lngT, strC, strT)
' If Not blnFirst Then
' If clsBill.blnRefresh And grdCol.Visible And lblHead(2) <> "" Then clsBill.DrawTotalBox True
' blnFirst = False
' End If
lblHead(2).Tag = lngID
lblHead(3).Caption = cmbInput.Text
lblHead(4).Tag = lngT
lblHead(5).Caption = strT
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 93 Then
MakeListEditMenu
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -