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