VERSION 5.00
Begin VB.Form frmTexture 
   Caption         =   "Texture Information"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6150
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   8595
   ScaleWidth      =   6150
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtTCTBLime 
      Height          =   315
      Left            =   5040
      TabIndex        =   79
      Top             =   7635
      Width           =   600
   End
   Begin VB.TextBox txtTCTBCmnt 
      Height          =   315
      Left            =   3855
      TabIndex        =   78
      Top             =   7620
      Width           =   600
   End
   Begin VB.TextBox txtTCTBRS 
      Height          =   315
      Left            =   2595
      TabIndex        =   77
      Top             =   7635
      Width           =   600
   End
   Begin VB.TextBox txtTCTBYds 
      Height          =   315
      Left            =   1425
      TabIndex        =   76
      Top             =   7635
      Width           =   600
   End
   Begin VB.TextBox txtTCTSLime 
      Height          =   315
      Left            =   5040
      TabIndex        =   75
      Top             =   7185
      Width           =   600
   End
   Begin VB.TextBox txtTCTSCmnt 
      Height          =   315
      Left            =   3855
      TabIndex        =   74
      Top             =   7185
      Width           =   600
   End
   Begin VB.TextBox txtTCTSRS 
      Height          =   315
      Left            =   2595
      TabIndex        =   73
      Top             =   7185
      Width           =   600
   End
   Begin VB.TextBox txtTCTSYds 
      Height          =   315
      Left            =   1425
      TabIndex        =   72
      Top             =   7185
      Width           =   600
   End
   Begin VB.TextBox txtTCOBLime 
      Height          =   315
      Left            =   5040
      TabIndex        =   71
      Top             =   6735
      Width           =   600
   End
   Begin VB.TextBox txtTCOBCmnt 
      Height          =   315
      Left            =   3855
      TabIndex        =   70
      Top             =   6750
      Width           =   600
   End
   Begin VB.TextBox txtTCOBRS 
      Height          =   315
      Left            =   2595
      TabIndex        =   69
      Top             =   6735
      Width           =   600
   End
   Begin VB.TextBox txtTCOBYds 
      Height          =   315
      Left            =   1410
      TabIndex        =   68
      Top             =   6750
      Width           =   600
   End
   Begin VB.TextBox txtTCOSLime 
      Height          =   315
      Left            =   5040
      TabIndex        =   67
      Top             =   6330
      Width           =   600
   End
   Begin VB.TextBox txtTCOSCmnt 
      Height          =   315
      Left            =   3855
      TabIndex        =   66
      Top             =   6330
      Width           =   600
   End
   Begin VB.TextBox txtTCOSRS 
      Height          =   315
      Left            =   2595
      TabIndex        =   65
      Top             =   6330
      Width           =   600
   End
   Begin VB.TextBox txtTCOSYds 
      Height          =   315
      Left            =   1410
      TabIndex        =   64
      Top             =   6330
      Width           =   600
   End
   Begin VB.TextBox txtOYards 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   18
      Top             =   3120
      Width           =   600
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "Update Three Coat"
      Height          =   450
      Left            =   4470
      TabIndex        =   80
      Top             =   8085
      Width           =   1605
   End
   Begin VB.TextBox txtTSYds 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3975
      TabIndex        =   29
      Top             =   4920
      Width           =   600
   End
   Begin VB.TextBox txtTYards 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3975
      TabIndex        =   28
      Top             =   4560
      Width           =   600
   End
   Begin VB.TextBox txtTS30 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   27
      Top             =   4245
      Width           =   600
   End
   Begin VB.TextBox txtTS20 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3975
      TabIndex        =   26
      Top             =   4245
      Width           =   600
   End
   Begin VB.TextBox txtTS16 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   2310
      TabIndex        =   25
      Top             =   4245
      Width           =   600
   End
   Begin VB.TextBox txtTXRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   1005
      TabIndex        =   24
      Top             =   4245
      Width           =   600
   End
   Begin VB.TextBox txtTTRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   23
      Top             =   3930
      Width           =   600
   End
   Begin VB.TextBox txtTLime 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   2310
      TabIndex        =   21
      Top             =   3930
      Width           =   600
   End
   Begin VB.TextBox txtTCement 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   1020
      TabIndex        =   20
      Top             =   3930
      Width           =   600
   End
   Begin VB.TextBox txtTBRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3975
      TabIndex        =   22
      Top             =   3930
      Width           =   600
   End
   Begin VB.TextBox txtOSYds 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   19
      Top             =   3450
      Width           =   600
   End
   Begin VB.TextBox txtPrimary 
      Height          =   315
      Left            =   4260
      TabIndex        =   8
      Top             =   630
      Width           =   600
   End
   Begin VB.TextBox txtSecondary 
      Height          =   315
      Left            =   4260
      TabIndex        =   9
      Top             =   945
      Width           =   600
   End
   Begin VB.TextBox txtOS30 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   17
      Top             =   2790
      Width           =   600
   End
   Begin VB.TextBox txtOS20 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3930
      TabIndex        =   16
      Top             =   2790
      Width           =   600
   End
   Begin VB.TextBox txtOS16 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   15
      Top             =   2460
      Width           =   600
   End
   Begin VB.TextBox txtOXRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3930
      TabIndex        =   14
      Top             =   2460
      Width           =   600
   End
   Begin VB.TextBox txtOTRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   13
      Top             =   2115
      Width           =   600
   End
   Begin VB.TextBox txtOBRS 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3930
      TabIndex        =   12
      Top             =   2145
      Width           =   600
   End
   Begin VB.TextBox txtOLime 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   5490
      TabIndex        =   11
      Top             =   1815
      Width           =   600
   End
   Begin VB.TextBox txtOCement 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3930
      TabIndex        =   10
      Top             =   1815
      Width           =   600
   End
   Begin VB.TextBox txtDesc 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3705
      MaxLength       =   30
      TabIndex        =   7
      Top             =   270
      Width           =   2415
   End
   Begin VB.TextBox txtTexture 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2895
      MaxLength       =   2
      TabIndex        =   6
      Top             =   270
      Width           =   735
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   555
      Left            =   4995
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   5325
      Width           =   1080
   End
   Begin VB.CommandButton cmdThree 
      Caption         =   "&Three Coat"
      Height          =   555
      Left            =   3355
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   5325
      Width           =   1080
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      Enabled         =   0   'False
      Height          =   555
      Left            =   1725
      TabIndex        =   31
      Top             =   5325
      Width           =   1080
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "&Add"
      Height          =   555
      Left            =   105
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   5325
      Width           =   1080
   End
   Begin VB.ListBox lstTexture 
      Height          =   2790
      Left            =   180
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   285
      Width           =   2595
   End
   Begin VB.Line Line13 
      X1              =   6090
      X2              =   6090
      Y1              =   6255
      Y2              =   8010
   End
   Begin VB.Line Line12 
      X1              =   4740
      X2              =   4740
      Y1              =   6255
      Y2              =   8010
   End
   Begin VB.Line Line11 
      X1              =   3570
      X2              =   3570
      Y1              =   6255
      Y2              =   8010
   End
   Begin VB.Line Line10 
      X1              =   2325
      X2              =   2325
      Y1              =   6255
      Y2              =   8010
   End
   Begin VB.Line Line9 
      X1              =   1245
      X2              =   1245
      Y1              =   6255
      Y2              =   8010
   End
   Begin VB.Line Line8 
      X1              =   60
      X2              =   6105
      Y1              =   8010
      Y2              =   8010
   End
   Begin VB.Line Line7 
      X1              =   45
      X2              =   6090
      Y1              =   7560
      Y2              =   7560
   End
   Begin VB.Line Line6 
      X1              =   45
      X2              =   6090
      Y1              =   7140
      Y2              =   7140
   End
   Begin VB.Line Line5 
      X1              =   45
      X2              =   6090
      Y1              =   6690
      Y2              =   6690
   End
   Begin VB.Line Line4 
      X1              =   45
      X2              =   6090
      Y1              =   6255
      Y2              =   6255
   End
   Begin VB.Label lblTOBrown 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "TO-Brown"
      Height          =   195
      Left            =   375
      TabIndex        =   63
      Top             =   7650
      Width           =   720
   End
   Begin VB.Label lblTOScratch 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "TO-Scratch"
      Height          =   195
      Left            =   270
      TabIndex        =   62
      Top             =   7245
      Width           =   825
   End
   Begin VB.Label lblOBrown 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Orders-Brown"
      Height          =   195
      Left            =   135
      TabIndex        =   61
      Top             =   6810
      Width           =   960
   End
   Begin VB.Label lblOScratch 
      AutoSize        =   -1  'True
      Caption         =   "Orders-Scratch"
      Height          =   195
      Left            =   30
      TabIndex        =   60
      Top             =   6360
      Width           =   1065
   End
   Begin VB.Label lblTCLime 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lime"
      Height          =   195
      Left            =   5160
      TabIndex        =   59
      Top             =   6030
      Width           =   330
   End
   Begin VB.Label lblTCCement 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Cement"
      Height          =   195
      Left            =   3915
      TabIndex        =   58
      Top             =   6030
      Width           =   540
   End
   Begin VB.Label lblTCORS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "River Sand"
      Height          =   195
      Left            =   2565
      TabIndex        =   57
      Top             =   6030
      Width           =   795
   End
   Begin VB.Label lblTCOYds 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Yds/Batch"
      Height          =   195
      Left            =   1320
      TabIndex        =   56
      Top             =   6030
      Width           =   765
   End
   Begin VB.Line Line3 
      BorderWidth     =   2
      X1              =   1665
      X2              =   0
      Y1              =   3135
      Y2              =   3135
   End
   Begin VB.Label lblTSYds 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Square Footage for Synthetic Finish around popouts:"
      Height          =   195
      Left            =   210
      TabIndex        =   55
      Top             =   4980
      Width           =   3720
   End
   Begin VB.Label lblTYards 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Yards Per Batch/SqFootage for Synthetic:"
      Height          =   195
      Left            =   945
      TabIndex        =   54
      Top             =   4665
      Width           =   2985
   End
   Begin VB.Label lblTS30 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 30:"
      Height          =   195
      Left            =   4800
      TabIndex        =   53
      Top             =   4305
      Width           =   645
   End
   Begin VB.Label lblTS20 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 20:"
      Height          =   195
      Left            =   3285
      TabIndex        =   52
      Top             =   4305
      Width           =   645
   End
   Begin VB.Label lblTS16 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 16:"
      Height          =   195
      Left            =   1650
      TabIndex        =   51
      Top             =   4305
      Width           =   645
   End
   Begin VB.Label lblTTRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Texture RS:"
      Height          =   195
      Left            =   4650
      TabIndex        =   50
      Top             =   4005
      Width           =   855
   End
   Begin VB.Label lblTXRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Extra RSand:"
      Height          =   195
      Left            =   45
      TabIndex        =   49
      Top             =   4305
      Width           =   945
   End
   Begin VB.Label lblTBRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Brown RSand:"
      Height          =   195
      Left            =   2940
      TabIndex        =   48
      Top             =   4005
      Width           =   1035
   End
   Begin VB.Label lblTLime 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lime:"
      Height          =   195
      Left            =   1920
      TabIndex        =   47
      Top             =   4005
      Width           =   375
   End
   Begin VB.Label lblTCement 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Cement:"
      Height          =   195
      Left            =   405
      TabIndex        =   46
      Top             =   4005
      Width           =   585
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   1665
      X2              =   1665
      Y1              =   3825
      Y2              =   3135
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   6135
      X2              =   1665
      Y1              =   3825
      Y2              =   3825
   End
   Begin VB.Label lblSYds 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Square Footage for Synthetic Finish around popouts:"
      Height          =   195
      Left            =   1740
      TabIndex        =   45
      Top             =   3555
      Width           =   3720
   End
   Begin VB.Label lblYards 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Yards Per Batch/SqFootage for Synthetic:"
      Height          =   195
      Left            =   2490
      TabIndex        =   44
      Top             =   3195
      Width           =   2985
   End
   Begin VB.Label lblSecondary 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Secondary Txture:"
      Height          =   195
      Left            =   2910
      TabIndex        =   43
      Top             =   1035
      Width           =   1305
   End
   Begin VB.Label lblPrimary 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Primary Txture:"
      Height          =   195
      Left            =   3165
      TabIndex        =   42
      Top             =   675
      Width           =   1050
   End
   Begin VB.Label lblOS30 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 30:"
      Height          =   195
      Left            =   4815
      TabIndex        =   41
      Top             =   2850
      Width           =   645
   End
   Begin VB.Label lblOS20 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 20:"
      Height          =   195
      Left            =   3240
      TabIndex        =   40
      Top             =   2880
      Width           =   645
   End
   Begin VB.Label lblOS16 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Silica 16:"
      Height          =   195
      Left            =   4815
      TabIndex        =   39
      Top             =   2535
      Width           =   645
   End
   Begin VB.Label lblOXRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Extra RSand:"
      Height          =   195
      Left            =   2940
      TabIndex        =   38
      Top             =   2565
      Width           =   945
   End
   Begin VB.Label lblOTRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Texture RS:"
      Height          =   195
      Left            =   4605
      TabIndex        =   37
      Top             =   2190
      Width           =   855
   End
   Begin VB.Label lblOBRS 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Brown RSand:"
      Height          =   195
      Left            =   2850
      TabIndex        =   36
      Top             =   2220
      Width           =   1035
   End
   Begin VB.Label lblOLime 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lime:"
      Height          =   195
      Left            =   5085
      TabIndex        =   35
      Top             =   1860
      Width           =   375
   End
   Begin VB.Label lblOCement 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Cement:"
      Height          =   195
      Left            =   3285
      TabIndex        =   34
      Top             =   1890
      Width           =   585
   End
   Begin VB.Label lblAmts 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      Caption         =   "All Amounts Are Per Batch"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2895
      TabIndex        =   33
      Top             =   1275
      Width           =   3225
   End
   Begin VB.Label lblTakeOff 
      Alignment       =   2  'Center
      Caption         =   "TakeOff Information"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   240
      TabIndex        =   32
      Top             =   3330
      Width           =   1080
   End
   Begin VB.Label lblOrders 
      AutoSize        =   -1  'True
      Caption         =   "Orders Information"
      Height          =   195
      Left            =   2865
      TabIndex        =   30
      Top             =   1575
      Width           =   1290
   End
   Begin VB.Label lblNew 
      AutoSize        =   -1  'True
      Caption         =   "Enter New Texture/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            =   2895
      TabIndex        =   5
      Top             =   45
      Visible         =   0   'False
      Width           =   2655
   End
   Begin VB.Label lblTexture 
      AutoSize        =   -1  'True
      Caption         =   "Texture Type/Description"
      Height          =   195
      Left            =   180
      TabIndex        =   1
      Top             =   45
      Width           =   1815
   End
End
Attribute VB_Name = "frmTexture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mintCONTID As Integer
Dim moRSFinish As Recordset, moRSTC As Recordset
Dim mboolSHOW As Boolean, mboolAdding As Boolean, mboolTCShow As Boolean

Private Sub TextureLoad()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String, lngRET As Long, aTabs(2) As Long
Dim dblSUM As Double

   On Error GoTo Error_EH
   
   strSQL = "SELECT AUTOID, ID, Desc FROM tblFinish"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstTexture.Clear
   
   Do Until oRS.EOF
      With lstTexture

         strLine = Field2Str(oRS!id) & "    " & oRS!Desc ' & vbTab & oRS!o_qty
         .AddItem strLine
         .ItemData(.NewIndex) = oRS!autoid
      End With
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstTexture.ListCount Then
      lstTexture.ListIndex = 0
   End If
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form TEXTURE - Module TextureLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdAdd_Click()
   cmdAdd.Enabled = False
   cmdSave.Enabled = True
   cmdExit.Enabled = False
   mboolAdding = True
   lstTexture.Enabled = False
   Call FormClear
   lblNew.Visible = True
   txtTexture.Enabled = True
   txtDesc.Enabled = True
   txtTexture.SetFocus
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdSave_Click()
   lstTexture.Enabled = True
   cmdSave.Enabled = False
   cmdAdd.Enabled = True
   cmdExit.Enabled = True
   Call FormSave
   lstTexture.SetFocus
   txtTexture.Enabled = False
   txtDesc.Enabled = False
   lblNew.Visible = False
End Sub

Private Sub cmdThree_Click()
   frmTexture.Height = 9000
   cmdSave.Enabled = False
   cmdAdd.Enabled = False
   cmdThree.Enabled = False
   lstTexture.Enabled = False
   If TCFind() Then
      Call TCShow
   End If
   txtTCOSYds.SetFocus
End Sub

Private Sub cmdUpdate_Click()
   Call TCSave
   frmTexture.Height = 6375
   lstTexture.Enabled = True
   cmdAdd.Enabled = True
   cmdThree.Enabled = True
End Sub

Private Sub Form_Load()
   frmTexture.Height = 6375
   Call TextureLoad
End Sub

Private Sub FormClear()
   txtDesc = ""
   txtTexture = ""
   txtOCement = 0
   txtOLime = 0
   txtOBRS = 0
   txtOTRS = 0
   txtOXRS = 0
   txtOS16 = 0
   txtOS20 = 0
   txtOS30 = 0
   txtOYards = 0
   txtOSYds = 0
   txtPrimary = ""
   txtSecondary = ""
   txtTCement = 0
   txtTLime = 0
   txtTBRS = 0
   txtTTRS = 0
   txtTXRS = 0
   txtTS16 = 0
   txtTS20 = 0
   txtTS30 = 0
   txtTYards = 0
   txtTSYds = 0
End Sub

Private Sub TCClear()
   txtTCOBCmnt = 0
   txtTCOBLime = 0
   txtTCOBYds = 0
   txtTCOBRS = 0
   txtTCOSCmnt = 0
   txtTCOSLime = 0
   txtTCOSYds = 0
   txtTCOSRS = 0
   txtTCTBCmnt = 0
   txtTCTBLime = 0
   txtTCTBYds = 0
   txtTCTBRS = 0
   txtTCTSCmnt = 0
   txtTCTSLime = 0
   txtTCTSYds = 0
   txtTCTSRS = 0
End Sub

Private Function FormFind() As Boolean
   Dim strSQL As String, strPlan As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblFinish "
   strSQL = strSQL & "WHERE AUTOID = " & mintCONTID

   Set moRSFinish = New Recordset

   moRSFinish.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSFinish.EOF Then
      FormFind = False
      Call FormClear
   Else
      FormFind = True
   End If
End Function

Private Function TCFind() As Boolean
   Dim strSQL As String, strPlan As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblTCInfo "

   Set moRSTC = New Recordset

   moRSTC.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSTC.EOF Then
      TCFind = False
      Call TCClear
   Else
      TCFind = True
   End If
End Function

Private Sub FieldsSave()
   On Error GoTo Error_EH
   

   With moRSFinish
      !cmnt = Field2Str2(txtOCement)
      !lime = Field2Str2(txtOLime)
      !brs = Field2Str2(txtOBRS)
      !trs = Field2Str2(txtOTRS)
      !xrs = Field2Str2(txtOXRS)
      !s16 = Field2Str2(txtOS16)
      !s20 = Field2Str2(txtOS20)
      !s30 = Field2Str2(txtOS30)
      !yds = Field2Str2(txtOYards)
      !s_yds = Field2Str2(txtOSYds)
      !Primary = Field2Str2(txtPrimary)
      !Secondary = Field2Str2(txtSecondary)
      !t_cmnt = Field2Str2(txtTCement)
      !t_lime = Field2Str2(txtTLime)
      !t_brs = Field2Str2(txtTBRS)
      !t_trs = Field2Str2(txtTTRS)
      !t_xrs = Field2Str2(txtTXRS)
      !t_s16 = Field2Str2(txtTS16)
      !t_s20 = Field2Str2(txtTS20)
      !t_s30 = Field2Str2(txtTS30)
      !t_yds = Field2Str2(txtTYards)
      !t_s_yds = Field2Str2(txtTSYds)
      !Update = Now()
      !U_USER = gstrLOGIN
   End With

   Exit Sub
Error_EH:
   gstrMODULE = " Form Contractor - Module FieldsSave"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FormSave()
Dim intBookmark As Integer

   On Error GoTo Error_EH
   
   If mboolAdding Then
      moRSFinish.AddNew
      moRSFinish!Desc = Field2Str2(txtDesc)
      moRSFinish!id = Field2Str2(txtTexture)
   Else
      intBookmark = lstTexture.ListIndex
   End If
   
   Call FieldsSave
   
   moRSFinish.Update
   
   
   If mboolAdding Then
      mboolAdding = False
      intBookmark = 0
   End If
   
   Call TextureLoad
   
   lstTexture.ListIndex = intBookmark
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRSFinish.ActiveConnection)
   Exit Sub
End Sub

Private Sub TCSave()

   On Error GoTo Error_EH
   
   With moRSTC
      !brn_cmnt = Field2Str2(txtTCOBCmnt)
      !brn_lime = Field2Str2(txtTCOBLime)
      !brn_yd = Field2Str2(txtTCOBYds)
      !brn_rs = Field2Str2(txtTCOBRS)
      !scr_cmnt = Field2Str2(txtTCOSCmnt)
      !scr_lime = Field2Str2(txtTCOSLime)
      !scr_yd = Field2Str2(txtTCOSYds)
      !scr_rs = Field2Str2(txtTCOSRS)
      !t_brn_cmnt = Field2Str2(txtTCTBCmnt)
      !t_brn_lime = Field2Str2(txtTCTBLime)
      !t_brn_yd = Field2Str2(txtTCTBYds)
      !t_brn_rs = Field2Str2(txtTCTBRS)
      !t_scr_cmnt = Field2Str2(txtTCTSCmnt)
      !t_scr_lime = Field2Str2(txtTCTSLime)
      !t_scr_yd = Field2Str2(txtTCTSYds)
      !t_scr_rs = Field2Str2(txtTCTSRS)
      !Update = Now()
      !U_USER = gstrLOGIN
   End With
   
   moRSTC.Update
   
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRSFinish.ActiveConnection)
   Exit Sub
End Sub

Private Sub FormShow()
Dim oRS As Recordset, strSQL As String, intPCount As Integer

   mboolSHOW = True
   mintCONTID = moRSFinish!autoid
   
   With moRSFinish
      txtDesc = Field2Str(!Desc)
      txtTexture = Field2Str(!id)
      txtOCement = Field2Str(!cmnt)
      txtOLime = Field2Str(!lime)
      txtOBRS = Field2Str(!brs)
      txtOTRS = Field2Str(!trs)
      txtOXRS = Field2Str(!xrs)
      txtOS16 = Field2Str(!s16)
      txtOS20 = Field2Str(!s20)
      txtOS30 = Field2Str(!s30)
      txtOYards = Field2Str(!yds)
      txtOSYds = Field2Str(!s_yds)
      txtPrimary = Field2Str(!Primary)
      txtSecondary = Field2Str(!Secondary)
      txtTCement = Field2Str(!t_cmnt)
      txtTLime = Field2Str(!t_lime)
      txtTBRS = Field2Str(!t_brs)
      txtTTRS = Field2Str(!t_trs)
      txtTXRS = Field2Str(!t_xrs)
      txtTS16 = Field2Str(!t_s16)
      txtTS20 = Field2Str(!t_s20)
      txtTS30 = Field2Str(!t_s30)
      txtTYards = Field2Str(!t_yds)
      txtTSYds = Field2Str(!t_s_yds)
   End With
      
   mboolSHOW = False
End Sub

Private Sub TCShow()
Dim oRS As Recordset, strSQL As String, intPCount As Integer

   mboolSHOW = True
   
   With moRSTC
      txtTCOBCmnt = Field2Str(!brn_cmnt)
      txtTCOBLime = Field2Str(!brn_lime)
      txtTCOBYds = Field2Str(!brn_yd)
      txtTCOBRS = Field2Str(!brn_rs)
      txtTCOSCmnt = Field2Str(!scr_cmnt)
      txtTCOSLime = Field2Str(!scr_lime)
      txtTCOSYds = Field2Str(!scr_yd)
      txtTCOSRS = Field2Str(!scr_rs)
      txtTCTBCmnt = Field2Str(!t_brn_cmnt)
      txtTCTBLime = Field2Str(!t_brn_lime)
      txtTCTBYds = Field2Str(!t_brn_yd)
      txtTCTBRS = Field2Str(!t_brn_rs)
      txtTCTSCmnt = Field2Str(!t_scr_cmnt)
      txtTCTSLime = Field2Str(!t_scr_lime)
      txtTCTSYds = Field2Str(!t_scr_yd)
      txtTCTSRS = Field2Str(!t_scr_rs)
   End With
      
   mboolSHOW = False
End Sub

Private Sub lstTexture_Click()
   If lstTexture.ListIndex <> -1 Then
      mintCONTID = lstTexture.ItemData(lstTexture.ListIndex)
      If FormFind() Then
         Call FormShow

      End If
   End If

End Sub

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

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

End Sub

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

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

Private Sub txtOBRS_GotFocus()
   Call FieldSelect(txtOBRS)
End Sub

Private Sub txtOCement_GotFocus()
   Call FieldSelect(txtOCement)
End Sub

Private Sub txtOLime_GotFocus()
   Call FieldSelect(txtOLime)
End Sub

Private Sub txtOS16_GotFocus()
   Call FieldSelect(txtOS16)
End Sub

Private Sub txtOS20_GotFocus()
   Call FieldSelect(txtOS20)
End Sub

Private Sub txtOS30_GotFocus()
   Call FieldSelect(txtOS30)
End Sub

Private Sub txtOSYds_GotFocus()
   Call FieldSelect(txtOSYds)
End Sub

Private Sub txtOTRS_GotFocus()
   Call FieldSelect(txtOTRS)
End Sub

Private Sub txtOXRS_GotFocus()
   Call FieldSelect(txtOXRS)
End Sub

Private Sub txtOYards_GotFocus()
   Call FieldSelect(txtOYards)
End Sub

Private Sub txtPrimary_GotFocus()
   Call FieldSelect(txtPrimary)
End Sub

Private Sub txtPrimary_LostFocus()
   txtPrimary = UCase(txtPrimary)
End Sub

Private Sub txtSecondary_GotFocus()
   Call FieldSelect(txtSecondary)
End Sub

Private Sub txtSecondary_LostFocus()
   txtSecondary = UCase(txtSecondary)
End Sub

Private Sub txtTBRS_GotFocus()
   Call FieldSelect(txtTBRS)
End Sub

Private Sub txtTCement_GotFocus()
   Call FieldSelect(txtTCement)
End Sub

Private Sub txtTCOBCmnt_GotFocus()
   Call FieldSelect(txtTCOBCmnt)
End Sub

Private Sub txtTCOBLime_GotFocus()
   Call FieldSelect(txtTCOBLime)
End Sub

Private Sub txtTCOBRS_GotFocus()
   Call FieldSelect(txtTCOBRS)
End Sub

Private Sub txtTCOBYds_GotFocus()
   Call FieldSelect(txtTCOBYds)
End Sub

Private Sub txtTCOSCmnt_GotFocus()
   Call FieldSelect(txtTCOSCmnt)
End Sub

Private Sub txtTCOSLime_GotFocus()
   Call FieldSelect(txtTCOSLime)
End Sub

Private Sub txtTCOSRS_GotFocus()
   Call FieldSelect(txtTCOSRS)
End Sub

Private Sub txtTCOSYds_GotFocus()
   Call FieldSelect(txtTCOSYds)
End Sub

Private Sub txtTCTBCmnt_GotFocus()
   Call FieldSelect(txtTCTBCmnt)
End Sub

Private Sub txtTCTBLime_GotFocus()
   Call FieldSelect(txtTCTBLime)
End Sub

Private Sub txtTCTBRS_GotFocus()
   Call FieldSelect(txtTCTBRS)
End Sub

Private Sub txtTCTBYds_GotFocus()
   Call FieldSelect(txtTCTBYds)
End Sub

Private Sub txtTCTSCmnt_GotFocus()
   Call FieldSelect(txtTCTSCmnt)
End Sub

Private Sub txtTCTSLime_GotFocus()
   Call FieldSelect(txtTCTSLime)
End Sub

Private Sub txtTCTSRS_GotFocus()
   Call FieldSelect(txtTCTSRS)
End Sub

Private Sub txtTCTSYds_GotFocus()
   Call FieldSelect(txtTCTSYds)
End Sub

Private Sub txtTexture_GotFocus()
   Call FieldSelect(txtTexture)
End Sub

Private Sub txtTexture_LostFocus()
   txtTexture = UCase(txtTexture)
End Sub

Private Sub txtTLime_GotFocus()
   Call FieldSelect(txtTLime)
End Sub

Private Sub txtTS16_GotFocus()
   Call FieldSelect(txtTS16)
End Sub

Private Sub txtTS20_GotFocus()
   Call FieldSelect(txtTS20)
End Sub

Private Sub txtTS30_GotFocus()
   Call FieldSelect(txtTS30)
End Sub

Private Sub txtTSYds_GotFocus()
   Call FieldSelect(txtTSYds)
End Sub

Private Sub txtTTRS_GotFocus()
   Call FieldSelect(txtTTRS)
End Sub

Private Sub txtTXRS_GotFocus()
   Call FieldSelect(txtTXRS)
End Sub

Private Sub txtTYards_GotFocus()
   Call FieldSelect(txtTYards)
End Sub