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>
1398 lines
37 KiB
Plaintext
1398 lines
37 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmTexture
|
|
Caption = "Texture Information"
|
|
ClientHeight = 8595
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 6150
|
|
KeyPreview = -1 'True
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 8595
|
|
ScaleWidth = 6150
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.TextBox txtTCTBLime
|
|
Height = 315
|
|
Left = 5040
|
|
TabIndex = 79
|
|
Top = 7635
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTBCmnt
|
|
Height = 315
|
|
Left = 3855
|
|
TabIndex = 78
|
|
Top = 7620
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTBRS
|
|
Height = 315
|
|
Left = 2595
|
|
TabIndex = 77
|
|
Top = 7635
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTBYds
|
|
Height = 315
|
|
Left = 1425
|
|
TabIndex = 76
|
|
Top = 7635
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTSLime
|
|
Height = 315
|
|
Left = 5040
|
|
TabIndex = 75
|
|
Top = 7185
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTSCmnt
|
|
Height = 315
|
|
Left = 3855
|
|
TabIndex = 74
|
|
Top = 7185
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTSRS
|
|
Height = 315
|
|
Left = 2595
|
|
TabIndex = 73
|
|
Top = 7185
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCTSYds
|
|
Height = 315
|
|
Left = 1425
|
|
TabIndex = 72
|
|
Top = 7185
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOBLime
|
|
Height = 315
|
|
Left = 5040
|
|
TabIndex = 71
|
|
Top = 6735
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOBCmnt
|
|
Height = 315
|
|
Left = 3855
|
|
TabIndex = 70
|
|
Top = 6750
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOBRS
|
|
Height = 315
|
|
Left = 2595
|
|
TabIndex = 69
|
|
Top = 6735
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOBYds
|
|
Height = 315
|
|
Left = 1410
|
|
TabIndex = 68
|
|
Top = 6750
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOSLime
|
|
Height = 315
|
|
Left = 5040
|
|
TabIndex = 67
|
|
Top = 6330
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOSCmnt
|
|
Height = 315
|
|
Left = 3855
|
|
TabIndex = 66
|
|
Top = 6330
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOSRS
|
|
Height = 315
|
|
Left = 2595
|
|
TabIndex = 65
|
|
Top = 6330
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCOSYds
|
|
Height = 315
|
|
Left = 1410
|
|
TabIndex = 64
|
|
Top = 6330
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOYards
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 18
|
|
Top = 3120
|
|
Width = 600
|
|
End
|
|
Begin VB.CommandButton cmdUpdate
|
|
Caption = "Update Three Coat"
|
|
Height = 450
|
|
Left = 4470
|
|
TabIndex = 80
|
|
Top = 8085
|
|
Width = 1605
|
|
End
|
|
Begin VB.TextBox txtTSYds
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3975
|
|
TabIndex = 29
|
|
Top = 4920
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTYards
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3975
|
|
TabIndex = 28
|
|
Top = 4560
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTS30
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 27
|
|
Top = 4245
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTS20
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3975
|
|
TabIndex = 26
|
|
Top = 4245
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTS16
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 2310
|
|
TabIndex = 25
|
|
Top = 4245
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTXRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 1005
|
|
TabIndex = 24
|
|
Top = 4245
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTTRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 23
|
|
Top = 3930
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTLime
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 2310
|
|
TabIndex = 21
|
|
Top = 3930
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTCement
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 1020
|
|
TabIndex = 20
|
|
Top = 3930
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTBRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3975
|
|
TabIndex = 22
|
|
Top = 3930
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOSYds
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 19
|
|
Top = 3450
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtPrimary
|
|
Height = 315
|
|
Left = 4260
|
|
TabIndex = 8
|
|
Top = 630
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtSecondary
|
|
Height = 315
|
|
Left = 4260
|
|
TabIndex = 9
|
|
Top = 945
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOS30
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 17
|
|
Top = 2790
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOS20
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3930
|
|
TabIndex = 16
|
|
Top = 2790
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOS16
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 15
|
|
Top = 2460
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOXRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3930
|
|
TabIndex = 14
|
|
Top = 2460
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOTRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 13
|
|
Top = 2115
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOBRS
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3930
|
|
TabIndex = 12
|
|
Top = 2145
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOLime
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 5490
|
|
TabIndex = 11
|
|
Top = 1815
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtOCement
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 3930
|
|
TabIndex = 10
|
|
Top = 1815
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtDesc
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 3705
|
|
MaxLength = 30
|
|
TabIndex = 7
|
|
Top = 270
|
|
Width = 2415
|
|
End
|
|
Begin VB.TextBox txtTexture
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 2895
|
|
MaxLength = 2
|
|
TabIndex = 6
|
|
Top = 270
|
|
Width = 735
|
|
End
|
|
Begin VB.CommandButton cmdExit
|
|
Caption = "E&xit"
|
|
Height = 555
|
|
Left = 4995
|
|
TabIndex = 4
|
|
TabStop = 0 'False
|
|
Top = 5325
|
|
Width = 1080
|
|
End
|
|
Begin VB.CommandButton cmdThree
|
|
Caption = "&Three Coat"
|
|
Height = 555
|
|
Left = 3355
|
|
TabIndex = 3
|
|
TabStop = 0 'False
|
|
Top = 5325
|
|
Width = 1080
|
|
End
|
|
Begin VB.CommandButton cmdSave
|
|
Caption = "&Save"
|
|
Enabled = 0 'False
|
|
Height = 555
|
|
Left = 1725
|
|
TabIndex = 31
|
|
Top = 5325
|
|
Width = 1080
|
|
End
|
|
Begin VB.CommandButton cmdAdd
|
|
Caption = "&Add"
|
|
Height = 555
|
|
Left = 105
|
|
TabIndex = 2
|
|
TabStop = 0 'False
|
|
Top = 5325
|
|
Width = 1080
|
|
End
|
|
Begin VB.ListBox lstTexture
|
|
Height = 2790
|
|
Left = 180
|
|
Sorted = -1 'True
|
|
TabIndex = 0
|
|
Top = 285
|
|
Width = 2595
|
|
End
|
|
Begin VB.Line Line13
|
|
X1 = 6090
|
|
X2 = 6090
|
|
Y1 = 6255
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line12
|
|
X1 = 4740
|
|
X2 = 4740
|
|
Y1 = 6255
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line11
|
|
X1 = 3570
|
|
X2 = 3570
|
|
Y1 = 6255
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line10
|
|
X1 = 2325
|
|
X2 = 2325
|
|
Y1 = 6255
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line9
|
|
X1 = 1245
|
|
X2 = 1245
|
|
Y1 = 6255
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line8
|
|
X1 = 60
|
|
X2 = 6105
|
|
Y1 = 8010
|
|
Y2 = 8010
|
|
End
|
|
Begin VB.Line Line7
|
|
X1 = 45
|
|
X2 = 6090
|
|
Y1 = 7560
|
|
Y2 = 7560
|
|
End
|
|
Begin VB.Line Line6
|
|
X1 = 45
|
|
X2 = 6090
|
|
Y1 = 7140
|
|
Y2 = 7140
|
|
End
|
|
Begin VB.Line Line5
|
|
X1 = 45
|
|
X2 = 6090
|
|
Y1 = 6690
|
|
Y2 = 6690
|
|
End
|
|
Begin VB.Line Line4
|
|
X1 = 45
|
|
X2 = 6090
|
|
Y1 = 6255
|
|
Y2 = 6255
|
|
End
|
|
Begin VB.Label lblTOBrown
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "TO-Brown"
|
|
Height = 195
|
|
Left = 375
|
|
TabIndex = 63
|
|
Top = 7650
|
|
Width = 720
|
|
End
|
|
Begin VB.Label lblTOScratch
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "TO-Scratch"
|
|
Height = 195
|
|
Left = 270
|
|
TabIndex = 62
|
|
Top = 7245
|
|
Width = 825
|
|
End
|
|
Begin VB.Label lblOBrown
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Orders-Brown"
|
|
Height = 195
|
|
Left = 135
|
|
TabIndex = 61
|
|
Top = 6810
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblOScratch
|
|
AutoSize = -1 'True
|
|
Caption = "Orders-Scratch"
|
|
Height = 195
|
|
Left = 30
|
|
TabIndex = 60
|
|
Top = 6360
|
|
Width = 1065
|
|
End
|
|
Begin VB.Label lblTCLime
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Lime"
|
|
Height = 195
|
|
Left = 5160
|
|
TabIndex = 59
|
|
Top = 6030
|
|
Width = 330
|
|
End
|
|
Begin VB.Label lblTCCement
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Cement"
|
|
Height = 195
|
|
Left = 3915
|
|
TabIndex = 58
|
|
Top = 6030
|
|
Width = 540
|
|
End
|
|
Begin VB.Label lblTCORS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "River Sand"
|
|
Height = 195
|
|
Left = 2565
|
|
TabIndex = 57
|
|
Top = 6030
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblTCOYds
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Yds/Batch"
|
|
Height = 195
|
|
Left = 1320
|
|
TabIndex = 56
|
|
Top = 6030
|
|
Width = 765
|
|
End
|
|
Begin VB.Line Line3
|
|
BorderWidth = 2
|
|
X1 = 1665
|
|
X2 = 0
|
|
Y1 = 3135
|
|
Y2 = 3135
|
|
End
|
|
Begin VB.Label lblTSYds
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Square Footage for Synthetic Finish around popouts:"
|
|
Height = 195
|
|
Left = 210
|
|
TabIndex = 55
|
|
Top = 4980
|
|
Width = 3720
|
|
End
|
|
Begin VB.Label lblTYards
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Yards Per Batch/SqFootage for Synthetic:"
|
|
Height = 195
|
|
Left = 945
|
|
TabIndex = 54
|
|
Top = 4665
|
|
Width = 2985
|
|
End
|
|
Begin VB.Label lblTS30
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 30:"
|
|
Height = 195
|
|
Left = 4800
|
|
TabIndex = 53
|
|
Top = 4305
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblTS20
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 20:"
|
|
Height = 195
|
|
Left = 3285
|
|
TabIndex = 52
|
|
Top = 4305
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblTS16
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 16:"
|
|
Height = 195
|
|
Left = 1650
|
|
TabIndex = 51
|
|
Top = 4305
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblTTRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Texture RS:"
|
|
Height = 195
|
|
Left = 4650
|
|
TabIndex = 50
|
|
Top = 4005
|
|
Width = 855
|
|
End
|
|
Begin VB.Label lblTXRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Extra RSand:"
|
|
Height = 195
|
|
Left = 45
|
|
TabIndex = 49
|
|
Top = 4305
|
|
Width = 945
|
|
End
|
|
Begin VB.Label lblTBRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Brown RSand:"
|
|
Height = 195
|
|
Left = 2940
|
|
TabIndex = 48
|
|
Top = 4005
|
|
Width = 1035
|
|
End
|
|
Begin VB.Label lblTLime
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Lime:"
|
|
Height = 195
|
|
Left = 1920
|
|
TabIndex = 47
|
|
Top = 4005
|
|
Width = 375
|
|
End
|
|
Begin VB.Label lblTCement
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Cement:"
|
|
Height = 195
|
|
Left = 405
|
|
TabIndex = 46
|
|
Top = 4005
|
|
Width = 585
|
|
End
|
|
Begin VB.Line Line2
|
|
BorderWidth = 2
|
|
X1 = 1665
|
|
X2 = 1665
|
|
Y1 = 3825
|
|
Y2 = 3135
|
|
End
|
|
Begin VB.Line Line1
|
|
BorderWidth = 2
|
|
X1 = 6135
|
|
X2 = 1665
|
|
Y1 = 3825
|
|
Y2 = 3825
|
|
End
|
|
Begin VB.Label lblSYds
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Square Footage for Synthetic Finish around popouts:"
|
|
Height = 195
|
|
Left = 1740
|
|
TabIndex = 45
|
|
Top = 3555
|
|
Width = 3720
|
|
End
|
|
Begin VB.Label lblYards
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Yards Per Batch/SqFootage for Synthetic:"
|
|
Height = 195
|
|
Left = 2490
|
|
TabIndex = 44
|
|
Top = 3195
|
|
Width = 2985
|
|
End
|
|
Begin VB.Label lblSecondary
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Secondary Txture:"
|
|
Height = 195
|
|
Left = 2910
|
|
TabIndex = 43
|
|
Top = 1035
|
|
Width = 1305
|
|
End
|
|
Begin VB.Label lblPrimary
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Primary Txture:"
|
|
Height = 195
|
|
Left = 3165
|
|
TabIndex = 42
|
|
Top = 675
|
|
Width = 1050
|
|
End
|
|
Begin VB.Label lblOS30
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 30:"
|
|
Height = 195
|
|
Left = 4815
|
|
TabIndex = 41
|
|
Top = 2850
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblOS20
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 20:"
|
|
Height = 195
|
|
Left = 3240
|
|
TabIndex = 40
|
|
Top = 2880
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblOS16
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Silica 16:"
|
|
Height = 195
|
|
Left = 4815
|
|
TabIndex = 39
|
|
Top = 2535
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblOXRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Extra RSand:"
|
|
Height = 195
|
|
Left = 2940
|
|
TabIndex = 38
|
|
Top = 2565
|
|
Width = 945
|
|
End
|
|
Begin VB.Label lblOTRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Texture RS:"
|
|
Height = 195
|
|
Left = 4605
|
|
TabIndex = 37
|
|
Top = 2190
|
|
Width = 855
|
|
End
|
|
Begin VB.Label lblOBRS
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Brown RSand:"
|
|
Height = 195
|
|
Left = 2850
|
|
TabIndex = 36
|
|
Top = 2220
|
|
Width = 1035
|
|
End
|
|
Begin VB.Label lblOLime
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Lime:"
|
|
Height = 195
|
|
Left = 5085
|
|
TabIndex = 35
|
|
Top = 1860
|
|
Width = 375
|
|
End
|
|
Begin VB.Label lblOCement
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Cement:"
|
|
Height = 195
|
|
Left = 3285
|
|
TabIndex = 34
|
|
Top = 1890
|
|
Width = 585
|
|
End
|
|
Begin VB.Label lblAmts
|
|
Alignment = 2 'Center
|
|
AutoSize = -1 'True
|
|
Caption = "All Amounts Are Per Batch"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2895
|
|
TabIndex = 33
|
|
Top = 1275
|
|
Width = 3225
|
|
End
|
|
Begin VB.Label lblTakeOff
|
|
Alignment = 2 'Center
|
|
Caption = "TakeOff Information"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 450
|
|
Left = 240
|
|
TabIndex = 32
|
|
Top = 3330
|
|
Width = 1080
|
|
End
|
|
Begin VB.Label lblOrders
|
|
AutoSize = -1 'True
|
|
Caption = "Orders Information"
|
|
Height = 195
|
|
Left = 2865
|
|
TabIndex = 30
|
|
Top = 1575
|
|
Width = 1290
|
|
End
|
|
Begin VB.Label lblNew
|
|
AutoSize = -1 'True
|
|
Caption = "Enter New Texture/Description"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 195
|
|
Left = 2895
|
|
TabIndex = 5
|
|
Top = 45
|
|
Visible = 0 'False
|
|
Width = 2655
|
|
End
|
|
Begin VB.Label lblTexture
|
|
AutoSize = -1 'True
|
|
Caption = "Texture Type/Description"
|
|
Height = 195
|
|
Left = 180
|
|
TabIndex = 1
|
|
Top = 45
|
|
Width = 1815
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmTexture"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
Dim mintCONTID As Integer
|
|
Dim moRSFinish As Recordset, moRSTC As Recordset
|
|
Dim mboolSHOW As Boolean, mboolAdding As Boolean, mboolTCShow As Boolean
|
|
|
|
Private Sub TextureLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String, lngRET As Long, aTabs(2) As Long
|
|
Dim dblSUM As Double
|
|
|
|
On Error GoTo Error_EH
|
|
|
|
strSQL = "SELECT AUTOID, ID, Desc FROM tblFinish"
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstTexture.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstTexture
|
|
|
|
strLine = Field2Str(oRS!id) & " " & oRS!Desc ' & vbTab & oRS!o_qty
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS!autoid
|
|
End With
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstTexture.ListCount Then
|
|
lstTexture.ListIndex = 0
|
|
End If
|
|
|
|
Exit Sub
|
|
|
|
Error_EH:
|
|
gstrMODULE = "Form TEXTURE - Module TextureLoad"
|
|
Call ErrorHandler2
|
|
gstrMODULE = ""
|
|
Exit Sub
|
|
End Sub
|
|
|
|
Private Sub cmdAdd_Click()
|
|
cmdAdd.Enabled = False
|
|
cmdSave.Enabled = True
|
|
cmdExit.Enabled = False
|
|
mboolAdding = True
|
|
lstTexture.Enabled = False
|
|
Call FormClear
|
|
lblNew.Visible = True
|
|
txtTexture.Enabled = True
|
|
txtDesc.Enabled = True
|
|
txtTexture.SetFocus
|
|
End Sub
|
|
|
|
Private Sub cmdExit_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdSave_Click()
|
|
lstTexture.Enabled = True
|
|
cmdSave.Enabled = False
|
|
cmdAdd.Enabled = True
|
|
cmdExit.Enabled = True
|
|
Call FormSave
|
|
lstTexture.SetFocus
|
|
txtTexture.Enabled = False
|
|
txtDesc.Enabled = False
|
|
lblNew.Visible = False
|
|
End Sub
|
|
|
|
Private Sub cmdThree_Click()
|
|
frmTexture.Height = 9000
|
|
cmdSave.Enabled = False
|
|
cmdAdd.Enabled = False
|
|
cmdThree.Enabled = False
|
|
lstTexture.Enabled = False
|
|
If TCFind() Then
|
|
Call TCShow
|
|
End If
|
|
txtTCOSYds.SetFocus
|
|
End Sub
|
|
|
|
Private Sub cmdUpdate_Click()
|
|
Call TCSave
|
|
frmTexture.Height = 6375
|
|
lstTexture.Enabled = True
|
|
cmdAdd.Enabled = True
|
|
cmdThree.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
frmTexture.Height = 6375
|
|
Call TextureLoad
|
|
End Sub
|
|
|
|
Private Sub FormClear()
|
|
txtDesc = ""
|
|
txtTexture = ""
|
|
txtOCement = 0
|
|
txtOLime = 0
|
|
txtOBRS = 0
|
|
txtOTRS = 0
|
|
txtOXRS = 0
|
|
txtOS16 = 0
|
|
txtOS20 = 0
|
|
txtOS30 = 0
|
|
txtOYards = 0
|
|
txtOSYds = 0
|
|
txtPrimary = ""
|
|
txtSecondary = ""
|
|
txtTCement = 0
|
|
txtTLime = 0
|
|
txtTBRS = 0
|
|
txtTTRS = 0
|
|
txtTXRS = 0
|
|
txtTS16 = 0
|
|
txtTS20 = 0
|
|
txtTS30 = 0
|
|
txtTYards = 0
|
|
txtTSYds = 0
|
|
End Sub
|
|
|
|
Private Sub TCClear()
|
|
txtTCOBCmnt = 0
|
|
txtTCOBLime = 0
|
|
txtTCOBYds = 0
|
|
txtTCOBRS = 0
|
|
txtTCOSCmnt = 0
|
|
txtTCOSLime = 0
|
|
txtTCOSYds = 0
|
|
txtTCOSRS = 0
|
|
txtTCTBCmnt = 0
|
|
txtTCTBLime = 0
|
|
txtTCTBYds = 0
|
|
txtTCTBRS = 0
|
|
txtTCTSCmnt = 0
|
|
txtTCTSLime = 0
|
|
txtTCTSYds = 0
|
|
txtTCTSRS = 0
|
|
End Sub
|
|
|
|
Private Function FormFind() As Boolean
|
|
Dim strSQL As String, strPlan As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblFinish "
|
|
strSQL = strSQL & "WHERE AUTOID = " & mintCONTID
|
|
|
|
Set moRSFinish = New Recordset
|
|
|
|
moRSFinish.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSFinish.EOF Then
|
|
FormFind = False
|
|
Call FormClear
|
|
Else
|
|
FormFind = True
|
|
End If
|
|
End Function
|
|
|
|
Private Function TCFind() As Boolean
|
|
Dim strSQL As String, strPlan As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblTCInfo "
|
|
|
|
Set moRSTC = New Recordset
|
|
|
|
moRSTC.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSTC.EOF Then
|
|
TCFind = False
|
|
Call TCClear
|
|
Else
|
|
TCFind = True
|
|
End If
|
|
End Function
|
|
|
|
Private Sub FieldsSave()
|
|
On Error GoTo Error_EH
|
|
|
|
|
|
With moRSFinish
|
|
!cmnt = Field2Str2(txtOCement)
|
|
!lime = Field2Str2(txtOLime)
|
|
!brs = Field2Str2(txtOBRS)
|
|
!trs = Field2Str2(txtOTRS)
|
|
!xrs = Field2Str2(txtOXRS)
|
|
!s16 = Field2Str2(txtOS16)
|
|
!s20 = Field2Str2(txtOS20)
|
|
!s30 = Field2Str2(txtOS30)
|
|
!yds = Field2Str2(txtOYards)
|
|
!s_yds = Field2Str2(txtOSYds)
|
|
!Primary = Field2Str2(txtPrimary)
|
|
!Secondary = Field2Str2(txtSecondary)
|
|
!t_cmnt = Field2Str2(txtTCement)
|
|
!t_lime = Field2Str2(txtTLime)
|
|
!t_brs = Field2Str2(txtTBRS)
|
|
!t_trs = Field2Str2(txtTTRS)
|
|
!t_xrs = Field2Str2(txtTXRS)
|
|
!t_s16 = Field2Str2(txtTS16)
|
|
!t_s20 = Field2Str2(txtTS20)
|
|
!t_s30 = Field2Str2(txtTS30)
|
|
!t_yds = Field2Str2(txtTYards)
|
|
!t_s_yds = Field2Str2(txtTSYds)
|
|
!Update = Now()
|
|
!U_USER = gstrLOGIN
|
|
End With
|
|
|
|
Exit Sub
|
|
Error_EH:
|
|
gstrMODULE = " Form Contractor - Module FieldsSave"
|
|
Call ErrorHandler2
|
|
gstrMODULE = ""
|
|
Exit Sub
|
|
End Sub
|
|
|
|
Private Sub FormSave()
|
|
Dim intBookmark As Integer
|
|
|
|
On Error GoTo Error_EH
|
|
|
|
If mboolAdding Then
|
|
moRSFinish.AddNew
|
|
moRSFinish!Desc = Field2Str2(txtDesc)
|
|
moRSFinish!id = Field2Str2(txtTexture)
|
|
Else
|
|
intBookmark = lstTexture.ListIndex
|
|
End If
|
|
|
|
Call FieldsSave
|
|
|
|
moRSFinish.Update
|
|
|
|
|
|
If mboolAdding Then
|
|
mboolAdding = False
|
|
intBookmark = 0
|
|
End If
|
|
|
|
Call TextureLoad
|
|
|
|
lstTexture.ListIndex = intBookmark
|
|
Exit Sub
|
|
|
|
Error_EH:
|
|
Call ErrorHandler(moRSFinish.ActiveConnection)
|
|
Exit Sub
|
|
End Sub
|
|
|
|
Private Sub TCSave()
|
|
|
|
On Error GoTo Error_EH
|
|
|
|
With moRSTC
|
|
!brn_cmnt = Field2Str2(txtTCOBCmnt)
|
|
!brn_lime = Field2Str2(txtTCOBLime)
|
|
!brn_yd = Field2Str2(txtTCOBYds)
|
|
!brn_rs = Field2Str2(txtTCOBRS)
|
|
!scr_cmnt = Field2Str2(txtTCOSCmnt)
|
|
!scr_lime = Field2Str2(txtTCOSLime)
|
|
!scr_yd = Field2Str2(txtTCOSYds)
|
|
!scr_rs = Field2Str2(txtTCOSRS)
|
|
!t_brn_cmnt = Field2Str2(txtTCTBCmnt)
|
|
!t_brn_lime = Field2Str2(txtTCTBLime)
|
|
!t_brn_yd = Field2Str2(txtTCTBYds)
|
|
!t_brn_rs = Field2Str2(txtTCTBRS)
|
|
!t_scr_cmnt = Field2Str2(txtTCTSCmnt)
|
|
!t_scr_lime = Field2Str2(txtTCTSLime)
|
|
!t_scr_yd = Field2Str2(txtTCTSYds)
|
|
!t_scr_rs = Field2Str2(txtTCTSRS)
|
|
!Update = Now()
|
|
!U_USER = gstrLOGIN
|
|
End With
|
|
|
|
moRSTC.Update
|
|
|
|
Exit Sub
|
|
|
|
Error_EH:
|
|
Call ErrorHandler(moRSFinish.ActiveConnection)
|
|
Exit Sub
|
|
End Sub
|
|
|
|
Private Sub FormShow()
|
|
Dim oRS As Recordset, strSQL As String, intPCount As Integer
|
|
|
|
mboolSHOW = True
|
|
mintCONTID = moRSFinish!autoid
|
|
|
|
With moRSFinish
|
|
txtDesc = Field2Str(!Desc)
|
|
txtTexture = Field2Str(!id)
|
|
txtOCement = Field2Str(!cmnt)
|
|
txtOLime = Field2Str(!lime)
|
|
txtOBRS = Field2Str(!brs)
|
|
txtOTRS = Field2Str(!trs)
|
|
txtOXRS = Field2Str(!xrs)
|
|
txtOS16 = Field2Str(!s16)
|
|
txtOS20 = Field2Str(!s20)
|
|
txtOS30 = Field2Str(!s30)
|
|
txtOYards = Field2Str(!yds)
|
|
txtOSYds = Field2Str(!s_yds)
|
|
txtPrimary = Field2Str(!Primary)
|
|
txtSecondary = Field2Str(!Secondary)
|
|
txtTCement = Field2Str(!t_cmnt)
|
|
txtTLime = Field2Str(!t_lime)
|
|
txtTBRS = Field2Str(!t_brs)
|
|
txtTTRS = Field2Str(!t_trs)
|
|
txtTXRS = Field2Str(!t_xrs)
|
|
txtTS16 = Field2Str(!t_s16)
|
|
txtTS20 = Field2Str(!t_s20)
|
|
txtTS30 = Field2Str(!t_s30)
|
|
txtTYards = Field2Str(!t_yds)
|
|
txtTSYds = Field2Str(!t_s_yds)
|
|
End With
|
|
|
|
mboolSHOW = False
|
|
End Sub
|
|
|
|
Private Sub TCShow()
|
|
Dim oRS As Recordset, strSQL As String, intPCount As Integer
|
|
|
|
mboolSHOW = True
|
|
|
|
With moRSTC
|
|
txtTCOBCmnt = Field2Str(!brn_cmnt)
|
|
txtTCOBLime = Field2Str(!brn_lime)
|
|
txtTCOBYds = Field2Str(!brn_yd)
|
|
txtTCOBRS = Field2Str(!brn_rs)
|
|
txtTCOSCmnt = Field2Str(!scr_cmnt)
|
|
txtTCOSLime = Field2Str(!scr_lime)
|
|
txtTCOSYds = Field2Str(!scr_yd)
|
|
txtTCOSRS = Field2Str(!scr_rs)
|
|
txtTCTBCmnt = Field2Str(!t_brn_cmnt)
|
|
txtTCTBLime = Field2Str(!t_brn_lime)
|
|
txtTCTBYds = Field2Str(!t_brn_yd)
|
|
txtTCTBRS = Field2Str(!t_brn_rs)
|
|
txtTCTSCmnt = Field2Str(!t_scr_cmnt)
|
|
txtTCTSLime = Field2Str(!t_scr_lime)
|
|
txtTCTSYds = Field2Str(!t_scr_yd)
|
|
txtTCTSRS = Field2Str(!t_scr_rs)
|
|
End With
|
|
|
|
mboolSHOW = False
|
|
End Sub
|
|
|
|
Private Sub lstTexture_Click()
|
|
If lstTexture.ListIndex <> -1 Then
|
|
mintCONTID = lstTexture.ItemData(lstTexture.ListIndex)
|
|
If FormFind() Then
|
|
Call FormShow
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub lstTexture_DblClick()
|
|
cmdSave.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Form_KeyPress(KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
SendKeys "{TAB}"
|
|
KeyAscii = 0
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub txtDesc_GotFocus()
|
|
Call FieldSelect(txtDesc)
|
|
End Sub
|
|
|
|
Private Sub txtDesc_LostFocus()
|
|
txtDesc = UCase(txtDesc)
|
|
End Sub
|
|
|
|
Private Sub txtOBRS_GotFocus()
|
|
Call FieldSelect(txtOBRS)
|
|
End Sub
|
|
|
|
Private Sub txtOCement_GotFocus()
|
|
Call FieldSelect(txtOCement)
|
|
End Sub
|
|
|
|
Private Sub txtOLime_GotFocus()
|
|
Call FieldSelect(txtOLime)
|
|
End Sub
|
|
|
|
Private Sub txtOS16_GotFocus()
|
|
Call FieldSelect(txtOS16)
|
|
End Sub
|
|
|
|
Private Sub txtOS20_GotFocus()
|
|
Call FieldSelect(txtOS20)
|
|
End Sub
|
|
|
|
Private Sub txtOS30_GotFocus()
|
|
Call FieldSelect(txtOS30)
|
|
End Sub
|
|
|
|
Private Sub txtOSYds_GotFocus()
|
|
Call FieldSelect(txtOSYds)
|
|
End Sub
|
|
|
|
Private Sub txtOTRS_GotFocus()
|
|
Call FieldSelect(txtOTRS)
|
|
End Sub
|
|
|
|
Private Sub txtOXRS_GotFocus()
|
|
Call FieldSelect(txtOXRS)
|
|
End Sub
|
|
|
|
Private Sub txtOYards_GotFocus()
|
|
Call FieldSelect(txtOYards)
|
|
End Sub
|
|
|
|
Private Sub txtPrimary_GotFocus()
|
|
Call FieldSelect(txtPrimary)
|
|
End Sub
|
|
|
|
Private Sub txtPrimary_LostFocus()
|
|
txtPrimary = UCase(txtPrimary)
|
|
End Sub
|
|
|
|
Private Sub txtSecondary_GotFocus()
|
|
Call FieldSelect(txtSecondary)
|
|
End Sub
|
|
|
|
Private Sub txtSecondary_LostFocus()
|
|
txtSecondary = UCase(txtSecondary)
|
|
End Sub
|
|
|
|
Private Sub txtTBRS_GotFocus()
|
|
Call FieldSelect(txtTBRS)
|
|
End Sub
|
|
|
|
Private Sub txtTCement_GotFocus()
|
|
Call FieldSelect(txtTCement)
|
|
End Sub
|
|
|
|
Private Sub txtTCOBCmnt_GotFocus()
|
|
Call FieldSelect(txtTCOBCmnt)
|
|
End Sub
|
|
|
|
Private Sub txtTCOBLime_GotFocus()
|
|
Call FieldSelect(txtTCOBLime)
|
|
End Sub
|
|
|
|
Private Sub txtTCOBRS_GotFocus()
|
|
Call FieldSelect(txtTCOBRS)
|
|
End Sub
|
|
|
|
Private Sub txtTCOBYds_GotFocus()
|
|
Call FieldSelect(txtTCOBYds)
|
|
End Sub
|
|
|
|
Private Sub txtTCOSCmnt_GotFocus()
|
|
Call FieldSelect(txtTCOSCmnt)
|
|
End Sub
|
|
|
|
Private Sub txtTCOSLime_GotFocus()
|
|
Call FieldSelect(txtTCOSLime)
|
|
End Sub
|
|
|
|
Private Sub txtTCOSRS_GotFocus()
|
|
Call FieldSelect(txtTCOSRS)
|
|
End Sub
|
|
|
|
Private Sub txtTCOSYds_GotFocus()
|
|
Call FieldSelect(txtTCOSYds)
|
|
End Sub
|
|
|
|
Private Sub txtTCTBCmnt_GotFocus()
|
|
Call FieldSelect(txtTCTBCmnt)
|
|
End Sub
|
|
|
|
Private Sub txtTCTBLime_GotFocus()
|
|
Call FieldSelect(txtTCTBLime)
|
|
End Sub
|
|
|
|
Private Sub txtTCTBRS_GotFocus()
|
|
Call FieldSelect(txtTCTBRS)
|
|
End Sub
|
|
|
|
Private Sub txtTCTBYds_GotFocus()
|
|
Call FieldSelect(txtTCTBYds)
|
|
End Sub
|
|
|
|
Private Sub txtTCTSCmnt_GotFocus()
|
|
Call FieldSelect(txtTCTSCmnt)
|
|
End Sub
|
|
|
|
Private Sub txtTCTSLime_GotFocus()
|
|
Call FieldSelect(txtTCTSLime)
|
|
End Sub
|
|
|
|
Private Sub txtTCTSRS_GotFocus()
|
|
Call FieldSelect(txtTCTSRS)
|
|
End Sub
|
|
|
|
Private Sub txtTCTSYds_GotFocus()
|
|
Call FieldSelect(txtTCTSYds)
|
|
End Sub
|
|
|
|
Private Sub txtTexture_GotFocus()
|
|
Call FieldSelect(txtTexture)
|
|
End Sub
|
|
|
|
Private Sub txtTexture_LostFocus()
|
|
txtTexture = UCase(txtTexture)
|
|
End Sub
|
|
|
|
Private Sub txtTLime_GotFocus()
|
|
Call FieldSelect(txtTLime)
|
|
End Sub
|
|
|
|
Private Sub txtTS16_GotFocus()
|
|
Call FieldSelect(txtTS16)
|
|
End Sub
|
|
|
|
Private Sub txtTS20_GotFocus()
|
|
Call FieldSelect(txtTS20)
|
|
End Sub
|
|
|
|
Private Sub txtTS30_GotFocus()
|
|
Call FieldSelect(txtTS30)
|
|
End Sub
|
|
|
|
Private Sub txtTSYds_GotFocus()
|
|
Call FieldSelect(txtTSYds)
|
|
End Sub
|
|
|
|
Private Sub txtTTRS_GotFocus()
|
|
Call FieldSelect(txtTTRS)
|
|
End Sub
|
|
|
|
Private Sub txtTXRS_GotFocus()
|
|
Call FieldSelect(txtTXRS)
|
|
End Sub
|
|
|
|
Private Sub txtTYards_GotFocus()
|
|
Call FieldSelect(txtTYards)
|
|
End Sub
|