Mike Swanson
5359e7c49e
Recovered Darv's VB6 source for the Valley Wide Plastering Orders application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used). This is the first time we've had the actual source — prior session only had a single frmPayroll.frm from the AD server. Three project variants identified across two snapshots: - Full-Project/ (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\ - Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\ - Source/ (170 files, 559 MB) — D:\Office-Estimates\Darv\Source\ wholesale - SOURCE-HOLD/ (3 files, 1 MB) — D:\Office-Estimates\Darv\SOURCE HOLD\ Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production Orders_10A.exe was live as of April 2024 — open question whether newer source exists on other backup drives Mike will scan next. Also includes per-category and per-keyword analysis CSVs from a WizTree file-list export, plus the analyzer script that produced them (re-runnable for the next drive's CSV). VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored. Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
1405 lines
40 KiB
Plaintext
1405 lines
40 KiB
Plaintext
VERSION 5.00
|
|
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
|
|
Begin VB.Form frmPlans
|
|
BorderStyle = 1 'Fixed Single
|
|
Caption = "Plans"
|
|
ClientHeight = 8625
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 11910
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 8625
|
|
ScaleWidth = 11910
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.TextBox txtPLAdj
|
|
Height = 315
|
|
Left = 10800
|
|
TabIndex = 63
|
|
Top = 840
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtPFAdj
|
|
Height = 315
|
|
Left = 10800
|
|
TabIndex = 62
|
|
Top = 240
|
|
Width = 855
|
|
End
|
|
Begin VB.CommandButton cmdExit
|
|
Caption = "Exit"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = 7380
|
|
TabIndex = 59
|
|
Top = 2640
|
|
Width = 1455
|
|
End
|
|
Begin TabDlg.SSTab tabPlans
|
|
Height = 4815
|
|
Left = 180
|
|
TabIndex = 16
|
|
Top = 3600
|
|
Width = 11535
|
|
_ExtentX = 20346
|
|
_ExtentY = 8493
|
|
_Version = 393216
|
|
Tabs = 2
|
|
Tab = 1
|
|
TabsPerRow = 2
|
|
TabHeight = 520
|
|
TabCaption(0) = "Materials"
|
|
TabPicture(0) = "frmPlans.frx":0000
|
|
Tab(0).ControlEnabled= 0 'False
|
|
Tab(0).Control(0)= "cboPMMetal"
|
|
Tab(0).Control(1)= "cboPMType"
|
|
Tab(0).Control(2)= "cboPMDFlag"
|
|
Tab(0).Control(3)= "txtPMLength"
|
|
Tab(0).Control(4)= "txtPMPrice"
|
|
Tab(0).Control(5)= "txtPMQty"
|
|
Tab(0).Control(6)= "txtPMDesc"
|
|
Tab(0).Control(7)= "txtPMInvNo"
|
|
Tab(0).Control(8)= "lstPMaterial"
|
|
Tab(0).Control(9)= "lblPMLength"
|
|
Tab(0).Control(10)= "lblPMMetal"
|
|
Tab(0).Control(11)= "lblPMType"
|
|
Tab(0).Control(12)= "lblPMDFLag"
|
|
Tab(0).Control(13)= "lblPMPrice"
|
|
Tab(0).Control(14)= "lblPMQty"
|
|
Tab(0).Control(15)= "lblPMDesc"
|
|
Tab(0).Control(16)= "lblPMInvNo"
|
|
Tab(0).ControlCount= 17
|
|
TabCaption(1) = "Options"
|
|
TabPicture(1) = "frmPlans.frx":001C
|
|
Tab(1).ControlEnabled= -1 'True
|
|
Tab(1).Control(0)= "lblOptYdge"
|
|
Tab(1).Control(0).Enabled= 0 'False
|
|
Tab(1).Control(1)= "lblOptFin2"
|
|
Tab(1).Control(1).Enabled= 0 'False
|
|
Tab(1).Control(2)= "lblOptFAdjYdge"
|
|
Tab(1).Control(2).Enabled= 0 'False
|
|
Tab(1).Control(3)= "lblOTexture"
|
|
Tab(1).Control(3).Enabled= 0 'False
|
|
Tab(1).Control(4)= "lblOMInvNo"
|
|
Tab(1).Control(4).Enabled= 0 'False
|
|
Tab(1).Control(5)= "lblOMDesc"
|
|
Tab(1).Control(5).Enabled= 0 'False
|
|
Tab(1).Control(6)= "lblOMQty"
|
|
Tab(1).Control(6).Enabled= 0 'False
|
|
Tab(1).Control(7)= "lblOMDflag"
|
|
Tab(1).Control(7).Enabled= 0 'False
|
|
Tab(1).Control(8)= "lblOMMType"
|
|
Tab(1).Control(8).Enabled= 0 'False
|
|
Tab(1).Control(9)= "lblOMetal"
|
|
Tab(1).Control(9).Enabled= 0 'False
|
|
Tab(1).Control(10)= "lblOMLength"
|
|
Tab(1).Control(10).Enabled= 0 'False
|
|
Tab(1).Control(11)= "lstOptions"
|
|
Tab(1).Control(11).Enabled= 0 'False
|
|
Tab(1).Control(12)= "txtODesc"
|
|
Tab(1).Control(12).Enabled= 0 'False
|
|
Tab(1).Control(13)= "txtOYdge"
|
|
Tab(1).Control(13).Enabled= 0 'False
|
|
Tab(1).Control(14)= "txtOFin2"
|
|
Tab(1).Control(14).Enabled= 0 'False
|
|
Tab(1).Control(15)= "txtOFAdj"
|
|
Tab(1).Control(15).Enabled= 0 'False
|
|
Tab(1).Control(16)= "lstOptMatrl"
|
|
Tab(1).Control(16).Enabled= 0 'False
|
|
Tab(1).Control(17)= "cboOTexture"
|
|
Tab(1).Control(17).Enabled= 0 'False
|
|
Tab(1).Control(18)= "txtOMDesc"
|
|
Tab(1).Control(18).Enabled= 0 'False
|
|
Tab(1).Control(19)= "txtOMInvNo"
|
|
Tab(1).Control(19).Enabled= 0 'False
|
|
Tab(1).Control(20)= "txtOMQty"
|
|
Tab(1).Control(20).Enabled= 0 'False
|
|
Tab(1).Control(21)= "txtOMLength"
|
|
Tab(1).Control(21).Enabled= 0 'False
|
|
Tab(1).Control(22)= "cboOMDflag"
|
|
Tab(1).Control(22).Enabled= 0 'False
|
|
Tab(1).Control(23)= "cboOMType"
|
|
Tab(1).Control(23).Enabled= 0 'False
|
|
Tab(1).Control(24)= "cboOMMetal"
|
|
Tab(1).Control(24).Enabled= 0 'False
|
|
Tab(1).ControlCount= 25
|
|
Begin VB.ComboBox cboPMMetal
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":0038
|
|
Left = -67920
|
|
List = "frmPlans.frx":0042
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 58
|
|
Top = 2640
|
|
Width = 1155
|
|
End
|
|
Begin VB.ComboBox cboPMType
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":0053
|
|
Left = -67920
|
|
List = "frmPlans.frx":0066
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 57
|
|
Top = 2280
|
|
Width = 1155
|
|
End
|
|
Begin VB.ComboBox cboPMDFlag
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":008E
|
|
Left = -67920
|
|
List = "frmPlans.frx":0098
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 56
|
|
Top = 1920
|
|
Width = 1155
|
|
End
|
|
Begin VB.TextBox txtPMLength
|
|
Height = 315
|
|
Left = -67920
|
|
TabIndex = 55
|
|
Top = 3000
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtPMPrice
|
|
Height = 315
|
|
Left = -67920
|
|
TabIndex = 54
|
|
Top = 1560
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtPMQty
|
|
Height = 315
|
|
Left = -67920
|
|
TabIndex = 53
|
|
Top = 1200
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtPMDesc
|
|
Height = 315
|
|
Left = -67920
|
|
TabIndex = 52
|
|
Top = 840
|
|
Width = 4275
|
|
End
|
|
Begin VB.TextBox txtPMInvNo
|
|
Height = 315
|
|
Left = -67920
|
|
TabIndex = 51
|
|
Top = 480
|
|
Width = 915
|
|
End
|
|
Begin VB.ListBox lstPMaterial
|
|
Height = 4155
|
|
Left = -74820
|
|
TabIndex = 42
|
|
Top = 480
|
|
Width = 5535
|
|
End
|
|
Begin VB.ComboBox cboOMMetal
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":00AC
|
|
Left = 9780
|
|
List = "frmPlans.frx":00B6
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 41
|
|
Top = 3570
|
|
Width = 1275
|
|
End
|
|
Begin VB.ComboBox cboOMType
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":00C7
|
|
Left = 9780
|
|
List = "frmPlans.frx":00DA
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 40
|
|
Top = 3120
|
|
Width = 1275
|
|
End
|
|
Begin VB.ComboBox cboOMDflag
|
|
Height = 315
|
|
ItemData = "frmPlans.frx":0102
|
|
Left = 6900
|
|
List = "frmPlans.frx":010C
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 39
|
|
Top = 4020
|
|
Width = 1155
|
|
End
|
|
Begin VB.TextBox txtOMLength
|
|
Height = 315
|
|
Left = 9780
|
|
TabIndex = 38
|
|
Top = 4020
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtOMQty
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 37
|
|
Top = 3580
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtOMInvNo
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 36
|
|
Top = 3120
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtOMDesc
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 35
|
|
Top = 2700
|
|
Width = 4275
|
|
End
|
|
Begin VB.ComboBox cboOTexture
|
|
Height = 315
|
|
Left = 4680
|
|
TabIndex = 27
|
|
Top = 1020
|
|
Width = 2235
|
|
End
|
|
Begin VB.ListBox lstOptMatrl
|
|
Height = 1815
|
|
Left = 240
|
|
TabIndex = 25
|
|
Top = 2640
|
|
Width = 5475
|
|
End
|
|
Begin VB.TextBox txtOFAdj
|
|
Height = 315
|
|
Left = 10260
|
|
TabIndex = 24
|
|
Top = 1020
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtOFin2
|
|
Height = 315
|
|
Left = 10260
|
|
TabIndex = 23
|
|
Top = 600
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtOYdge
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 22
|
|
Top = 600
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtODesc
|
|
Height = 315
|
|
Left = 4080
|
|
TabIndex = 21
|
|
Top = 600
|
|
Width = 2835
|
|
End
|
|
Begin VB.ListBox lstOptions
|
|
Height = 2010
|
|
Left = 240
|
|
TabIndex = 17
|
|
Top = 600
|
|
Width = 3195
|
|
End
|
|
Begin VB.Label lblPMLength
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Length:"
|
|
Height = 195
|
|
Left = -69000
|
|
TabIndex = 50
|
|
Top = 3060
|
|
Width = 975
|
|
End
|
|
Begin VB.Label lblPMMetal
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal:"
|
|
Height = 195
|
|
Left = -68460
|
|
TabIndex = 49
|
|
Top = 2700
|
|
Width = 435
|
|
End
|
|
Begin VB.Label lblPMType
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Materials Type:"
|
|
Height = 195
|
|
Left = -69105
|
|
TabIndex = 48
|
|
Top = 2340
|
|
Width = 1080
|
|
End
|
|
Begin VB.Label lblPMDFLag
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Delivery Flag:"
|
|
Height = 195
|
|
Left = -68985
|
|
TabIndex = 47
|
|
Top = 1980
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblPMPrice
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Price:"
|
|
Height = 195
|
|
Left = -68430
|
|
TabIndex = 46
|
|
Top = 1620
|
|
Width = 405
|
|
End
|
|
Begin VB.Label lblPMQty
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Quantity:"
|
|
Height = 195
|
|
Left = -68655
|
|
TabIndex = 45
|
|
Top = 1260
|
|
Width = 630
|
|
End
|
|
Begin VB.Label lblPMDesc
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Description:"
|
|
Height = 195
|
|
Left = -68865
|
|
TabIndex = 44
|
|
Top = 900
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblPMInvNo
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Inventory No:"
|
|
Height = 195
|
|
Left = -68985
|
|
TabIndex = 43
|
|
Top = 540
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblOMLength
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Length:"
|
|
Height = 195
|
|
Left = 8745
|
|
TabIndex = 34
|
|
Top = 4080
|
|
Width = 975
|
|
End
|
|
Begin VB.Label lblOMetal
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Flag:"
|
|
Height = 195
|
|
Left = 8940
|
|
TabIndex = 33
|
|
Top = 3640
|
|
Width = 780
|
|
End
|
|
Begin VB.Label lblOMMType
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Material Type:"
|
|
Height = 195
|
|
Left = 8715
|
|
TabIndex = 32
|
|
Top = 3200
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label lblOMDflag
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Delivery Flag:"
|
|
Height = 195
|
|
Left = 5880
|
|
TabIndex = 31
|
|
Top = 4080
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblOMQty
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Quantity:"
|
|
Height = 195
|
|
Left = 6210
|
|
TabIndex = 30
|
|
Top = 3640
|
|
Width = 630
|
|
End
|
|
Begin VB.Label lblOMDesc
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Description:"
|
|
Height = 195
|
|
Left = 6000
|
|
TabIndex = 29
|
|
Top = 2760
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblOMInvNo
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Inventory No:"
|
|
Height = 195
|
|
Left = 5880
|
|
TabIndex = 28
|
|
Top = 3200
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblOTexture
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Option Texture:"
|
|
Height = 195
|
|
Left = 3540
|
|
TabIndex = 26
|
|
Top = 1080
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblOptFAdjYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Foam Adj. Yardage:"
|
|
Height = 195
|
|
Left = 8790
|
|
TabIndex = 20
|
|
Top = 1080
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblOptFin2
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Finish 2 Yardage:"
|
|
Height = 195
|
|
Left = 8955
|
|
TabIndex = 19
|
|
Top = 660
|
|
Width = 1230
|
|
End
|
|
Begin VB.Label lblOptYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Yardage:"
|
|
Height = 195
|
|
Left = 7080
|
|
TabIndex = 18
|
|
Top = 660
|
|
Width = 645
|
|
End
|
|
End
|
|
Begin VB.TextBox txtPNotes
|
|
Height = 1275
|
|
Left = 2220
|
|
TabIndex = 14
|
|
Top = 1980
|
|
Width = 4875
|
|
End
|
|
Begin VB.TextBox txtFin2
|
|
Height = 315
|
|
Left = 8340
|
|
TabIndex = 13
|
|
Top = 840
|
|
Width = 855
|
|
End
|
|
Begin VB.ComboBox cboTexture
|
|
Height = 315
|
|
Left = 4500
|
|
TabIndex = 12
|
|
Text = "cboTexture"
|
|
Top = 1440
|
|
Width = 1935
|
|
End
|
|
Begin VB.TextBox txt12Foam
|
|
Height = 315
|
|
Left = 8340
|
|
TabIndex = 11
|
|
Top = 240
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtCMUYdge
|
|
Height = 315
|
|
Left = 5520
|
|
TabIndex = 10
|
|
Top = 840
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtMatYdge
|
|
Height = 315
|
|
Left = 5520
|
|
TabIndex = 9
|
|
Top = 240
|
|
Width = 855
|
|
End
|
|
Begin VB.ListBox lstMod_Elv
|
|
Height = 2205
|
|
Left = 600
|
|
Sorted = -1 'True
|
|
TabIndex = 3
|
|
Top = 1080
|
|
Width = 1395
|
|
End
|
|
Begin VB.ComboBox cboProject
|
|
Height = 315
|
|
Left = 660
|
|
Sorted = -1 'True
|
|
TabIndex = 0
|
|
Top = 240
|
|
Width = 3015
|
|
End
|
|
Begin VB.Label lblPLAdj
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Labor Adj. Yardage:"
|
|
Height = 195
|
|
Left = 9285
|
|
TabIndex = 61
|
|
Top = 900
|
|
Width = 1410
|
|
End
|
|
Begin VB.Label lblPFAdj
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Foam Adj. Yardage:"
|
|
Height = 195
|
|
Left = 9300
|
|
TabIndex = 60
|
|
Top = 300
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblPNotes
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Notes:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 240
|
|
Left = 2340
|
|
TabIndex = 15
|
|
Top = 1680
|
|
Width = 690
|
|
End
|
|
Begin VB.Label lblFin2
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Finish 2 Yardage:"
|
|
Height = 195
|
|
Left = 7035
|
|
TabIndex = 8
|
|
Top = 900
|
|
Width = 1230
|
|
End
|
|
Begin VB.Label lbl12Foam
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "1/2 Foam Percentage:"
|
|
Height = 195
|
|
Left = 6660
|
|
TabIndex = 7
|
|
Top = 300
|
|
Width = 1605
|
|
End
|
|
Begin VB.Label lblTexture
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Texture:"
|
|
Height = 195
|
|
Left = 3720
|
|
TabIndex = 6
|
|
Top = 1500
|
|
Width = 585
|
|
End
|
|
Begin VB.Label lblCMUYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "CMU Yardage:"
|
|
Height = 195
|
|
Left = 4380
|
|
TabIndex = 5
|
|
Top = 900
|
|
Width = 1050
|
|
End
|
|
Begin VB.Label lblMatYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Material Yardage:"
|
|
Height = 195
|
|
Left = 4185
|
|
TabIndex = 4
|
|
Top = 300
|
|
Width = 1245
|
|
End
|
|
Begin VB.Label lblModel_Elv
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Model/Elevation:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 240
|
|
Left = 240
|
|
TabIndex = 2
|
|
Top = 780
|
|
Width = 1770
|
|
End
|
|
Begin VB.Label lblProj
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Project:"
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 1
|
|
Top = 300
|
|
Width = 540
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmPlans"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Dim moRS As Recordset
|
|
Dim moRSMat As Recordset
|
|
Dim moRSMeas As Recordset
|
|
Dim moRSOpt As Recordset
|
|
Dim moRSOptMat As Recordset
|
|
|
|
Dim mboolShow As Boolean
|
|
Dim mboolAdding As Boolean
|
|
Dim mstrType As String
|
|
'Dim xaFinish As New XArrayDB
|
|
|
|
Const conCOL_NAME As Integer = 0
|
|
Const conCOL_WAIT As Integer = 1
|
|
Const conCOL_TYPE As Integer = 2
|
|
Const conCOL_ID As Integer = 3
|
|
Const conGable As Long = 4
|
|
|
|
Private Sub cboOMMetal_Change()
|
|
If cboOMMetal.Text = "None" Then
|
|
txtOMLength.Text = 0
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cboOMMetal_Click()
|
|
If cboOMMetal.Text = "None" Then
|
|
txtOMLength.Text = 0
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdExit_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Set moRS = New Recordset
|
|
Set moRSMat = New Recordset
|
|
Set moRSOpt = New Recordset
|
|
Set moRSOptMat = New Recordset
|
|
|
|
Call ProjLoad
|
|
Call TextureLoad
|
|
Call ListLoad
|
|
' Call StuccoLoad
|
|
' Call MeasLoad
|
|
Call MatLoad
|
|
' Call MeLocateLoad
|
|
Call OptLoad
|
|
Call OptMatLoad
|
|
|
|
End Sub
|
|
Private Sub cboProject_Change()
|
|
Call ListLoad
|
|
End Sub
|
|
|
|
Private Sub cboProject_Click()
|
|
Call ListLoad
|
|
End Sub
|
|
Private Sub ProjLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT Proj_id, Proj_desc FROM tblProject "
|
|
|
|
Set oRS = New Recordset
|
|
oRS.Open strSQL, goConn, _
|
|
adOpenForwardOnly, adLockReadOnly
|
|
Do Until oRS.EOF
|
|
cboProject.AddItem oRS("Proj_desc")
|
|
cboProject.ItemData(cboProject.NewIndex) = oRS("Proj_id")
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
cboProject.ListIndex = 40
|
|
End Sub
|
|
Private Sub TextureLoad()
|
|
Dim oRSFinish As Recordset
|
|
Dim strSQL As String, intRows As Integer
|
|
Dim row, col As Long
|
|
|
|
strSQL = "SELECT AUTOID, Desc FROM tblFinish"
|
|
|
|
Set oRSFinish = New Recordset
|
|
oRSFinish.Open strSQL, goConn, _
|
|
adOpenForwardOnly, adLockReadOnly
|
|
oRSFinish.MoveLast
|
|
oRSFinish.MoveFirst
|
|
intRows = oRSFinish.RecordCount
|
|
Do Until oRSFinish.EOF
|
|
cboTexture.AddItem oRSFinish("Desc")
|
|
cboTexture.ItemData(cboTexture.NewIndex) = Field2Long(oRSFinish("AUTOID"))
|
|
cboOTexture.AddItem oRSFinish("Desc")
|
|
cboOTexture.ItemData(cboOTexture.NewIndex) = Field2Long(oRSFinish("AUTOID"))
|
|
oRSFinish.MoveNext
|
|
Loop
|
|
oRSFinish.Close
|
|
End Sub
|
|
Private Sub ListLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String, strProj As String
|
|
|
|
gintPROJID = cboProject.ItemData(cboProject.ListIndex)
|
|
|
|
strSQL = "SELECT EST_ID, Mod_Elv from tblPLANS WHERE Proj_ID = " & gintPROJID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstMod_Elv.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstMod_Elv
|
|
.AddItem Field2Str(oRS!mod_elv)
|
|
.ItemData(.NewIndex) = oRS("est_id")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstMod_Elv.ListCount Then
|
|
lstMod_Elv.ListIndex = 0
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub FormShow()
|
|
mboolShow = True
|
|
gintESTID = moRS!est_id
|
|
|
|
With moRS
|
|
txtMatYdge = Field2Str(!MAT_Yds)
|
|
txt12Foam = Field2Str(!FOAM)
|
|
txtFin2 = Field2Str(!FIN2)
|
|
txtCMUYdge = Field2Str(!CMU)
|
|
txtPNotes = Field2Str(!NOTES)
|
|
txtPFAdj = Field2Str(!f_adj)
|
|
txtPLAdj = Field2Str(!l_adj)
|
|
|
|
If !Texture = "SK" Then
|
|
cboTexture.Text = "SKIP TROWEL"
|
|
ElseIf !Texture = "SA" Then
|
|
cboTexture.Text = "Sand"
|
|
ElseIf !Texture = "S2" Then
|
|
cboTexture.Text = "Sand"
|
|
ElseIf !Texture = "S3" Then
|
|
cboTexture.Text = "Sand"
|
|
ElseIf !Texture = "DA" Then
|
|
cboTexture.Text = "Dash"
|
|
ElseIf !Texture = "DF" Then
|
|
cboTexture.Text = "Skip and Sand Finish"
|
|
ElseIf !Texture = "SM" Then
|
|
cboTexture.Text = "Smooth"
|
|
ElseIf !Texture = "QU" Then
|
|
cboTexture.Text = "Quernavaca"
|
|
ElseIf !Texture = "MN" Then
|
|
cboTexture.Text = "Monterrey"
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
|
|
Private Sub FormShowMat()
|
|
mboolShow = True
|
|
|
|
With moRSMat
|
|
txtPMInvNo = Field2Str(!inv_no)
|
|
txtPMDesc = Field2Str(!Desc)
|
|
txtPMQty = Field2Str(!qty)
|
|
txtPMPrice = Format$(Field2Str(!price), "##,###.00")
|
|
txtPMLength = Field2Str(!calc_amt)
|
|
If !D_Flag = "S" Then
|
|
cboPMDFlag.Text = "Supplier"
|
|
Else
|
|
cboPMDFlag.Text = "Yard"
|
|
End If
|
|
|
|
If !M_Type = "L" Then
|
|
cboPMType.Text = "Lath"
|
|
ElseIf !M_Type = "B" Then
|
|
cboPMType.Text = "Brown"
|
|
ElseIf !M_Type = "S" Then
|
|
cboPMType.Text = "Scratch"
|
|
ElseIf !M_Type = "T" Then
|
|
cboPMType.Text = "Texture"
|
|
ElseIf !M_Type = "C" Then
|
|
cboPMType.Text = "CMU"
|
|
End If
|
|
|
|
If !Calc_Flag = "M" Then
|
|
cboPMMetal.Text = "Metal"
|
|
Else
|
|
cboPMMetal.Text = "None"
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
Private Sub FormShowOpt()
|
|
mboolShow = True
|
|
gintOPTID = moRSOpt!optid
|
|
|
|
With moRSOpt
|
|
txtOYdge = Field2Str(!yardage)
|
|
txtODesc = Field2Str(!Desc)
|
|
txtOFin2 = Field2Str(!FIN2)
|
|
txtOFAdj = Field2Str(!f_adj)
|
|
|
|
If !Texture = "SK" Then
|
|
cboOTexture.Text = "SKIP TROWEL"
|
|
ElseIf !Texture = "SA" Then
|
|
cboOTexture.Text = "Sand"
|
|
ElseIf !Texture = "S2" Then
|
|
cboOTexture.Text = "Sand"
|
|
ElseIf !Texture = "S3" Then
|
|
cboOTexture.Text = "Sand"
|
|
ElseIf !Texture = "DA" Then
|
|
cboOTexture.Text = "Dash"
|
|
ElseIf !Texture = "DF" Then
|
|
cboOTexture.Text = "Skip and Sand Finish"
|
|
ElseIf !Texture = "SM" Then
|
|
cboOTexture.Text = "Smooth"
|
|
ElseIf !Texture = "QU" Then
|
|
cboOTexture.Text = "Quernavaca"
|
|
ElseIf !Texture = "MN" Then
|
|
cboOTexture.Text = "Monterrey"
|
|
Else
|
|
cboOTexture.Text = ""
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
Private Sub FormShowOptMat()
|
|
mboolShow = True
|
|
|
|
With moRSOptMat
|
|
txtOMInvNo = Field2Str(!inv_no)
|
|
txtOMDesc = Field2Str(!Desc)
|
|
txtOMQty = Field2Str(!qty)
|
|
txtOMLength = Field2Str(!calc_amt)
|
|
|
|
If !D_Flag = "S" Then
|
|
cboOMDflag.Text = "Supplier"
|
|
Else
|
|
cboOMDflag.Text = "Yard"
|
|
End If
|
|
|
|
If !M_Type = "L" Then
|
|
cboOMType.Text = "Lath"
|
|
ElseIf !M_Type = "B" Then
|
|
cboOMType.Text = "Brown"
|
|
ElseIf !M_Type = "S" Then
|
|
cboOMType.Text = "Scratch"
|
|
ElseIf !M_Type = "T" Then
|
|
cboOMType.Text = "Texture"
|
|
ElseIf !M_Type = "C" Then
|
|
cboOMType.Text = "CMU"
|
|
End If
|
|
|
|
If !Calc_Flag = "M" Then
|
|
cboOMMetal.Text = "Metal"
|
|
Else
|
|
cboOMMetal.Text = "None"
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
|
|
|
|
Private Sub FormSave()
|
|
Dim strName As String
|
|
|
|
On Error GoTo Error_EH
|
|
|
|
If mboolAdding Then
|
|
moRS.AddNew
|
|
End If
|
|
|
|
' Store the controls to the recordset
|
|
Call FieldsSave
|
|
|
|
moRS.Update
|
|
|
|
If mboolAdding Then
|
|
mboolAdding = False
|
|
' strName = Trim$(txtLast) & ", " & Trim$(txtFirst)
|
|
' Reload list box
|
|
' Call ListLoad
|
|
|
|
' lstNames.Text = strName
|
|
' Else
|
|
' Update List Box
|
|
' With lstNames
|
|
' .List(.ListIndex) = txtLast & ", " & _
|
|
' txtFirst
|
|
' End With
|
|
End If
|
|
|
|
Call ToggleButtons
|
|
|
|
Exit Sub
|
|
|
|
Error_EH:
|
|
Call ErrorHandler(moRS.ActiveConnection)
|
|
Exit Sub
|
|
End Sub
|
|
Private Sub ToggleButtons()
|
|
If cmdClose.Caption = "&Close" Then
|
|
cmdClose.Caption = "&Cancel"
|
|
Else
|
|
cmdClose.Caption = "&Close"
|
|
End If
|
|
cmdSave.Enabled = Not cmdSave.Enabled
|
|
cmdNew.Enabled = Not cmdNew.Enabled
|
|
cmdDelete.Enabled = Not cmdDelete.Enabled
|
|
lstNames.Enabled = Not lstNames.Enabled
|
|
End Sub
|
|
|
|
Private Sub TextChanged()
|
|
If Not mboolShow Then
|
|
If Not cmdSave.Enabled Then
|
|
Call ToggleButtons
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Function FormFind() As Boolean
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblPlans "
|
|
strSQL = strSQL & "WHERE est_ID = " & _
|
|
lstMod_Elv.ItemData(lstMod_Elv.ListIndex)
|
|
|
|
If moRS.State = adStateOpen Then
|
|
moRS.Close
|
|
End If
|
|
|
|
moRS.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRS.EOF Then
|
|
FormFind = False
|
|
Else
|
|
FormFind = True
|
|
End If
|
|
End Function
|
|
|
|
Private Function FormFindOpt() As Boolean
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblPOption "
|
|
strSQL = strSQL & "WHERE OPTID = " & lstOptions.ItemData(lstOptions.ListIndex)
|
|
|
|
If moRSOpt.State = adStateOpen Then
|
|
moRSOpt.Close
|
|
End If
|
|
|
|
moRSOpt.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSOpt.EOF Then
|
|
FormFindOpt = False
|
|
Else
|
|
FormFindOpt = True
|
|
End If
|
|
End Function
|
|
Private Function FormFindOptMat() As Boolean
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblPOMatrl "
|
|
strSQL = strSQL & "WHERE OPTID = " & gintOPTID & " and Inv_No = " & lstOptMatrl.ItemData(lstOptMatrl.ListIndex)
|
|
|
|
If moRSOptMat.State = adStateOpen Then
|
|
moRSOptMat.Close
|
|
End If
|
|
|
|
moRSOptMat.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSOptMat.EOF Then
|
|
FormFindOptMat = False
|
|
Else
|
|
FormFindOptMat = True
|
|
End If
|
|
End Function
|
|
Private Function FormFindMat() As Boolean
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblPlanMat "
|
|
strSQL = strSQL & "WHERE Est_Id = " & gintESTID & " AND INV_NO = " & lstPMaterial.ItemData(lstPMaterial.ListIndex)
|
|
|
|
If moRSMat.State = adStateOpen Then
|
|
moRSMat.Close
|
|
End If
|
|
|
|
moRSMat.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSMat.EOF Then
|
|
FormFindMat = False
|
|
Else
|
|
FormFindMat = True
|
|
End If
|
|
End Function
|
|
|
|
|
|
Private Sub lstMod_Elv_Click()
|
|
If lstMod_Elv.ListIndex <> -1 Then
|
|
If FormFind() Then
|
|
Call FormShow
|
|
Call MatLoad
|
|
Call OptLoad
|
|
Call OptMatLoad
|
|
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub FieldsSave()
|
|
With moRS
|
|
' !TTL_Yds = Str2Field(txtTTL_Yds)
|
|
' !LATH_YDS = Str2Field(txtLathYds)
|
|
' !OPENING = Str2Field(txtOpenings)
|
|
' !OPENPR = Str2Field(txtPrcntge)
|
|
' !CMUYDS = Str2Field(txtCMUYds)
|
|
' !NOTES = Str2Field(txtNotes)
|
|
' !f_adj = Str2Field(txtFoamAdj)
|
|
' !l_adj = Str2Field(txtLaborAdj)
|
|
' !FIN2 = Str2Field(txtFin2)
|
|
' !SAND_TONS = Str2Field(txtSandTons)
|
|
' !SAND = Str2Field(txtSandPrice)
|
|
' !METAL = Str2Field(txtMetalFt)
|
|
' !PL = Str2Field(txtStucLab)
|
|
' !LL = Str2Field(txtLathLab)
|
|
' !MLAB = Str2Field(txtMetLab)
|
|
' !MISC = Str2Field(txtMisc)
|
|
' !MATMUP = Str2Field(txtMatMU)
|
|
' !BIDP = Str2Field(txtBidPrwCMU)
|
|
' = Str2Field(txtBidPrice)
|
|
' !BIDC = Str2Field(txtTtlCost)
|
|
' !OH = Str2Field(txtTtlMU)
|
|
' !OHPR = Str2Field(txtOH)
|
|
' = Str2Field(txtPrSQYD)
|
|
' = Str2Field(txtSandAmt)
|
|
' !SL_TG = Str2Field(txtScafGas)
|
|
' !TP = Str2Field(txtTape)
|
|
' !MATCOST = Str2Field(txtTtlMat)
|
|
' !BRDN = Str2Field(txtLabBur)
|
|
' !SR = Str2Field(txtSLRate)
|
|
' !LR = Str2Field(txtLLRate)
|
|
' !MR = Str2Field(txtMLRate)
|
|
' !SCR = Str2Field(txtSGRate)
|
|
' !TP = Str2Field(txtTPRate)
|
|
' !MU = Str2Field(txtMURate)
|
|
' !OHP = Str2Field(txtOHRate)
|
|
' !CR = Str2Field(txtCMURate)
|
|
' !CMULAB = Str2Field(txtCMUPrice)
|
|
' !TPE = Str2Field(txtTape)
|
|
' = Str2Field(txtSandPr)
|
|
' = Str2Field(txtSkipPr)
|
|
' = Str2Field(txtDashPr)
|
|
' = Str2Field(txtSmoothPr)
|
|
' = Str2Field(txtMonterreyPr)
|
|
' = Str2Field(txtQuernavacaPr)
|
|
' = Str2Field(txtDFPr)
|
|
|
|
|
|
End With
|
|
End Sub
|
|
Private Sub cmdNew_Click()
|
|
|
|
mboolAdding = True
|
|
Call FormClear
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdSave_Click()
|
|
Call FormSave
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
Dim intResponse As Integer
|
|
|
|
If lstMod_Elv.ListCount = 0 Then
|
|
intResponse = MsgBox("No Plan/Elevation, do you wish to add one?", vbYesNo + vbQuestion, "Add Records")
|
|
If intResponse = vbYes Then
|
|
Call cmdNew_Click
|
|
Else
|
|
Unload Me
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FormClear()
|
|
txtMatYdge = ""
|
|
txt12Foam = ""
|
|
cboTexture.ListIndex = -1
|
|
txtCMUYdge = ""
|
|
txtPNotes = ""
|
|
txtPFAdj = ""
|
|
txtPLAdj = ""
|
|
txtFin2 = ""
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub MatLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String
|
|
|
|
strSQL = "SELECT Est_ID, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblPlanMat WHERE est_id = " & gintESTID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstPMaterial.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstPMaterial
|
|
|
|
strLine = oRS("D_Flag") & " " & oRS("M_Type") & " " & oRS("Calc_Flag") & vbTab & oRS("Qty") & vbTab & oRS("Inv_No") & vbTab & oRS("desc")
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstPMaterial.ListCount Then
|
|
lstPMaterial.ListIndex = 0
|
|
Else
|
|
txtPMInvNo = ""
|
|
txtPMDesc = ""
|
|
txtPMQty = ""
|
|
txtPMPrice = ""
|
|
txtPMLength = ""
|
|
cboPMDFlag.ListIndex = -1
|
|
cboPMType.ListIndex = -1
|
|
cboPMMetal.ListIndex = -1
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub OptMatLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String
|
|
|
|
strSQL = "SELECT OPTID, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblPOMatrl WHERE optid = " & gintOPTID 'cboProject.ListIndex"
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstOptMatrl.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstOptMatrl
|
|
|
|
strLine = oRS("D_Flag") & " " & oRS("M_Type") & " " & oRS("Calc_Flag") & vbTab & oRS("Qty") & vbTab & oRS("Inv_No") & vbTab & oRS("desc")
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstOptMatrl.ListCount Then
|
|
lstOptMatrl.ListIndex = 0
|
|
Else
|
|
txtOMInvNo = ""
|
|
txtOMDesc = ""
|
|
txtOMQty = ""
|
|
txtOMLength = ""
|
|
cboOMDflag.ListIndex = -1
|
|
cboOMType.ListIndex = -1
|
|
cboOMMetal.ListIndex = -1
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub OptLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String
|
|
|
|
' strSQL = "SELECT * from tblPOption WHERE ESTID = " & gintESTID
|
|
strSQL = "SELECT Est_ID, OPTID, Opt_No, Desc, Yardage from tblPOption WHERE EST_ID = " & gintESTID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstOptions.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstOptions
|
|
|
|
strLine = oRS("Opt_no") & " " & oRS("Yardage") & vbTab & oRS("desc")
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("OPTID")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstOptions.ListCount Then
|
|
lstOptions.ListIndex = 0
|
|
Else
|
|
txtOYdge = ""
|
|
txtODesc = ""
|
|
txtOFin2 = ""
|
|
txtOFAdj = ""
|
|
lstOptMatrl.Clear
|
|
txtOMInvNo = ""
|
|
txtOMDesc = ""
|
|
txtOMQty = ""
|
|
txtOMLength = ""
|
|
cboOMDflag.ListIndex = -1
|
|
cboOMType.ListIndex = -1
|
|
cboOMMetal.ListIndex = -1
|
|
gintOPTID = 0
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub lstOptions_Click()
|
|
If lstOptions.ListIndex <> -1 Then
|
|
If FormFindOpt() Then
|
|
Call FormShowOpt
|
|
Call OptMatLoad
|
|
If lstOptMatrl.ListIndex <> -1 Then
|
|
If FormFindOptMat() Then
|
|
Call FormShowOptMat
|
|
Else
|
|
lstOptMatrl.Clear
|
|
txtOMInvNo = ""
|
|
txtOMDesc = ""
|
|
txtOMQty = ""
|
|
txtOMLength = ""
|
|
cboOMDflag.Text = ""
|
|
cboOMType.Text = ""
|
|
cboOMMetal.Text = ""
|
|
End If
|
|
End If
|
|
Else
|
|
lstOptions.Clear
|
|
txtOYdge = ""
|
|
txtODesc = ""
|
|
txtOFin2 = ""
|
|
txtOFAdj = ""
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub lstOptMatrl_Click()
|
|
If lstOptMatrl.ListIndex <> -1 Then
|
|
If FormFindOptMat() Then
|
|
Call FormShowOptMat
|
|
Else
|
|
lstOptMatrl.Clear
|
|
txtOMInvNo = ""
|
|
txtOMDesc = ""
|
|
txtOMQty = ""
|
|
txtOMLength = ""
|
|
cboOMDflag.Text = ""
|
|
cboOMType.Text = ""
|
|
cboOMMetal.Text = ""
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub lstPMaterial_Click()
|
|
If lstPMaterial.ListIndex <> -1 Then
|
|
If FormFindMat() Then
|
|
Call FormShowMat
|
|
Else
|
|
lstPMaterial.Clear
|
|
txtPMInvNo = ""
|
|
txtPMDesc = ""
|
|
txtPMQty = ""
|
|
txtPMPrice = ""
|
|
txtPMLength = ""
|
|
cboPMDFlag.Text = ""
|
|
cboPMType.Text = ""
|
|
cboPMMetal.Text = ""
|
|
End If
|
|
End If
|
|
|
|
End Sub
|