📄 frmstockreceiveae.frm
字号:
Left = 6930
TabIndex = 4
Top = 120
Width = 3855
End
Begin VB.TextBox txtAdditional_Instructions
Height = 465
Left = 6930
TabIndex = 3
Top = 630
Width = 3855
End
Begin VB.TextBox txtDeclared_as
Height = 315
Left = 6930
TabIndex = 2
Top = 1140
Width = 3855
End
Begin VB.TextBox txtDeclared_Value
Height = 315
Left = 6930
TabIndex = 1
Top = 1500
Width = 3855
End
Begin VB.TextBox txtPONo
Enabled = 0 'False
Height = 285
Left = 1380
Locked = -1 'True
TabIndex = 0
Top = 150
Width = 3315
End
Begin InvtySystem.ctrlLiner ctrlLiner1
Height = 30
Left = -150
TabIndex = 35
Top = 7560
Width = 11340
_ExtentX = 20003
_ExtentY = 53
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grid
Height = 1830
Left = 120
TabIndex = 36
Top = 4590
Width = 10755
_ExtentX = 18971
_ExtentY = 3228
_Version = 393216
Rows = 0
FixedRows = 0
FixedCols = 0
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 MSComCtl2.DTPicker dtpDate
Height = 285
Left = 1380
TabIndex = 37
Top = 1200
Width = 2505
_ExtentX = 4419
_ExtentY = 503
_Version = 393216
CustomFormat = "MMM-dd-yyyy"
Format = 44564483
CurrentDate = 38207
End
Begin ctrlNSDataCombo.NSDataCombo nsdVendor
Height = 315
Left = 1380
TabIndex = 38
Top = 510
Width = 3690
_ExtentX = 6509
_ExtentY = 556
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
End
Begin VB.Label Label10
Caption = "Label10"
Height = 525
Left = 4995
TabIndex = 53
Top = 4980
Width = 1245
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "Salesman"
Height = 225
Left = 60
TabIndex = 52
Top = 1530
Width = 1275
End
Begin VB.Line Line3
BorderColor = &H80000000&
BorderWidth = 2
X1 = 9135
X2 = 10845
Y1 = 7170
Y2 = 7170
End
Begin VB.Shape Shape3
BackColor = &H80000010&
BackStyle = 1 'Opaque
BorderColor = &H80000010&
Height = 240
Left = 120
Top = 4290
Width = 10740
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = " Date"
Height = 225
Index = 1
Left = 60
TabIndex = 51
Top = 1185
Width = 1275
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 = 7365
TabIndex = 50
Top = 7260
Width = 2040
End
Begin VB.Line Line1
BorderColor = &H80000010&
BorderWidth = 2
Index = 1
X1 = 135
X2 = 10860
Y1 = 1980
Y2 = 1980
End
Begin VB.Line Line2
BorderColor = &H80000014&
Index = 1
X1 = 135
X2 = 10860
Y1 = 1980
Y2 = 1980
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 = 7365
TabIndex = 49
Top = 6510
Width = 2040
End
Begin VB.Label Labels
Caption = "Remarks"
Height = 240
Index = 4
Left = 165
TabIndex = 48
Top = 6480
Width = 990
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 = 7365
TabIndex = 47
Top = 6810
Width = 2040
End
Begin VB.Label Labels
Alignment = 1 'Right Justify
Caption = "Vendor"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 60
TabIndex = 46
Top = 510
Width = 1275
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Address"
Height = 225
Left = 60
TabIndex = 45
Top = 855
Width = 1275
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Purchase Order 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 = 195
TabIndex = 44
Top = 4290
Width = 4365
End
Begin VB.Label Label6
Caption = "Shipping Instructions"
Height = 255
Left = 5130
TabIndex = 43
Top = 120
Width = 1785
End
Begin VB.Label Label12
Caption = "Additional Instructions"
Height = 255
Left = 5130
TabIndex = 42
Top = 630
Width = 1785
End
Begin VB.Label Label13
Caption = "Declared As"
Height = 255
Left = 5130
TabIndex = 41
Top = 1170
Width = 1785
End
Begin VB.Label Label14
Caption = "Declared Value"
Height = 255
Left = 5130
TabIndex = 40
Top = 1530
Width = 1785
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "PO No."
Height = 225
Left = 60
TabIndex = 39
Top = 150
Width = 1275
End
End
Attribute VB_Name = "frmStockReceiveAE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public State As FormState 'Variable used to determine on how the form used
Public PK As Long 'Variable used to get what record is going to edit
Public LLFK As Long 'Last Loading FK
Public LLVFK As Long 'Last Loading Van FK
Public LLDate As String
Public CloseMe As Boolean
Public ForCusAcc As Boolean
Dim PCase As Long 'Pieces per case
Dim PBox As Long 'Pieces per box
Dim old_pieces As Long 'Old pieces value
Dim old_boxes As Long 'Old boxes value
Dim old_cases As Long 'Old cases value
Dim cIGross As Currency 'Gross Amount
Dim cIAmount As Currency 'Current Invoice Amount
Dim cDAmount As Currency 'Current Invoice Discount Amount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -