VERSION 5.00
Begin VB.Form frmLotPrtJobs 
   Caption         =   "Lot Print Jobs"
   ClientHeight    =   8295
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4335
   LinkTopic       =   "Form1"
   ScaleHeight     =   8295
   ScaleWidth      =   4335
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkStoneP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Stone"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2265
      TabIndex        =   36
      Top             =   1845
      Width           =   1335
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   750
      Left            =   2535
      TabIndex        =   33
      Top             =   5820
      Width           =   1050
   End
   Begin VB.TextBox txtEX3Amt 
      Height          =   300
      Left            =   2640
      TabIndex        =   30
      Top             =   5475
      Width           =   945
   End
   Begin VB.TextBox txtEX3Desc 
      Height          =   300
      Left            =   90
      TabIndex        =   29
      Top             =   5475
      Width           =   2535
   End
   Begin VB.TextBox txtEX2Amt 
      Height          =   300
      Left            =   2640
      TabIndex        =   28
      Top             =   4830
      Width           =   945
   End
   Begin VB.TextBox txtEX2Desc 
      Height          =   300
      Left            =   90
      TabIndex        =   27
      Top             =   4830
      Width           =   2535
   End
   Begin VB.TextBox txtEX1Amt 
      Height          =   300
      Left            =   2640
      TabIndex        =   25
      Top             =   4260
      Width           =   945
   End
   Begin VB.TextBox txtEX1Desc 
      Height          =   300
      Left            =   90
      TabIndex        =   24
      Top             =   4260
      Width           =   2535
   End
   Begin VB.CheckBox chkCMUP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print CMU"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2280
      TabIndex        =   22
      Top             =   3630
      Width           =   1320
   End
   Begin VB.CheckBox chkSuperP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Super Report"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   1650
      TabIndex        =   20
      Top             =   795
      Width           =   1950
   End
   Begin VB.CheckBox chkEX3P 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Extra 3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2160
      TabIndex        =   10
      Top             =   5205
      Width           =   1440
   End
   Begin VB.CheckBox chkEX2P 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Extra 2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2160
      TabIndex        =   9
      Top             =   4575
      Width           =   1440
   End
   Begin VB.CheckBox chkEX1P 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Extra 1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2160
      TabIndex        =   8
      Top             =   3990
      Width           =   1440
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   750
      Left            =   90
      TabIndex        =   7
      Top             =   5820
      Width           =   1050
   End
   Begin VB.CheckBox chkCombine 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Brown/ Texture Together"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   1650
      TabIndex        =   6
      Top             =   270
      Width           =   1950
   End
   Begin VB.CheckBox chkTextureP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Texture"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2040
      TabIndex        =   5
      Top             =   3270
      Width           =   1560
   End
   Begin VB.CheckBox chkBrownP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Brown"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2145
      TabIndex        =   4
      Top             =   2910
      Width           =   1455
   End
   Begin VB.CheckBox chkPopOutP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Popout"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2115
      TabIndex        =   3
      Top             =   2550
      Width           =   1485
   End
   Begin VB.CheckBox chkNescoP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Nesco"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2190
      TabIndex        =   2
      Top             =   2190
      Width           =   1410
   End
   Begin VB.CheckBox chkLathP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Lath"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2370
      TabIndex        =   1
      Top             =   1515
      Width           =   1230
   End
   Begin VB.CheckBox chkWrapP 
      Alignment       =   1  'Right Justify
      Caption         =   "Print Wrap "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2295
      TabIndex        =   0
      Top             =   1155
      Width           =   1305
   End
   Begin VB.Label lblStone 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   37
      Top             =   1883
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblProjLot 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   60
      TabIndex        =   35
      Top             =   0
      Width           =   4215
   End
   Begin VB.Label lblDirections 
      Caption         =   $"frmLotPrtJobs.frx":0000
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1620
      Left            =   60
      TabIndex        =   34
      Top             =   6630
      Width           =   4245
   End
   Begin VB.Label lblEX3P 
      AutoSize        =   -1  'True
      Caption         =   "Desc && Amount"
      Height          =   195
      Left            =   120
      TabIndex        =   32
      Top             =   5280
      Width           =   1095
   End
   Begin VB.Label lblEX2P 
      AutoSize        =   -1  'True
      Caption         =   "Desc && Amount"
      Height          =   195
      Left            =   105
      TabIndex        =   31
      Top             =   4650
      Width           =   1095
   End
   Begin VB.Label lblEX1P 
      AutoSize        =   -1  'True
      Caption         =   "Desc && Amount"
      Height          =   195
      Left            =   120
      TabIndex        =   26
      Top             =   4065
      Width           =   1095
   End
   Begin VB.Label lblTex 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   23
      Top             =   3300
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblSuperD 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   21
      Top             =   855
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblEX3 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   19
      Top             =   5235
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblEX2 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   18
      Top             =   4605
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblEX1 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   17
      Top             =   4020
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblCMU 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   16
      Top             =   3660
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblBrown 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   15
      Top             =   2955
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblPopOut 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   14
      Top             =   2595
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblNesco 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   13
      Top             =   2235
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblLath 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   12
      Top             =   1560
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.Label lblWrap 
      AutoSize        =   -1  'True
      Caption         =   "Done"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3750
      TabIndex        =   11
      Top             =   1200
      Visible         =   0   'False
      Width           =   465
   End
End
Attribute VB_Name = "frmLotPrtJobs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim moRS As Recordset, moRSProj As Recordset
Dim intCount As Integer, mstrPROJLOT As String ', mboolBADD As Boolean
Dim mboolSupD, mboolWrapD, mboolLathD, mboolNescoD, mboolPopOutD As Boolean
Dim mboolBrownD, mboolTexD, mboolCMUD, mboolEX1D, mboolEX2D, mboolEX3D As Boolean
Dim mboolStoneD As Boolean

Private Sub cmdExit_Click()
   Unload Me

End Sub

Private Sub cmdSave_Click()

   With moRS
      !superp = Field2CheckBox(chkSuperP)
      !WrapP = Field2CheckBox(chkWrapP)
      !LathP = Field2CheckBox(chkLathP)
      !StoneP = Field2CheckBox(chkStoneP)
      !NescoP = Field2CheckBox(chkNescoP)
      !PopoutP = Field2CheckBox(chkPopOutP)
      !BrownP = Field2CheckBox(chkBrownP)
      !TexP = Field2CheckBox(chkTextureP)
      !CMUP = Field2CheckBox(chkCMUP)
      !EX1P = Field2CheckBox(chkEX1P)
      !EX1Purpose = Field2Str(txtEX1Desc)
      !EX1Amt = Field2Str2(txtEX3Amt)
      !EX2P = Field2CheckBox(chkEX2P)
      !EX2Purpose = Field2Str(txtEX2Desc)
      !EX2Amt = Field2Str2(txtEX3Amt)
      !EX3P = Field2CheckBox(chkEX3P)
      !EX3Purpose = Field2Str(txtEX3Desc)
      !EX3Amt = Field2Str2(txtEX3Amt)
      !combine = Field2CheckBox(chkCombine)
      .Update
   End With

End Sub

Private Function FormFind() As Boolean
Dim strSQL As String, strPlan As String, strMEMO As String



   strSQL = "SELECT * FROM tblLotInfo WHERE Lot_ID = " & gintLOTID
   Set moRS = New Recordset
   moRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic

   If moRS.EOF Then
      FormFind = False
   Else
      FormFind = True
      mstrPROJLOT = moRSProj!proj_code & "  " & moRSProj!proj_desc & "  " & moRS!lot_no
      lblProjLot = mstrPROJLOT
'      If moRS!Split Then
'         mboolSPLIT = True
'      Else
'         mboolSPLIT = False
'      End If
   End If
   
   Exit Function

End Function

Private Sub Form_Load()

   Call ProjLoad
   If FormFind() Then
      Call FormShow
   End If
End Sub

Private Sub ProjLoad()
Dim strSQL As String
   On Error GoTo Error_EH
   
   strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
   Set moRSProj = New Recordset
   moRSProj.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
'   If moRSProj!stone Then
'      mboolStone = True
'   End If
'   mstrWIRE = Field2Str(moRSProj!wire)
   
'   gintCOCODE = Field2Str2(moRSProj!cocode)
   Exit Sub
Error_EH:
   gstrMODULE = "Form LotInfo5 - Module ProjLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FormShow()
   On Error GoTo Error_EH
   
   mboolSHOW = True
   gintLOTID = moRS!Lot_id
   txtProject = Trim$(moRSProj!proj_code) & "  " & moRSProj!proj_desc

   With moRS
      chkCombine = Field2CheckBox(!combine)
      chkSuperP = Field2CheckBox(!superp)
      chkWrapP = Field2CheckBox(!WrapP)
      chkLathP = Field2CheckBox(!LathP)
      chkStoneP = Field2CheckBox(!StoneP)
      chkNescoP = Field2CheckBox(!NescoP)
      chkPopOutP = Field2CheckBox(!PopoutP)
      chkBrownP = Field2CheckBox(!BrownP)
      chkTextureP = Field2CheckBox(!TexP)
      chkCMUP = Field2CheckBox(!CMUP)
      chkEX1P = Field2CheckBox(!EX1P)
      chkEX2P = Field2CheckBox(!EX2P)
      chkEX3P = Field2CheckBox(!EX3P)
'      mboolSupD = Field2TrueFalse(!superd)
      mboolWrapD = Field2TrueFalse(!WrapD)
      mboolLathD = Field2TrueFalse(!LathD)
      mboolStoneD = Field2TrueFalse(!StoneD)
      mboolNescoD = Field2TrueFalse(!NescoD)
      mboolPopOutD = Field2TrueFalse(!PopOutD)
      mboolBrownD = Field2TrueFalse(!BrownD)
      mboolTexD = Field2TrueFalse(!TexD)
      mboolCMUD = Field2TrueFalse(!CMUD)
      mboolEX1D = Field2TrueFalse(!EX1D)
      mboolEX2D = Field2TrueFalse(!EX2D)
      mboolEX3D = Field2TrueFalse(!EX3D)
   End With
'      If mboolSupD Then
'         chkSuperP.Enabled = False
'         lblSuperD.Visible = True
'      End If
      If mboolWrapD Then
         chkWrapP.Enabled = False
         lblWrap.Visible = True
      End If
      If mboolLathD Then
         chkLathP.Enabled = False
         lblLath.Visible = True
      End If
      If mboolStoneD Then
         chkStoneP.Enabled = False
         lblStone.Visible = True
      End If
      If mboolNescoD Then
         chkNescoP.Enabled = False
         lblNesco.Visible = True
      End If
      If mboolPopOutD Then
         chkPopOutP.Enabled = False
         lblPopOut.Visible = True
      End If
      If mboolBrownD Then
         chkBrownP.Enabled = False
         lblBrown.Visible = True
      End If
      If mboolTexD Then
         chkTextureP.Enabled = False
         lblTex.Visible = True
      End If
      If mboolCMUD Then
         chkCMUP.Enabled = False
         lblCMU.Visible = True
      End If
      If mboolEX1D Then
         chkEX1P.Enabled = False
         lblEX1.Visible = True
      End If
      If mboolEX2D Then
         chkEX2P.Enabled = False
         lblEX2.Visible = True
      End If
      If mboolEX3D Then
         chkEX3P.Enabled = False
         lblEX3.Visible = True
      End If

   Exit Sub
   
Error_EH:
   gstrMODULE = "Form LotInfo5 - Module FormShow"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub