azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
0a264ee3fabfdfded7e2bb64dc86ece16c31d99e
claudetools/clients/valleywide/app-modernization/source-code/Full-Project/VWP_Inv/frmPaintPrtJobs.frm
Mike Swanson 5359e7c49e feat(valleywide): recover VWP Orders VB6 source from D: backup drive 
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>
2026-05-16 17:36:27 -07:00

2400 lines
67 KiB
Plaintext
Raw Blame History

VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form frmPaintPrtJobs
Caption = "Paint Print Jobs"
ClientHeight = 5805
ClientLeft = 60
ClientTop = 345
ClientWidth = 6075
LinkTopic = "Form1"
ScaleHeight = 5805
ScaleWidth = 6075
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chkPREP
Alignment = 1 'Right Justify
Caption = "Print Paint Prep"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 570
TabIndex = 47
Top = 930
Width = 1695
End
Begin VB.CheckBox chkBT1
Alignment = 1 'Right Justify
Caption = "Print Blue Tape 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 = 225
Left = 3585
TabIndex = 46
Top = 930
Width = 1845
End
Begin VB.CheckBox chkST
Alignment = 1 'Right Justify
Caption = "Print Stairs/Escalera"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 90
TabIndex = 40
Top = 4005
Width = 2175
End
Begin VB.CheckBox chkAS2
Alignment = 1 'Right Justify
Caption = "Print Accent Siding 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 = 225
Left = 3165
TabIndex = 39
Top = 4005
Width = 2265
End
Begin VB.CheckBox chkAS1
Alignment = 1 'Right Justify
Caption = "Print Accent Siding 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 = 225
Left = 3225
TabIndex = 38
Top = 3693
Width = 2205
End
Begin VB.CheckBox chkRF2
Alignment = 1 'Right Justify
Caption = "Print Recortar Fascia 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 = 225
Left = 3075
TabIndex = 37
Top = 3386
Width = 2355
End
Begin VB.CheckBox chkRF1
Alignment = 1 'Right Justify
Caption = "Print Recortar Fascia 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 = 225
Left = 3000
TabIndex = 36
Top = 3079
Width = 2430
End
Begin VB.CommandButton cmdMarkALL
Caption = "Mark All CK Boxes"
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 = 80
TabIndex = 35
Top = 5025
Width = 1500
End
Begin VB.CheckBox chkSP
Alignment = 1 'Right Justify
Caption = "Print Stucco Primer"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 3405
TabIndex = 32
Top = 2465
Width = 2025
End
Begin VB.CheckBox chkFO
Alignment = 1 'Right Justify
Caption = "Print Fence 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 = 225
Left = 3480
TabIndex = 31
Top = 2772
Width = 1950
End
Begin VB.CommandButton cmdPrint
Caption = "Print Sheets"
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 = 1580
TabIndex = 30
Top = 5025
Width = 1500
End
Begin Crystal.CrystalReport crOrder
Left = 75
Top = 1845
_ExtentX = 741
_ExtentY = 741
_Version = 348160
PrintFileLinesPerPage= 60
End
Begin VB.CheckBox chkWH
Alignment = 1 'Right Justify
Caption = "Print Water House"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 3510
TabIndex = 27
Top = 2158
Width = 1920
End
Begin VB.CheckBox chkCS
Alignment = 1 'Right Justify
Caption = "Print Customer Service"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 3075
TabIndex = 26
Top = 1851
Width = 2355
End
Begin VB.CheckBox chkES
Alignment = 1 'Right Justify
Caption = "Print Exterior Spray"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 240
TabIndex = 24
Top = 1544
Width = 2025
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 = 4580
TabIndex = 21
Top = 5025
Width = 1500
End
Begin VB.CheckBox chkCC
Alignment = 1 'Right Justify
Caption = "Print Ceiling Cut"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 540
TabIndex = 19
Top = 3693
Width = 1725
End
Begin VB.CheckBox chkIS
Alignment = 1 'Right Justify
Caption = "Print Interior Spray"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 315
TabIndex = 17
Top = 1237
Width = 1950
End
Begin VB.CheckBox chkPO
Alignment = 1 'Right Justify
Caption = "Print Purchase 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 = 225
Left = 3315
TabIndex = 8
Top = 1544
Width = 2115
End
Begin VB.CheckBox chkBT2
Alignment = 1 'Right Justify
Caption = "Print Blue Tape 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 = 225
Left = 3585
TabIndex = 7
Top = 1237
Width = 1845
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
Enabled = 0 'False
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 = 3080
TabIndex = 6
Top = 5025
Width = 1500
End
Begin VB.CheckBox chkFG2
Alignment = 1 'Right Justify
Caption = "Print Fog In 2 Stories"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 120
TabIndex = 5
Top = 3386
Width = 2145
End
Begin VB.CheckBox chkFG1
Alignment = 1 'Right Justify
Caption = "Print Fog In - 1 Story"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 135
TabIndex = 4
Top = 3079
Width = 2130
End
Begin VB.CheckBox chkF2
Alignment = 1 'Right Justify
Caption = "Print Final 2 Tone"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 390
TabIndex = 3
Top = 2772
Width = 1875
End
Begin VB.CheckBox chkFS
Alignment = 1 'Right Justify
Caption = "Print Final Standard"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 225
TabIndex = 2
Top = 2465
Width = 2040
End
Begin VB.CheckBox chkOH
Alignment = 1 'Right Justify
Caption = "Print OverHang"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 600
TabIndex = 1
Top = 2158
Width = 1665
End
Begin VB.CheckBox chk2T
Alignment = 1 'Right Justify
Caption = "Print 2 Tone"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 840
TabIndex = 0
Top = 1851
Width = 1425
End
Begin VB.Label lblBT1
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 = 225
Left = 5550
TabIndex = 49
Top = 930
Visible = 0 'False
Width = 465
End
Begin VB.Label lblPrep
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 = 225
Left = 2415
TabIndex = 48
Top = 930
Visible = 0 'False
Width = 465
End
Begin VB.Line Line2
X1 = 30
X2 = 6060
Y1 = 4320
Y2 = 4320
End
Begin VB.Line Line1
X1 = 30
X2 = 6060
Y1 = 840
Y2 = 840
End
Begin VB.Label lblAS2
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 = 225
Left = 5550
TabIndex = 45
Top = 4005
Visible = 0 'False
Width = 465
End
Begin VB.Label lblAS1
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 = 225
Left = 5550
TabIndex = 44
Top = 3693
Visible = 0 'False
Width = 465
End
Begin VB.Label lblRF2
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 = 225
Left = 5550
TabIndex = 43
Top = 3386
Visible = 0 'False
Width = 465
End
Begin VB.Label lblRF1
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 = 225
Left = 5550
TabIndex = 42
Top = 3079
Visible = 0 'False
Width = 465
End
Begin VB.Label lblST
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 = 225
Left = 2415
TabIndex = 41
Top = 4005
Visible = 0 'False
Width = 465
End
Begin VB.Label lblSP
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 = 225
Left = 5550
TabIndex = 34
Top = 2445
Visible = 0 'False
Width = 465
End
Begin VB.Label lblFO
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 = 225
Left = 5550
TabIndex = 33
Top = 2772
Visible = 0 'False
Width = 465
End
Begin VB.Label lblWH
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 = 225
Left = 5550
TabIndex = 29
Top = 2158
Visible = 0 'False
Width = 465
End
Begin VB.Label lblCS
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 = 225
Left = 5550
TabIndex = 28
Top = 1851
Visible = 0 'False
Width = 465
End
Begin VB.Label lblES
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 = 225
Left = 2415
TabIndex = 25
Top = 1544
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 = 750
Left = 60
TabIndex = 23
Top = 0
Width = 6015
End
Begin VB.Label lblDirections
Caption = $"frmPaintPrtJobs.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 = 615
Left = 60
TabIndex = 22
Top = 4350
Width = 5955
End
Begin VB.Label lblFG2
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 = 225
Left = 2415
TabIndex = 20
Top = 3386
Visible = 0 'False
Width = 465
End
Begin VB.Label lblIS
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 = 225
Left = 2415
TabIndex = 18
Top = 1237
Visible = 0 'False
Width = 465
End
Begin VB.Label lblPO
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 = 225
Left = 5550
TabIndex = 16
Top = 1544
Visible = 0 'False
Width = 465
End
Begin VB.Label lblBT2
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 = 225
Left = 5550
TabIndex = 15
Top = 1237
Visible = 0 'False
Width = 465
End
Begin VB.Label lblCC
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 = 225
Left = 2415
TabIndex = 14
Top = 3693
Visible = 0 'False
Width = 465
End
Begin VB.Label lblFG1
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 = 225
Left = 2415
TabIndex = 13
Top = 3079
Visible = 0 'False
Width = 465
End
Begin VB.Label lblF2
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 = 225
Left = 2415
TabIndex = 12
Top = 2772
Visible = 0 'False
Width = 465
End
Begin VB.Label lblFS
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 = 225
Left = 2415
TabIndex = 11
Top = 2465
Visible = 0 'False
Width = 465
End
Begin VB.Label lblOH
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 = 225
Left = 2415
TabIndex = 10
Top = 2158
Visible = 0 'False
Width = 465
End
Begin VB.Label lbl2T
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 = 225
Left = 2415
TabIndex = 9
Top = 1851
Visible = 0 'False
Width = 465
End
End
Attribute VB_Name = "frmPaintPrtJobs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim moRS As Recordset, moRSProj As Recordset, moRSPay As Recordset
Dim intCOUNT As Integer, mstrPROJLOT As String ', mboolBADD As Boolean
Dim mboolPrepD, mboolISD, mboolESD, mbool2TD, mboolOHD As Boolean
Dim mboolBT1D, mboolCCD, mboolFG1D, mboolFG2D, mboolF2D, mboolFSD As Boolean
Dim mboolBT2D, mboolPOD, mboolCSD, mboolWHD, mboolAS2D As Boolean
Dim mboolRF2D, mboolFOD, mboolSPD, mboolSTD, mboolRF1D, mboolAS1D As Boolean
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdMarkALL_Click()
If chkPREP.Enabled = True Then
chkPREP = vbChecked
End If
If chkFO.Enabled = True Then
chkFO = vbChecked
End If
If chkSP.Enabled = True Then
chkSP = vbChecked
End If
If chkIS.Enabled = True Then
chkIS = vbChecked
End If
If chkES.Enabled = True Then
chkES = vbChecked
End If
If chk2T.Enabled = True Then
chk2T = vbChecked
End If
If chkOH.Enabled = True Then
chkOH = vbChecked
End If
If chkFS.Enabled = True Then
chkFS = vbChecked
End If
If chkF2.Enabled = True Then
chkF2 = vbChecked
End If
If chkFG1.Enabled = True Then
chkFG1 = vbChecked
End If
If chkFG2.Enabled = True Then
chkFG2 = vbChecked
End If
If chkCC.Enabled = True Then
chkCC = vbChecked
End If
If chkBT1.Enabled = True Then
chkBT1 = vbChecked
End If
If chkBT2.Enabled = True Then
chkBT2 = vbChecked
End If
If chkRF1.Enabled = True Then
chkRF1 = vbChecked
End If
If chkRF2.Enabled = True Then
chkRF2 = vbChecked
End If
If chkAS1.Enabled = True Then
chkAS1 = vbChecked
End If
If chkAS2.Enabled = True Then
chkAS2 = vbChecked
End If
If chkPO.Enabled = True Then
chkPO = vbChecked
End If
If chkST.Enabled = True Then
chkST = vbChecked
End If
If chkCS.Enabled = True Then
chkCS = vbChecked
End If
If chkWH.Enabled = True Then
chkWH = vbChecked
End If
End Sub
Private Sub cmdPrint_Click()
If chkPREP = vbChecked Then
Call PrintPPPrep
ElseIf chkSP = vbChecked Then
Call PrintPPSP
ElseIf chkFO = vbChecked Then
Call PrintPPFO
ElseIf chkIS = vbChecked Then
Call PrintPPIS
ElseIf chkES = vbChecked Then
Call PrintPPES
ElseIf chk2T = vbChecked Then
Call PrintPP2T
ElseIf chkOH = vbChecked Then
Call PrintPPOH
ElseIf chkFS = vbChecked Then
Call PrintPPFS
ElseIf chkF2 = vbChecked Then
Call PrintPPF2
ElseIf chkFG1 = vbChecked Then
Call PrintPPFG1
ElseIf chkFG2 = vbChecked Then
Call PrintPPFG2
ElseIf chkCC = vbChecked Then
Call PrintPPCC
ElseIf chkBT1 = vbChecked Then
Call PrintPPBT1
ElseIf chkBT2 = vbChecked Then
Call PrintPPBT2
ElseIf chkPO = vbChecked Then
Call PrintPPPO
ElseIf chkRF1 = vbChecked Then
Call PrintPPRF1
ElseIf chkRF2 = vbChecked Then
Call PrintPPRF2
ElseIf chkAS1 = vbChecked Then
Call PrintPPAS1
ElseIf chkAS2 = vbChecked Then
Call PrintPPAS2
ElseIf chkST = vbChecked Then
Call PrintPPST
ElseIf chkCS = vbChecked Then
Call PrintPPCS
ElseIf chkWH = vbChecked Then
Call PrintPPWH
Else
MsgBox "No Boxes Are Checked", vbOKOnly, "Print Paint Pay"
Call cmdExit_Click
End If
End Sub
Private Sub cmdSave_Click()
With moRS
!PREPP = Field2CheckBox(chkPREP)
!SPP = Field2CheckBox(chkSP)
!FOP = Field2CheckBox(chkFO)
!ISP = Field2CheckBox(chkIS)
!ESP = Field2CheckBox(chkES)
!TwoTP = Field2CheckBox(chk2T)
!ohp = Field2CheckBox(chkOH)
!FSP = Field2CheckBox(chkFS)
!F2P = Field2CheckBox(chkF2)
!FG1P = Field2CheckBox(chkFG1)
!FG2P = Field2CheckBox(chkFG2)
!CCP = Field2CheckBox(chkCC)
!BT1P = Field2CheckBox(chkBT1)
!BT2P = Field2CheckBox(chkBT2)
!AS1P = Field2CheckBox(chkAS1)
!AS2P = Field2CheckBox(chkAS2)
!RF1P = Field2CheckBox(chkRF1)
!RF2P = Field2CheckBox(chkRF2)
!STP = Field2CheckBox(chkST)
!POP = Field2CheckBox(chkPO)
!CSP = Field2CheckBox(chkCS)
!WHP = Field2CheckBox(chkWH)
.Update
End With
End Sub
Private Sub PrintPPPrep()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayPREP.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "PREP"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!PREPL = vbTrue
moRS!PREPP = vbUnchecked
moRS.Update
chkPREP = vbUnchecked
chkPREP.Enabled = False
lblPrep.Visible = True
'*** End Prep Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPPrep"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPSP()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
' On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpaySP.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "SP"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!SPL = vbTrue
moRS!SPP = vbUnchecked
moRS.Update
chkSP = vbUnchecked
chkSP.Enabled = False
lblSP.Visible = True
'*** End SP Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPSP"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPFO()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayFO.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "FO"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!FOL = vbTrue
moRS!FOP = vbUnchecked
moRS.Update
chkFO = vbUnchecked
chkFO.Enabled = False
lblFO.Visible = True
'*** End FO Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPFO"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPIS()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayIS.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "IS"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!ISL = vbTrue
moRS!ISP = vbUnchecked
moRS.Update
chkIS = vbUnchecked
chkIS.Enabled = False
lblIS.Visible = True
'*** End IS Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPIS"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPES()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
'Need To Complete the ability to print one
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayES.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "ES"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!ESL = vbTrue
moRS!ESP = vbUnchecked
moRS.Update
chkES = vbUnchecked
chkES.Enabled = False
lblES.Visible = True
'*** End ES Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPES"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPP2T()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpay2T.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "2T"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!TwoTL = vbTrue
moRS!TwoTP = vbUnchecked
moRS.Update
chk2T = vbUnchecked
chk2T.Enabled = False
lbl2T.Visible = True
'*** End 2T Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPP2T"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPOH()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayOH.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "OH"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!OHL = vbTrue
moRS!ohp = vbUnchecked
moRS.Update
chkOH = vbUnchecked
chkOH.Enabled = False
lblOH.Visible = True
'*** End OH Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPOH"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPFS()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayFS.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "FS"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!FSL = vbTrue
moRS!FSP = vbUnchecked
moRS.Update
chkFS = vbUnchecked
chkFS.Enabled = False
lblFS.Visible = True
'*** End FS Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPFS"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPF2()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayF2.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "F2"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!F2L = vbTrue
moRS!F2P = vbUnchecked
moRS.Update
chkF2 = vbUnchecked
chkF2.Enabled = False
lblF2.Visible = True
'*** End F2 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPF2"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPFG1()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayFG1.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "FG1"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!FG1L = vbTrue
moRS!FG1P = vbUnchecked
moRS.Update
chkFG1 = vbUnchecked
chkFG1.Enabled = False
lblFG1.Visible = True
'*** End FG1 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPFG1"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPFG2()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayFG2.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "FG2"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!FG2L = vbTrue
moRS!FG2P = vbUnchecked
moRS.Update
chkFG2 = vbUnchecked
chkFG2.Enabled = False
lblFG2.Visible = True
'*** End FG2 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPFG2"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPBT1()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayBT1.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "BT1"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!BT1L = vbTrue
moRS!BT1P = vbUnchecked
moRS.Update
chkBT1 = vbUnchecked
chkBT1.Enabled = False
lblBT1.Visible = True
'*** End BT1 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPBT1"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPBT2()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayBT2.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "BT2"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!BT2L = vbTrue
moRS!BT2P = vbUnchecked
moRS.Update
chkBT2 = vbUnchecked
chkBT2.Enabled = False
lblBT2.Visible = True
'*** End BT2 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPBT2"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPRF1()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayRF1.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "RF1"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!RF1L = vbTrue
moRS!RF1P = vbUnchecked
moRS.Update
chkRF1 = vbUnchecked
chkRF1.Enabled = False
lblRF1.Visible = True
'*** End RF1 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPRF1"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPRF2()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayRF2.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "RF2"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!RF2L = vbTrue
moRS!RF2P = vbUnchecked
moRS.Update
chkRF2 = vbUnchecked
chkRF2.Enabled = False
lblRF2.Visible = True
'*** End RF2 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPRF2"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPAS1()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayAS1.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "AS1"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!AS1L = vbTrue
moRS!AS1P = vbUnchecked
moRS.Update
chkAS1 = vbUnchecked
chkAS1.Enabled = False
lblAS1.Visible = True
'*** End AS1 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPAS1"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPAS2()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayAS2.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "AS2"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!AS2L = vbTrue
moRS!AS2P = vbUnchecked
moRS.Update
chkAS2 = vbUnchecked
chkAS2.Enabled = False
lblAS2.Visible = True
'*** End AS2 Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPAS2"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPPO()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayPO.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "PO"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!POL = vbTrue
moRS!POP = vbUnchecked
moRS.Update
chkPO = vbUnchecked
chkPO.Enabled = False
lblPO.Visible = True
'*** End PO Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPPO"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPST()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayST.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "ST"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!STL = vbTrue
moRS!STP = vbUnchecked
moRS.Update
chkST = vbUnchecked
chkST.Enabled = False
lblST.Visible = True
'*** End ST Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPST"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPCS()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayCS.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "CS"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!CSL = vbTrue
moRS!CSP = vbUnchecked
moRS.Update
chkCS = vbUnchecked
chkCS.Enabled = False
lblCS.Visible = True
'*** End CS Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPCS"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPWH()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayWH.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "WH"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!WHL = vbTrue
moRS!WHP = vbUnchecked
moRS.Update
chkWH = vbUnchecked
chkWH.Enabled = False
lblWH.Visible = True
'*** End WH Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPWH"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub PrintPPCC()
Dim strSQL As String, i As Integer
Dim intTOTAL As Integer, intYDS As Integer, intMETAL As Integer
On Error GoTo Error_EH
gintCOPY = 1
strSQL = "{tblLOTINFO.lot_id} = " & gintLOTID
crOrder.ReportFileName = App.Path & "\paintpayCC.rpt"
crOrder.ReplaceSelectionFormula (strSQL)
crOrder.CopiesToPrinter = gintCOPY
crOrder.Destination = crptToPrinter
intTOTAL = Int((gintCOPY / 2) + 0.99)
intYDS = Int((moRS!PNT_SQFT / intTOTAL) + 0.99)
i = 1
crOrder.CopiesToPrinter = gintCOPY
crOrder.Action = 1
crOrder.Reset
moRSPay.AddNew
moRSPay!lotid = gintLOTID
moRSPay!Type = "X"
moRSPay!worktype = "CC"
moRSPay!pay_ydge = intYDS
moRSPay!sheet = i
moRSPay!Create = gstrLOGIN
moRSPay!printed = vbChecked
moRSPay!totalsheet = intTOTAL
moRSPay!cocode = 0
moRSPay.Update
moRS!CCL = vbTrue
moRS!CCP = vbUnchecked
moRS.Update
chkCC = vbUnchecked
chkCC.Enabled = False
lblCC.Visible = True
'*** End CC Pay Sheet
Exit Sub
Error_EH:
gstrMODULE = "Form PrintPntPay - Module PrintPPCC"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
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()
Dim strSQL As String
Call ProjLoad
If FormFind() Then
Call FormShow
End If
strSQL = "SELECT * FROM tblPAYSHEET WHERE PAYID = 1"
Set moRSPay = New Recordset
moRSPay.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
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 PaintPrtJobs - 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
chkPREP = Field2CheckBox(!PREPP)
chkFO = Field2CheckBox(!FOP)
chkSP = Field2CheckBox(!SPP)
chkIS = Field2CheckBox(!ISP)
chkES = Field2CheckBox(!ESP)
chk2T = Field2CheckBox(!TwoTP)
chkOH = Field2CheckBox(!ohp)
chkFS = Field2CheckBox(!FSP)
chkF2 = Field2CheckBox(!F2P)
chkFG1 = Field2CheckBox(!FG1P)
chkFG2 = Field2CheckBox(!FG2P)
chkCC = Field2CheckBox(!CCP)
chkBT1 = Field2CheckBox(!BT1P)
chkBT2 = Field2CheckBox(!BT2P)
chkRF1 = Field2CheckBox(!RF1P)
chkRF2 = Field2CheckBox(!RF2P)
chkAS1 = Field2CheckBox(!AS1P)
chkAS2 = Field2CheckBox(!AS2P)
chkST = Field2CheckBox(!STP)
chkPO = Field2CheckBox(!POP)
chkCS = Field2CheckBox(!CSP)
chkWH = Field2CheckBox(!WHP)
mboolSPD = (!SPL)
mboolFOD = (!FOL)
mboolISD = (!ISL)
mboolPrepD = (!PREPL)
mboolESD = (!ESL)
mbool2TD = (!TwoTL)
mboolOHD = (!OHL)
mboolFSD = (!FSL)
mboolF2D = (!F2L)
mboolFG1D = (!FG1L)
mboolFG2D = (!FG2L)
mboolCCD = (!CCL)
mboolBT1D = (!BT1L)
mboolBT2D = (!BT2L)
mboolRF1D = (!RF1L)
mboolRF2D = (!RF2L)
mboolAS1D = (!AS1L)
mboolAS2D = (!AS2L)
mboolSTD = (!STL)
mboolPOD = (!POL)
mboolCSD = (!CSL)
mboolWHD = (!WHL)
' mboolPEXTD = Field2TrueFalse(!PEXTL)
' mboolPINTD = Field2TrueFalse(!PINTL)
' mboolISD = Field2TrueFalse(!ISL)
' mboolPrepD = Field2TrueFalse(!PREPL)
' mboolESD = Field2TrueFalse(!ESL)
' mbool2TD = Field2TrueFalse(!TwoTL)
' mboolOHD = Field2TrueFalse(!OHL)
' mboolFSD = Field2TrueFalse(!FSL)
' mboolF2D = Field2TrueFalse(!F2L)
' mboolFG1D = Field2TrueFalse(!FG1L)
' mboolFG2D = Field2TrueFalse(!FG2L)
' mboolCCD = Field2TrueFalse(!CCL)
' mboolBT1D = Field2TrueFalse(!BT1L)
' mboolBT2D = Field2TrueFalse(!BT2L)
' mboolPOD = Field2TrueFalse(!POL)
' mboolCSD = Field2TrueFalse(!CSL)
' mboolWHD = Field2TrueFalse(!WHL)
End With
' If mboolSupD Then
' chkSuperP.Enabled = False
' lblSuperD.Visible = True
' End If
If mboolPrepD Then
chkPREP.Enabled = False
lblPrep.Visible = True
End If
If mboolPINTD Then
chkPINT.Enabled = False
lblPINT.Visible = True
End If
If mboolPEXTD Then
chkPEXT.Enabled = False
lblPEXT.Visible = True
End If
If mboolISD Then
chkIS.Enabled = False
lblIS.Visible = True
End If
If mboolESD Then
chkES.Enabled = False
lblES.Visible = True
End If 'Need to make reports print from this screen
If mbool2TD Then
chk2T.Enabled = False
lbl2T.Visible = True
End If
If mboolOHD Then
chkOH.Enabled = False
lblOH.Visible = True
End If
If mboolFSD Then
chkFS.Enabled = False
lblFS.Visible = True
End If
If mboolF2D Then
chkF2.Enabled = False
lblF2.Visible = True
End If
If mboolFG1D Then
chkFG1.Enabled = False
lblFG1.Visible = True
End If
If mboolFG2D Then
chkFG2.Enabled = False
lblFG2.Visible = True
End If
If mboolCCD Then
chkCC.Enabled = False
lblCC.Visible = True
End If
If mboolBT1D Then
chkBT1.Enabled = False
lblBT1.Visible = True
End If
If mboolBT2D Then
chkBT2.Enabled = False
lblBT2.Visible = True
End If
If mboolPOD Then
chkPO.Enabled = False
lblPO.Visible = True
End If
If mboolCSD Then
chkCS.Enabled = False
lblCS.Visible = True
End If
If mboolWHD Then
chkWH.Enabled = False
lblWH.Visible = True
End If
If mboolRF1D Then
chkRF1.Enabled = False
lblRF1.Visible = True
End If
If mboolRF2D Then
chkRF2.Enabled = False
lblRF2.Visible = True
End If
If mboolAS1D Then
chkAS1.Enabled = False
lblAS1.Visible = True
End If
If mboolAS2D Then
chkAS2.Enabled = False
lblAS2.Visible = True
End If
If mboolSTD Then
chkST.Enabled = False
lblST.Visible = True
End If
If mboolSPD Then
chkSP.Enabled = False
lblSP.Visible = True
End If
If mboolFOD Then
chkFO.Enabled = False
lblFO.Visible = True
End If
Exit Sub
Error_EH:
gstrMODULE = "Form PaintPrtJobs - Module FormShow"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Reference in New Issue View Git Blame Copy Permalink