VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmPlans 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Plans"
   ClientHeight    =   8625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11910
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11910
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtPLAdj 
      Height          =   315
      Left            =   10800
      TabIndex        =   63
      Top             =   840
      Width           =   855
   End
   Begin VB.TextBox txtPFAdj 
      Height          =   315
      Left            =   10800
      TabIndex        =   62
      Top             =   240
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7380
      TabIndex        =   59
      Top             =   2640
      Width           =   1455
   End
   Begin TabDlg.SSTab tabPlans 
      Height          =   4815
      Left            =   180
      TabIndex        =   16
      Top             =   3600
      Width           =   11535
      _ExtentX        =   20346
      _ExtentY        =   8493
      _Version        =   393216
      Tabs            =   2
      Tab             =   1
      TabsPerRow      =   2
      TabHeight       =   520
      TabCaption(0)   =   "Materials"
      TabPicture(0)   =   "frmPlans.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "cboPMMetal"
      Tab(0).Control(1)=   "cboPMType"
      Tab(0).Control(2)=   "cboPMDFlag"
      Tab(0).Control(3)=   "txtPMLength"
      Tab(0).Control(4)=   "txtPMPrice"
      Tab(0).Control(5)=   "txtPMQty"
      Tab(0).Control(6)=   "txtPMDesc"
      Tab(0).Control(7)=   "txtPMInvNo"
      Tab(0).Control(8)=   "lstPMaterial"
      Tab(0).Control(9)=   "lblPMLength"
      Tab(0).Control(10)=   "lblPMMetal"
      Tab(0).Control(11)=   "lblPMType"
      Tab(0).Control(12)=   "lblPMDFLag"
      Tab(0).Control(13)=   "lblPMPrice"
      Tab(0).Control(14)=   "lblPMQty"
      Tab(0).Control(15)=   "lblPMDesc"
      Tab(0).Control(16)=   "lblPMInvNo"
      Tab(0).ControlCount=   17
      TabCaption(1)   =   "Options"
      TabPicture(1)   =   "frmPlans.frx":001C
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "lblOptYdge"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "lblOptFin2"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "lblOptFAdjYdge"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "lblOTexture"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "lblOMInvNo"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).Control(5)=   "lblOMDesc"
      Tab(1).Control(5).Enabled=   0   'False
      Tab(1).Control(6)=   "lblOMQty"
      Tab(1).Control(6).Enabled=   0   'False
      Tab(1).Control(7)=   "lblOMDflag"
      Tab(1).Control(7).Enabled=   0   'False
      Tab(1).Control(8)=   "lblOMMType"
      Tab(1).Control(8).Enabled=   0   'False
      Tab(1).Control(9)=   "lblOMetal"
      Tab(1).Control(9).Enabled=   0   'False
      Tab(1).Control(10)=   "lblOMLength"
      Tab(1).Control(10).Enabled=   0   'False
      Tab(1).Control(11)=   "lstOptions"
      Tab(1).Control(11).Enabled=   0   'False
      Tab(1).Control(12)=   "txtODesc"
      Tab(1).Control(12).Enabled=   0   'False
      Tab(1).Control(13)=   "txtOYdge"
      Tab(1).Control(13).Enabled=   0   'False
      Tab(1).Control(14)=   "txtOFin2"
      Tab(1).Control(14).Enabled=   0   'False
      Tab(1).Control(15)=   "txtOFAdj"
      Tab(1).Control(15).Enabled=   0   'False
      Tab(1).Control(16)=   "lstOptMatrl"
      Tab(1).Control(16).Enabled=   0   'False
      Tab(1).Control(17)=   "cboOTexture"
      Tab(1).Control(17).Enabled=   0   'False
      Tab(1).Control(18)=   "txtOMDesc"
      Tab(1).Control(18).Enabled=   0   'False
      Tab(1).Control(19)=   "txtOMInvNo"
      Tab(1).Control(19).Enabled=   0   'False
      Tab(1).Control(20)=   "txtOMQty"
      Tab(1).Control(20).Enabled=   0   'False
      Tab(1).Control(21)=   "txtOMLength"
      Tab(1).Control(21).Enabled=   0   'False
      Tab(1).Control(22)=   "cboOMDflag"
      Tab(1).Control(22).Enabled=   0   'False
      Tab(1).Control(23)=   "cboOMType"
      Tab(1).Control(23).Enabled=   0   'False
      Tab(1).Control(24)=   "cboOMMetal"
      Tab(1).Control(24).Enabled=   0   'False
      Tab(1).ControlCount=   25
      Begin VB.ComboBox cboPMMetal 
         Height          =   315
         ItemData        =   "frmPlans.frx":0038
         Left            =   -67920
         List            =   "frmPlans.frx":0042
         Style           =   2  'Dropdown List
         TabIndex        =   58
         Top             =   2640
         Width           =   1155
      End
      Begin VB.ComboBox cboPMType 
         Height          =   315
         ItemData        =   "frmPlans.frx":0053
         Left            =   -67920
         List            =   "frmPlans.frx":0066
         Style           =   2  'Dropdown List
         TabIndex        =   57
         Top             =   2280
         Width           =   1155
      End
      Begin VB.ComboBox cboPMDFlag 
         Height          =   315
         ItemData        =   "frmPlans.frx":008E
         Left            =   -67920
         List            =   "frmPlans.frx":0098
         Style           =   2  'Dropdown List
         TabIndex        =   56
         Top             =   1920
         Width           =   1155
      End
      Begin VB.TextBox txtPMLength 
         Height          =   315
         Left            =   -67920
         TabIndex        =   55
         Top             =   3000
         Width           =   915
      End
      Begin VB.TextBox txtPMPrice 
         Height          =   315
         Left            =   -67920
         TabIndex        =   54
         Top             =   1560
         Width           =   915
      End
      Begin VB.TextBox txtPMQty 
         Height          =   315
         Left            =   -67920
         TabIndex        =   53
         Top             =   1200
         Width           =   915
      End
      Begin VB.TextBox txtPMDesc 
         Height          =   315
         Left            =   -67920
         TabIndex        =   52
         Top             =   840
         Width           =   4275
      End
      Begin VB.TextBox txtPMInvNo 
         Height          =   315
         Left            =   -67920
         TabIndex        =   51
         Top             =   480
         Width           =   915
      End
      Begin VB.ListBox lstPMaterial 
         Height          =   4155
         Left            =   -74820
         TabIndex        =   42
         Top             =   480
         Width           =   5535
      End
      Begin VB.ComboBox cboOMMetal 
         Height          =   315
         ItemData        =   "frmPlans.frx":00AC
         Left            =   9780
         List            =   "frmPlans.frx":00B6
         Style           =   2  'Dropdown List
         TabIndex        =   41
         Top             =   3570
         Width           =   1275
      End
      Begin VB.ComboBox cboOMType 
         Height          =   315
         ItemData        =   "frmPlans.frx":00C7
         Left            =   9780
         List            =   "frmPlans.frx":00DA
         Style           =   2  'Dropdown List
         TabIndex        =   40
         Top             =   3120
         Width           =   1275
      End
      Begin VB.ComboBox cboOMDflag 
         Height          =   315
         ItemData        =   "frmPlans.frx":0102
         Left            =   6900
         List            =   "frmPlans.frx":010C
         Style           =   2  'Dropdown List
         TabIndex        =   39
         Top             =   4020
         Width           =   1155
      End
      Begin VB.TextBox txtOMLength 
         Height          =   315
         Left            =   9780
         TabIndex        =   38
         Top             =   4020
         Width           =   915
      End
      Begin VB.TextBox txtOMQty 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   6900
         TabIndex        =   37
         Top             =   3580
         Width           =   915
      End
      Begin VB.TextBox txtOMInvNo 
         Height          =   315
         Left            =   6900
         TabIndex        =   36
         Top             =   3120
         Width           =   915
      End
      Begin VB.TextBox txtOMDesc 
         Height          =   315
         Left            =   6900
         TabIndex        =   35
         Top             =   2700
         Width           =   4275
      End
      Begin VB.ComboBox cboOTexture 
         Height          =   315
         Left            =   4680
         TabIndex        =   27
         Top             =   1020
         Width           =   2235
      End
      Begin VB.ListBox lstOptMatrl 
         Height          =   1815
         Left            =   240
         TabIndex        =   25
         Top             =   2640
         Width           =   5475
      End
      Begin VB.TextBox txtOFAdj 
         Height          =   315
         Left            =   10260
         TabIndex        =   24
         Top             =   1020
         Width           =   855
      End
      Begin VB.TextBox txtOFin2 
         Height          =   315
         Left            =   10260
         TabIndex        =   23
         Top             =   600
         Width           =   855
      End
      Begin VB.TextBox txtOYdge 
         Height          =   315
         Left            =   7800
         TabIndex        =   22
         Top             =   600
         Width           =   855
      End
      Begin VB.TextBox txtODesc 
         Height          =   315
         Left            =   4080
         TabIndex        =   21
         Top             =   600
         Width           =   2835
      End
      Begin VB.ListBox lstOptions 
         Height          =   2010
         Left            =   240
         TabIndex        =   17
         Top             =   600
         Width           =   3195
      End
      Begin VB.Label lblPMLength 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Length:"
         Height          =   195
         Left            =   -69000
         TabIndex        =   50
         Top             =   3060
         Width           =   975
      End
      Begin VB.Label lblPMMetal 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal:"
         Height          =   195
         Left            =   -68460
         TabIndex        =   49
         Top             =   2700
         Width           =   435
      End
      Begin VB.Label lblPMType 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Materials Type:"
         Height          =   195
         Left            =   -69105
         TabIndex        =   48
         Top             =   2340
         Width           =   1080
      End
      Begin VB.Label lblPMDFLag 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Delivery Flag:"
         Height          =   195
         Left            =   -68985
         TabIndex        =   47
         Top             =   1980
         Width           =   960
      End
      Begin VB.Label lblPMPrice 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Price:"
         Height          =   195
         Left            =   -68430
         TabIndex        =   46
         Top             =   1620
         Width           =   405
      End
      Begin VB.Label lblPMQty 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Quantity:"
         Height          =   195
         Left            =   -68655
         TabIndex        =   45
         Top             =   1260
         Width           =   630
      End
      Begin VB.Label lblPMDesc 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Description:"
         Height          =   195
         Left            =   -68865
         TabIndex        =   44
         Top             =   900
         Width           =   840
      End
      Begin VB.Label lblPMInvNo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Inventory No:"
         Height          =   195
         Left            =   -68985
         TabIndex        =   43
         Top             =   540
         Width           =   960
      End
      Begin VB.Label lblOMLength 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Length:"
         Height          =   195
         Left            =   8745
         TabIndex        =   34
         Top             =   4080
         Width           =   975
      End
      Begin VB.Label lblOMetal 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Flag:"
         Height          =   195
         Left            =   8940
         TabIndex        =   33
         Top             =   3640
         Width           =   780
      End
      Begin VB.Label lblOMMType 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Material Type:"
         Height          =   195
         Left            =   8715
         TabIndex        =   32
         Top             =   3200
         Width           =   1005
      End
      Begin VB.Label lblOMDflag 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Delivery Flag:"
         Height          =   195
         Left            =   5880
         TabIndex        =   31
         Top             =   4080
         Width           =   960
      End
      Begin VB.Label lblOMQty 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Quantity:"
         Height          =   195
         Left            =   6210
         TabIndex        =   30
         Top             =   3640
         Width           =   630
      End
      Begin VB.Label lblOMDesc 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Description:"
         Height          =   195
         Left            =   6000
         TabIndex        =   29
         Top             =   2760
         Width           =   840
      End
      Begin VB.Label lblOMInvNo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Inventory No:"
         Height          =   195
         Left            =   5880
         TabIndex        =   28
         Top             =   3200
         Width           =   960
      End
      Begin VB.Label lblOTexture 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Option Texture:"
         Height          =   195
         Left            =   3540
         TabIndex        =   26
         Top             =   1080
         Width           =   1095
      End
      Begin VB.Label lblOptFAdjYdge 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Foam Adj. Yardage:"
         Height          =   195
         Left            =   8790
         TabIndex        =   20
         Top             =   1080
         Width           =   1395
      End
      Begin VB.Label lblOptFin2 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Finish 2 Yardage:"
         Height          =   195
         Left            =   8955
         TabIndex        =   19
         Top             =   660
         Width           =   1230
      End
      Begin VB.Label lblOptYdge 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Yardage:"
         Height          =   195
         Left            =   7080
         TabIndex        =   18
         Top             =   660
         Width           =   645
      End
   End
   Begin VB.TextBox txtPNotes 
      Height          =   1275
      Left            =   2220
      TabIndex        =   14
      Top             =   1980
      Width           =   4875
   End
   Begin VB.TextBox txtFin2 
      Height          =   315
      Left            =   8340
      TabIndex        =   13
      Top             =   840
      Width           =   855
   End
   Begin VB.ComboBox cboTexture 
      Height          =   315
      Left            =   4500
      TabIndex        =   12
      Text            =   "cboTexture"
      Top             =   1440
      Width           =   1935
   End
   Begin VB.TextBox txt12Foam 
      Height          =   315
      Left            =   8340
      TabIndex        =   11
      Top             =   240
      Width           =   855
   End
   Begin VB.TextBox txtCMUYdge 
      Height          =   315
      Left            =   5520
      TabIndex        =   10
      Top             =   840
      Width           =   855
   End
   Begin VB.TextBox txtMatYdge 
      Height          =   315
      Left            =   5520
      TabIndex        =   9
      Top             =   240
      Width           =   855
   End
   Begin VB.ListBox lstMod_Elv 
      Height          =   2205
      Left            =   600
      Sorted          =   -1  'True
      TabIndex        =   3
      Top             =   1080
      Width           =   1395
   End
   Begin VB.ComboBox cboProject 
      Height          =   315
      Left            =   660
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   240
      Width           =   3015
   End
   Begin VB.Label lblPLAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Labor Adj. Yardage:"
      Height          =   195
      Left            =   9285
      TabIndex        =   61
      Top             =   900
      Width           =   1410
   End
   Begin VB.Label lblPFAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Foam Adj. Yardage:"
      Height          =   195
      Left            =   9300
      TabIndex        =   60
      Top             =   300
      Width           =   1395
   End
   Begin VB.Label lblPNotes 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Notes:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   2340
      TabIndex        =   15
      Top             =   1680
      Width           =   690
   End
   Begin VB.Label lblFin2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Finish 2 Yardage:"
      Height          =   195
      Left            =   7035
      TabIndex        =   8
      Top             =   900
      Width           =   1230
   End
   Begin VB.Label lbl12Foam 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "1/2 Foam Percentage:"
      Height          =   195
      Left            =   6660
      TabIndex        =   7
      Top             =   300
      Width           =   1605
   End
   Begin VB.Label lblTexture 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Texture:"
      Height          =   195
      Left            =   3720
      TabIndex        =   6
      Top             =   1500
      Width           =   585
   End
   Begin VB.Label lblCMUYdge 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CMU Yardage:"
      Height          =   195
      Left            =   4380
      TabIndex        =   5
      Top             =   900
      Width           =   1050
   End
   Begin VB.Label lblMatYdge 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Material Yardage:"
      Height          =   195
      Left            =   4185
      TabIndex        =   4
      Top             =   300
      Width           =   1245
   End
   Begin VB.Label lblModel_Elv 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Model/Elevation:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   240
      TabIndex        =   2
      Top             =   780
      Width           =   1770
   End
   Begin VB.Label lblProj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Project:"
      Height          =   195
      Left            =   60
      TabIndex        =   1
      Top             =   300
      Width           =   540
   End
End
Attribute VB_Name = "frmPlans"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim moRS As Recordset
Dim moRSMat As Recordset
Dim moRSMeas As Recordset
Dim moRSOpt As Recordset
Dim moRSOptMat As Recordset

Dim mboolShow As Boolean
Dim mboolAdding As Boolean
Dim mstrType As String
'Dim xaFinish As New XArrayDB

Const conCOL_NAME As Integer = 0
Const conCOL_WAIT As Integer = 1
Const conCOL_TYPE As Integer = 2
Const conCOL_ID As Integer = 3
Const conGable As Long = 4

Private Sub cboOMMetal_Change()
   If cboOMMetal.Text = "None" Then
      txtOMLength.Text = 0
   End If
   
End Sub

Private Sub cboOMMetal_Click()
   If cboOMMetal.Text = "None" Then
      txtOMLength.Text = 0
   End If
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   Set moRS = New Recordset
   Set moRSMat = New Recordset
   Set moRSOpt = New Recordset
   Set moRSOptMat = New Recordset
   
   Call ProjLoad
   Call TextureLoad
   Call ListLoad
'   Call StuccoLoad
'   Call MeasLoad
  Call MatLoad
'   Call MeLocateLoad
   Call OptLoad
   Call OptMatLoad
   
End Sub
Private Sub cboProject_Change()
   Call ListLoad
End Sub

Private Sub cboProject_Click()
   Call ListLoad
End Sub
Private Sub ProjLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   
   strSQL = "SELECT Proj_id, Proj_desc FROM tblProject "

   Set oRS = New Recordset
   oRS.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   Do Until oRS.EOF
      cboProject.AddItem oRS("Proj_desc")
      cboProject.ItemData(cboProject.NewIndex) = oRS("Proj_id")
      
      oRS.MoveNext
   Loop
   oRS.Close
   cboProject.ListIndex = 40
End Sub
Private Sub TextureLoad()
   Dim oRSFinish As Recordset
   Dim strSQL As String, intRows As Integer
   Dim row, col As Long
   
   strSQL = "SELECT AUTOID, Desc FROM tblFinish"

   Set oRSFinish = New Recordset
   oRSFinish.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   oRSFinish.MoveLast
   oRSFinish.MoveFirst
   intRows = oRSFinish.RecordCount
   Do Until oRSFinish.EOF
      cboTexture.AddItem oRSFinish("Desc")
      cboTexture.ItemData(cboTexture.NewIndex) = Field2Long(oRSFinish("AUTOID"))
      cboOTexture.AddItem oRSFinish("Desc")
      cboOTexture.ItemData(cboOTexture.NewIndex) = Field2Long(oRSFinish("AUTOID"))
      oRSFinish.MoveNext
   Loop
   oRSFinish.Close
End Sub
Private Sub ListLoad()
   Dim oRS As Recordset
   Dim strSQL As String, strProj As String
   
   gintPROJID = cboProject.ItemData(cboProject.ListIndex)

   strSQL = "SELECT EST_ID, Mod_Elv from tblPLANS WHERE Proj_ID = " & gintPROJID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstMod_Elv.Clear
   
   Do Until oRS.EOF
      With lstMod_Elv
         .AddItem Field2Str(oRS!mod_elv)
         .ItemData(.NewIndex) = oRS("est_id")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstMod_Elv.ListCount Then
      lstMod_Elv.ListIndex = 0
   End If
         
   
End Sub

Private Sub FormShow()
   mboolShow = True
   gintESTID = moRS!est_id
   
   With moRS
      txtMatYdge = Field2Str(!MAT_Yds)
      txt12Foam = Field2Str(!FOAM)
      txtFin2 = Field2Str(!FIN2)
      txtCMUYdge = Field2Str(!CMU)
      txtPNotes = Field2Str(!NOTES)
      txtPFAdj = Field2Str(!f_adj)
      txtPLAdj = Field2Str(!l_adj)

      If !Texture = "SK" Then
         cboTexture.Text = "SKIP TROWEL"
      ElseIf !Texture = "SA" Then
         cboTexture.Text = "Sand"
      ElseIf !Texture = "S2" Then
         cboTexture.Text = "Sand"
      ElseIf !Texture = "S3" Then
         cboTexture.Text = "Sand"
      ElseIf !Texture = "DA" Then
         cboTexture.Text = "Dash"
      ElseIf !Texture = "DF" Then
         cboTexture.Text = "Skip and Sand Finish"
      ElseIf !Texture = "SM" Then
         cboTexture.Text = "Smooth"
      ElseIf !Texture = "QU" Then
         cboTexture.Text = "Quernavaca"
      ElseIf !Texture = "MN" Then
         cboTexture.Text = "Monterrey"
      End If
      
      
   End With
   mboolShow = False
End Sub

Private Sub FormShowMat()
   mboolShow = True
   
   With moRSMat
      txtPMInvNo = Field2Str(!inv_no)
      txtPMDesc = Field2Str(!Desc)
      txtPMQty = Field2Str(!qty)
      txtPMPrice = Format$(Field2Str(!price), "##,###.00")
      txtPMLength = Field2Str(!calc_amt)
      If !D_Flag = "S" Then
         cboPMDFlag.Text = "Supplier"
      Else
         cboPMDFlag.Text = "Yard"
      End If
      
      If !M_Type = "L" Then
         cboPMType.Text = "Lath"
      ElseIf !M_Type = "B" Then
         cboPMType.Text = "Brown"
      ElseIf !M_Type = "S" Then
         cboPMType.Text = "Scratch"
      ElseIf !M_Type = "T" Then
         cboPMType.Text = "Texture"
      ElseIf !M_Type = "C" Then
         cboPMType.Text = "CMU"
      End If
      
      If !Calc_Flag = "M" Then
         cboPMMetal.Text = "Metal"
      Else
         cboPMMetal.Text = "None"
      End If
      
      
   End With
   mboolShow = False
End Sub
Private Sub FormShowOpt()
   mboolShow = True
   gintOPTID = moRSOpt!optid
   
   With moRSOpt
      txtOYdge = Field2Str(!yardage)
      txtODesc = Field2Str(!Desc)
      txtOFin2 = Field2Str(!FIN2)
      txtOFAdj = Field2Str(!f_adj)

      If !Texture = "SK" Then
         cboOTexture.Text = "SKIP TROWEL"
      ElseIf !Texture = "SA" Then
         cboOTexture.Text = "Sand"
      ElseIf !Texture = "S2" Then
         cboOTexture.Text = "Sand"
      ElseIf !Texture = "S3" Then
         cboOTexture.Text = "Sand"
      ElseIf !Texture = "DA" Then
         cboOTexture.Text = "Dash"
      ElseIf !Texture = "DF" Then
         cboOTexture.Text = "Skip and Sand Finish"
      ElseIf !Texture = "SM" Then
         cboOTexture.Text = "Smooth"
      ElseIf !Texture = "QU" Then
         cboOTexture.Text = "Quernavaca"
      ElseIf !Texture = "MN" Then
         cboOTexture.Text = "Monterrey"
      Else
         cboOTexture.Text = ""
      End If
     
      
   End With
   mboolShow = False
End Sub
Private Sub FormShowOptMat()
   mboolShow = True
   
   With moRSOptMat
      txtOMInvNo = Field2Str(!inv_no)
      txtOMDesc = Field2Str(!Desc)
      txtOMQty = Field2Str(!qty)
      txtOMLength = Field2Str(!calc_amt)
      
      If !D_Flag = "S" Then
         cboOMDflag.Text = "Supplier"
      Else
         cboOMDflag.Text = "Yard"
      End If

      If !M_Type = "L" Then
         cboOMType.Text = "Lath"
      ElseIf !M_Type = "B" Then
         cboOMType.Text = "Brown"
      ElseIf !M_Type = "S" Then
         cboOMType.Text = "Scratch"
      ElseIf !M_Type = "T" Then
         cboOMType.Text = "Texture"
      ElseIf !M_Type = "C" Then
         cboOMType.Text = "CMU"
      End If
      
      If !Calc_Flag = "M" Then
         cboOMMetal.Text = "Metal"
      Else
         cboOMMetal.Text = "None"
      End If
      
      
   End With
   mboolShow = False
End Sub


Private Sub FormSave()
   Dim strName As String

   On Error GoTo Error_EH
   
   If mboolAdding Then
      moRS.AddNew
   End If
   
   ' Store the controls to the recordset
   Call FieldsSave
   
   moRS.Update
   
   If mboolAdding Then
      mboolAdding = False
'      strName = Trim$(txtLast) & ", " & Trim$(txtFirst)
      ' Reload list box
'      Call ListLoad
      
'      lstNames.Text = strName
'   Else
      ' Update List Box
'      With lstNames
'         .List(.ListIndex) = txtLast & ", " & _
'                             txtFirst
'      End With
   End If
   
   Call ToggleButtons
   
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRS.ActiveConnection)
   Exit Sub
End Sub
Private Sub ToggleButtons()
   If cmdClose.Caption = "&Close" Then
      cmdClose.Caption = "&Cancel"
   Else
      cmdClose.Caption = "&Close"
   End If
   cmdSave.Enabled = Not cmdSave.Enabled
   cmdNew.Enabled = Not cmdNew.Enabled
   cmdDelete.Enabled = Not cmdDelete.Enabled
   lstNames.Enabled = Not lstNames.Enabled
End Sub

Private Sub TextChanged()
   If Not mboolShow Then
      If Not cmdSave.Enabled Then
         Call ToggleButtons
      End If
   End If
End Sub
Private Function FormFind() As Boolean
   Dim strSQL As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPlans "
   strSQL = strSQL & "WHERE est_ID = " & _
                     lstMod_Elv.ItemData(lstMod_Elv.ListIndex)

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

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

Private Function FormFindOpt() As Boolean
   Dim strSQL As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPOption "
   strSQL = strSQL & "WHERE OPTID = " & lstOptions.ItemData(lstOptions.ListIndex)

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

   moRSOpt.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSOpt.EOF Then
      FormFindOpt = False
   Else
      FormFindOpt = True
   End If
End Function
Private Function FormFindOptMat() As Boolean
   Dim strSQL As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPOMatrl "
   strSQL = strSQL & "WHERE OPTID = " & gintOPTID & " and Inv_No = " & lstOptMatrl.ItemData(lstOptMatrl.ListIndex)

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

   moRSOptMat.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSOptMat.EOF Then
      FormFindOptMat = False
   Else
      FormFindOptMat = True
   End If
End Function
Private Function FormFindMat() As Boolean
   Dim strSQL As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPlanMat "
   strSQL = strSQL & "WHERE Est_Id = " & gintESTID & " AND INV_NO = " & lstPMaterial.ItemData(lstPMaterial.ListIndex)
                     
   If moRSMat.State = adStateOpen Then
      moRSMat.Close
   End If

   moRSMat.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSMat.EOF Then
      FormFindMat = False
   Else
      FormFindMat = True
   End If
End Function


Private Sub lstMod_Elv_Click()
   If lstMod_Elv.ListIndex <> -1 Then
      If FormFind() Then
         Call FormShow
         Call MatLoad
         Call OptLoad
         Call OptMatLoad

      End If
   End If
End Sub
Private Sub FieldsSave()
   With moRS
'      !TTL_Yds = Str2Field(txtTTL_Yds)
'      !LATH_YDS = Str2Field(txtLathYds)
'      !OPENING = Str2Field(txtOpenings)
'      !OPENPR = Str2Field(txtPrcntge)
'      !CMUYDS = Str2Field(txtCMUYds)
'      !NOTES = Str2Field(txtNotes)
'      !f_adj = Str2Field(txtFoamAdj)
'      !l_adj = Str2Field(txtLaborAdj)
'      !FIN2 = Str2Field(txtFin2)
'      !SAND_TONS = Str2Field(txtSandTons)
'      !SAND = Str2Field(txtSandPrice)
'      !METAL = Str2Field(txtMetalFt)
'      !PL = Str2Field(txtStucLab)
'      !LL = Str2Field(txtLathLab)
'      !MLAB = Str2Field(txtMetLab)
'      !MISC = Str2Field(txtMisc)
'      !MATMUP = Str2Field(txtMatMU)
'      !BIDP = Str2Field(txtBidPrwCMU)
'                  = Str2Field(txtBidPrice)
'      !BIDC = Str2Field(txtTtlCost)
'      !OH = Str2Field(txtTtlMU)
'      !OHPR = Str2Field(txtOH)
'                  = Str2Field(txtPrSQYD)
'                  = Str2Field(txtSandAmt)
'      !SL_TG = Str2Field(txtScafGas)
'      !TP = Str2Field(txtTape)
'      !MATCOST = Str2Field(txtTtlMat)
'      !BRDN = Str2Field(txtLabBur)
'      !SR = Str2Field(txtSLRate)
'      !LR = Str2Field(txtLLRate)
'      !MR = Str2Field(txtMLRate)
'      !SCR = Str2Field(txtSGRate)
'      !TP = Str2Field(txtTPRate)
'      !MU = Str2Field(txtMURate)
'      !OHP = Str2Field(txtOHRate)
'      !CR = Str2Field(txtCMURate)
'      !CMULAB = Str2Field(txtCMUPrice)
'      !TPE = Str2Field(txtTape)
'                  = Str2Field(txtSandPr)
'                  = Str2Field(txtSkipPr)
'                  = Str2Field(txtDashPr)
'                  = Str2Field(txtSmoothPr)
'                  = Str2Field(txtMonterreyPr)
'                  = Str2Field(txtQuernavacaPr)
'                  = Str2Field(txtDFPr)
   
   
   End With
End Sub
Private Sub cmdNew_Click()

   mboolAdding = True
   Call FormClear
   
End Sub

Private Sub cmdSave_Click()
   Call FormSave
End Sub

Private Sub Form_Activate()
   Dim intResponse As Integer
   
   If lstMod_Elv.ListCount = 0 Then
      intResponse = MsgBox("No Plan/Elevation, do you wish to add one?", vbYesNo + vbQuestion, "Add Records")
      If intResponse = vbYes Then
         Call cmdNew_Click
      Else
         Unload Me
      End If
   End If
End Sub

Private Sub FormClear()
   txtMatYdge = ""
   txt12Foam = ""
   cboTexture.ListIndex = -1
   txtCMUYdge = ""
   txtPNotes = ""
   txtPFAdj = ""
   txtPLAdj = ""
   txtFin2 = ""

   
End Sub

Private Sub MatLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT Est_ID, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblPlanMat WHERE est_id = " & gintESTID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstPMaterial.Clear
   
   Do Until oRS.EOF
      With lstPMaterial

         strLine = oRS("D_Flag") & "   " & oRS("M_Type") & "   " & oRS("Calc_Flag") & vbTab & oRS("Qty") & vbTab & oRS("Inv_No") & vbTab & oRS("desc")
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstPMaterial.ListCount Then
      lstPMaterial.ListIndex = 0
   Else
      txtPMInvNo = ""
      txtPMDesc = ""
      txtPMQty = ""
      txtPMPrice = ""
      txtPMLength = ""
      cboPMDFlag.ListIndex = -1
      cboPMType.ListIndex = -1
      cboPMMetal.ListIndex = -1
   End If
         
   
End Sub
Private Sub OptMatLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT OPTID, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblPOMatrl WHERE optid = " & gintOPTID    'cboProject.ListIndex"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstOptMatrl.Clear
   
   Do Until oRS.EOF
      With lstOptMatrl

         strLine = oRS("D_Flag") & "   " & oRS("M_Type") & "   " & oRS("Calc_Flag") & vbTab & oRS("Qty") & vbTab & oRS("Inv_No") & vbTab & oRS("desc")
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstOptMatrl.ListCount Then
      lstOptMatrl.ListIndex = 0
   Else
      txtOMInvNo = ""
      txtOMDesc = ""
      txtOMQty = ""
      txtOMLength = ""
      cboOMDflag.ListIndex = -1
      cboOMType.ListIndex = -1
      cboOMMetal.ListIndex = -1
   End If
         
   
End Sub
Private Sub OptLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
'   strSQL = "SELECT * from tblPOption WHERE ESTID = " & gintESTID
   strSQL = "SELECT Est_ID, OPTID, Opt_No, Desc, Yardage from tblPOption WHERE EST_ID = " & gintESTID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstOptions.Clear
   
   Do Until oRS.EOF
      With lstOptions

         strLine = oRS("Opt_no") & "   " & oRS("Yardage") & vbTab & oRS("desc")
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("OPTID")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstOptions.ListCount Then
      lstOptions.ListIndex = 0
   Else
      txtOYdge = ""
      txtODesc = ""
      txtOFin2 = ""
      txtOFAdj = ""
      lstOptMatrl.Clear
      txtOMInvNo = ""
      txtOMDesc = ""
      txtOMQty = ""
      txtOMLength = ""
      cboOMDflag.ListIndex = -1
      cboOMType.ListIndex = -1
      cboOMMetal.ListIndex = -1
      gintOPTID = 0
   End If
         
   
End Sub


Private Sub lstOptions_Click()
   If lstOptions.ListIndex <> -1 Then
      If FormFindOpt() Then
         Call FormShowOpt
         Call OptMatLoad
         If lstOptMatrl.ListIndex <> -1 Then
            If FormFindOptMat() Then
               Call FormShowOptMat
            Else
               lstOptMatrl.Clear
               txtOMInvNo = ""
               txtOMDesc = ""
               txtOMQty = ""
               txtOMLength = ""
               cboOMDflag.Text = ""
               cboOMType.Text = ""
               cboOMMetal.Text = ""
            End If
         End If
      Else
         lstOptions.Clear
         txtOYdge = ""
         txtODesc = ""
         txtOFin2 = ""
         txtOFAdj = ""
         
      End If
   End If


End Sub

Private Sub lstOptMatrl_Click()
   If lstOptMatrl.ListIndex <> -1 Then
      If FormFindOptMat() Then
         Call FormShowOptMat
      Else
         lstOptMatrl.Clear
         txtOMInvNo = ""
         txtOMDesc = ""
         txtOMQty = ""
         txtOMLength = ""
         cboOMDflag.Text = ""
         cboOMType.Text = ""
         cboOMMetal.Text = ""
      End If
   End If


End Sub

Private Sub lstPMaterial_Click()
   If lstPMaterial.ListIndex <> -1 Then
      If FormFindMat() Then
         Call FormShowMat
      Else
         lstPMaterial.Clear
         txtPMInvNo = ""
         txtPMDesc = ""
         txtPMQty = ""
         txtPMPrice = ""
         txtPMLength = ""
         cboPMDFlag.Text = ""
         cboPMType.Text = ""
         cboPMMetal.Text = ""
      End If
   End If

End Sub