VERSION 5.00
Begin VB.Form frmProject 
   Caption         =   "Project Information"
   ClientHeight    =   7950
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12120
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   7950
   ScaleWidth      =   12120
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkPulteSW 
      Caption         =   "Pulte Super Wall"
      Height          =   225
      Left            =   10200
      TabIndex        =   70
      Top             =   1440
      Width           =   1500
   End
   Begin VB.CheckBox chkPaintInv 
      Caption         =   "2 Paint Invoices"
      Height          =   255
      Left            =   10200
      TabIndex        =   69
      Top             =   1185
      Width           =   1785
   End
   Begin VB.CheckBox chkPulte 
      Caption         =   "Pulte Special Calc"
      Height          =   210
      Left            =   10200
      TabIndex        =   68
      Top             =   975
      Width           =   1755
   End
   Begin VB.TextBox txtConId 
      Alignment       =   1  'Right Justify
      BackColor       =   &H80000004&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   3570
      TabIndex        =   66
      Top             =   1215
      Width           =   570
   End
   Begin VB.CheckBox chkSYN 
      Caption         =   "Full Synthetic"
      Height          =   285
      Left            =   10200
      TabIndex        =   65
      Top             =   690
      Width           =   1620
   End
   Begin VB.TextBox txtProjId 
      Alignment       =   1  'Right Justify
      BackColor       =   &H80000004&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   3555
      TabIndex        =   64
      Top             =   840
      Width           =   570
   End
   Begin VB.CheckBox chkShowAll 
      Caption         =   "Show All Projects"
      Height          =   210
      Left            =   5175
      TabIndex        =   63
      Top             =   6300
      Width           =   1695
   End
   Begin VB.CheckBox chkINACTIVE 
      Caption         =   "Inactive Project"
      Height          =   270
      Left            =   3720
      TabIndex        =   62
      Top             =   6255
      Width           =   1485
   End
   Begin VB.CheckBox chk2Dates 
      Caption         =   "Two Dates"
      Height          =   345
      Left            =   6990
      TabIndex        =   61
      Top             =   4050
      Width           =   750
   End
   Begin VB.TextBox txtDue2 
      Alignment       =   2  'Center
      Height          =   285
      Left            =   7200
      TabIndex        =   59
      Top             =   4845
      Width           =   555
   End
   Begin VB.CheckBox chkTYPAR 
      Caption         =   "TYPAR Stucco Wrap"
      Height          =   255
      Left            =   10200
      TabIndex        =   58
      Top             =   465
      Width           =   1950
   End
   Begin VB.CheckBox chkBag100 
      Caption         =   "75# Bag Sand/PreMix"
      Height          =   300
      Left            =   10200
      TabIndex        =   57
      Top             =   210
      Width           =   2025
   End
   Begin VB.ComboBox cboWire 
      Height          =   315
      ItemData        =   "frmProject.frx":0000
      Left            =   4200
      List            =   "frmProject.frx":000D
      Style           =   2  'Dropdown List
      TabIndex        =   56
      Top             =   5880
      Width           =   1755
   End
   Begin VB.CheckBox chkCertified 
      Caption         =   "Certified Payroll"
      Height          =   315
      Left            =   6360
      TabIndex        =   54
      Top             =   5940
      Width           =   1395
   End
   Begin VB.ComboBox cboInvType 
      Height          =   315
      ItemData        =   "frmProject.frx":0034
      Left            =   5040
      List            =   "frmProject.frx":0047
      Style           =   2  'Dropdown List
      TabIndex        =   53
      Top             =   5520
      Width           =   2715
   End
   Begin VB.ComboBox cboCompany 
      Height          =   315
      ItemData        =   "frmProject.frx":008A
      Left            =   5040
      List            =   "frmProject.frx":0094
      Style           =   2  'Dropdown List
      TabIndex        =   51
      Top             =   5160
      Width           =   2715
   End
   Begin VB.TextBox txtBidDue 
      Height          =   315
      Left            =   5040
      TabIndex        =   9
      Top             =   2220
      Width           =   2655
   End
   Begin VB.TextBox txtDue 
      Alignment       =   2  'Center
      Height          =   285
      Left            =   6600
      TabIndex        =   20
      Top             =   4845
      Width           =   555
   End
   Begin VB.TextBox txtInv 
      Height          =   315
      Left            =   9360
      MaxLength       =   3
      TabIndex        =   22
      Top             =   420
      Width           =   555
   End
   Begin VB.TextBox txtRetention 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   7200
      MaxLength       =   2
      TabIndex        =   21
      Top             =   420
      Width           =   975
   End
   Begin VB.TextBox txtSyn_O2 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   6180
      TabIndex        =   14
      Top             =   3240
      Width           =   975
   End
   Begin VB.CheckBox chkOpen 
      Caption         =   "Use 50% Openings"
      Height          =   255
      Left            =   10200
      TabIndex        =   25
      Top             =   15
      Width           =   1755
   End
   Begin VB.TextBox txtSYN_O 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   6180
      TabIndex        =   13
      Top             =   2940
      Width           =   975
   End
   Begin VB.TextBox txtSYN_T 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   5040
      TabIndex        =   12
      Top             =   2940
      Width           =   975
   End
   Begin VB.CheckBox chkBill 
      Caption         =   "Bill Lath && Stucco Combined"
      Height          =   255
      Left            =   7560
      TabIndex        =   24
      Top             =   120
      Value           =   1  'Checked
      Width           =   2355
   End
   Begin VB.TextBox txtMAS90JC 
      Height          =   315
      Left            =   5040
      MaxLength       =   4
      TabIndex        =   19
      Top             =   4800
      Width           =   1080
   End
   Begin VB.TextBox txtMAS90AR 
      Height          =   315
      Left            =   5040
      MaxLength       =   7
      TabIndex        =   18
      Top             =   4500
      Width           =   1080
   End
   Begin VB.TextBox txtSWOrder 
      Alignment       =   1  'Right Justify
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0;(0)"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   1033
         SubFormatType   =   1
      EndProperty
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   6180
      TabIndex        =   11
      Top             =   2580
      Width           =   975
   End
   Begin VB.CheckBox chkFHA 
      Caption         =   "FHA Metal"
      Height          =   255
      Left            =   6480
      TabIndex        =   23
      Top             =   120
      Width           =   1155
   End
   Begin VB.CheckBox chkComplete 
      Caption         =   "Project Completed"
      Height          =   255
      Left            =   4800
      TabIndex        =   37
      TabStop         =   0   'False
      Top             =   120
      Width           =   1695
   End
   Begin VB.CheckBox chkGotBid 
      Caption         =   "Got Bid"
      Height          =   255
      Left            =   3900
      TabIndex        =   36
      TabStop         =   0   'False
      Top             =   120
      Width           =   855
   End
   Begin VB.ListBox lstContractor 
      Height          =   6105
      Left            =   7800
      Sorted          =   -1  'True
      TabIndex        =   35
      TabStop         =   0   'False
      Top             =   1695
      Visible         =   0   'False
      Width           =   4215
   End
   Begin VB.ComboBox cboStype 
      Height          =   315
      ItemData        =   "frmProject.frx":00B3
      Left            =   5040
      List            =   "frmProject.frx":00CC
      Style           =   2  'Dropdown List
      TabIndex        =   17
      Top             =   4200
      Width           =   1935
   End
   Begin VB.ComboBox cboFType 
      Height          =   315
      ItemData        =   "frmProject.frx":0130
      Left            =   5040
      List            =   "frmProject.frx":013D
      Style           =   2  'Dropdown List
      TabIndex        =   16
      Top             =   3900
      Width           =   1935
   End
   Begin VB.ComboBox cboBP 
      Height          =   315
      ItemData        =   "frmProject.frx":0164
      Left            =   5040
      List            =   "frmProject.frx":0166
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   3600
      Width           =   4995
   End
   Begin VB.TextBox txtSWAdj 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   5040
      MaxLength       =   4
      TabIndex        =   10
      Top             =   2580
      Width           =   975
   End
   Begin VB.TextBox txtVWPSuper 
      Height          =   315
      Left            =   5040
      MaxLength       =   15
      TabIndex        =   8
      Top             =   1860
      Width           =   2655
   End
   Begin VB.TextBox txtConSuper 
      Height          =   315
      Left            =   5040
      MaxLength       =   15
      TabIndex        =   7
      Top             =   1500
      Width           =   2655
   End
   Begin VB.TextBox txtContractor 
      Height          =   315
      Left            =   5040
      MaxLength       =   30
      TabIndex        =   6
      Top             =   1140
      Width           =   5115
   End
   Begin VB.TextBox txtDesc 
      Height          =   315
      Left            =   5040
      MaxLength       =   30
      TabIndex        =   5
      Top             =   780
      Width           =   5115
   End
   Begin VB.TextBox txtCode 
      Height          =   315
      Left            =   5040
      MaxLength       =   7
      TabIndex        =   4
      Top             =   420
      Width           =   975
   End
   Begin VB.ListBox lstProject 
      Height          =   7665
      Left            =   60
      Sorted          =   -1  'True
      TabIndex        =   1
      Top             =   240
      Width           =   3495
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   555
      Left            =   3660
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   7200
      Width           =   1395
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "Add"
      Height          =   555
      Left            =   5100
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   6540
      Width           =   1395
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "Delete"
      Enabled         =   0   'False
      Height          =   555
      Left            =   5100
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   7200
      Width           =   1395
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "Save"
      Enabled         =   0   'False
      Height          =   555
      Left            =   3660
      TabIndex        =   26
      Top             =   6540
      Width           =   1395
   End
   Begin VB.Label lblContractor 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Contractor:"
      Height          =   195
      Left            =   4185
      TabIndex        =   67
      Top             =   1200
      Width           =   780
   End
   Begin VB.Label Label1 
      Caption         =   "1           2"
      Height          =   165
      Left            =   6810
      TabIndex        =   60
      Top             =   4665
      Width           =   750
   End
   Begin VB.Label lblWire 
      AutoSize        =   -1  'True
      Caption         =   "Wire:"
      Height          =   195
      Left            =   3720
      TabIndex        =   55
      Top             =   5940
      Width           =   375
   End
   Begin VB.Label lblInvType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Inventory Type:"
      Height          =   195
      Left            =   3855
      TabIndex        =   52
      Top             =   5520
      Width           =   1110
   End
   Begin VB.Label lblComp 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Company:"
      Height          =   195
      Left            =   4260
      TabIndex        =   50
      Top             =   5160
      Width           =   705
   End
   Begin VB.Label lblBidDue 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Bid Due Date:"
      Height          =   195
      Left            =   3960
      TabIndex        =   49
      Top             =   2280
      Width           =   1005
   End
   Begin VB.Label lblUDate 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   6600
      TabIndex        =   48
      Top             =   7440
      Width           =   3795
   End
   Begin VB.Label lblUpdate 
      AutoSize        =   -1  'True
      Caption         =   "Last Updated:"
      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            =   6600
      TabIndex        =   47
      Top             =   7200
      Width           =   1215
   End
   Begin VB.Label lblCDate 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   6600
      TabIndex        =   46
      Top             =   6780
      Width           =   3795
   End
   Begin VB.Label lblCreate 
      AutoSize        =   -1  'True
      Caption         =   "Created:"
      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            =   6600
      TabIndex        =   45
      Top             =   6540
      Width           =   735
   End
   Begin VB.Label lblDue 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Day of Month Due:"
      Height          =   195
      Left            =   6435
      TabIndex        =   44
      Top             =   4500
      Width           =   1350
   End
   Begin VB.Label lblInv 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Invoice Code:"
      Height          =   195
      Left            =   8280
      TabIndex        =   43
      Top             =   480
      Width           =   990
   End
   Begin VB.Label lblRetention 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Retention %:"
      Height          =   195
      Left            =   6240
      TabIndex        =   42
      Top             =   480
      Width           =   900
   End
   Begin VB.Label lblSynOpen2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Synthetic Adjust PopOuts:"
      Height          =   195
      Left            =   4260
      TabIndex        =   41
      Top             =   3360
      Width           =   1845
   End
   Begin VB.Label lblSynAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Syn. Adjust T/O:"
      Height          =   195
      Left            =   3780
      TabIndex        =   40
      Top             =   3000
      Width           =   1185
   End
   Begin VB.Label lblMAS90JC 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Job Cost Code:"
      Height          =   195
      Left            =   3885
      TabIndex        =   39
      Top             =   4860
      Width           =   1080
   End
   Begin VB.Label lblMas90AR 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "MAS90 AR Code:"
      Height          =   195
      Left            =   3705
      TabIndex        =   38
      Top             =   4560
      Width           =   1260
   End
   Begin VB.Label lblStuccoType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Stucco Type:"
      Height          =   195
      Left            =   4005
      TabIndex        =   34
      Top             =   4260
      Width           =   960
   End
   Begin VB.Label lblFoamType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Foam Type:"
      Height          =   195
      Left            =   4125
      TabIndex        =   33
      Top             =   3960
      Width           =   840
   End
   Begin VB.Label lblBPType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Black Paper Type:"
      Height          =   195
      Left            =   3645
      TabIndex        =   32
      Top             =   3660
      Width           =   1320
   End
   Begin VB.Label lblSWAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "1 Kote Adjust T/O:"
      Height          =   195
      Left            =   3630
      TabIndex        =   31
      Top             =   2640
      Width           =   1335
   End
   Begin VB.Label lblVWPSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "VWP Super:"
      Height          =   195
      Left            =   4080
      TabIndex        =   30
      Top             =   1920
      Width           =   885
   End
   Begin VB.Label lblConSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Contractor Super:"
      Height          =   195
      Left            =   3720
      TabIndex        =   29
      Top             =   1560
      Width           =   1245
   End
   Begin VB.Label lblCode 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Project Code:"
      Height          =   195
      Left            =   4005
      TabIndex        =   28
      Top             =   480
      Width           =   960
   End
   Begin VB.Label lblDesc 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Name:"
      Height          =   195
      Left            =   4500
      TabIndex        =   27
      Top             =   840
      Width           =   465
   End
End
Attribute VB_Name = "frmProject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRSProj As Recordset

Dim mboolSHOW As Boolean
Dim mboolAdding As Boolean
Dim mboolDelete As Boolean

Private Sub cboWire_GotFocus()
   If cboStype.Text <> "Three Coat" Then
      cboWire.Text = "One Inch"
   End If
End Sub

Private Sub cboWire_LostFocus()
   If cboWire.Text = "Paperback" Or cboWire.Text = "Self Furring" Then
      If cboStype.Text <> "Three Coat" Then
         MsgBox "Paperback and Self Furring are only valid for Three Coat - Select Again", vbOKOnly, "Wrong Wire Type"
         cboWire.SetFocus
         Exit Sub
      End If
   End If
End Sub

Private Sub chkComplete_Click()
   If Not cmdSave.Enabled Then
      cmdSave.Enabled = True
      cmdAdd.Enabled = False
   End If

End Sub

Private Sub chkFHA_Click()
   If Not cmdSave.Enabled Then
      cmdSave.Enabled = True
      cmdAdd.Enabled = False
   End If

End Sub
Private Sub chkGotBid_Click()
   If Not cmdSave.Enabled Then
      cmdSave.Enabled = True
      cmdAdd.Enabled = False
   End If
   
End Sub

Private Sub chkINACTIVE_Click()
'   If cmdSave.Enabled = True Then
'      cmdSave.Enabled = False
'   ElseIf cmdSave.Enabled = False Then
'      cmdSave.Enabled = True
'   End If

End Sub

Private Sub chkShowAll_Click()
   Call ProjectLoad
End Sub

Private Sub cmdAdd_Click()
   cmdAdd.Enabled = False
'   cmdDelete.Enabled = False
   cmdExit.Enabled = False
'   cmdFindCont.Visible = True
   mboolAdding = True
   lstProject.Enabled = False
   Call FormClear
End Sub

Private Sub cmdDelete_Click()
   mboolDelete = False
   Call CheckLots
   If mboolDelete = True Then
      moRSProj.Delete
   End If
   Call ProjectLoad
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdFindCont_Click()
   Call ContractorLoad
   lstContractor.Visible = True
End Sub

Private Sub cmdSave_Click()
   If Len(txtCode) = 0 Then
      MsgBox "A Project Code is required to save"
      txtCode.SetFocus
   Else
      lstProject.Enabled = True
   '   cmdDelete.Enabled = True
      cmdSave.Enabled = False
      cmdAdd.Enabled = True
      cmdExit.Enabled = True
      lstContractor.Visible = False
      Call FormSave
      lstProject.SetFocus
   End If
End Sub

Private Sub Form_Load()
   Call ProjectLoad
   Call BPLoad
   If gbytSECURITY < 3 Then
      txtSWAdj.Enabled = True
      txtSWOrder.Enabled = True
   End If
End Sub

Private Sub ProjectLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   If chkShowAll Then
      strSQL = "SELECT Proj_id, Proj_code, Proj_Desc from tblProject" ' WHERE NOT InActive"
   Else
      strSQL = "SELECT Proj_id, Proj_code, Proj_Desc from tblProject WHERE NOT InActive"
   End If
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstProject.Clear
   
   Do Until oRS.EOF
      With lstProject

         strLine = oRS!Proj_Code & vbTab & oRS!Proj_Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS!Proj_ID
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstProject.ListCount Then
      lstProject.ListIndex = -1
   End If
   
End Sub

Private Sub FormSave()
Dim intBookmark As Integer

   On Error GoTo Error_EH
   
   If mboolAdding Then
      moRSProj.AddNew
      moRSProj!CUser = gstrLOGIN
      moRSProj!pomax = 20
   Else
      intBookmark = lstProject.ListIndex
   End If
   
   Call FieldsSave
   
   moRSProj.Update
   
   
   If mboolAdding Then
      mboolAdding = False
      intBookmark = 0
   End If
   
   Call ProjectLoad
   
   lstProject.ListIndex = intBookmark
   intBookmark = 0
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRSProj.ActiveConnection)
   Exit Sub
End Sub

Private Sub BPLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT BP_Type, Desc from tblBPType"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   cboBP.Clear
   
   Do Until oRS.EOF
      With cboBP

         strLine = oRS!bp_type & "  " & oRS!Desc
         .AddItem strLine
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstProject.ListCount Then
      lstProject.ListIndex = 0
   End If
   
End Sub

Private Sub ContractorLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT cont_id, CONTRCR from tblConInfo WHERE NOT INACTIVE"
'   strSQL = "SELECT cont_id, CONTRCR from tblConInfo"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstContractor.Clear
   
   Do Until oRS.EOF
      With lstContractor
         .AddItem oRS!contrcr
         .ItemData(.NewIndex) = oRS!cont_id
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstContractor.ListCount Then
      lstContractor.Visible = True
      lstContractor.ListIndex = 0
      lstContractor.SetFocus
   Else
      lstContractor.ListIndex = -1
   End If
   
End Sub

Private Sub FormClear()
      txtCode = ""
      txtDesc = ""
      txtContractor = ""
      txtConSuper = ""
      txtVWPSuper = ""
      txtSWAdj = 0
      txtSWOrder = 0
      txtSYN_T = 0
      txtSYN_O = 0
      txtSyn_O2 = 0
      chkSYN = vbUnchecked
      txtProjId = ""
      txtConId = ""
      txtRetention = 0
      txtMAS90AR = ""
      txtMAS90JC = ""
      txtInv = ""
      txtDue = 1
      txtDue2 = 1
      chk2Dates = vbUnchecked
      chkINACTIVE = vbUnchecked
      chkGotBid = vbUnchecked
      chkComplete = vbUnchecked
      chkFHA = vbUnchecked
      chkBill = vbChecked
      chkOpen = vbChecked
      chkBag100 = vbUnchecked
      chkTYPAR = vbUnchecked
      chkPulte = vbUnchecked
      chkPulteSW = vbUnchecked
      chkPaintInv = vbUnchecked
      cboBP.ListIndex = -1
      cboStype.ListIndex = -1
      cboFType.ListIndex = -1
      cboWire.ListIndex = -1
End Sub

Private Function FormFind() As Boolean
   Dim strSQL As String, strPlan As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblproject "
   strSQL = strSQL & "WHERE proj_id = " & gintPROJID

   Set moRSProj = New Recordset

   If moRSProj.State = adStateOpen Then
      moRSProj.Close
   End If

   moRSProj.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSProj.EOF Then
      FormFind = False
   Else
      FormFind = True
   End If
End Function
Private Sub FieldsSave()

   With moRSProj
      !Proj_Code = Str2Field(txtCode)
      !Proj_Desc = Str2Field(txtDesc)
      !Proj_Cont = Str2Field(txtContractor)
      !cont_sup = Str2Field(txtConSuper)
      !vwp_sup = Str2Field(txtVWPSuper)
      !cont_id = Str2Field(txtConId)
      !sw_adj = Integer2Field(txtSWAdj)
      !sw_order = Double2Field(txtSWOrder)
      !gotbid = chkGotBid
      !complete = chkComplete
      !FHA = chkFHA
      !ar = Str2Field(txtMAS90AR)
      !biddate = Str2Field(txtBidDue)
      !jccode = Str2Field(txtMAS90JC)
      !bill = chkBill
      !syn_t = Integer2Field(txtSYN_T)
      !syn_o = Double2Field(txtSYN_O)
      !syn_o2 = Double2Field(txtSyn_O2)
      !SYNTHETIC = chkSYN
      !use_open = chkOpen
      !bag100 = chkBag100
      !TYPAR = chkTYPAR
      !ftype = Field2Str(Left(cboFType.Text, 1))
      !retention = Integer2Field(txtRetention)
      !inv = Str2Field(txtInv)
      !duedate = Integer2Field(txtDue)
      !duedate2 = Integer2Field(txtDue2)
      !inactive = Field2CheckBox(chkINACTIVE)
      !twodates = Field2CheckBox(chk2Dates)
      !Pulte = Field2CheckBox(chkPulte)
      !P_SW = Field2CheckBox(chkPulteSW)
      !Paint2 = Field2CheckBox(chkPaintInv)
      !UUser = gstrLOGIN
      !certpr = chkCertified
      !Update = Now()
      
      If cboStype.Text = "Superwall" Then
         !stype = "S"
      ElseIf cboStype.Text = "Pre-Mix Stucco" Then
         !stype = "M"
      ElseIf cboStype.Text = "Three Coat" Then
         !stype = "T"
      ElseIf cboStype.Text = "Synthetic" Then
         !stype = "C"
      ElseIf cboStype.Text = "Synthetic w/ 1 Kote" Then
         !stype = "B"
      ElseIf cboStype.Text = "San Man" Then
         !stype = "N"
      ElseIf cboStype.Text = "Western 1 Kote" Then
         !stype = "W"
      End If
      
      If cboWire.Text = "Paperback" Then
         !wire = "P"
      ElseIf cboWire.Text = "Self Furring" Then
         !wire = "F"
      ElseIf cboWire.Text = "One Inch" Then
         !wire = "O"
      End If
  
      !bp_type = Left(Str2Field(cboBP.Text), 2)
      
      !cocode = cboCompany.ListIndex
      !inv_type = cboInvType.ListIndex
   End With

   moRSProj.Update
   
   
End Sub

Private Sub lstContractor_DblClick()
   txtContractor = lstContractor.List(lstContractor.ListIndex)
   txtConId = lstContractor.ItemData(lstContractor.ListIndex)
   lstContractor.Visible = False
'   cmdFindCont.Visible = False
   If Len(txtCode) = 0 Then
      txtCode.SetFocus
   Else
      txtConSuper.SetFocus
   End If
End Sub

Private Sub lstProject_Click()
   If lstProject.ListIndex <> -1 Then
      gintPROJID = lstProject.ItemData(lstProject.ListIndex)
      If FormFind() Then
         Call FormShow
'         Call MatLoad
'         Call OptLoad
'         Call OptMatLoad

      End If
   End If

End Sub

Private Sub FormShow()
   mboolSHOW = True
   gintPROJID = moRSProj!Proj_ID

   With moRSProj
      txtCode = Field2Str(!Proj_Code)
      txtDesc = Field2Str(!Proj_Desc)
      txtContractor = Field2Str(!Proj_Cont)
      txtConSuper = Field2Str(!cont_sup)
      txtVWPSuper = Field2Str(!vwp_sup)
      txtSWAdj = Field2Str2(!sw_adj)
      txtSWOrder = Format(Field2Str2(!sw_order), "##.00")
      txtProjId = Field2Str(!Proj_ID)
      txtConId = Field2Str(!cont_id)
      txtSYN_T = Field2Str(!syn_t)
      txtSYN_O = Field2Double(!syn_o)
      txtSyn_O2 = Field2Double(!syn_o2)
      txtBidDue = Field2Str(!biddate)
      chkSYN = Field2CheckBox(!SYNTHETIC)
      chkGotBid = Field2CheckBox(!gotbid)
      chkComplete = Field2CheckBox(!complete)
      chkFHA = Field2CheckBox(!FHA)
      chkBill = Field2CheckBox(!bill)
      chkOpen = Field2CheckBox(!use_open)
      txtMAS90AR = Field2Str(!ar)
      txtMAS90JC = Field2Str(!jccode)
      txtRetention = Field2Str2(!retention)
      txtInv = Field2Str(!inv)
      txtDue = Field2Str(!duedate)
      txtDue2 = Field2Str(!duedate2)
      chk2Dates = Field2CheckBox(!twodates)
      chkINACTIVE = Field2CheckBox(!inactive)
      chkPulte = Field2CheckBox(!Pulte)
      chkPulteSW = Field2CheckBox(!P_SW)
      chkPaintInv = Field2CheckBox(!Paint2)
      lblCDate = Field2Str(!Create)
      lblCDate = lblCDate & " - " & Field2Str(!CUser)
      lblUDate = Field2Str(!Update)
      lblUDate = lblUDate & " - " & Field2Str(!UUser)
      chkCertified = Field2CheckBox(!certpr)
      chkBag100 = Field2CheckBox(!bag100)
      chkTYPAR = Field2CheckBox(!TYPAR)
      If !wire = "O" Then
         cboWire.Text = "One Inch"
      ElseIf !wire = "P" Then
         cboWire.Text = "Paperback"
      ElseIf !wire = "F" Then
         cboWire.Text = "Self Furring"
      End If
      
      If !ftype = "O" Then
         cboFType.Text = "One Inch"
      ElseIf !ftype = "T" Then
         cboFType.Text = "One Inch"
      ElseIf !ftype = "D" Then
         cboFType.Text = "Dow Foam"
      ElseIf !ftype = "U" Then
         cboFType.Text = "Urethane Foam"
      End If
      
      If !stype = "S" Then
         cboStype.Text = "Superwall"
      ElseIf !stype = "M" Then
         cboStype.Text = "Pre-Mix Stucco"
      ElseIf !stype = "T" Then
         cboStype.Text = "Three Coat"
      ElseIf !stype = "C" Then
         cboStype.Text = "Synthetic"
      ElseIf !stype = "B" Then
         cboStype.Text = "Synthetic w/ 1 Kote"
      ElseIf !stype = "W" Then
         cboStype.Text = "Western 1 Kote"
      ElseIf !stype = "N" Then
         cboStype.Text = "San Man"
      End If
      cboCompany.ListIndex = Field2Str2(!cocode)
      cboInvType.ListIndex = Field2Str2(!inv_type)
      Call CBFindString3(cboBP, Field2Str(!bp_type))
      
   End With
   mboolSHOW = False
End Sub

Private Sub CheckLots()
Dim oRS As Recordset, oRSS As Recordset, oRSSS As Recordset
Dim strSQL As String, intResponse As Integer, strMSG As String
Dim strSELECT As String, strGET As String, intID As Integer

   strSQL = "SELECT Lot_no FROM tblLotInfo where proj_id = " & gintPROJID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   If oRS.RecordCount > 0 Then
      strMSG = "There have been Lots processed for this Subdivision."
      strMSG = strMSG & vbCrLf & "You cannot delete this Project"
      intResponse = MsgBox(strMSG, vbCritical & vbOKOnly, "Delete Error")
      Exit Sub
   End If
   oRS.Close
   
   strSQL = "SELECT est_id FROM tblplans where proj_id = " & gintPROJID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
   
   If oRS.RecordCount > 0 Then
      strMSG = "There are Plans in the database for this subdivision"
      strMSG = strMSG & vbCrLf & "Do you want to Delete These Plans Also?"
      intResponse = MsgBox(strMSG, vbQuestion & vbYesNo, "Project Plans Delete Error")
      If intResponse = vbYes Then
         Do Until oRS.EOF
            intID = oRS!est_id
            strGET = "SELECT optid FROM tblPOptions where estid = " & intID
            Set oRSS = New Recordset
            oRSS.Open strGET, goConn, adOpenForwardOnly, adLockOptimistic
            If oRSS.RecordCount > 0 Then
               Do Until oRSS.EOF
                  strGET = "DELETE * FROM tblPOMatrl where optid = " & oRSS!OPTID
                  goConn.Execute strGET
                  oRSS.MoveNext
               Loop
            End If
            strGET = "DELETE * FROM tblPOptions where est_id = " & intID
            goConn.Execute strGET
            strGET = "DELETE * FROM tblplanmat where est_id = " & intID
            goConn.Execute strGET
            oRS.MoveNext
         Loop
         oRS.Close
         strGET = "DELETE * FROM tblPlans where proj_id = " & gintPROJID
         goConn.Execute strGET
      ElseIf intResponse = vbNo Then
         oRS.Close
         Exit Sub
      End If
   End If
   
   
   strSQL = "SELECT toid FROM tbltake where proj_id = " & gintPROJID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
   
   If oRS.RecordCount > 0 Then
      strMSG = "There are Takeoffs in the database for this subdivision"
      strMSG = strMSG & vbCrLf & "Do you want to Delete These Takeoffs Also?"
      intResponse = MsgBox(strMSG, vbQuestion & vbYesNo, "Project Takeoff Delete Error")
      If intResponse = vbYes Then
         Do Until oRS.EOF
            intID = oRS!toid
            strGET = "DELETE * FROM tbloption WHERE toid = " & intID
            goConn.Execute strGET
            strGET = "DELETE * FROM tblOptMatrl where toid = " & intID
            goConn.Execute strGET
            strGET = "DELETE * FROM tblMeasure where toid = " & intID
            goConn.Execute strGET
            strGET = "DELETE * FROM tblTOMatrl where toid = " & intID
            goConn.Execute strGET
            oRS.MoveNext
         Loop
         oRS.Close
         strGET = "DELETE * FROM tblTake where proj_id = " & gintPROJID
         goConn.Execute strGET
      ElseIf intResponse = vbNo Then
         oRS.Close
         Exit Sub
      End If
   End If
   mboolDelete = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      SendKeys "{TAB}"
      KeyAscii = 0
   End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown
Dim strSQL As String
   
   If Shift = 4 Then
      Exit Sub
   End If
   ShiftDown = (Shift And vbShiftMask) > 0
   AltDown = (Shift And vbAltMask) > 0
   CtrlDown = (Shift And vbCtrlMask) > 0
   
   If Not cmdSave.Enabled Then
      cmdSave.Enabled = True
      cmdAdd.Enabled = False
   End If
   
   If KeyCode = vbKeyR And gbytSECURITY < 3 Then  ' Display key combinations.
      If CtrlDown Then
         Call cmdFindCont_Click
'         gintPROJID = lstProject.ItemData(lstProject.ListIndex)
'         gintLOTID = lstLots.ItemData(lstLots.ListIndex)
'         frmPaySheet.Show 1
      End If
      Exit Sub
   End If

End Sub

Private Sub lstProject_DblClick()
   cmdSave.Enabled = True
End Sub

Private Sub txtCode_GotFocus()
   Call FieldSelect(txtCode)
End Sub

Private Sub txtCode_LostFocus()
   txtCode = UCase(txtCode)
End Sub

Private Sub txtConSuper_GotFocus()
   Call FieldSelect(txtConSuper)
End Sub

Private Sub txtConSuper_LostFocus()
   txtConSuper = UCase(txtConSuper)
End Sub

Private Sub txtContractor_GotFocus()
   Call FieldSelect(txtContractor)
End Sub

Private Sub txtContractor_LostFocus()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String
   If txtConId = "" Then
      txtContractor = UCase(txtContractor)
      
      strSQL = "SELECT cont_id, CONTRCR, AR from tblConInfo WHERE contrcr = '" & Field2Str(txtContractor) & "'"
      Set oRS = New Recordset
      oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
      
      If oRS.EOF Then
         Call ContractorLoad
         lstContractor.Visible = True
      Else
   '      txtContractor = lstContractor.List(lstContractor.ListIndex)
         txtConId = Field2Str(oRS!cont_id)
         txtMAS90AR = Field2Str(oRS!ar)
      End If
   End If
End Sub

Private Sub txtDesc_GotFocus()
   Call FieldSelect(txtDesc)
End Sub

Private Sub txtDesc_LostFocus()
   txtDesc = UCase(txtDesc)
End Sub

Private Sub txtInv_GotFocus()
   Call FieldSelect(txtInv)
End Sub

Private Sub txtInv_LostFocus()
   txtInv = UCase(txtInv)
End Sub

Private Sub txtMAS90AR_GotFocus()
   Call FieldSelect(txtMAS90AR)
End Sub

Private Sub txtMAS90AR_LostFocus()
   txtMAS90AR = UCase(txtMAS90AR)
End Sub

Private Sub txtMAS90JC_GotFocus()
   Call FieldSelect(txtMAS90JC)
End Sub

Private Sub txtMAS90JC_LostFocus()
   txtMAS90JC = UCase(txtMAS90JC)
End Sub

Private Sub txtSWAdj_GotFocus()
   Call FieldSelect(txtSWAdj)
End Sub

Private Sub txtVWPSuper_GotFocus()
   Call FieldSelect(txtVWPSuper)
End Sub

Private Sub txtVWPSuper_LostFocus()
   txtVWPSuper = UCase(txtVWPSuper)
End Sub
Private Sub txtBidDue_GotFocus()
   Call FieldSelect(txtBidDue)
End Sub

Private Sub txtBidDue_LostFocus()
   If Len(txtBidDue) > 0 Then
      txtBidDue = Format(txtBidDue, "00/00/####")
      If Not IsDate(txtBidDue) Then
         MsgBox "The Date You Entered is not Valid - ReEnter"
         txtBidDue.SetFocus
      End If
   End If
End Sub