VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form frmProjNotes 
   Caption         =   "Project Notes & Information"
   ClientHeight    =   9180
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10050
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   9180
   ScaleWidth      =   10050
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtPE 
      Height          =   315
      Left            =   1245
      TabIndex        =   91
      Top             =   8175
      Width           =   1095
   End
   Begin VB.TextBox txtOpt 
      Height          =   315
      Left            =   4020
      TabIndex        =   89
      Top             =   7080
      Width           =   1095
   End
   Begin VB.TextBox txtPF 
      Height          =   315
      Left            =   1245
      TabIndex        =   88
      Top             =   8550
      Width           =   1095
   End
   Begin VB.TextBox txtPI 
      Height          =   315
      Left            =   1230
      TabIndex        =   87
      Top             =   7800
      Width           =   1095
   End
   Begin VB.TextBox txtStucco 
      Height          =   315
      Left            =   1230
      TabIndex        =   86
      Top             =   7440
      Width           =   1095
   End
   Begin VB.TextBox txtLath 
      Height          =   315
      Left            =   1230
      TabIndex        =   85
      Top             =   7080
      Width           =   1095
   End
   Begin VB.CheckBox chkPHXTUC 
      Caption         =   "Metro PHX"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   8340
      TabIndex        =   76
      Top             =   6375
      Width           =   1680
   End
   Begin VB.TextBox txtWrapPctg 
      Height          =   315
      Left            =   7470
      TabIndex        =   74
      Top             =   6405
      Width           =   765
   End
   Begin VB.CheckBox chkWrap 
      Alignment       =   1  'Right Justify
      Caption         =   "Wrap Ins."
      Height          =   255
      Left            =   5775
      TabIndex        =   73
      Top             =   6435
      Width           =   1020
   End
   Begin VB.CheckBox chkPCMNT 
      Caption         =   "Use Plstc Cement w/ 3 coat stucco"
      Height          =   480
      Left            =   5640
      TabIndex        =   72
      Top             =   3150
      Width           =   1665
   End
   Begin VB.CheckBox chk2Dates 
      Caption         =   "2 Dates"
      Height          =   270
      Left            =   7545
      TabIndex        =   69
      Top             =   4815
      Width           =   900
   End
   Begin VB.TextBox txtDue2 
      Alignment       =   2  'Center
      Height          =   315
      Left            =   7080
      TabIndex        =   68
      Top             =   4800
      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             =   2860
      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             =   2125
      Width           =   2040
   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            =   9120
      TabIndex        =   57
      Top             =   6090
      Width           =   915
   End
   Begin VB.TextBox txtTaxAuth 
      Height          =   315
      Left            =   6600
      MaxLength       =   15
      TabIndex        =   54
      Top             =   6090
      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             =   4200
      Width           =   3375
   End
   Begin VB.TextBox txtBillDay 
      Alignment       =   2  'Center
      Height          =   315
      Left            =   6615
      TabIndex        =   21
      Top             =   5115
      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             =   2370
      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            =   6600
      TabIndex        =   27
      Top             =   5775
      Width           =   3435
   End
   Begin VB.TextBox txtSandZone 
      Height          =   315
      Left            =   9135
      MaxLength       =   1
      TabIndex        =   26
      Top             =   5460
      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             =   2615
      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             =   1880
      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          =   2610
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Top             =   3480
      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            =   6600
      TabIndex        =   25
      Top             =   5460
      Width           =   915
   End
   Begin VB.TextBox txtMAS90 
      Height          =   315
      Left            =   9135
      TabIndex        =   24
      Top             =   5145
      Width           =   915
   End
   Begin VB.TextBox txtInvoice 
      Height          =   315
      Left            =   9135
      MaxLength       =   3
      TabIndex        =   23
      Top             =   4815
      Width           =   915
   End
   Begin VB.TextBox txtDue 
      Alignment       =   2  'Center
      Height          =   315
      Left            =   6615
      TabIndex        =   22
      Top             =   4800
      Width           =   435
   End
   Begin VB.TextBox txtYards 
      Height          =   315
      Left            =   9135
      TabIndex        =   20
      Top             =   4500
      Width           =   915
   End
   Begin VB.TextBox txtLots 
      Height          =   315
      Left            =   6615
      TabIndex        =   19
      Top             =   4500
      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             =   1635
      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          =   2610
      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             =   1390
      Width           =   1755
   End
   Begin VB.CheckBox chkFHA 
      Caption         =   "FHA Metal"
      Height          =   195
      Left            =   5640
      TabIndex        =   5
      Top             =   1145
      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 lblStone 
      Caption         =   "Stone should be entered in Options with the Billing Code of STONE or WSTONE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   780
      Left            =   3150
      TabIndex        =   93
      Top             =   7635
      Width           =   2010
   End
   Begin VB.Label lblOptCode 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Option: "
      Height          =   195
      Index           =   1
      Left            =   3315
      TabIndex        =   92
      Top             =   7095
      Width           =   555
   End
   Begin VB.Label lblPaintExt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Paint Exterior: "
      Height          =   195
      Left            =   135
      TabIndex        =   90
      Top             =   8235
      Width           =   1020
   End
   Begin VB.Label lblPaintFin 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Paint Final: "
      Height          =   195
      Left            =   330
      TabIndex        =   84
      Top             =   8610
      Width           =   825
   End
   Begin VB.Label lblPaintInt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Paint Interior: "
      Height          =   195
      Left            =   180
      TabIndex        =   83
      Top             =   7875
      Width           =   975
   End
   Begin VB.Label lblStucco 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Stucco: "
      Height          =   195
      Left            =   555
      TabIndex        =   82
      Top             =   7500
      Width           =   600
   End
   Begin VB.Label lblLath 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lath: "
      Height          =   195
      Left            =   750
      TabIndex        =   81
      Top             =   7140
      Width           =   405
   End
   Begin VB.Label lblOption 
      AutoSize        =   -1  'True
      Caption         =   "Plan Option Sales Codes"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   3105
      TabIndex        =   80
      Top             =   6825
      Width           =   2010
   End
   Begin VB.Label lblHouse 
      AutoSize        =   -1  'True
      Caption         =   "Main Plan Sales Codes"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   465
      TabIndex        =   79
      Top             =   6825
      Width           =   1860
   End
   Begin VB.Label lblBillCodes 
      AutoSize        =   -1  'True
      Caption         =   "Default Billing Codes For The The Billing Grid - This Project Only"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   180
      TabIndex        =   78
      Top             =   6420
      Width           =   5205
   End
   Begin VB.Label lblPHXTUC 
      Caption         =   "Checked Tucson Unchecked PHX"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   8370
      TabIndex        =   77
      Top             =   6600
      Width           =   1665
   End
   Begin VB.Label lblWrapPctg 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Wrap %: "
      Height          =   195
      Left            =   6885
      TabIndex        =   75
      Top             =   6465
      Width           =   645
   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             =   4845
      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            =   8340
      TabIndex        =   56
      Top             =   6150
      Width           =   735
   End
   Begin VB.Label lblTaxAuth 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Taxing Authority:"
      Height          =   195
      Left            =   5355
      TabIndex        =   55
      Top             =   6165
      Width           =   1185
   End
   Begin VB.Label lblProjType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Project Type:"
      Height          =   195
      Left            =   5610
      TabIndex        =   53
      Top             =   4275
      Width           =   945
   End
   Begin VB.Label lblDDone 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   6600
      TabIndex        =   51
      Top             =   3750
      Width           =   540
   End
   Begin VB.Label lblLotsDone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lots Done:"
      Height          =   195
      Left            =   5730
      TabIndex        =   50
      Top             =   3795
      Width           =   780
   End
   Begin VB.Label lblVWPSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "VWP Super:"
      Height          =   195
      Left            =   5655
      TabIndex        =   48
      Top             =   5835
      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            =   8205
      TabIndex        =   44
      Top             =   5520
      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            =   105
      TabIndex        =   41
      Top             =   3225
      Width           =   1575
   End
   Begin VB.Label lblRetention 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Retention %:"
      Height          =   195
      Left            =   5640
      TabIndex        =   40
      Top             =   5520
      Width           =   900
   End
   Begin VB.Label lblMAS90 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CMS Customer #:"
      Height          =   195
      Left            =   7830
      TabIndex        =   39
      Top             =   5205
      Width           =   1245
   End
   Begin VB.Label lblInv 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Invoice Code:"
      Height          =   390
      Left            =   8505
      TabIndex        =   38
      Top             =   4770
      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             =   5160
      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             =   4560
      Width           =   1380
   End
   Begin VB.Label lblLots 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Estimated Lots:"
      Height          =   195
      Left            =   5475
      TabIndex        =   35
      Top             =   4530
      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, mstrINVIN As String, mstrINVOUT As String
Dim mstrPROJLOT As String, mintLOTS As Integer, mboolLOADED As Boolean

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 GetInvCode()
Dim strSQL As String, strSELECT As String, strInvCode As String
Dim oRS As Recordset, strCOUNT As String

   If mboolLOADED = True Then
      strSQL = "SELECT * FROM tblPROJECT WHERE Inv = '" & txtInvoice & "'"
      Set oRS = New Recordset
      oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
      
      If Not oRS.EOF Then
         strCOUNT = oRS.RecordCount
         strSELECT = txtInvoice & " Has Already Been Used As An Invoice Code " & vbCrLf
         strSELECT = strSELECT & strCOUNT & " Times - Select A New Invoice Code"
         MsgBox strSELECT, vbOKOnly, "Change Invoice Code"
         txtInvoice = ""
         txtInvoice.SetFocus
   '      txtInvoice.SetFocus
      End If
   End If

'   mstrPROJLOT = Trim(Field2Str(moRSProj!Proj_Desc)) & " - " & Trim(Field2Str(moRS!lot_no))
'   lblProjectLot = mstrPROJLOT
'   txtHName = Field2Str(moRS!Owner)
'   txtHAddress = Field2Str(moRS!address)
   
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 chkPHXTUC_Click()
   If chkPHXTUC = vbChecked Then
      chkPHXTUC.Caption = "Tucson"
   ElseIf chkPHXTUC = vbUnchecked Then
      chkPHXTUC.Caption = "METRO Phx"
   End If
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()
'***FIX   On Error GoTo Error_EH
   
   mboolLOADED = False
   
   If gbytSECURITY < 3 Then
   Else
      Call FormClear3
   End If
   mboolFLAG = False
   If FormFind() Then
      Call FormShow
   Else
      MsgBox "No Information Was Found For This Project", vbOKOnly, "No Information"
      Unload Me
   End If
   
   mboolLOADED = True
   
   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
   chkPHXTUC = 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 = ""
   txtLath = ""
   txtStucco = ""
   txtPI = ""
   txtPE = ""
   txtPF = ""
   txtOpt = ""

End Sub

Private Sub FormClear2()
'   frmProjNotes.Enabled = False
   txtMAS90.Enabled = False ' = ""
   txtYards.Enabled = False ' = 0
   txtRetention.Enabled = False ' = 0
   txtLots.Enabled = False ' = 0
   txtInvoice.Enabled = False ' = ""
   txtDue.Enabled = False ' = ""
   txtDue2.Enabled = False ' = ""
   chk2Dates.Enabled = False ' = vbUnchecked
'   chkINACTIVE = vbUnchecked
   txtBillDay.Enabled = False ' = ""
   txtNotes.Enabled = False ' = ""
   txtStandards.Enabled = False ' = ""
   txtLocation.Enabled = False ' = ""
   txtSandZone.Enabled = False ' = 0
   txtVWPSuper.Enabled = False ' = ""
   txtSigned.Enabled = False ' = ""
   chkFHA.Enabled = False ' = vbUnchecked
   chkGotBid.Enabled = False ' = vbUnchecked
   chkComplete.Enabled = False ' = vbUnchecked
   chkCombined.Enabled = False ' = vbUnchecked
   chkPlans.Enabled = False ' = vbUnchecked
   chkSetup.Enabled = False ' = vbUnchecked
   chkPrice.Enabled = False ' = vbUnchecked
   chkOpt.Enabled = False ' = vbUnchecked
   chkStone.Enabled = False ' = vbUnchecked
   chkOpenings.Enabled = False ' = vbUnchecked
   chkCondo.Enabled = False ' = vbUnchecked
   chkApt.Enabled = False ' = vbUnchecked
   chkPLReq.Enabled = False ' = vbChecked
   chkPreLien.Enabled = False ' = vbUnchecked
   chkZMetal.Enabled = False ' = vbUnchecked
   cboProjType.Enabled = False ' .ListIndex = -1
   lblProject.Enabled = False ' = ""
   optRGard(0).Enabled = False
   optRGard(1).Enabled = False
   optRGard(2).Enabled = False
   chkPCMNT.Enabled = False
   lblAwardDate = ""
   txtSplit.Enabled = False
   txtBagSand.Enabled = False
   chkBagSand.Enabled = False
   chkSilica.Enabled = False
   chkBB.Enabled = False
   lblCompleteDate = ""
   txtTaxCode.Enabled = False ' = ""
   txtTaxAuth.Enabled = False ' = ""
   txtDesc.Enabled = False ' = ""
   cmdSave.Enabled = False
   cmdContractor.Enabled = False
   cmdDate.Enabled = False
   cmdPrint.Enabled = False
   cmdPrintSuper.Enabled = False
   txtLath.Enabled = False
   txtStucco.Enabled = False
   txtPI.Enabled = False
   txtPE.Enabled = False
   txtPF.Enabled = False
   txtOpt.Enabled = False
   End Sub

Private Sub FormClear3()
'   frmProjNotes.Enabled = False
'   txtMAS90.Enabled = False ' = ""
   txtYards.Enabled = False ' = 0
   txtRetention.Enabled = False ' = 0
'   txtLots.Enabled = False ' = 0
'   txtInvoice.Enabled = False ' = ""
   txtDue.Enabled = False ' = ""
   txtDue2.Enabled = False ' = ""
   chk2Dates.Enabled = False ' = vbUnchecked
'   chkINACTIVE = vbUnchecked
   txtBillDay.Enabled = False ' = ""
   txtNotes.Enabled = False ' = ""
   txtStandards.Enabled = False ' = ""
   txtLocation.Enabled = False ' = ""
   txtSandZone.Enabled = False ' = 0
'   txtVWPSuper.Enabled = False ' = ""
'   txtSigned.Enabled = False ' = ""
   chkFHA.Enabled = False ' = vbUnchecked
   chkGotBid.Enabled = False ' = vbUnchecked
   chkComplete.Enabled = False ' = vbUnchecked
   chkCombined.Enabled = False ' = vbUnchecked
   chkPlans.Enabled = False ' = vbUnchecked
'   chkSetup.Enabled = False ' = vbUnchecked
   chkPrice.Enabled = False ' = vbUnchecked
'   chkOpt.Enabled = False ' = vbUnchecked
   chkStone.Enabled = False ' = vbUnchecked
   chkOpenings.Enabled = False ' = vbUnchecked
   chkCondo.Enabled = False ' = vbUnchecked
   chkApt.Enabled = False ' = vbUnchecked
   chkPLReq.Enabled = False ' = vbChecked
'   chkPreLien.Enabled = False ' = vbUnchecked
   chkZMetal.Enabled = False ' = vbUnchecked
   cboProjType.Enabled = False ' .ListIndex = -1
   lblProject.Enabled = False ' = ""
   optRGard(0).Enabled = False
   optRGard(1).Enabled = False
   optRGard(2).Enabled = False
   chkPCMNT.Enabled = False
   lblAwardDate = ""
   txtSplit.Enabled = False
   txtBagSand.Enabled = False
   chkBagSand.Enabled = False
   chkSilica.Enabled = False
   chkBB.Enabled = False
   lblCompleteDate = ""
'   txtTaxCode.Enabled = False ' = ""
'   txtTaxAuth.Enabled = False ' = ""
   txtDesc.Enabled = False ' = ""
'   cmdSave.Enabled = False
   cmdContractor.Enabled = False
   cmdDate.Enabled = False
   cmdPrint.Enabled = False
   cmdPrintSuper.Enabled = False
   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

'***FIX   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)
      chkPHXTUC = Field2CheckBox(!PHX_TUS)
      If chkPHXTUC = vbChecked Then
         chkPHXTUC.Caption = "Tucson"
      ElseIf chkPHXTUC = vbUnchecked Then
         chkPHXTUC.Caption = "METRO Phx"
      End If
      chkFHA = Field2CheckBox(!FHA)
      chkPlans = Field2CheckBox(!plans)
      chkOpenings = Field2CheckBox(!use_open)
      chkCondo = Field2CheckBox(!condo)
      chkApt = Field2CheckBox(!Apt)
      chkBB = Field2CheckBox(!bb)
      chkPCMNT = Field2CheckBox(!plcmnt)
      chkSilica = Field2CheckBox(!silica)
      chkZMetal = Field2CheckBox(!zmetal)
      chkWrap = Field2CheckBox(!Wrap)
      txtWrapPctg = Format(Field2Str(!WPctg), "#0.00##")
      txtStandards = Field2Str(!standards)
      txtLocation = Field2Str(!Location)
      txtTaxCode = Field2Str(!taxcode)
      txtDesc = Field2Str(!Desc)
      txtTaxAuth = Field2Str(!City)
      
      lblProject.Caption = Field2Str(!Proj_Code) & " - " & Field2Str(!Proj_Desc) & " - " & Field2Str(!PROJ_ID)
      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")
      txtLath = Field2Str(!LATH)
      txtStucco = Field2Str(!Stucco)
      txtPI = Field2Str(!PaintInt)
      txtPE = Field2Str(!PaintExt)
      txtPF = Field2Str(!PaintFNL)
      txtOpt = Field2Str(!Option)
   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
'   If gbytSECURITY <> 1 Then
   If gbytSECURITY < 3 Then
   Else
      Call FormClear3
   End If
   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
      !Wrap = chkWrap
      !PHX_TUS = chkPHXTUC
      !WPctg = Str2Field(txtWrapPctg)
      !zone = Integer2Field(txtSandZone)
      !complete = chkComplete
      !bill = chkCombined
      !FHA = chkFHA
      !use_open = chkOpenings
      !opt = chkOpt
      !Apt = chkApt
      !stone = chkStone
      !condo = chkCondo
      !bb = chkBB
      !plcmnt = chkPCMNT
      !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
      !LATH = Str2Field(txtLath)
      !Stucco = Str2Field(txtStucco)
      !PaintInt = Str2Field(txtPI)
      !PaintExt = Str2Field(txtPE)
      !PaintFNL = Str2Field(txtPF)
      !Option = Str2Field(txtOpt)
   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_Change()
'Private Sub txtInvoice_ datachanged()
   
'   txtInvoice = UCase(txtInvoice)
'   Call GetInvCode
'End Sub

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

Private Sub txtInvoice_LostFocus()
Dim strMSG As String
   txtInvoice = UCase(txtInvoice)
   mstrINVOUT = txtInvoice
   
   If mstrINVOUT <> mstrINVIN Then
      Call GetInvCode
   End If
'   strMSG = "Remember That Invoice Code Should Be 3 Charaters" & vbCrLf
'   strMSG = strMSG & "Or Less So That The Invoice Number Will Be" & vbCrLf
'   strMSG = strMSG & "10 Charcters or Less. ie (PDR3333ST2)"
'   MsgBox strMSG, vbOKOnly, "Check Invoice Code Length"

End Sub

Private Sub txtLath_GotFocus()
   Call FieldSelect(txtLath)
End Sub

Private Sub txtLath_LostFocus()
   txtLath = UCase(txtLath)
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 txtOpt_GotFocus()
   Call FieldSelect(txtOpt)
End Sub

Private Sub txtOpt_LostFocus()
   txtOpt = UCase(txtOpt)
End Sub

Private Sub txtPE_GotFocus()
   Call FieldSelect(txtPE)
End Sub

Private Sub txtPE_LostFocus()
   txtPE = UCase(txtPE)
End Sub

Private Sub txtPF_GotFocus()
   Call FieldSelect(txtPF)
End Sub

Private Sub txtPF_LostFocus()
   txtPF = UCase(txtPF)
End Sub

Private Sub txtPI_GotFocus()
   Call FieldSelect(txtPI)
End Sub

Private Sub txtPI_LostFocus()
   txtPI = UCase(txtPI)
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 txtStucco_GotFocus()
   Call FieldSelect(txtStucco)
End Sub

Private Sub txtStucco_LostFocus()
   txtStucco = UCase(txtStucco)
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