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>
2645 lines
80 KiB
Plaintext
2645 lines
80 KiB
Plaintext
VERSION 5.00
|
|
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
|
|
Begin VB.Form frmLotInfo
|
|
BorderStyle = 1 'Fixed Single
|
|
Caption = "Lot Information"
|
|
ClientHeight = 8625
|
|
ClientLeft = 45
|
|
ClientTop = 225
|
|
ClientWidth = 11910
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 8625
|
|
ScaleWidth = 11910
|
|
Begin VB.TextBox txtOneKote
|
|
Enabled = 0 'False
|
|
Height = 315
|
|
Left = 9240
|
|
TabIndex = 130
|
|
Top = 420
|
|
Width = 2475
|
|
End
|
|
Begin VB.TextBox txtFinish
|
|
Enabled = 0 'False
|
|
Height = 315
|
|
Left = 9240
|
|
TabIndex = 128
|
|
Top = 60
|
|
Width = 2475
|
|
End
|
|
Begin VB.TextBox txtNotes
|
|
Height = 1275
|
|
Left = 3660
|
|
MultiLine = -1 'True
|
|
TabIndex = 77
|
|
Top = 1200
|
|
Width = 4875
|
|
End
|
|
Begin VB.TextBox txtLaborAdj
|
|
Height = 315
|
|
Left = 7920
|
|
TabIndex = 76
|
|
Top = 420
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtFin2
|
|
Height = 315
|
|
Left = 5760
|
|
TabIndex = 75
|
|
Top = 420
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtLODate
|
|
Height = 315
|
|
Left = 7200
|
|
TabIndex = 74
|
|
Top = 780
|
|
Width = 1335
|
|
End
|
|
Begin VB.TextBox txtFoamAdj
|
|
Height = 315
|
|
Left = 7920
|
|
TabIndex = 73
|
|
Top = 60
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtTtlYdge
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 72
|
|
Top = 1860
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtCMUYdge
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 71
|
|
Top = 2220
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txt28Foam
|
|
Height = 315
|
|
Left = 5760
|
|
TabIndex = 70
|
|
Top = 60
|
|
Width = 600
|
|
End
|
|
Begin VB.TextBox txtProject
|
|
Enabled = 0 'False
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 69
|
|
Top = 60
|
|
Width = 2895
|
|
End
|
|
Begin VB.TextBox txtLotNo
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 68
|
|
Top = 1500
|
|
Width = 1095
|
|
End
|
|
Begin VB.TextBox txtModel
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 6
|
|
Top = 1140
|
|
Width = 1095
|
|
End
|
|
Begin VB.TextBox txtOwner
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 5
|
|
Top = 780
|
|
Width = 2895
|
|
End
|
|
Begin VB.TextBox txtAddress
|
|
Height = 315
|
|
Left = 1440
|
|
TabIndex = 3
|
|
Top = 420
|
|
Width = 2895
|
|
End
|
|
Begin TabDlg.SSTab SSTLotInfo
|
|
Height = 5655
|
|
Left = 120
|
|
TabIndex = 8
|
|
Top = 2760
|
|
Width = 11595
|
|
_ExtentX = 20452
|
|
_ExtentY = 9975
|
|
_Version = 393216
|
|
Tabs = 7
|
|
Tab = 3
|
|
TabsPerRow = 4
|
|
TabHeight = 520
|
|
TabCaption(0) = "General Information"
|
|
TabPicture(0) = "frmLotInfo.frx":0000
|
|
Tab(0).ControlEnabled= 0 'False
|
|
Tab(0).Control(0)= "cmdSaveLotInfo"
|
|
Tab(0).Control(1)= "cmdOrders"
|
|
Tab(0).Control(2)= "cmdExit"
|
|
Tab(0).Control(3)= "cmdCalc"
|
|
Tab(0).ControlCount= 4
|
|
TabCaption(1) = "Super's Orders"
|
|
TabPicture(1) = "frmLotInfo.frx":001C
|
|
Tab(1).ControlEnabled= 0 'False
|
|
Tab(1).Control(0)= "lblTake138"
|
|
Tab(1).Control(1)= "lblSuperBB"
|
|
Tab(1).Control(2)= "linSO"
|
|
Tab(1).Control(3)= "lblSuper12"
|
|
Tab(1).Control(4)= "lblSuper783"
|
|
Tab(1).Control(5)= "lblSuper78"
|
|
Tab(1).Control(6)= "lblSuper38"
|
|
Tab(1).Control(7)= "lblSuper138"
|
|
Tab(1).Control(8)= "lblSuperML"
|
|
Tab(1).Control(9)= "lblSuperRL"
|
|
Tab(1).Control(10)= "lblSuperDW"
|
|
Tab(1).Control(11)= "lblSuperSP"
|
|
Tab(1).Control(12)= "lblSupHelp"
|
|
Tab(1).Control(13)= "lblPreOrder"
|
|
Tab(1).Control(14)= "txtTake138"
|
|
Tab(1).Control(15)= "txtSuperBB"
|
|
Tab(1).Control(16)= "txtSuper12"
|
|
Tab(1).Control(17)= "txtSuper783"
|
|
Tab(1).Control(18)= "txtSuper78"
|
|
Tab(1).Control(19)= "txtSuper38"
|
|
Tab(1).Control(20)= "txtSuper1383"
|
|
Tab(1).Control(21)= "txtSuperRL"
|
|
Tab(1).Control(22)= "txtSuperML"
|
|
Tab(1).Control(23)= "txtSuperDW"
|
|
Tab(1).Control(24)= "txtSuperSP"
|
|
Tab(1).Control(25)= "lstPreOrder"
|
|
Tab(1).ControlCount= 26
|
|
TabCaption(2) = "Materials"
|
|
TabPicture(2) = "frmLotInfo.frx":0038
|
|
Tab(2).ControlEnabled= 0 'False
|
|
Tab(2).Control(0)= "lblLMDesc"
|
|
Tab(2).Control(1)= "lblLMInvNo"
|
|
Tab(2).Control(2)= "lblQty"
|
|
Tab(2).Control(3)= "lblLMDFlag"
|
|
Tab(2).Control(4)= "lblLMType"
|
|
Tab(2).Control(5)= "lblLMetal"
|
|
Tab(2).Control(6)= "lblLMLength"
|
|
Tab(2).Control(7)= "lblOrderBalance"
|
|
Tab(2).Control(8)= "cmdAddMatrl"
|
|
Tab(2).Control(9)= "cmdSaveMatrl"
|
|
Tab(2).Control(10)= "cmdDelMatrl"
|
|
Tab(2).Control(11)= "lstLMaterial"
|
|
Tab(2).Control(12)= "txtLMDesc"
|
|
Tab(2).Control(13)= "txtLMInvNo"
|
|
Tab(2).Control(14)= "txtLMQty"
|
|
Tab(2).Control(15)= "txtLMLength"
|
|
Tab(2).Control(16)= "cboLMDFlag"
|
|
Tab(2).Control(17)= "cboLMType"
|
|
Tab(2).Control(18)= "cboLMMetal"
|
|
Tab(2).Control(19)= "txtLMBalance"
|
|
Tab(2).ControlCount= 20
|
|
TabCaption(3) = "Options"
|
|
TabPicture(3) = "frmLotInfo.frx":0054
|
|
Tab(3).ControlEnabled= -1 'True
|
|
Tab(3).Control(0)= "lblPOptions"
|
|
Tab(3).Control(0).Enabled= 0 'False
|
|
Tab(3).Control(1)= "lblLOptions"
|
|
Tab(3).Control(1).Enabled= 0 'False
|
|
Tab(3).Control(2)= "lblLODesc"
|
|
Tab(3).Control(2).Enabled= 0 'False
|
|
Tab(3).Control(3)= "lblLOYdge"
|
|
Tab(3).Control(3).Enabled= 0 'False
|
|
Tab(3).Control(4)= "lblLOFin2"
|
|
Tab(3).Control(4).Enabled= 0 'False
|
|
Tab(3).Control(5)= "lblLOFAdj"
|
|
Tab(3).Control(5).Enabled= 0 'False
|
|
Tab(3).Control(6)= "lblLOTexture"
|
|
Tab(3).Control(6).Enabled= 0 'False
|
|
Tab(3).Control(7)= "lblLOMDesc"
|
|
Tab(3).Control(7).Enabled= 0 'False
|
|
Tab(3).Control(8)= "lblLOMInvNo"
|
|
Tab(3).Control(8).Enabled= 0 'False
|
|
Tab(3).Control(9)= "lblLOMQty"
|
|
Tab(3).Control(9).Enabled= 0 'False
|
|
Tab(3).Control(10)= "lblLOMDFlag"
|
|
Tab(3).Control(10).Enabled= 0 'False
|
|
Tab(3).Control(11)= "lblLOMType"
|
|
Tab(3).Control(11).Enabled= 0 'False
|
|
Tab(3).Control(12)= "lblLOMetal"
|
|
Tab(3).Control(12).Enabled= 0 'False
|
|
Tab(3).Control(13)= "lblLOMLength"
|
|
Tab(3).Control(13).Enabled= 0 'False
|
|
Tab(3).Control(14)= "lstPOptions"
|
|
Tab(3).Control(14).Enabled= 0 'False
|
|
Tab(3).Control(15)= "lstOptMatrl"
|
|
Tab(3).Control(15).Enabled= 0 'False
|
|
Tab(3).Control(16)= "cmdOptAdd"
|
|
Tab(3).Control(16).Enabled= 0 'False
|
|
Tab(3).Control(17)= "cmdOptDel"
|
|
Tab(3).Control(17).Enabled= 0 'False
|
|
Tab(3).Control(18)= "lstLOptions"
|
|
Tab(3).Control(18).Enabled= 0 'False
|
|
Tab(3).Control(19)= "txtLODesc"
|
|
Tab(3).Control(19).Enabled= 0 'False
|
|
Tab(3).Control(20)= "txtLOYdge"
|
|
Tab(3).Control(20).Enabled= 0 'False
|
|
Tab(3).Control(21)= "txtLOFin2"
|
|
Tab(3).Control(21).Enabled= 0 'False
|
|
Tab(3).Control(22)= "txtLOFoam"
|
|
Tab(3).Control(22).Enabled= 0 'False
|
|
Tab(3).Control(23)= "txtLOTexture"
|
|
Tab(3).Control(23).Enabled= 0 'False
|
|
Tab(3).Control(24)= "txtLOMDesc"
|
|
Tab(3).Control(24).Enabled= 0 'False
|
|
Tab(3).Control(25)= "txtLOMInvNo"
|
|
Tab(3).Control(25).Enabled= 0 'False
|
|
Tab(3).Control(26)= "txtLOMQty"
|
|
Tab(3).Control(26).Enabled= 0 'False
|
|
Tab(3).Control(27)= "txtLOMLength"
|
|
Tab(3).Control(27).Enabled= 0 'False
|
|
Tab(3).Control(28)= "cboLOMDFlag"
|
|
Tab(3).Control(28).Enabled= 0 'False
|
|
Tab(3).Control(29)= "cboLOMType"
|
|
Tab(3).Control(29).Enabled= 0 'False
|
|
Tab(3).Control(30)= "cboLOMetal"
|
|
Tab(3).Control(30).Enabled= 0 'False
|
|
Tab(3).ControlCount= 31
|
|
TabCaption(4) = "Lath Orders"
|
|
TabPicture(4) = "frmLotInfo.frx":0070
|
|
Tab(4).ControlEnabled= 0 'False
|
|
Tab(4).Control(0)= "lstLath"
|
|
Tab(4).Control(1)= "lstYard"
|
|
Tab(4).Control(2)= "lblLathOrd"
|
|
Tab(4).Control(3)= "lblYardOrd"
|
|
Tab(4).ControlCount= 4
|
|
TabCaption(5) = "Stucco Orders"
|
|
TabPicture(5) = "frmLotInfo.frx":008C
|
|
Tab(5).ControlEnabled= 0 'False
|
|
Tab(5).Control(0)= "lblScrOrd"
|
|
Tab(5).Control(1)= "lblBrnOrd"
|
|
Tab(5).Control(2)= "lblTexOrd"
|
|
Tab(5).Control(3)= "lstScratch"
|
|
Tab(5).Control(4)= "lstBrown"
|
|
Tab(5).Control(5)= "lstTexture"
|
|
Tab(5).ControlCount= 6
|
|
TabCaption(6) = "Purchase Orders"
|
|
TabPicture(6) = "frmLotInfo.frx":00A8
|
|
Tab(6).ControlEnabled= 0 'False
|
|
Tab(6).Control(0)= "cmsDelPO"
|
|
Tab(6).Control(1)= "cmdPOEdit"
|
|
Tab(6).Control(2)= "cmdPONew"
|
|
Tab(6).Control(3)= "txtIssueTo"
|
|
Tab(6).Control(4)= "txtPONum"
|
|
Tab(6).Control(5)= "txtPONotes"
|
|
Tab(6).Control(6)= "lstPOMaterials"
|
|
Tab(6).Control(7)= "lstPO"
|
|
Tab(6).Control(8)= "lblPO"
|
|
Tab(6).Control(9)= "lblPONotes"
|
|
Tab(6).Control(10)= "lblPOMaterials"
|
|
Tab(6).Control(11)= "lblIssueTo"
|
|
Tab(6).Control(12)= "lblPONum"
|
|
Tab(6).ControlCount= 13
|
|
Begin VB.CommandButton cmdSaveLotInfo
|
|
Caption = "Save Lot 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 = 615
|
|
Left = -73080
|
|
TabIndex = 133
|
|
Top = 1920
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdOrders
|
|
Caption = "Setup Orders"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = -73080
|
|
TabIndex = 132
|
|
Top = 1080
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdExit
|
|
Caption = "Exit"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = -74520
|
|
TabIndex = 127
|
|
Top = 1920
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdCalc
|
|
Caption = "Calculate Materials"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = -74520
|
|
TabIndex = 126
|
|
Top = 1080
|
|
Width = 1335
|
|
End
|
|
Begin VB.ComboBox cboLOMetal
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 125
|
|
Text = "cboLOMetal"
|
|
Top = 4815
|
|
Width = 1155
|
|
End
|
|
Begin VB.ComboBox cboLOMType
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 124
|
|
Text = "cboLOMType"
|
|
Top = 4485
|
|
Width = 1155
|
|
End
|
|
Begin VB.ComboBox cboLOMDFlag
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 123
|
|
Text = "cboLOMDFlag"
|
|
Top = 4140
|
|
Width = 1155
|
|
End
|
|
Begin VB.TextBox txtLOMLength
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 122
|
|
Top = 5160
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLOMQty
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 121
|
|
Top = 3800
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLOMInvNo
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 120
|
|
Top = 3460
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLOMDesc
|
|
Height = 315
|
|
Left = 6900
|
|
TabIndex = 119
|
|
Top = 3120
|
|
Width = 4155
|
|
End
|
|
Begin VB.TextBox txtLOTexture
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 111
|
|
Top = 2700
|
|
Width = 1755
|
|
End
|
|
Begin VB.TextBox txtLOFoam
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 110
|
|
Top = 2280
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLOFin2
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 109
|
|
Top = 1860
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLOYdge
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 108
|
|
Top = 1440
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLODesc
|
|
Height = 315
|
|
Left = 7800
|
|
TabIndex = 107
|
|
Top = 1020
|
|
Width = 2835
|
|
End
|
|
Begin VB.ListBox lstLOptions
|
|
Height = 2010
|
|
Left = 3360
|
|
TabIndex = 100
|
|
Top = 1020
|
|
Width = 3095
|
|
End
|
|
Begin VB.TextBox txtLMBalance
|
|
Enabled = 0 'False
|
|
Height = 315
|
|
Left = -68100
|
|
TabIndex = 98
|
|
Top = 3600
|
|
Width = 915
|
|
End
|
|
Begin VB.ComboBox cboLMMetal
|
|
Height = 315
|
|
ItemData = "frmLotInfo.frx":00C4
|
|
Left = -68100
|
|
List = "frmLotInfo.frx":00CE
|
|
TabIndex = 97
|
|
Top = 2790
|
|
Width = 1215
|
|
End
|
|
Begin VB.ComboBox cboLMType
|
|
Height = 315
|
|
ItemData = "frmLotInfo.frx":00DF
|
|
Left = -68100
|
|
List = "frmLotInfo.frx":00F5
|
|
TabIndex = 96
|
|
Top = 2388
|
|
Width = 1215
|
|
End
|
|
Begin VB.ComboBox cboLMDFlag
|
|
Height = 315
|
|
ItemData = "frmLotInfo.frx":0127
|
|
Left = -68100
|
|
List = "frmLotInfo.frx":0131
|
|
TabIndex = 95
|
|
Top = 1986
|
|
Width = 1215
|
|
End
|
|
Begin VB.TextBox txtLMLength
|
|
Height = 315
|
|
Left = -68100
|
|
TabIndex = 93
|
|
Top = 3192
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLMQty
|
|
Height = 315
|
|
Left = -68100
|
|
TabIndex = 92
|
|
Top = 1584
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLMInvNo
|
|
Height = 315
|
|
Left = -68100
|
|
TabIndex = 91
|
|
Top = 1182
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtLMDesc
|
|
Height = 315
|
|
Left = -68100
|
|
TabIndex = 90
|
|
Top = 780
|
|
Width = 4275
|
|
End
|
|
Begin VB.ListBox lstLMaterial
|
|
Height = 4740
|
|
Left = -74820
|
|
TabIndex = 82
|
|
Top = 780
|
|
Width = 5535
|
|
End
|
|
Begin VB.ListBox lstPreOrder
|
|
Height = 3180
|
|
Left = -69240
|
|
TabIndex = 81
|
|
Top = 2160
|
|
Width = 5445
|
|
End
|
|
Begin VB.CommandButton cmdDelMatrl
|
|
Caption = "Delete Materials"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = -65040
|
|
TabIndex = 60
|
|
Top = 5040
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdSaveMatrl
|
|
Caption = "Save Materials"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = -67080
|
|
TabIndex = 59
|
|
Top = 5040
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdAddMatrl
|
|
Caption = "Add Materials"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = -69120
|
|
TabIndex = 58
|
|
Top = 5040
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdOptDel
|
|
Caption = "Delete Option"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = 4320
|
|
TabIndex = 57
|
|
Top = 4920
|
|
Width = 1392
|
|
End
|
|
Begin VB.CommandButton cmdOptAdd
|
|
Caption = "Add Option"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 615
|
|
Left = 240
|
|
TabIndex = 56
|
|
Top = 4920
|
|
Width = 1395
|
|
End
|
|
Begin VB.CommandButton cmsDelPO
|
|
Caption = "Delete PO"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 435
|
|
Left = -68280
|
|
TabIndex = 49
|
|
Top = 1260
|
|
Width = 2175
|
|
End
|
|
Begin VB.CommandButton cmdPOEdit
|
|
Caption = "Edit PO"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 435
|
|
Left = -67140
|
|
TabIndex = 48
|
|
Top = 720
|
|
Width = 1035
|
|
End
|
|
Begin VB.CommandButton cmdPONew
|
|
Caption = "New PO"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 435
|
|
Left = -68280
|
|
TabIndex = 47
|
|
Top = 720
|
|
Width = 1035
|
|
End
|
|
Begin VB.TextBox txtIssueTo
|
|
Height = 315
|
|
Left = -70680
|
|
TabIndex = 46
|
|
Top = 2040
|
|
Width = 3735
|
|
End
|
|
Begin VB.TextBox txtPONum
|
|
Height = 315
|
|
Left = -70680
|
|
TabIndex = 45
|
|
Top = 1560
|
|
Width = 1335
|
|
End
|
|
Begin VB.TextBox txtPONotes
|
|
Height = 1215
|
|
Left = -71760
|
|
TabIndex = 42
|
|
Top = 2700
|
|
Width = 5595
|
|
End
|
|
Begin VB.ListBox lstPOMaterials
|
|
Height = 1230
|
|
Left = -71760
|
|
TabIndex = 41
|
|
Top = 4260
|
|
Width = 5535
|
|
End
|
|
Begin VB.ListBox lstPO
|
|
Height = 4350
|
|
Left = -74760
|
|
TabIndex = 38
|
|
Top = 1140
|
|
Width = 2800
|
|
End
|
|
Begin VB.ListBox lstTexture
|
|
Height = 4350
|
|
Left = -67320
|
|
TabIndex = 37
|
|
Top = 1140
|
|
Width = 3660
|
|
End
|
|
Begin VB.ListBox lstBrown
|
|
Height = 4350
|
|
Left = -71100
|
|
TabIndex = 36
|
|
Top = 1140
|
|
Width = 3660
|
|
End
|
|
Begin VB.ListBox lstScratch
|
|
Height = 4350
|
|
Left = -74880
|
|
TabIndex = 35
|
|
Top = 1140
|
|
Width = 3660
|
|
End
|
|
Begin VB.ListBox lstLath
|
|
Height = 4155
|
|
Left = -69180
|
|
TabIndex = 34
|
|
Top = 1140
|
|
Width = 5445
|
|
End
|
|
Begin VB.ListBox lstYard
|
|
Height = 4155
|
|
Left = -74820
|
|
Sorted = -1 'True
|
|
TabIndex = 33
|
|
Top = 1140
|
|
Width = 5445
|
|
End
|
|
Begin VB.ListBox lstOptMatrl
|
|
Height = 1815
|
|
ItemData = "frmLotInfo.frx":0145
|
|
Left = 240
|
|
List = "frmLotInfo.frx":014C
|
|
Sorted = -1 'True
|
|
TabIndex = 32
|
|
Top = 3060
|
|
Width = 5475
|
|
End
|
|
Begin VB.ListBox lstPOptions
|
|
Height = 2010
|
|
ItemData = "frmLotInfo.frx":015D
|
|
Left = 240
|
|
List = "frmLotInfo.frx":0164
|
|
TabIndex = 31
|
|
Top = 1020
|
|
Width = 3095
|
|
End
|
|
Begin VB.TextBox txtSuperSP
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -70620
|
|
TabIndex = 30
|
|
Top = 4740
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuperDW
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -70620
|
|
TabIndex = 29
|
|
Top = 4140
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuperML
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -70620
|
|
TabIndex = 28
|
|
Top = 3540
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuperRL
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -70620
|
|
TabIndex = 27
|
|
Top = 2940
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuper1383
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -70620
|
|
TabIndex = 26
|
|
Top = 2340
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuper38
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -73080
|
|
TabIndex = 25
|
|
Top = 4740
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuper78
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -73080
|
|
TabIndex = 24
|
|
Top = 4140
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuper783
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -73080
|
|
TabIndex = 23
|
|
Top = 3540
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuper12
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -73080
|
|
TabIndex = 22
|
|
Top = 2940
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtSuperBB
|
|
Alignment = 1 'Right Justify
|
|
Height = 315
|
|
Left = -73080
|
|
TabIndex = 21
|
|
Top = 2340
|
|
Width = 795
|
|
End
|
|
Begin VB.TextBox txtTake138
|
|
Alignment = 1 'Right Justify
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Left = -73080
|
|
TabIndex = 10
|
|
Top = 1680
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblLOMLength
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Length:"
|
|
Height = 195
|
|
Left = 5880
|
|
TabIndex = 118
|
|
Top = 5220
|
|
Width = 975
|
|
End
|
|
Begin VB.Label lblLOMetal
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Flag:"
|
|
Height = 195
|
|
Left = 6075
|
|
TabIndex = 117
|
|
Top = 4870
|
|
Width = 780
|
|
End
|
|
Begin VB.Label lblLOMType
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Material Type:"
|
|
Height = 195
|
|
Left = 5850
|
|
TabIndex = 116
|
|
Top = 4520
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label lblLOMDFlag
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Delivery Flag:"
|
|
Height = 195
|
|
Left = 5895
|
|
TabIndex = 115
|
|
Top = 4170
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblLOMQty
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Quanitity:"
|
|
Height = 195
|
|
Left = 6195
|
|
TabIndex = 114
|
|
Top = 3820
|
|
Width = 660
|
|
End
|
|
Begin VB.Label lblLOMInvNo
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Inventory No:"
|
|
Height = 195
|
|
Left = 5895
|
|
TabIndex = 113
|
|
Top = 3470
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblLOMDesc
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Description:"
|
|
Height = 195
|
|
Left = 6015
|
|
TabIndex = 112
|
|
Top = 3120
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblLOTexture
|
|
Caption = "Option Texture:"
|
|
Height = 255
|
|
Left = 6585
|
|
TabIndex = 106
|
|
Top = 2760
|
|
Width = 1155
|
|
End
|
|
Begin VB.Label lblLOFAdj
|
|
AutoSize = -1 'True
|
|
Caption = "Option Foam Adj:"
|
|
Height = 195
|
|
Left = 6525
|
|
TabIndex = 105
|
|
Top = 2340
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label lblLOFin2
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Finish 2 Ydge:"
|
|
Height = 195
|
|
Left = 6735
|
|
TabIndex = 104
|
|
Top = 1920
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label lblLOYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Option Yardage:"
|
|
Height = 195
|
|
Left = 6585
|
|
TabIndex = 103
|
|
Top = 1500
|
|
Width = 1155
|
|
End
|
|
Begin VB.Label lblLODesc
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Description:"
|
|
Height = 195
|
|
Left = 6900
|
|
TabIndex = 102
|
|
Top = 1080
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblLOptions
|
|
AutoSize = -1 'True
|
|
Caption = "Lot Options"
|
|
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 = 3420
|
|
TabIndex = 101
|
|
Top = 720
|
|
Width = 990
|
|
End
|
|
Begin VB.Label lblPOptions
|
|
AutoSize = -1 'True
|
|
Caption = "Plan Options"
|
|
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 = 300
|
|
TabIndex = 99
|
|
Top = 720
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblOrderBalance
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Order Balance:"
|
|
Height = 195
|
|
Left = -69210
|
|
TabIndex = 94
|
|
Top = 3660
|
|
Width = 1065
|
|
End
|
|
Begin VB.Label lblLMLength
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Length:"
|
|
Height = 195
|
|
Left = -69120
|
|
TabIndex = 89
|
|
Top = 3252
|
|
Width = 975
|
|
End
|
|
Begin VB.Label lblLMetal
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Flag:"
|
|
Height = 195
|
|
Left = -68925
|
|
TabIndex = 88
|
|
Top = 2850
|
|
Width = 780
|
|
End
|
|
Begin VB.Label lblLMType
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Material Type:"
|
|
Height = 195
|
|
Left = -69150
|
|
TabIndex = 87
|
|
Top = 2448
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label lblLMDFlag
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Delivery Flag:"
|
|
Height = 195
|
|
Left = -69105
|
|
TabIndex = 86
|
|
Top = 2046
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblQty
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Quantity:"
|
|
Height = 195
|
|
Left = -68775
|
|
TabIndex = 85
|
|
Top = 1644
|
|
Width = 630
|
|
End
|
|
Begin VB.Label lblLMInvNo
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Inventory No:"
|
|
Height = 195
|
|
Left = -69105
|
|
TabIndex = 84
|
|
Top = 1242
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblLMDesc
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Description:"
|
|
Height = 195
|
|
Left = -68985
|
|
TabIndex = 83
|
|
Top = 840
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblPreOrder
|
|
Alignment = 2 'Center
|
|
Caption = "Pre Orders"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = -69180
|
|
TabIndex = 80
|
|
Top = 1860
|
|
Width = 3195
|
|
End
|
|
Begin VB.Label lblSupHelp
|
|
Caption = $"frmLotInfo.frx":0175
|
|
Height = 555
|
|
Left = -74760
|
|
TabIndex = 79
|
|
Top = 900
|
|
Width = 5115
|
|
End
|
|
Begin VB.Label lblLathOrd
|
|
AutoSize = -1 'True
|
|
Caption = "Lath Order"
|
|
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 = -69120
|
|
TabIndex = 55
|
|
Top = 900
|
|
Width = 915
|
|
End
|
|
Begin VB.Label lblYardOrd
|
|
AutoSize = -1 'True
|
|
Caption = "Yard Order"
|
|
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 = -74700
|
|
TabIndex = 54
|
|
Top = 900
|
|
Width = 930
|
|
End
|
|
Begin VB.Label lblTexOrd
|
|
AutoSize = -1 'True
|
|
Caption = "Texture Order"
|
|
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 = -67260
|
|
TabIndex = 53
|
|
Top = 840
|
|
Width = 1185
|
|
End
|
|
Begin VB.Label lblBrnOrd
|
|
AutoSize = -1 'True
|
|
Caption = "Brown Order"
|
|
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 = -71040
|
|
TabIndex = 52
|
|
Top = 840
|
|
Width = 1065
|
|
End
|
|
Begin VB.Label lblScrOrd
|
|
AutoSize = -1 'True
|
|
Caption = "Scratch Order"
|
|
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 = -74820
|
|
TabIndex = 51
|
|
Top = 840
|
|
Width = 1200
|
|
End
|
|
Begin VB.Label lblPO
|
|
Caption = "Purchase Orders"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = -74700
|
|
TabIndex = 50
|
|
Top = 840
|
|
Width = 2715
|
|
End
|
|
Begin VB.Label lblPONotes
|
|
Caption = "P.O. Notes:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = -71640
|
|
TabIndex = 44
|
|
Top = 2460
|
|
Width = 1575
|
|
End
|
|
Begin VB.Label lblPOMaterials
|
|
AutoSize = -1 'True
|
|
Caption = "P.O. Materials:"
|
|
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 = -71640
|
|
TabIndex = 43
|
|
Top = 4020
|
|
Width = 1275
|
|
End
|
|
Begin VB.Label lblIssueTo
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Issued To:"
|
|
Height = 195
|
|
Left = -71520
|
|
TabIndex = 40
|
|
Top = 2100
|
|
Width = 750
|
|
End
|
|
Begin VB.Label lblPONum
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "P.O. Number:"
|
|
Height = 195
|
|
Left = -71760
|
|
TabIndex = 39
|
|
Top = 1560
|
|
Width = 960
|
|
End
|
|
Begin VB.Label lblSuperSP
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Sheer Panel:"
|
|
Height = 195
|
|
Left = -71700
|
|
TabIndex = 20
|
|
Top = 4800
|
|
Width = 915
|
|
End
|
|
Begin VB.Label lblSuperDW
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Drywall:"
|
|
Height = 195
|
|
Left = -71340
|
|
TabIndex = 19
|
|
Top = 4200
|
|
Width = 555
|
|
End
|
|
Begin VB.Label lblSuperRL
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Rib Lath:"
|
|
Height = 195
|
|
Left = -71460
|
|
TabIndex = 18
|
|
Top = 3000
|
|
Width = 645
|
|
End
|
|
Begin VB.Label lblSuperML
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Metal Lath:"
|
|
Height = 195
|
|
Left = -71580
|
|
TabIndex = 17
|
|
Top = 3600
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblSuper138
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "1 3/8 X 3 JMB:"
|
|
Height = 195
|
|
Left = -71880
|
|
TabIndex = 16
|
|
Top = 2400
|
|
Width = 1080
|
|
End
|
|
Begin VB.Label lblSuper38
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "3/8 JMB:"
|
|
Height = 195
|
|
Left = -73965
|
|
TabIndex = 15
|
|
Top = 4800
|
|
Width = 660
|
|
End
|
|
Begin VB.Label lblSuper78
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "7/8 JMB:"
|
|
Height = 195
|
|
Left = -73965
|
|
TabIndex = 14
|
|
Top = 4200
|
|
Width = 660
|
|
End
|
|
Begin VB.Label lblSuper783
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "7/8X3 JMB:"
|
|
Height = 195
|
|
Left = -74160
|
|
TabIndex = 13
|
|
Top = 3600
|
|
Width = 855
|
|
End
|
|
Begin VB.Label lblSuper12
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "1/2 Foam:"
|
|
Height = 195
|
|
Left = -74040
|
|
TabIndex = 12
|
|
Top = 3000
|
|
Width = 735
|
|
End
|
|
Begin VB.Line linSO
|
|
BorderWidth = 2
|
|
X1 = -75000
|
|
X2 = -69660
|
|
Y1 = 2160
|
|
Y2 = 2160
|
|
End
|
|
Begin VB.Label lblSuperBB
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Blackboard:"
|
|
Height = 195
|
|
Left = -74160
|
|
TabIndex = 11
|
|
Top = 2400
|
|
Width = 855
|
|
End
|
|
Begin VB.Label lblTake138
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Takeoff 1 3/8 J-Metal:"
|
|
Height = 195
|
|
Left = -74895
|
|
TabIndex = 9
|
|
Top = 1740
|
|
Width = 1590
|
|
End
|
|
End
|
|
Begin VB.Label lblLathPrint
|
|
AutoSize = -1 'True
|
|
Caption = "Lath Order Printed"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Left = 8940
|
|
TabIndex = 131
|
|
Top = 2040
|
|
Visible = 0 'False
|
|
Width = 2580
|
|
End
|
|
Begin VB.Label lblTexture
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Finish:"
|
|
Height = 195
|
|
Left = 8760
|
|
TabIndex = 129
|
|
Top = 120
|
|
Width = 450
|
|
End
|
|
Begin VB.Label lblNote
|
|
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 = 2925
|
|
TabIndex = 78
|
|
Top = 1260
|
|
Width = 690
|
|
End
|
|
Begin VB.Label lblCMUYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "CMU Yardage:"
|
|
Height = 195
|
|
Left = 285
|
|
TabIndex = 67
|
|
Top = 2280
|
|
Width = 1050
|
|
End
|
|
Begin VB.Label lblLaborAdj
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Labor Adj. Yardage:"
|
|
Height = 195
|
|
Left = 6420
|
|
TabIndex = 66
|
|
Top = 460
|
|
Width = 1410
|
|
End
|
|
Begin VB.Label lblTtlYdge
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Total Yardage:"
|
|
Height = 195
|
|
Left = 285
|
|
TabIndex = 65
|
|
Top = 1920
|
|
Width = 1050
|
|
End
|
|
Begin VB.Label lblFoamAdj
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Foam Adj. Yardage:"
|
|
Height = 195
|
|
Left = 6480
|
|
TabIndex = 64
|
|
Top = 120
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblLathOrder
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Lath Order Date:"
|
|
Height = 195
|
|
Left = 5940
|
|
TabIndex = 63
|
|
Top = 800
|
|
Width = 1185
|
|
End
|
|
Begin VB.Label lblFin2
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Finish 2 Ydge:"
|
|
Height = 195
|
|
Left = 4710
|
|
TabIndex = 62
|
|
Top = 460
|
|
Width = 1005
|
|
End
|
|
Begin VB.Label lbl28foam
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "2X8 Foam %tge:"
|
|
Height = 195
|
|
Left = 4560
|
|
TabIndex = 61
|
|
Top = 120
|
|
Width = 1155
|
|
End
|
|
Begin VB.Line linLotInfo
|
|
BorderWidth = 2
|
|
X1 = 0
|
|
X2 = 11940
|
|
Y1 = 2640
|
|
Y2 = 2640
|
|
End
|
|
Begin VB.Label lblModel
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Model/Elevation:"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 7
|
|
Top = 1200
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label lblOwner
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Owner:"
|
|
Height = 195
|
|
Left = 660
|
|
TabIndex = 4
|
|
Top = 840
|
|
Width = 675
|
|
End
|
|
Begin VB.Label lblAddress
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Address:"
|
|
Height = 195
|
|
Left = 540
|
|
TabIndex = 2
|
|
Top = 480
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblLot
|
|
Alignment = 1 'Right Justify
|
|
AutoSize = -1 'True
|
|
Caption = "Lot:"
|
|
Height = 195
|
|
Left = 1065
|
|
TabIndex = 1
|
|
Top = 1560
|
|
Width = 270
|
|
End
|
|
Begin VB.Label lblProject
|
|
Alignment = 1 'Right Justify
|
|
Caption = "SubDivision:"
|
|
Height = 195
|
|
Left = 360
|
|
TabIndex = 0
|
|
Top = 120
|
|
Width = 975
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmLotInfo"
|
|
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 moRSPOpt As Recordset
|
|
Dim moRSLOpt As Recordset
|
|
Dim moRSOptMat As Recordset
|
|
Dim moRSProj As Recordset
|
|
Dim moRSPlan As Recordset
|
|
|
|
Dim mboolShow As Boolean
|
|
Dim mboolAdding As Boolean
|
|
Dim mstrType As String
|
|
Dim mintTake138 As Integer
|
|
|
|
Private Sub cboLMDFlag_Change()
|
|
If cboLMDFlag.Text = "Supplier" Then
|
|
moRSMat!D_Flag = "S"
|
|
Else
|
|
moRSMat!D_Flag = "Y"
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cboLMDFlag_Click()
|
|
If cboLMDFlag.Text = "Supplier" Then
|
|
moRSMat!D_Flag = "S"
|
|
Else
|
|
moRSMat!D_Flag = "Y"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cboLMMetal_Click()
|
|
If cboLMMetal.Text = "Metal" Then
|
|
moRSMat!Calc_Flag = "M"
|
|
txtLMLength.Text = 10
|
|
moRSMat!Calc_Amt = 10
|
|
Else
|
|
moRSMat!Calc_Flag = ""
|
|
txtLMLength.Text = 0
|
|
moRSMat!Calc_Amt = 0
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cboLMType_Click()
|
|
If cboLMType.Text = "Lath" Then
|
|
moRSMat!M_Type = "L"
|
|
ElseIf cboLMType.Text = "Scratch" Then
|
|
moRSMat!M_Type = "S"
|
|
ElseIf cboLMType.Text = "Brown" Then
|
|
moRSMat!M_Type = "B"
|
|
ElseIf cboLMType.Text = "Texture" Then
|
|
moRSMat!M_Type = "T"
|
|
ElseIf cboLMType.Text = "PreOrder" Then
|
|
moRSMat!M_Type = "P"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdOptAdd_Click()
|
|
If lstPOptions.ListIndex <> -1 Then
|
|
moRSLOpt.AddNew
|
|
moRSLOpt!lot_id = gintLOTID
|
|
moRSLOpt!opt_id = lstPOptions.ItemData(lstPOptions.ListIndex)
|
|
moRSLOpt.Update
|
|
Call LOptLoad
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdOptDel_Click()
|
|
moRSLOpt.Delete
|
|
Call LOptLoad
|
|
End Sub
|
|
|
|
Private Sub cmdSaveLotInfo_Click()
|
|
Call OptMatSave
|
|
Call OptSave
|
|
Call MatSave
|
|
Call FieldsSave
|
|
End Sub
|
|
|
|
Private Sub cmdSaveMatrl_Click()
|
|
Call MatSave
|
|
Call MatLoad
|
|
End Sub
|
|
|
|
Private Sub cmdOrders_Click()
|
|
Call OrderLoad
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Set moRS = New Recordset
|
|
Set moRSProj = New Recordset
|
|
Set moRSMat = New Recordset
|
|
Set moRSPOpt = New Recordset
|
|
Set moRSLOpt = New Recordset
|
|
Set moRSOptMat = New Recordset
|
|
Set moRSPlan = New Recordset
|
|
|
|
Call ProjLoad
|
|
If FormFind() Then
|
|
Call PlanFind
|
|
Call FormShow
|
|
Call MatLoad
|
|
Call POptLoad
|
|
Call LOptLoad
|
|
Call OptMatLoad
|
|
Call OrderLoad
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub lstMod_Elv_Click()
|
|
If lstMod_Elv.ListIndex <> -1 Then
|
|
If FormFind() Then
|
|
Call PlanFind
|
|
Call FormShow
|
|
Call MeasLoad
|
|
Call MatLoad
|
|
Call OptLoad
|
|
Call OptMatLoad
|
|
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub ProjLoad()
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
|
|
|
|
moRSProj.Open strSQL, goConn, _
|
|
adOpenForwardOnly, adLockReadOnly
|
|
' Do Until oRS.EOF
|
|
' cboProject.AddItem oRS("Proj_desc")
|
|
' cboProject.ItemData(cboProject.NewIndex) = oRS("Proj_id")
|
|
'
|
|
' oRS.MoveNext
|
|
' Loop
|
|
' moRSProj.Close
|
|
' cboProject.ListIndex = 40
|
|
|
|
End Sub
|
|
Private Sub ListLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
|
|
' gintPROJID = cboProject.ItemData(cboProject.ListIndex)
|
|
|
|
' strSQL = "SELECT * from tblLotInfo WHERE Lot_ID = " & gintTOID
|
|
'
|
|
' Set oRS = New Recordset
|
|
|
|
' oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
' lstMod_Elv.Clear
|
|
|
|
' Do Until oRS.EOF
|
|
' With lstMod_Elv
|
|
' .AddItem Field2Str(oRS!pln_elv)
|
|
' .ItemData(.NewIndex) = oRS("toid")
|
|
' 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
|
|
gintLOTID = moRS!lot_id
|
|
txtProject = Trim$(moRSProj!proj_Code) & " " & moRSProj!proj_desc
|
|
With moRS
|
|
txtTtlYdge = Field2Str(!SQ_Yd)
|
|
txtAddress = Field2Str(!address)
|
|
txtOwner = Field2Str(!owner)
|
|
txtModel = Field2Str(!model)
|
|
txtCMUYdge = Field2Str(!CMU)
|
|
txtNotes = Field2Str(!NOTES)
|
|
txtFoamAdj = Field2Str(!f_adj)
|
|
txtLaborAdj = Field2Str(!l_adj)
|
|
txtFin2 = Field2Str(!FIN2)
|
|
txtLotNo = Field2Str(!lot_no)
|
|
txt28Foam = Field2Str(!FOAM)
|
|
txtLODate = Field2Str(!LORDER)
|
|
txtSuperBB = Field2Str(!SUP_BB)
|
|
txtSuper12 = Field2Str(!SUP_FD12)
|
|
txtSuper783 = Field2Str(!SUP_783)
|
|
txtSuper78 = Field2Str(!SUP_78)
|
|
txtSuper38 = Field2Str(!SUP_38)
|
|
txtSuper1383 = Field2Str(!SUP_138)
|
|
txtSuperRL = Field2Str(!SUP_RL)
|
|
txtSuperML = Field2Str(!SUP_ML)
|
|
txtSuperDW = Field2Str(!SUP_DW)
|
|
txtSuperSP = Field2Str(!SUP_SP)
|
|
|
|
If !Texture = "SK" Then
|
|
txtFinish.Text = "SKIP TROWEL"
|
|
ElseIf !Texture = "SA" Then
|
|
txtFinish.Text = "Sand"
|
|
ElseIf !Texture = "S2" Then
|
|
txtFinish.Text = "Sand"
|
|
ElseIf !Texture = "S3" Then
|
|
txtFinish.Text = "Sand"
|
|
ElseIf !Texture = "DA" Then
|
|
txtFinish.Text = "Dash"
|
|
ElseIf !Texture = "DF" Then
|
|
txtFinish.Text = "Skip and Sand Finish"
|
|
ElseIf !Texture = "SM" Then
|
|
txtFinish.Text = "Smooth"
|
|
ElseIf !Texture = "QU" Then
|
|
txtFinish.Text = "Quernavaca"
|
|
ElseIf !Texture = "MN" Then
|
|
txtFinish.Text = "Monterrey"
|
|
End If
|
|
|
|
End With
|
|
txtTake138 = mintTake138
|
|
|
|
If moRSProj!STYPE = "S" Then
|
|
txtOneKote.Text = "Superwall"
|
|
ElseIf moRSProj!STYPE = "M" Then
|
|
txtOneKote.Text = "Magna Wall"
|
|
ElseIf moRSProj!STYPE = "T" Then
|
|
txtOneKote.Text = "Three Coat"
|
|
ElseIf moRSProj!STYPE = "N" Then
|
|
txtOneKote.Text = "Synthetic"
|
|
ElseIf moRSProj!STYPE = "B" Then
|
|
txtOneKote.Text = "Synthetic over 1 Kote"
|
|
ElseIf moRSProj!STYPE = "W" Then
|
|
txtOneKote.Text = "Western 1 Kote"
|
|
End If
|
|
|
|
If moRS!l_flg = "P" Then
|
|
txtTtlYdge.Enabled = False
|
|
txtAddress.Enabled = False
|
|
txtOwner.Enabled = False
|
|
txtModel.Enabled = False
|
|
txtCMUYdge.Enabled = False
|
|
txtNotes.Enabled = False
|
|
txtFoamAdj.Enabled = False
|
|
txtLaborAdj.Enabled = False
|
|
txtFin2.Enabled = False
|
|
txtLotNo.Enabled = False
|
|
txt28Foam.Enabled = False
|
|
txtLODate.Enabled = False
|
|
txtSuperBB.Enabled = False
|
|
txtSuper12.Enabled = False
|
|
txtSuper783.Enabled = False
|
|
txtSuper78.Enabled = False
|
|
txtSuper38.Enabled = False
|
|
txtSuper1383.Enabled = False
|
|
txtSuperRL.Enabled = False
|
|
txtSuperML.Enabled = False
|
|
txtSuperDW.Enabled = False
|
|
txtSuperSP.Enabled = False
|
|
lblLathPrint.Visible = True
|
|
End If
|
|
mboolShow = False
|
|
End Sub
|
|
|
|
Private Sub FormShowMat()
|
|
mboolShow = True
|
|
|
|
With moRSMat
|
|
txtLMInvNo = Field2Str(!Inv_no)
|
|
txtLMDesc = Field2Str(!Desc)
|
|
txtLMQty = Field2Str(!Qty)
|
|
txtLMLength = Field2Str(!Calc_Amt)
|
|
If !D_Flag = "S" Then
|
|
cboLMDFlag.Text = "Supplier"
|
|
Else
|
|
cboLMDFlag.Text = "Yard"
|
|
End If
|
|
|
|
If !M_Type = "L" Then
|
|
cboLMType.Text = "Lath"
|
|
ElseIf !M_Type = "B" Then
|
|
cboLMType.Text = "Brown"
|
|
ElseIf !M_Type = "S" Then
|
|
cboLMType.Text = "Scratch"
|
|
ElseIf !M_Type = "T" Then
|
|
cboLMType.Text = "Texture"
|
|
ElseIf !M_Type = "C" Then
|
|
cboLMType.Text = "CMU"
|
|
ElseIf !M_Type = "P" Then
|
|
cboLMType.Text = "PreOrder"
|
|
End If
|
|
|
|
If !Calc_Flag = "M" Then
|
|
cboLMMetal.Text = "Metal"
|
|
Else
|
|
cboLMMetal.Text = "None"
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
Private Sub FormShowOpt()
|
|
mboolShow = True
|
|
' gintOPTID = moRSLOpt!opt_id
|
|
|
|
|
|
With moRSPOpt
|
|
txtLOYdge = Field2Str(!yardage)
|
|
txtLODesc = Field2Str(!Desc)
|
|
txtLOFin2 = Field2Str(!FIN2)
|
|
txtLOFoam = Field2Str(!f_adj)
|
|
|
|
If !Texture = "SK" Then
|
|
txtLOTexture.Text = "SKIP TROWEL"
|
|
ElseIf !Texture = "SA" Then
|
|
txtLOTexture.Text = "Sand"
|
|
ElseIf !Texture = "S2" Then
|
|
txtLOTexture.Text = "Sand"
|
|
ElseIf !Texture = "S3" Then
|
|
txtLOTexture.Text = "Sand"
|
|
ElseIf !Texture = "DA" Then
|
|
txtLOTexture.Text = "Dash"
|
|
ElseIf !Texture = "DF" Then
|
|
txtLOTexture.Text = "Skip and Sand Finish"
|
|
ElseIf !Texture = "SM" Then
|
|
txtLOTexture.Text = "Smooth"
|
|
ElseIf !Texture = "QU" Then
|
|
txtLOTexture.Text = "Quernavaca"
|
|
ElseIf !Texture = "MN" Then
|
|
txtLOTexture.Text = "Monterrey"
|
|
Else
|
|
txtLOTexture.Text = ""
|
|
End If
|
|
|
|
|
|
End With
|
|
mboolShow = False
|
|
End Sub
|
|
Private Sub FormShowOptMat()
|
|
mboolShow = True
|
|
|
|
With moRSOptMat
|
|
txtLOMInvNo = Field2Str(!Inv_no)
|
|
txtLOMDesc = Field2Str(!Desc)
|
|
txtLOMQty = Field2Str(!Qty)
|
|
txtLOMLength = Field2Str(!Calc_Amt)
|
|
|
|
If !D_Flag = "S" Then
|
|
cboLOMDFlag.Text = "Supplier"
|
|
' cboLOMDFlag.ListIndex = 0
|
|
Else
|
|
cboLOMDFlag.Text = "Yard"
|
|
' cboLOMDFlag.ListIndex = 1
|
|
End If
|
|
|
|
If !M_Type = "L" Then
|
|
cboLOMType.Text = "Lath"
|
|
ElseIf !M_Type = "B" Then
|
|
cboLOMType.Text = "Brown"
|
|
ElseIf !M_Type = "S" Then
|
|
cboLOMType.Text = "Scratch"
|
|
ElseIf !M_Type = "T" Then
|
|
cboLOMType.Text = "Texture"
|
|
ElseIf !M_Type = "C" Then
|
|
cboLOMType.Text = "CMU"
|
|
ElseIf !M_Type = "P" Then
|
|
cboLOMType.Text = "PreOrder"
|
|
End If
|
|
|
|
If !Calc_Flag = "M" Then
|
|
cboLOMetal.Text = "Metal"
|
|
Else
|
|
cboLOMetal.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, strPlan As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblLotInfo "
|
|
strSQL = strSQL & "WHERE Lot_ID = " & gintLOTID
|
|
|
|
|
|
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 Sub PlanFind()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String, strPlan As String, strTest As String, intTest As Integer
|
|
On Error GoTo Open_EH
|
|
|
|
strSQL = "SELECT est_id "
|
|
strSQL = strSQL & "FROM tblplans "
|
|
strSQL = strSQL & "WHERE Proj_ID = " & gintPROJID & " and Mod_Elv = """ & moRS!model & """"
|
|
|
|
|
|
If moRSPlan.State = adStateOpen Then
|
|
moRSPlan.Close
|
|
End If
|
|
|
|
moRSPlan.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
gintESTID = moRSPlan!est_id
|
|
strPlan = "SELECT qty FROM tblPlanMat where EST_ID = " & gintESTID & " and INV_NO = 1130"
|
|
|
|
Set oRS = New Recordset
|
|
If oRS.State = adStateOpen Then
|
|
oRS.Close
|
|
End If
|
|
oRS.Open strPlan, goConn, _
|
|
adOpenForwardOnly, adLockPessimistic
|
|
mintTake138 = oRS!Qty
|
|
oRS.Close
|
|
Exit Sub
|
|
|
|
Open_EH:
|
|
Call ErrorHandler(goConn)
|
|
oRS.Close
|
|
Exit Sub
|
|
|
|
End Sub
|
|
Private Function FormFindPOpt() As Boolean
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblPOption "
|
|
strSQL = strSQL & "WHERE OPTID = " & lstLOptions.ItemData(lstLOptions.ListIndex)
|
|
|
|
If moRSPOpt.State = adStateOpen Then
|
|
moRSPOpt.Close
|
|
End If
|
|
|
|
moRSPOpt.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSPOpt.EOF Then
|
|
FormFindPOpt = False
|
|
Else
|
|
FormFindPOpt = True
|
|
End If
|
|
End Function
|
|
|
|
Private Function FormFindLOpt() As Boolean
|
|
|
|
Dim strSQL As String
|
|
|
|
strSQL = "SELECT Opt_ID, Lot_id "
|
|
strSQL = strSQL & "FROM tblLOption "
|
|
strSQL = strSQL & "WHERE Lot_id = " & gintLOTID
|
|
|
|
If moRSLOpt.State = adStateOpen Then
|
|
moRSLOpt.Close
|
|
End If
|
|
|
|
moRSLOpt.Open strSQL, goConn, _
|
|
adOpenKeyset, adLockPessimistic
|
|
|
|
If moRSLOpt.EOF Then
|
|
FormFindLOpt = False
|
|
Else
|
|
FormFindLOpt = True
|
|
gintOPTID = moRSLOpt!opt_id
|
|
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
|
|
Set moRSMat = New Recordset
|
|
|
|
strSQL = "SELECT * "
|
|
strSQL = strSQL & "FROM tblLotMatrl "
|
|
strSQL = strSQL & "WHERE LOT_ID = " & gintLOTID & " AND INV_NO = " & lstLMaterial.ItemData(lstLMaterial.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 cmdExit_Click()
|
|
Unload Me
|
|
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)
|
|
!BIDC = Str2Field(txtTtlCost)
|
|
!OH = Str2Field(txtTtlMU)
|
|
!OHPR = Str2Field(txtOH)
|
|
!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)
|
|
|
|
End With
|
|
End Sub
|
|
Private Sub MatSave()
|
|
With moRSMat
|
|
!Inv_no = Str2Field(txtLMInvNo.Text)
|
|
!Desc = Str2Field(txtLMDesc.Text)
|
|
!Qty = Str2Field(txtLMQty.Text)
|
|
!Calc_Amt = Str2Field(txtLMLength.Text)
|
|
!O_Qty = Str2Field(txtLMBalance.Text)
|
|
|
|
If cboLMType.Text = "Lath" Then
|
|
!M_Type = "L"
|
|
ElseIf cboLMType.Text = "Scratch" Then
|
|
!M_Type = "S"
|
|
ElseIf cboLMType.Text = "Brown" Then
|
|
!M_Type = "B"
|
|
ElseIf cboLMType.Text = "Texture" Then
|
|
!M_Type = "T"
|
|
ElseIf cboLMType.Text = "PreOrder" Then
|
|
!M_Type = "P"
|
|
End If
|
|
|
|
If cboLMDFlag.Text = "Supplier" Then
|
|
!D_Flag = "S"
|
|
ElseIf cboLMDFlag.Text = "Yard" Then
|
|
!D_Flag = "Y"
|
|
End If
|
|
|
|
If cboLMMetal.Text = "Metal" Then
|
|
!Calc_Flag = "M"
|
|
Else
|
|
!Calc_Flag = ""
|
|
!Calc_Amt = 0
|
|
End If
|
|
End With
|
|
moRSMat.Update
|
|
End Sub
|
|
|
|
Private Sub FormClear()
|
|
|
|
|
|
End Sub
|
|
Private Sub StuccoLoad()
|
|
cboOneKote.AddItem ("Superwall")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 1
|
|
cboOneKote.AddItem ("MagnaWall")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 2
|
|
cboOneKote.AddItem ("Three Coat")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 3
|
|
cboOneKote.AddItem ("Western 1 Kote")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 4
|
|
cboOneKote.AddItem ("Synthetic")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 5
|
|
cboOneKote.AddItem ("Synthetic Over 1 Kote")
|
|
cboOneKote.ItemData(cboOneKote.NewIndex) = 6
|
|
|
|
End Sub
|
|
|
|
Private Sub MatLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String
|
|
|
|
strSQL = "SELECT LOT_id, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblLOTMatrl WHERE lot_id = " & gintLOTID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstLMaterial.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstLMaterial
|
|
|
|
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 lstLMaterial.ListCount Then
|
|
lstLMaterial.ListIndex = 0
|
|
Else
|
|
txtLMInvNo = ""
|
|
txtLMDesc = ""
|
|
txtLMQty = ""
|
|
txtLMLength = ""
|
|
cboLMDFlag.ListIndex = -1
|
|
cboLMType.ListIndex = -1
|
|
cboLMMetal.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 = " & lstLOptions.ItemData(lstLOptions.ListIndex) 'gintOPTID
|
|
|
|
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
|
|
txtLOMInvNo = ""
|
|
txtLOMDesc = ""
|
|
txtLOMQty = ""
|
|
txtLOMLength = ""
|
|
cboLOMDFlag.ListIndex = -1
|
|
cboLOMType.ListIndex = -1
|
|
cboLOMetal.ListIndex = -1
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub POptLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String
|
|
Dim strLine As String
|
|
|
|
strSQL = "SELECT OPTID, Opt_No, Desc, Yardage from tblPOption WHERE Est_id = " & gintESTID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstPOptions.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstPOptions
|
|
|
|
strLine = oRS("Opt_no") & " " & oRS("Yardage") & vbTab & oRS("desc")
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("OPTID")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstPOptions.ListCount Then
|
|
lstPOptions.ListIndex = -1
|
|
' Else
|
|
' txtLOYdge = ""
|
|
' txtLODesc = ""
|
|
' txtLOFin2 = ""
|
|
' txtLOFoam = ""
|
|
' lstOptMatrl.Clear
|
|
' txtLOMInvNo = ""
|
|
' txtLOMDesc = ""
|
|
' txtLOMQty = ""
|
|
' txtLOMLength = ""
|
|
' cboLOMDFlag.ListIndex = -1
|
|
' cboLOMType.ListIndex = -1
|
|
' cboLMMetal.ListIndex = -1
|
|
' gintOPTID = 0
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub LOptLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String, intLoop As Integer, intPos As Integer
|
|
Dim strLine As String
|
|
|
|
strSQL = "SELECT OPT_ID from tblLOption WHERE Lot_ID = " & gintLOTID
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
lstLOptions.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstLOptions
|
|
For intLoop = 0 To lstPOptions.ListCount - 1
|
|
If lstPOptions.ItemData(intLoop) = oRS!opt_id Then
|
|
.AddItem (lstPOptions.List(intLoop))
|
|
.ItemData(.NewIndex) = oRS!opt_id
|
|
End If
|
|
Next intLoop
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
oRS.Close
|
|
|
|
If lstLOptions.ListCount Then
|
|
lstLOptions.ListIndex = 0
|
|
gintOPTID = lstLOptions.ItemData(lstLOptions.ListIndex)
|
|
' Else
|
|
' txtLOYdge = ""
|
|
' txtLODesc = ""
|
|
' txtLOFin2 = ""
|
|
' txtLOFoam = ""
|
|
' lstOptMatrl.Clear
|
|
' txtLOMInvNo = ""
|
|
' txtLOMDesc = ""
|
|
' txtLOMQty = ""
|
|
' txtLOMLength = ""
|
|
' cboLOMDFlag.ListIndex = -1
|
|
' cboLOMType.ListIndex = -1
|
|
' cboLOMetal.ListIndex = -1
|
|
' gintOPTID = 0
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub lstLOptions_Click()
|
|
If lstLOptions.ListIndex <> -1 Then
|
|
If FormFindPOpt() Then
|
|
Call FormShowOpt
|
|
Call OptMatLoad
|
|
If lstOptMatrl.ListIndex <> -1 Then
|
|
If FormFindOptMat() Then
|
|
Call FormShowOptMat
|
|
Else
|
|
lstOptMatrl.Clear
|
|
txtLOMInvNo = ""
|
|
txtLOMDesc = ""
|
|
txtLOMQty = ""
|
|
txtLOMLength = ""
|
|
cboLOMDFlag.Text = ""
|
|
cboLOMType.Text = ""
|
|
cboLOMetal.Text = ""
|
|
End If
|
|
End If
|
|
Else
|
|
lstLOptions.Clear
|
|
txtLOYdge = ""
|
|
txtLODesc = ""
|
|
txtLOFin2 = ""
|
|
txtLOFoam = ""
|
|
txtLOTexture = ""
|
|
End If
|
|
If FormFindLOpt() Then
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub lstOptMatrl_Click()
|
|
If lstOptMatrl.ListIndex <> -1 Then
|
|
If FormFindOptMat() Then
|
|
Call FormShowOptMat
|
|
Else
|
|
lstOptMatrl.Clear
|
|
txtLOMInvNo = ""
|
|
txtLOMDesc = ""
|
|
txtLOMQty = ""
|
|
' txtOMPrice = ""
|
|
txtLOMLength = ""
|
|
cboLOMDFlag.Text = ""
|
|
cboLOMType.Text = ""
|
|
cboLOMetal.Text = ""
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub lstLMaterial_Click()
|
|
If lstLMaterial.ListIndex <> -1 Then
|
|
If FormFindMat() Then
|
|
Call FormShowMat
|
|
Else
|
|
lstLMaterial.Clear
|
|
txtLMInvNo = ""
|
|
txtLMDesc = ""
|
|
txtLMQty = ""
|
|
txtLMLength = ""
|
|
cboLMDFlag.Text = ""
|
|
cboLMType.Text = ""
|
|
cboLMMetal.Text = ""
|
|
txtLMBalance = ""
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub OrderLoad()
|
|
Dim oRS As Recordset
|
|
Dim strSQL As String, strLine As String, strSelect As String
|
|
On Error Resume Next
|
|
|
|
strSQL = "SELECT Inv_no, Desc, Qty, D_Flag, M_Type from tblLotMatrl WHERE Lot_ID = " & gintLOTID
|
|
' strSQL = strSQL & " and D_Flag = 'S' and M_Type = 'P'"
|
|
|
|
Set oRS = New Recordset
|
|
|
|
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
strSelect = "D_Flag = 'S' and M_Type = 'P'"
|
|
|
|
oRS.Filter = strSelect
|
|
lstPreOrder.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstPreOrder
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
oRS.MoveFirst
|
|
|
|
strSelect = "D_Flag = 'S' and M_Type = 'L'"
|
|
oRS.Filter = strSelect
|
|
lstLath.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstLath
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
oRS.MoveFirst
|
|
|
|
strSelect = "D_Flag = 'Y' and M_Type = 'L'"
|
|
oRS.Filter = strSelect
|
|
lstYard.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstYard
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
oRS.MoveFirst
|
|
|
|
strSelect = "D_Flag = 'S' and M_Type = 'S'"
|
|
oRS.Filter = strSelect
|
|
lstScratch.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstScratch
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
oRS.MoveFirst
|
|
|
|
strSelect = "D_Flag = 'S' and M_Type = 'B'"
|
|
oRS.Filter = strSelect
|
|
lstBrown.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstBrown
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
oRS.MoveFirst
|
|
|
|
strSelect = "D_Flag = 'S' and M_Type = 'T'"
|
|
oRS.Filter = strSelect
|
|
lstTexture.Clear
|
|
|
|
Do Until oRS.EOF
|
|
With lstTexture
|
|
strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
|
|
.AddItem strLine
|
|
.ItemData(.NewIndex) = oRS("inv_no")
|
|
End With
|
|
|
|
oRS.MoveNext
|
|
Loop
|
|
|
|
|
|
oRS.Close
|
|
|
|
If lstPreOrder.ListCount Then
|
|
lstPreOrder.ListIndex = -1
|
|
End If
|
|
|
|
If lstLath.ListCount Then
|
|
lstLath.ListIndex = -1
|
|
End If
|
|
|
|
If lstYard.ListCount Then
|
|
lstYard.ListIndex = -1
|
|
End If
|
|
|
|
If lstScratch.ListCount Then
|
|
lstScratch.ListIndex = -1
|
|
End If
|
|
|
|
If lstBrown.ListCount Then
|
|
lstBrown.ListIndex = -1
|
|
End If
|
|
|
|
If lstTexture.ListCount Then
|
|
lstTexture.ListIndex = -1
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|