VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form frmProjNotes 
   Caption         =   "Project Notes & Information"
   ClientHeight    =   9195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10050
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   9195
   ScaleWidth      =   10050
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chk2Dates 
      Caption         =   "2 Dates"
      Height          =   270
      Left            =   7545
      TabIndex        =   69
      Top             =   4965
      Width           =   900
   End
   Begin VB.TextBox txtDue2 
      Height          =   315
      Left            =   7080
      TabIndex        =   68
      Top             =   4950
      Width           =   435
   End
   Begin VB.TextBox txtSplit 
      Height          =   315
      Left            =   9345
      TabIndex        =   67
      Top             =   3480
      Width           =   495
   End
   Begin VB.TextBox txtBagSand 
      Height          =   315
      Left            =   9345
      TabIndex        =   64
      Top             =   2580
      Width           =   495
   End
   Begin VB.CheckBox chkBagSand 
      Caption         =   "Use Bag Sand"
      Height          =   255
      Left            =   8520
      TabIndex        =   63
      Top             =   2940
      Width           =   1485
   End
   Begin VB.Frame fraRGard 
      Caption         =   " R-Guard Size "
      Height          =   915
      Left            =   7335
      TabIndex        =   60
      Top             =   3255
      Width           =   1860
      Begin VB.OptionButton optRGard 
         Caption         =   "Pyro Paper"
         Height          =   225
         Index           =   2
         Left            =   165
         TabIndex        =   71
         Top             =   645
         Width           =   1440
      End
      Begin VB.OptionButton optRGard 
         Caption         =   "1 in R Guard"
         Height          =   225
         Index           =   1
         Left            =   165
         TabIndex        =   62
         Top             =   405
         Width           =   1410
      End
      Begin VB.OptionButton optRGard 
         Caption         =   "1/2 in R Guard"
         Height          =   195
         Index           =   0
         Left            =   165
         TabIndex        =   61
         Top             =   195
         Value           =   -1  'True
         Width           =   1560
      End
   End
   Begin VB.CheckBox chkZMetal 
      Caption         =   "Use Z-Metal"
      Height          =   255
      Left            =   5640
      TabIndex        =   59
      Top             =   2940
      Width           =   1290
   End
   Begin VB.CheckBox chkStone 
      Caption         =   "Stone Only"
      Height          =   195
      Left            =   7680
      TabIndex        =   14
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CheckBox chkApt 
      Caption         =   "Apartment/Commercial"
      Height          =   195
      Left            =   5640
      TabIndex        =   13
      Top             =   2400
      Width           =   1935
   End
   Begin VB.TextBox txtDesc 
      Height          =   315
      Left            =   5535
      MaxLength       =   50
      TabIndex        =   29
      Top             =   7605
      Width           =   4485
   End
   Begin VB.TextBox txtTaxCode 
      Height          =   315
      Left            =   9135
      TabIndex        =   57
      Top             =   6405
      Width           =   915
   End
   Begin VB.TextBox txtTaxAuth 
      Height          =   315
      Left            =   6615
      MaxLength       =   15
      TabIndex        =   54
      Top             =   6405
      Width           =   1425
   End
   Begin VB.ComboBox cboProjType 
      Height          =   315
      ItemData        =   "frmProjNotes.frx":0000
      Left            =   6615
      List            =   "frmProjNotes.frx":0010
      Style           =   2  'Dropdown List
      TabIndex        =   52
      Top             =   4245
      Width           =   3375
   End
   Begin VB.TextBox txtBillDay 
      Height          =   315
      Left            =   6615
      TabIndex        =   21
      Top             =   5295
      Width           =   435
   End
   Begin VB.CommandButton cmdContractor 
      Caption         =   "Contractor Info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   7005
      TabIndex        =   49
      TabStop         =   0   'False
      Top             =   8010
      Width           =   1395
   End
   Begin VB.CheckBox chkPLReq 
      Caption         =   "PreLien Required:"
      Height          =   195
      Left            =   5640
      TabIndex        =   15
      Top             =   2700
      Width           =   1695
   End
   Begin VB.CheckBox chkPreLien 
      Caption         =   "PreLien Done"
      Height          =   195
      Left            =   7680
      TabIndex        =   16
      Top             =   2700
      Width           =   1350
   End
   Begin VB.TextBox txtSigned 
      Height          =   315
      Left            =   7500
      TabIndex        =   46
      Top             =   480
      Width           =   1815
   End
   Begin VB.TextBox txtVWPSuper 
      Height          =   315
      Left            =   6615
      TabIndex        =   27
      Top             =   6045
      Width           =   3435
   End
   Begin VB.TextBox txtSandZone 
      Height          =   315
      Left            =   9150
      MaxLength       =   1
      TabIndex        =   26
      Top             =   5685
      Width           =   915
   End
   Begin VB.CheckBox chkSilica 
      Caption         =   "Use Silica Sand"
      Height          =   255
      Left            =   6975
      TabIndex        =   18
      Top             =   2940
      Width           =   1515
   End
   Begin VB.CheckBox chkBB 
      Caption         =   "Use Blackboard"
      Height          =   195
      Left            =   5640
      TabIndex        =   17
      Top             =   3255
      Width           =   1635
   End
   Begin Crystal.CrystalReport crMain 
      Left            =   9480
      Top             =   0
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
   Begin VB.CheckBox chkCondo 
      Caption         =   "Condo/Townhome"
      Height          =   195
      Left            =   5640
      TabIndex        =   11
      Top             =   2100
      Width           =   1695
   End
   Begin VB.TextBox txtLocation 
      Height          =   315
      Left            =   5520
      TabIndex        =   28
      Top             =   6990
      Width           =   4485
   End
   Begin VB.CommandButton cmdPrintSuper 
      Caption         =   "Print Supers &Report"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   7005
      TabIndex        =   43
      TabStop         =   0   'False
      Top             =   8610
      Width           =   1395
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "&Print Status Sheet"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5505
      TabIndex        =   42
      TabStop         =   0   'False
      Top             =   8610
      Width           =   1395
   End
   Begin VB.TextBox txtStandards 
      Height          =   4200
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Top             =   4320
      Width           =   5235
   End
   Begin VB.CheckBox chkOpt 
      Caption         =   "Bill Options with Stucco"
      Height          =   195
      Left            =   7680
      TabIndex        =   8
      Top             =   1500
      Width           =   2415
   End
   Begin VB.TextBox txtRetention 
      Height          =   315
      Left            =   6615
      TabIndex        =   25
      Top             =   5685
      Width           =   915
   End
   Begin VB.TextBox txtMAS90 
      Height          =   315
      Left            =   9135
      TabIndex        =   24
      Top             =   5325
      Width           =   915
   End
   Begin VB.TextBox txtInvoice 
      Height          =   315
      Left            =   9135
      TabIndex        =   23
      Top             =   4965
      Width           =   915
   End
   Begin VB.TextBox txtDue 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   6615
      TabIndex        =   22
      Top             =   4950
      Width           =   435
   End
   Begin VB.TextBox txtYards 
      Height          =   315
      Left            =   9135
      TabIndex        =   20
      Top             =   4605
      Width           =   915
   End
   Begin VB.TextBox txtLots 
      Height          =   315
      Left            =   6615
      TabIndex        =   19
      Top             =   4605
      Width           =   915
   End
   Begin VB.CommandButton cmdDate 
      Caption         =   "&Date/Time Stamp"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   5505
      TabIndex        =   32
      TabStop         =   0   'False
      Top             =   8010
      Width           =   1395
   End
   Begin VB.CheckBox chkPrice 
      Caption         =   "Pricing Complete"
      Height          =   195
      Left            =   5640
      TabIndex        =   9
      Top             =   1800
      Width           =   1815
   End
   Begin VB.CheckBox chkPlans 
      Caption         =   "Plans Completely Transfered"
      Height          =   195
      Left            =   7680
      TabIndex        =   12
      Top             =   2100
      Width           =   2415
   End
   Begin VB.CheckBox chkSetup 
      Caption         =   "Setup of Project is Complete"
      Height          =   195
      Left            =   7680
      TabIndex        =   10
      Top             =   1800
      Width           =   2415
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   8505
      TabIndex        =   31
      TabStop         =   0   'False
      Top             =   8610
      Width           =   1395
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   8505
      TabIndex        =   30
      Top             =   8010
      Width           =   1395
   End
   Begin VB.TextBox txtNotes 
      Height          =   3495
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   540
      Width           =   5235
   End
   Begin VB.CheckBox chkOpenings 
      Caption         =   "Use 50% Openings"
      Height          =   195
      Left            =   5640
      TabIndex        =   7
      Top             =   1500
      Width           =   1755
   End
   Begin VB.CheckBox chkFHA 
      Caption         =   "FHA Metal"
      Height          =   195
      Left            =   5640
      TabIndex        =   5
      Top             =   1200
      Width           =   1755
   End
   Begin VB.CheckBox chkComplete 
      Caption         =   "Contract Completed"
      Height          =   255
      Left            =   5640
      TabIndex        =   4
      Top             =   840
      Width           =   1815
   End
   Begin VB.CheckBox chkGotBid 
      Caption         =   "Awarded Contract"
      Height          =   255
      Left            =   5640
      TabIndex        =   3
      Top             =   120
      Width           =   1815
   End
   Begin VB.CheckBox chkCombined 
      Caption         =   "Bill Lath && Stucco Together"
      Height          =   195
      Left            =   7680
      TabIndex        =   6
      Top             =   1200
      Width           =   2415
   End
   Begin VB.Label lblInvDue 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Inv Due 1&&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          =   195
      Left            =   5430
      TabIndex        =   70
      Top             =   4995
      Width           =   1125
   End
   Begin VB.Label lblUnder16 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Under 16"
      Height          =   195
      Left            =   9262
      TabIndex        =   66
      Top             =   3255
      Width           =   660
   End
   Begin VB.Label lblBagSand 
      AutoSize        =   -1  'True
      Caption         =   "BagSand"
      Height          =   195
      Left            =   9225
      TabIndex        =   65
      Top             =   2370
      Width           =   660
   End
   Begin VB.Label lblDesc 
      AutoSize        =   -1  'True
      Caption         =   "Extended Description:"
      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            =   5550
      TabIndex        =   58
      Top             =   7380
      Width           =   1890
   End
   Begin VB.Label lblTaxCode 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Tax Code:"
      Height          =   195
      Left            =   8355
      TabIndex        =   56
      Top             =   6465
      Width           =   735
   End
   Begin VB.Label lblTaxAuth 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Taxing Authority:"
      Height          =   195
      Left            =   5370
      TabIndex        =   55
      Top             =   6480
      Width           =   1185
   End
   Begin VB.Label lblProjType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Project Type:"
      Height          =   195
      Left            =   5610
      TabIndex        =   53
      Top             =   4365
      Width           =   945
   End
   Begin VB.Label lblDDone 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   6585
      TabIndex        =   51
      Top             =   3615
      Width           =   540
   End
   Begin VB.Label lblLotsDone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lots Done:"
      Height          =   195
      Left            =   5715
      TabIndex        =   50
      Top             =   3660
      Width           =   780
   End
   Begin VB.Label lblVWPSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "VWP Super:"
      Height          =   195
      Left            =   5670
      TabIndex        =   48
      Top             =   6105
      Width           =   885
   End
   Begin VB.Label lblSigned 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Contract Signed:"
      Height          =   195
      Left            =   6180
      TabIndex        =   47
      Top             =   540
      Width           =   1185
   End
   Begin VB.Label lblStreets 
      AutoSize        =   -1  'True
      Caption         =   "Cross Streets:"
      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            =   5580
      TabIndex        =   45
      Top             =   6750
      Width           =   1200
   End
   Begin VB.Label lblSandZone 
      Caption         =   "Sand Zone:"
      Height          =   195
      Left            =   8220
      TabIndex        =   44
      Top             =   5745
      Width           =   855
   End
   Begin VB.Label lblStandards 
      Caption         =   "Project Standards"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   180
      TabIndex        =   41
      Top             =   4080
      Width           =   1575
   End
   Begin VB.Label lblRetention 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Retention %:"
      Height          =   195
      Left            =   5655
      TabIndex        =   40
      Top             =   5745
      Width           =   900
   End
   Begin VB.Label lblMAS90 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "MAS90 Customer #:"
      Height          =   195
      Left            =   7650
      TabIndex        =   39
      Top             =   5385
      Width           =   1425
   End
   Begin VB.Label lblInv 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Invoice Code:"
      Height          =   390
      Left            =   8505
      TabIndex        =   38
      Top             =   4920
      Width           =   615
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblDueDate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Paymnt Due:"
      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            =   5415
      TabIndex        =   37
      Top             =   5340
      Width           =   1140
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblYards 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Estimated Yardage:"
      Height          =   195
      Left            =   7695
      TabIndex        =   36
      Top             =   4665
      Width           =   1380
   End
   Begin VB.Label lblLots 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Estimated Lots:"
      Height          =   195
      Left            =   5475
      TabIndex        =   35
      Top             =   4635
      Width           =   1080
   End
   Begin VB.Label lblCompleteDate 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   7500
      TabIndex        =   34
      Top             =   840
      Width           =   1815
   End
   Begin VB.Label lblAwardDate 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   7500
      TabIndex        =   33
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label lblProject 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   180
      TabIndex        =   0
      Top             =   120
      Width           =   5175
   End
End
Attribute VB_Name = "frmProjNotes"
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, mboolFLAG As Boolean
Dim mstrPROJLOT As String, mintLOTS As Integer

Private Sub chkApt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkBagSand_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkBB_Click()
   If chkBB = vbChecked Then
      fraRGard.Enabled = False
      optRGard(0).Enabled = False
      optRGard(1).Enabled = False
      optRGard(2).Enabled = False
      optRGard(0).Value = False
      optRGard(1).Value = False
      optRGard(2).Value = False
   ElseIf chkBB = vbUnchecked Then
      fraRGard.Enabled = True
      optRGard(0).Enabled = True
      optRGard(1).Enabled = True
      optRGard(2).Enabled = True
      optRGard(0).Value = True
      optRGard(1).Value = False
      optRGard(2).Value = False
   
   Else
      fraRGard.Enabled = False
      optRGard(0).Enabled = False
      optRGard(1).Enabled = False
      optRGard(2).Enabled = False
      optRGard(0).Value = False
      optRGard(1).Value = False
      optRGard(2).Value = False
   
   End If

End Sub

Private Sub chkBB_LostFocus()
   If chkBB = vbChecked Then
      fraRGard.Enabled = False
      optRGard(0).Enabled = False
      optRGard(1).Enabled = False
      optRGard(2).Enabled = False
      optRGard(0).Value = False
      optRGard(1).Value = False
      optRGard(2).Value = False
   ElseIf chkBB = vbUnchecked Then
      fraRGard.Enabled = True
      optRGard(0).Enabled = True
      optRGard(1).Enabled = True
      optRGard(2).Enabled = False
      optRGard(0).Value = True
      optRGard(1).Value = False
      optRGard(2).Value = False
   Else
      fraRGard.Enabled = False
      optRGard(0).Enabled = False
      optRGard(1).Enabled = False
      optRGard(2).Enabled = False
      optRGard(0).Value = False
      optRGard(1).Value = False
      optRGard(2).Value = False
   End If
End Sub

Private Sub chkBB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkCombined_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkComplete_Click()
   If chkComplete = vbChecked Then
      lblCompleteDate = Date
   End If
   If chkComplete = vbUnchecked Then
      lblCompleteDate = ""
   End If
End Sub

Private Sub chkComplete_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkCondo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkFHA_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkGotBid_Click()
   If chkGotBid = vbChecked Then
      lblAwardDate = Date
   End If
   If chkGotBid = vbUnchecked Then
      lblAwardDate = ""
   End If
End Sub

Private Sub chkGotBid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkOpenings_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkOpt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkPlans_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkPLReq_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkPreLien_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True

End Sub

Private Sub chkPrice_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkSetup_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub chkSilica_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   cmdSave.Enabled = True
End Sub

Private Sub cmdContractor_Click()
   gintPAYID = moRSProj!cont_id
   frmContractor.Show 1
End Sub

Private Sub cmdDate_Click()
   txtNotes = txtNotes & "  " & Date & "  " & gstrLOGIN & " - "
   txtNotes.SetFocus
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdPrint_Click()
Dim strSQL As String
   On Error GoTo Error_EH
   
   gintCOPY = 1

   gintPRINT = 1
   frmReport.Show 1

   strSQL = "{tblProject.Proj_id} = " & gintPROJID
   crMain.ReportFileName = App.Path & "\ProjectStatus.rpt"
   crMain.SelectionFormula = strSQL
   crMain.CopiesToPrinter = gintCOPY
   
'   crMain.Destination = crptToWindow
   crMain.Destination = gintDEST
   crMain.Action = 1
   

   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module cmdPrint"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdPrintSuper_Click()
Dim strSQL As String
   On Error GoTo Error_EH
   
   gintCOPY = 1

   gintPRINT = 1
   frmReport.Show 1

   strSQL = "{tblProject.Proj_id} = " & gintPROJID
   crMain.ReportFileName = App.Path & "\ProjectSuper.rpt"
   crMain.SelectionFormula = strSQL
   crMain.CopiesToPrinter = gintCOPY
   
'   crMain.Destination = crptToWindow
   crMain.Destination = gintDEST
   crMain.Action = 1
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module cmdPrint"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdSave_Click()

   On Error GoTo Error_EH
   
   ' Store the controls to the recordset
   Call FieldsSave
   
   cmdSave.Enabled = False
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module cmdSave"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If Shift = 4 Then
      Exit Sub
   End If

   If Not cmdSave.Enabled Then
      Call DataHasChanged
   End If

End Sub
Private Sub DataHasChanged()

   cmdSave.Enabled = True
   
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'   If mboolFLAG Then
'      Exit Sub
'   End If
   
   If KeyAscii = 13 And Not mboolFLAG Then
      SendKeys "{TAB}"
      KeyAscii = 0
   End If

End Sub

Private Sub Form_Load()
   On Error GoTo Error_EH
   
   mboolFLAG = False
   If FormFind() Then
      Call FormShow
   Else
      MsgBox "No Information Was Found For This Project", vbOKOnly, "No Information"
      Unload Me
   End If
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module Form_Load"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FormClear()
   txtMAS90 = ""
   txtYards = 0
   txtRetention = 0
   txtLots = 0
   txtInvoice = ""
   txtDue = ""
   txtDue2 = ""
   chk2Dates = vbUnchecked
'   chkINACTIVE = vbUnchecked
   txtBillDay = ""
   txtNotes = ""
   txtStandards = ""
   txtLocation = ""
   txtSandZone = 0
   txtVWPSuper = ""
   txtSigned = ""
   chkFHA = vbUnchecked
   chkGotBid = vbUnchecked
   chkComplete = vbUnchecked
   chkCombined = vbUnchecked
   chkPlans = vbUnchecked
   chkSetup = vbUnchecked
   chkPrice = vbUnchecked
   chkOpt = vbUnchecked
   chkStone = vbUnchecked
   chkOpenings = vbUnchecked
   chkCondo = vbUnchecked
   chkApt = vbUnchecked
   chkPLReq = vbChecked
   chkPreLien = vbUnchecked
   chkZMetal = vbUnchecked
   cboProjType.ListIndex = -1
   lblProject = ""
   lblAwardDate = ""
   lblCompleteDate = ""
   txtTaxCode = ""
   txtTaxAuth = ""
   txtDesc = ""

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResponse As Integer, strMSG As String

    If cmdSave.Enabled Then
    
        strMSG = "Data Has Been Changed"
        strMSG = strMSG & Chr(13) & Chr(10)
        strMSG = strMSG & "Save Changes ?"
        intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption)
        Select Case intResponse
            Case vbYes
                Call FieldsSave
                
            Case vbNo
                
            Case vbCancel
                Cancel = True
                Exit Sub
         End Select
    End If

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

End Sub

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

   On Error GoTo Error_EH
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblProject "
   strSQL = strSQL & "WHERE Proj_ID = " & gintPROJID

   Set moRSProj = New Recordset

   moRSProj.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
   
   If moRSProj.EOF Then
      FormFind = False
   Else
      Call LotCount
      FormFind = True
   End If
   Exit Function
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module FormFind"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Function
End Function

Private Sub FormShow()
Dim strSQL As String
Dim oRS As Recordset

   On Error GoTo Error_EH
   
   With moRSProj
      lblDDone = Field2Str2(mintLOTS)
      txtMAS90 = Field2Str(!ar)
      txtInvoice = Field2Str(!inv)
      txtLots = Field2Str(!lots)
      txtYards = Field2Str(!yards)
      txtRetention = Field2Str(!retention)
      txtDue = Field2Str(!duedate)
      txtDue2 = Field2Str(!duedate2)
      chk2Dates = Field2CheckBox(!twodates)
'      chkINACTIVE = Field2CheckBox(!INACTIVE)
      txtBillDay = Field2Str(!inv_due)
      txtNotes = Field2Str(!notes)
      txtSandZone = Field2Str(!zone)
      txtVWPSuper = Field2Str(!vwp_sup)
      txtSigned = Field2Str(!signed)
      chkPLReq = Field2CheckBox(!plien_req)
      chkPreLien = Field2CheckBox(!plien_done)
      chkOpt = Field2CheckBox(!opt)
      chkStone = Field2CheckBox(!stone)
      chkGotBid = Field2CheckBox(!gotbid)
      chkComplete = Field2CheckBox(!complete)
      chkCombined = Field2CheckBox(!bill)
      chkSetup = Field2CheckBox(!setup)
      chkPrice = Field2CheckBox(!price)
      chkFHA = Field2CheckBox(!FHA)
      chkPlans = Field2CheckBox(!plans)
      chkOpenings = Field2CheckBox(!use_open)
      chkCondo = Field2CheckBox(!condo)
      chkApt = Field2CheckBox(!apt)
      chkBB = Field2CheckBox(!bb)
      chkSilica = Field2CheckBox(!silica)
      chkZMetal = Field2CheckBox(!zmetal)
      txtStandards = Field2Str(!standards)
      txtLocation = Field2Str(!Location)
      txtTaxCode = Field2Str(!taxcode)
      txtDesc = Field2Str(!Desc)
      txtTaxAuth = Field2Str(!city)
      
      lblProject.Caption = Field2Str(!proj_desc)
      lblAwardDate.Caption = Field2Str(!gb_date)
      lblCompleteDate.Caption = Field2Str(!cm_date)
      If !p_type = "T" Then
         cboProjType = "Condo/Townhome"
      ElseIf !p_type = "R" Then
         cboProjType = "Residential Homes"
      ElseIf !p_type = "M" Then
         cboProjType = "Commercial"
      ElseIf !p_type = "A" Then
         cboProjType = "Apartments"
      End If
      optRGard(0) = Field2CheckBox(!rg12)
      optRGard(1) = Field2CheckBox(!rg1)
      optRGard(2) = Field2CheckBox(!pyro)
      chkBagSand = Field2CheckBox(!BagSand)
      txtBagSand = Format(Field2Str2(!bagdollars), "###.00")
      txtSplit = Format(Field2Str2(!splitcst), "###.00")
   End With
   
   If gbytSECURITY > 3 Then
      chkGotBid.Enabled = False
      chkComplete.Enabled = False
'      txtLocation.Enabled = False
      txtStandards.Enabled = False
   End If
   If gbytSECURITY = 1 Or gbytSECURITY = 7 Then
      chkPreLien.Enabled = True
      chkPLReq.Enabled = True
   Else
      chkPreLien.Enabled = False
      chkPLReq.Enabled = False
   End If
   mboolSHOW = False
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module FormShow"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FieldsSave()
Dim strLOT As String
   On Error GoTo Error_EH

   With moRSProj
      !yards = Str2Field(txtYards)
      !lots = Str2Field(txtLots)
      !inv = Str2Field(txtInvoice)
      !twodates = chk2Dates
      !duedate = Str2Field(txtDue)
      !duedate2 = Str2Field(txtDue2)
      !inv_due = Str2Field(txtBillDay)
      !retention = Str2Field(txtRetention)
      !notes = Str2Field(txtNotes)
      !ar = Str2Field(txtMAS90)
      !gb_date = Str2Field(lblAwardDate)
      !cm_date = Str2Field(lblCompleteDate)
      !standards = Str2Field(txtStandards)
      !Location = Str2Field(txtLocation)
      !signed = Str2Field(txtSigned)
      !vwp_sup = Str2Field(txtVWPSuper)
      !plien_req = chkPLReq
      !plien_done = chkPreLien
      !gotbid = chkGotBid
      !plans = chkPlans
      !setup = chkSetup
      !price = chkPrice
      !zone = Integer2Field(txtSandZone)
      !complete = chkComplete
      !bill = chkCombined
      !FHA = chkFHA
      !use_open = chkOpenings
      !opt = chkOpt
      !apt = chkApt
      !stone = chkStone
      !condo = chkCondo
      !bb = chkBB
      !silica = chkSilica
      !city = Str2Field(txtTaxAuth)
      !taxcode = Str2Field(txtTaxCode)
      !Desc = Str2Field(txtDesc)
      !zmetal = chkZMetal
      !UUser = gstrLOGIN
      !Update = Date
      If cboProjType = "Condo/Townhome" Then
         !p_type = "T"
      ElseIf cboProjType = "Residential Homes" Then
         !p_type = "R"
      ElseIf cboProjType = "Commercial" Then
         !p_type = "M"
      ElseIf cboProjType = "Apartments" Then
         !p_type = "A"
      End If
      !rg1 = optRGard(1)
      !rg12 = optRGard(0)
      !pyro = optRGard(2)
      !BagSand = chkBagSand
      !bagdollars = txtBagSand
      !splitcst = txtSplit
   End With
   
   moRSProj.Update
   
   If FormFind() Then
      Call FormShow    'xxxxxxxxxxxxxxxxxx
   Else
      Call FormClear
   End If
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ProjNotes - Module FieldsSave"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub optRGard_Click(Index As Integer)
   cmdSave.Enabled = True
End Sub

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

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

Private Sub txtDue_GotFocus()
   Call FieldSelect(txtDue)
End Sub

Private Sub txtDue2_GotFocus()
   Call FieldSelect(txtDue2)
End Sub

Private Sub txtInvoice_GotFocus()
   Call FieldSelect(txtInvoice)
End Sub

Private Sub txtInvoice_LostFocus()
Dim strMSG As String
   txtInvoice = UCase(txtInvoice)
   strMSG = "Remember That Invoice Code Should Be 3 Charaters" & vbCrLf
   strMSG = strMSG & "Or Less So That The Invoice Number Will Be" & vbCrLf
   strMSG = strMSG & "7 Charcters or Less. ie (PD333ST)"
   MsgBox strMSG, vbOKOnly, "Check Invoice Code Length"

End Sub

Private Sub txtLocation_GotFocus()
   Call FieldSelect(txtLocation)
End Sub

Private Sub txtLocation_LostFocus()
   txtLocation = UCase(txtLocation)
End Sub

Private Sub txtLots_GotFocus()
   Call FieldSelect(txtLots)
End Sub

Private Sub txtMAS90_GotFocus()
   Call FieldSelect(txtMAS90)
End Sub

Private Sub txtMAS90_LostFocus()
   txtMAS90 = UCase(txtMAS90)
End Sub

Private Sub txtNotes_GotFocus()
   mboolFLAG = True
   txtNotes.SelStart = 63000
End Sub

Private Sub txtNotes_LostFocus()
   mboolFLAG = False
   txtNotes = UCase(txtNotes)
End Sub

Private Sub txtRetention_GotFocus()
   Call FieldSelect(txtRetention)
End Sub

Private Sub txtSigned_GotFocus()
   Call FieldSelect(txtSigned)
End Sub

Private Sub txtSigned_LostFocus()
Dim lngPOS As Long

   lngPOS = InStr(1, txtSigned, "/", 1)
   If Not IsDate(txtSigned) Then
      If lngPOS = 0 Then
         If Len(txtSigned) > 0 Then
            txtSigned = Format(txtSigned, "00/00/####")
            If Not IsDate(txtSigned) Then
               MsgBox "The Date You Entered is not Valid - ReEnter"
               txtSigned.SetFocus
            End If
         End If
      Else
         MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
         txtSigned.SetFocus
      End If
   End If

End Sub

Private Sub txtStandards_GotFocus()
   mboolFLAG = True
   txtStandards.SelStart = 63000
End Sub

Private Sub txtStandards_LostFocus()
   mboolFLAG = False
   txtStandards = UCase(txtStandards)
End Sub

Private Sub txtTaxAuth_GotFocus()
   Call FieldSelect(txtTaxAuth)
End Sub

Private Sub txtTaxAuth_LostFocus()
   txtTaxAuth = UCase(txtTaxAuth)
End Sub

Private Sub txtTaxCode_GotFocus()
   Call FieldSelect(txtTaxCode)
End Sub

Private Sub txtTaxCode_LostFocus()
   txtTaxCode = UCase(txtTaxCode)
End Sub

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

Private Sub txtVWPSuper_LostFocus()
   txtVWPSuper = UCase(txtVWPSuper)
End Sub

Private Sub txtYards_GotFocus()
   Call FieldSelect(txtYards)
End Sub

Private Sub txtYards_LostFocus()
   txtYards = UCase(txtYards)
End Sub

Private Sub LotCount()
Dim oRS As Recordset
Dim strSQL As String

   strSQL = "SELECT Proj_id, lorder, L_Flg FROM tblLotInfo WHERE l_flg = 'P' and Proj_id = " & gintPROJID
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
   
   mintLOTS = oRS.RecordCount

End Sub