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>
803 lines
25 KiB
Plaintext
803 lines
25 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmLotPrtJobs
|
|
Caption = "Lot Print Jobs"
|
|
ClientHeight = 8295
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 4335
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 8295
|
|
ScaleWidth = 4335
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.CheckBox chkStoneP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Stone"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2265
|
|
TabIndex = 36
|
|
Top = 1845
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton cmdExit
|
|
Caption = "E&xit"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 750
|
|
Left = 2535
|
|
TabIndex = 33
|
|
Top = 5820
|
|
Width = 1050
|
|
End
|
|
Begin VB.TextBox txtEX3Amt
|
|
Height = 300
|
|
Left = 2640
|
|
TabIndex = 30
|
|
Top = 5475
|
|
Width = 945
|
|
End
|
|
Begin VB.TextBox txtEX3Desc
|
|
Height = 300
|
|
Left = 90
|
|
TabIndex = 29
|
|
Top = 5475
|
|
Width = 2535
|
|
End
|
|
Begin VB.TextBox txtEX2Amt
|
|
Height = 300
|
|
Left = 2640
|
|
TabIndex = 28
|
|
Top = 4830
|
|
Width = 945
|
|
End
|
|
Begin VB.TextBox txtEX2Desc
|
|
Height = 300
|
|
Left = 90
|
|
TabIndex = 27
|
|
Top = 4830
|
|
Width = 2535
|
|
End
|
|
Begin VB.TextBox txtEX1Amt
|
|
Height = 300
|
|
Left = 2640
|
|
TabIndex = 25
|
|
Top = 4260
|
|
Width = 945
|
|
End
|
|
Begin VB.TextBox txtEX1Desc
|
|
Height = 300
|
|
Left = 90
|
|
TabIndex = 24
|
|
Top = 4260
|
|
Width = 2535
|
|
End
|
|
Begin VB.CheckBox chkCMUP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print CMU"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2280
|
|
TabIndex = 22
|
|
Top = 3630
|
|
Width = 1320
|
|
End
|
|
Begin VB.CheckBox chkSuperP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Super Report"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 1650
|
|
TabIndex = 20
|
|
Top = 795
|
|
Width = 1950
|
|
End
|
|
Begin VB.CheckBox chkEX3P
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Extra 3"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2160
|
|
TabIndex = 10
|
|
Top = 5205
|
|
Width = 1440
|
|
End
|
|
Begin VB.CheckBox chkEX2P
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Extra 2"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2160
|
|
TabIndex = 9
|
|
Top = 4575
|
|
Width = 1440
|
|
End
|
|
Begin VB.CheckBox chkEX1P
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Extra 1"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2160
|
|
TabIndex = 8
|
|
Top = 3990
|
|
Width = 1440
|
|
End
|
|
Begin VB.CommandButton cmdSave
|
|
Caption = "&Save"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 750
|
|
Left = 90
|
|
TabIndex = 7
|
|
Top = 5820
|
|
Width = 1050
|
|
End
|
|
Begin VB.CheckBox chkCombine
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Brown/ Texture Together"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 540
|
|
Left = 1650
|
|
TabIndex = 6
|
|
Top = 270
|
|
Width = 1950
|
|
End
|
|
Begin VB.CheckBox chkTextureP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Texture"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2040
|
|
TabIndex = 5
|
|
Top = 3270
|
|
Width = 1560
|
|
End
|
|
Begin VB.CheckBox chkBrownP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Brown"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2145
|
|
TabIndex = 4
|
|
Top = 2910
|
|
Width = 1455
|
|
End
|
|
Begin VB.CheckBox chkPopOutP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Popout"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2115
|
|
TabIndex = 3
|
|
Top = 2550
|
|
Width = 1485
|
|
End
|
|
Begin VB.CheckBox chkNescoP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Nesco"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2190
|
|
TabIndex = 2
|
|
Top = 2190
|
|
Width = 1410
|
|
End
|
|
Begin VB.CheckBox chkLathP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Lath"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2370
|
|
TabIndex = 1
|
|
Top = 1515
|
|
Width = 1230
|
|
End
|
|
Begin VB.CheckBox chkWrapP
|
|
Alignment = 1 'Right Justify
|
|
Caption = "Print Wrap "
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 270
|
|
Left = 2295
|
|
TabIndex = 0
|
|
Top = 1155
|
|
Width = 1305
|
|
End
|
|
Begin VB.Label lblStone
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 37
|
|
Top = 1883
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblProjLot
|
|
Alignment = 2 'Center
|
|
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 = 60
|
|
TabIndex = 35
|
|
Top = 0
|
|
Width = 4215
|
|
End
|
|
Begin VB.Label lblDirections
|
|
Caption = $"frmLotPrtJobs.frx":0000
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1620
|
|
Left = 60
|
|
TabIndex = 34
|
|
Top = 6630
|
|
Width = 4245
|
|
End
|
|
Begin VB.Label lblEX3P
|
|
AutoSize = -1 'True
|
|
Caption = "Desc && Amount"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 32
|
|
Top = 5280
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblEX2P
|
|
AutoSize = -1 'True
|
|
Caption = "Desc && Amount"
|
|
Height = 195
|
|
Left = 105
|
|
TabIndex = 31
|
|
Top = 4650
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblEX1P
|
|
AutoSize = -1 'True
|
|
Caption = "Desc && Amount"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 26
|
|
Top = 4065
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblTex
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 23
|
|
Top = 3300
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblSuperD
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 21
|
|
Top = 855
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblEX3
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 19
|
|
Top = 5235
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblEX2
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 18
|
|
Top = 4605
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblEX1
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 17
|
|
Top = 4020
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblCMU
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 16
|
|
Top = 3660
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblBrown
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 15
|
|
Top = 2955
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblPopOut
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 14
|
|
Top = 2595
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblNesco
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 13
|
|
Top = 2235
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblLath
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 12
|
|
Top = 1560
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
Begin VB.Label lblWrap
|
|
AutoSize = -1 'True
|
|
Caption = "Done"
|
|
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 = 3750
|
|
TabIndex = 11
|
|
Top = 1200
|
|
Visible = 0 'False
|
|
Width = 465
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmLotPrtJobs"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim moRS As Recordset, moRSProj As Recordset
|
|
Dim intCount As Integer, mstrPROJLOT As String ', mboolBADD As Boolean
|
|
Dim mboolSupD, mboolWrapD, mboolLathD, mboolNescoD, mboolPopOutD As Boolean
|
|
Dim mboolBrownD, mboolTexD, mboolCMUD, mboolEX1D, mboolEX2D, mboolEX3D As Boolean
|
|
Dim mboolStoneD As Boolean
|
|
|
|
Private Sub cmdExit_Click()
|
|
Unload Me
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdSave_Click()
|
|
|
|
With moRS
|
|
!superp = Field2CheckBox(chkSuperP)
|
|
!WrapP = Field2CheckBox(chkWrapP)
|
|
!LathP = Field2CheckBox(chkLathP)
|
|
!StoneP = Field2CheckBox(chkStoneP)
|
|
!NescoP = Field2CheckBox(chkNescoP)
|
|
!PopoutP = Field2CheckBox(chkPopOutP)
|
|
!BrownP = Field2CheckBox(chkBrownP)
|
|
!TexP = Field2CheckBox(chkTextureP)
|
|
!CMUP = Field2CheckBox(chkCMUP)
|
|
!EX1P = Field2CheckBox(chkEX1P)
|
|
!EX1Purpose = Field2Str(txtEX1Desc)
|
|
!EX1Amt = Field2Str2(txtEX3Amt)
|
|
!EX2P = Field2CheckBox(chkEX2P)
|
|
!EX2Purpose = Field2Str(txtEX2Desc)
|
|
!EX2Amt = Field2Str2(txtEX3Amt)
|
|
!EX3P = Field2CheckBox(chkEX3P)
|
|
!EX3Purpose = Field2Str(txtEX3Desc)
|
|
!EX3Amt = Field2Str2(txtEX3Amt)
|
|
!combine = Field2CheckBox(chkCombine)
|
|
.Update
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Function FormFind() As Boolean
|
|
Dim strSQL As String, strPlan As String, strMEMO As String
|
|
|
|
|
|
|
|
strSQL = "SELECT * FROM tblLotInfo WHERE Lot_ID = " & gintLOTID
|
|
Set moRS = New Recordset
|
|
moRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
|
|
|
|
If moRS.EOF Then
|
|
FormFind = False
|
|
Else
|
|
FormFind = True
|
|
mstrPROJLOT = moRSProj!proj_code & " " & moRSProj!proj_desc & " " & moRS!lot_no
|
|
lblProjLot = mstrPROJLOT
|
|
' If moRS!Split Then
|
|
' mboolSPLIT = True
|
|
' Else
|
|
' mboolSPLIT = False
|
|
' End If
|
|
End If
|
|
|
|
Exit Function
|
|
|
|
End Function
|
|
|
|
Private Sub Form_Load()
|
|
|
|
Call ProjLoad
|
|
If FormFind() Then
|
|
Call FormShow
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ProjLoad()
|
|
Dim strSQL As String
|
|
On Error GoTo Error_EH
|
|
|
|
strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
|
|
Set moRSProj = New Recordset
|
|
moRSProj.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
|
|
|
' If moRSProj!stone Then
|
|
' mboolStone = True
|
|
' End If
|
|
' mstrWIRE = Field2Str(moRSProj!wire)
|
|
|
|
' gintCOCODE = Field2Str2(moRSProj!cocode)
|
|
Exit Sub
|
|
Error_EH:
|
|
gstrMODULE = "Form LotInfo5 - Module ProjLoad"
|
|
Call ErrorHandler2
|
|
gstrMODULE = ""
|
|
Exit Sub
|
|
End Sub
|
|
|
|
Private Sub FormShow()
|
|
On Error GoTo Error_EH
|
|
|
|
mboolSHOW = True
|
|
gintLOTID = moRS!Lot_id
|
|
txtProject = Trim$(moRSProj!proj_code) & " " & moRSProj!proj_desc
|
|
|
|
With moRS
|
|
chkCombine = Field2CheckBox(!combine)
|
|
chkSuperP = Field2CheckBox(!superp)
|
|
chkWrapP = Field2CheckBox(!WrapP)
|
|
chkLathP = Field2CheckBox(!LathP)
|
|
chkStoneP = Field2CheckBox(!StoneP)
|
|
chkNescoP = Field2CheckBox(!NescoP)
|
|
chkPopOutP = Field2CheckBox(!PopoutP)
|
|
chkBrownP = Field2CheckBox(!BrownP)
|
|
chkTextureP = Field2CheckBox(!TexP)
|
|
chkCMUP = Field2CheckBox(!CMUP)
|
|
chkEX1P = Field2CheckBox(!EX1P)
|
|
chkEX2P = Field2CheckBox(!EX2P)
|
|
chkEX3P = Field2CheckBox(!EX3P)
|
|
' mboolSupD = Field2TrueFalse(!superd)
|
|
mboolWrapD = Field2TrueFalse(!WrapD)
|
|
mboolLathD = Field2TrueFalse(!LathD)
|
|
mboolStoneD = Field2TrueFalse(!StoneD)
|
|
mboolNescoD = Field2TrueFalse(!NescoD)
|
|
mboolPopOutD = Field2TrueFalse(!PopOutD)
|
|
mboolBrownD = Field2TrueFalse(!BrownD)
|
|
mboolTexD = Field2TrueFalse(!TexD)
|
|
mboolCMUD = Field2TrueFalse(!CMUD)
|
|
mboolEX1D = Field2TrueFalse(!EX1D)
|
|
mboolEX2D = Field2TrueFalse(!EX2D)
|
|
mboolEX3D = Field2TrueFalse(!EX3D)
|
|
End With
|
|
' If mboolSupD Then
|
|
' chkSuperP.Enabled = False
|
|
' lblSuperD.Visible = True
|
|
' End If
|
|
If mboolWrapD Then
|
|
chkWrapP.Enabled = False
|
|
lblWrap.Visible = True
|
|
End If
|
|
If mboolLathD Then
|
|
chkLathP.Enabled = False
|
|
lblLath.Visible = True
|
|
End If
|
|
If mboolStoneD Then
|
|
chkStoneP.Enabled = False
|
|
lblStone.Visible = True
|
|
End If
|
|
If mboolNescoD Then
|
|
chkNescoP.Enabled = False
|
|
lblNesco.Visible = True
|
|
End If
|
|
If mboolPopOutD Then
|
|
chkPopOutP.Enabled = False
|
|
lblPopOut.Visible = True
|
|
End If
|
|
If mboolBrownD Then
|
|
chkBrownP.Enabled = False
|
|
lblBrown.Visible = True
|
|
End If
|
|
If mboolTexD Then
|
|
chkTextureP.Enabled = False
|
|
lblTex.Visible = True
|
|
End If
|
|
If mboolCMUD Then
|
|
chkCMUP.Enabled = False
|
|
lblCMU.Visible = True
|
|
End If
|
|
If mboolEX1D Then
|
|
chkEX1P.Enabled = False
|
|
lblEX1.Visible = True
|
|
End If
|
|
If mboolEX2D Then
|
|
chkEX2P.Enabled = False
|
|
lblEX2.Visible = True
|
|
End If
|
|
If mboolEX3D Then
|
|
chkEX3P.Enabled = False
|
|
lblEX3.Visible = True
|
|
End If
|
|
|
|
Exit Sub
|
|
|
|
Error_EH:
|
|
gstrMODULE = "Form LotInfo5 - Module FormShow"
|
|
Call ErrorHandler2
|
|
gstrMODULE = ""
|
|
Exit Sub
|
|
End Sub
|
|
|