VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmLotInfo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Lot Information"
   ClientHeight    =   8625
   ClientLeft      =   45
   ClientTop       =   225
   ClientWidth     =   11910
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11910
   Begin VB.TextBox txtOneKote 
      Enabled         =   0   'False
      Height          =   315
      Left            =   9240
      TabIndex        =   130
      Top             =   420
      Width           =   2475
   End
   Begin VB.TextBox txtFinish 
      Enabled         =   0   'False
      Height          =   315
      Left            =   9240
      TabIndex        =   128
      Top             =   60
      Width           =   2475
   End
   Begin VB.TextBox txtNotes 
      Height          =   1275
      Left            =   3660
      MultiLine       =   -1  'True
      TabIndex        =   77
      Top             =   1200
      Width           =   4875
   End
   Begin VB.TextBox txtLaborAdj 
      Height          =   315
      Left            =   7920
      TabIndex        =   76
      Top             =   420
      Width           =   600
   End
   Begin VB.TextBox txtFin2 
      Height          =   315
      Left            =   5760
      TabIndex        =   75
      Top             =   420
      Width           =   600
   End
   Begin VB.TextBox txtLODate 
      Height          =   315
      Left            =   7200
      TabIndex        =   74
      Top             =   780
      Width           =   1335
   End
   Begin VB.TextBox txtFoamAdj 
      Height          =   315
      Left            =   7920
      TabIndex        =   73
      Top             =   60
      Width           =   600
   End
   Begin VB.TextBox txtTtlYdge 
      Height          =   315
      Left            =   1440
      TabIndex        =   72
      Top             =   1860
      Width           =   795
   End
   Begin VB.TextBox txtCMUYdge 
      Height          =   315
      Left            =   1440
      TabIndex        =   71
      Top             =   2220
      Width           =   795
   End
   Begin VB.TextBox txt28Foam 
      Height          =   315
      Left            =   5760
      TabIndex        =   70
      Top             =   60
      Width           =   600
   End
   Begin VB.TextBox txtProject 
      Enabled         =   0   'False
      Height          =   315
      Left            =   1440
      TabIndex        =   69
      Top             =   60
      Width           =   2895
   End
   Begin VB.TextBox txtLotNo 
      Height          =   315
      Left            =   1440
      TabIndex        =   68
      Top             =   1500
      Width           =   1095
   End
   Begin VB.TextBox txtModel 
      Height          =   315
      Left            =   1440
      TabIndex        =   6
      Top             =   1140
      Width           =   1095
   End
   Begin VB.TextBox txtOwner 
      Height          =   315
      Left            =   1440
      TabIndex        =   5
      Top             =   780
      Width           =   2895
   End
   Begin VB.TextBox txtAddress 
      Height          =   315
      Left            =   1440
      TabIndex        =   3
      Top             =   420
      Width           =   2895
   End
   Begin TabDlg.SSTab SSTLotInfo 
      Height          =   5655
      Left            =   120
      TabIndex        =   8
      Top             =   2760
      Width           =   11595
      _ExtentX        =   20452
      _ExtentY        =   9975
      _Version        =   393216
      Tabs            =   7
      Tab             =   3
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "General Information"
      TabPicture(0)   =   "frmLotInfo.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "cmdSaveLotInfo"
      Tab(0).Control(1)=   "cmdOrders"
      Tab(0).Control(2)=   "cmdExit"
      Tab(0).Control(3)=   "cmdCalc"
      Tab(0).ControlCount=   4
      TabCaption(1)   =   "Super's Orders"
      TabPicture(1)   =   "frmLotInfo.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "lblTake138"
      Tab(1).Control(1)=   "lblSuperBB"
      Tab(1).Control(2)=   "linSO"
      Tab(1).Control(3)=   "lblSuper12"
      Tab(1).Control(4)=   "lblSuper783"
      Tab(1).Control(5)=   "lblSuper78"
      Tab(1).Control(6)=   "lblSuper38"
      Tab(1).Control(7)=   "lblSuper138"
      Tab(1).Control(8)=   "lblSuperML"
      Tab(1).Control(9)=   "lblSuperRL"
      Tab(1).Control(10)=   "lblSuperDW"
      Tab(1).Control(11)=   "lblSuperSP"
      Tab(1).Control(12)=   "lblSupHelp"
      Tab(1).Control(13)=   "lblPreOrder"
      Tab(1).Control(14)=   "txtTake138"
      Tab(1).Control(15)=   "txtSuperBB"
      Tab(1).Control(16)=   "txtSuper12"
      Tab(1).Control(17)=   "txtSuper783"
      Tab(1).Control(18)=   "txtSuper78"
      Tab(1).Control(19)=   "txtSuper38"
      Tab(1).Control(20)=   "txtSuper1383"
      Tab(1).Control(21)=   "txtSuperRL"
      Tab(1).Control(22)=   "txtSuperML"
      Tab(1).Control(23)=   "txtSuperDW"
      Tab(1).Control(24)=   "txtSuperSP"
      Tab(1).Control(25)=   "lstPreOrder"
      Tab(1).ControlCount=   26
      TabCaption(2)   =   "Materials"
      TabPicture(2)   =   "frmLotInfo.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "lblLMDesc"
      Tab(2).Control(1)=   "lblLMInvNo"
      Tab(2).Control(2)=   "lblQty"
      Tab(2).Control(3)=   "lblLMDFlag"
      Tab(2).Control(4)=   "lblLMType"
      Tab(2).Control(5)=   "lblLMetal"
      Tab(2).Control(6)=   "lblLMLength"
      Tab(2).Control(7)=   "lblOrderBalance"
      Tab(2).Control(8)=   "cmdAddMatrl"
      Tab(2).Control(9)=   "cmdSaveMatrl"
      Tab(2).Control(10)=   "cmdDelMatrl"
      Tab(2).Control(11)=   "lstLMaterial"
      Tab(2).Control(12)=   "txtLMDesc"
      Tab(2).Control(13)=   "txtLMInvNo"
      Tab(2).Control(14)=   "txtLMQty"
      Tab(2).Control(15)=   "txtLMLength"
      Tab(2).Control(16)=   "cboLMDFlag"
      Tab(2).Control(17)=   "cboLMType"
      Tab(2).Control(18)=   "cboLMMetal"
      Tab(2).Control(19)=   "txtLMBalance"
      Tab(2).ControlCount=   20
      TabCaption(3)   =   "Options"
      TabPicture(3)   =   "frmLotInfo.frx":0054
      Tab(3).ControlEnabled=   -1  'True
      Tab(3).Control(0)=   "lblPOptions"
      Tab(3).Control(0).Enabled=   0   'False
      Tab(3).Control(1)=   "lblLOptions"
      Tab(3).Control(1).Enabled=   0   'False
      Tab(3).Control(2)=   "lblLODesc"
      Tab(3).Control(2).Enabled=   0   'False
      Tab(3).Control(3)=   "lblLOYdge"
      Tab(3).Control(3).Enabled=   0   'False
      Tab(3).Control(4)=   "lblLOFin2"
      Tab(3).Control(4).Enabled=   0   'False
      Tab(3).Control(5)=   "lblLOFAdj"
      Tab(3).Control(5).Enabled=   0   'False
      Tab(3).Control(6)=   "lblLOTexture"
      Tab(3).Control(6).Enabled=   0   'False
      Tab(3).Control(7)=   "lblLOMDesc"
      Tab(3).Control(7).Enabled=   0   'False
      Tab(3).Control(8)=   "lblLOMInvNo"
      Tab(3).Control(8).Enabled=   0   'False
      Tab(3).Control(9)=   "lblLOMQty"
      Tab(3).Control(9).Enabled=   0   'False
      Tab(3).Control(10)=   "lblLOMDFlag"
      Tab(3).Control(10).Enabled=   0   'False
      Tab(3).Control(11)=   "lblLOMType"
      Tab(3).Control(11).Enabled=   0   'False
      Tab(3).Control(12)=   "lblLOMetal"
      Tab(3).Control(12).Enabled=   0   'False
      Tab(3).Control(13)=   "lblLOMLength"
      Tab(3).Control(13).Enabled=   0   'False
      Tab(3).Control(14)=   "lstPOptions"
      Tab(3).Control(14).Enabled=   0   'False
      Tab(3).Control(15)=   "lstOptMatrl"
      Tab(3).Control(15).Enabled=   0   'False
      Tab(3).Control(16)=   "cmdOptAdd"
      Tab(3).Control(16).Enabled=   0   'False
      Tab(3).Control(17)=   "cmdOptDel"
      Tab(3).Control(17).Enabled=   0   'False
      Tab(3).Control(18)=   "lstLOptions"
      Tab(3).Control(18).Enabled=   0   'False
      Tab(3).Control(19)=   "txtLODesc"
      Tab(3).Control(19).Enabled=   0   'False
      Tab(3).Control(20)=   "txtLOYdge"
      Tab(3).Control(20).Enabled=   0   'False
      Tab(3).Control(21)=   "txtLOFin2"
      Tab(3).Control(21).Enabled=   0   'False
      Tab(3).Control(22)=   "txtLOFoam"
      Tab(3).Control(22).Enabled=   0   'False
      Tab(3).Control(23)=   "txtLOTexture"
      Tab(3).Control(23).Enabled=   0   'False
      Tab(3).Control(24)=   "txtLOMDesc"
      Tab(3).Control(24).Enabled=   0   'False
      Tab(3).Control(25)=   "txtLOMInvNo"
      Tab(3).Control(25).Enabled=   0   'False
      Tab(3).Control(26)=   "txtLOMQty"
      Tab(3).Control(26).Enabled=   0   'False
      Tab(3).Control(27)=   "txtLOMLength"
      Tab(3).Control(27).Enabled=   0   'False
      Tab(3).Control(28)=   "cboLOMDFlag"
      Tab(3).Control(28).Enabled=   0   'False
      Tab(3).Control(29)=   "cboLOMType"
      Tab(3).Control(29).Enabled=   0   'False
      Tab(3).Control(30)=   "cboLOMetal"
      Tab(3).Control(30).Enabled=   0   'False
      Tab(3).ControlCount=   31
      TabCaption(4)   =   "Lath Orders"
      TabPicture(4)   =   "frmLotInfo.frx":0070
      Tab(4).ControlEnabled=   0   'False
      Tab(4).Control(0)=   "lstLath"
      Tab(4).Control(1)=   "lstYard"
      Tab(4).Control(2)=   "lblLathOrd"
      Tab(4).Control(3)=   "lblYardOrd"
      Tab(4).ControlCount=   4
      TabCaption(5)   =   "Stucco Orders"
      TabPicture(5)   =   "frmLotInfo.frx":008C
      Tab(5).ControlEnabled=   0   'False
      Tab(5).Control(0)=   "lblScrOrd"
      Tab(5).Control(1)=   "lblBrnOrd"
      Tab(5).Control(2)=   "lblTexOrd"
      Tab(5).Control(3)=   "lstScratch"
      Tab(5).Control(4)=   "lstBrown"
      Tab(5).Control(5)=   "lstTexture"
      Tab(5).ControlCount=   6
      TabCaption(6)   =   "Purchase Orders"
      TabPicture(6)   =   "frmLotInfo.frx":00A8
      Tab(6).ControlEnabled=   0   'False
      Tab(6).Control(0)=   "cmsDelPO"
      Tab(6).Control(1)=   "cmdPOEdit"
      Tab(6).Control(2)=   "cmdPONew"
      Tab(6).Control(3)=   "txtIssueTo"
      Tab(6).Control(4)=   "txtPONum"
      Tab(6).Control(5)=   "txtPONotes"
      Tab(6).Control(6)=   "lstPOMaterials"
      Tab(6).Control(7)=   "lstPO"
      Tab(6).Control(8)=   "lblPO"
      Tab(6).Control(9)=   "lblPONotes"
      Tab(6).Control(10)=   "lblPOMaterials"
      Tab(6).Control(11)=   "lblIssueTo"
      Tab(6).Control(12)=   "lblPONum"
      Tab(6).ControlCount=   13
      Begin VB.CommandButton cmdSaveLotInfo 
         Caption         =   "Save Lot 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          =   615
         Left            =   -73080
         TabIndex        =   133
         Top             =   1920
         Width           =   1335
      End
      Begin VB.CommandButton cmdOrders 
         Caption         =   "Setup Orders"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   -73080
         TabIndex        =   132
         Top             =   1080
         Width           =   1335
      End
      Begin VB.CommandButton cmdExit 
         Caption         =   "Exit"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   -74520
         TabIndex        =   127
         Top             =   1920
         Width           =   1335
      End
      Begin VB.CommandButton cmdCalc 
         Caption         =   "Calculate Materials"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   -74520
         TabIndex        =   126
         Top             =   1080
         Width           =   1335
      End
      Begin VB.ComboBox cboLOMetal 
         Height          =   315
         Left            =   6900
         TabIndex        =   125
         Text            =   "cboLOMetal"
         Top             =   4815
         Width           =   1155
      End
      Begin VB.ComboBox cboLOMType 
         Height          =   315
         Left            =   6900
         TabIndex        =   124
         Text            =   "cboLOMType"
         Top             =   4485
         Width           =   1155
      End
      Begin VB.ComboBox cboLOMDFlag 
         Height          =   315
         Left            =   6900
         TabIndex        =   123
         Text            =   "cboLOMDFlag"
         Top             =   4140
         Width           =   1155
      End
      Begin VB.TextBox txtLOMLength 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   6900
         TabIndex        =   122
         Top             =   5160
         Width           =   915
      End
      Begin VB.TextBox txtLOMQty 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   6900
         TabIndex        =   121
         Top             =   3800
         Width           =   915
      End
      Begin VB.TextBox txtLOMInvNo 
         Height          =   315
         Left            =   6900
         TabIndex        =   120
         Top             =   3460
         Width           =   915
      End
      Begin VB.TextBox txtLOMDesc 
         Height          =   315
         Left            =   6900
         TabIndex        =   119
         Top             =   3120
         Width           =   4155
      End
      Begin VB.TextBox txtLOTexture 
         Height          =   315
         Left            =   7800
         TabIndex        =   111
         Top             =   2700
         Width           =   1755
      End
      Begin VB.TextBox txtLOFoam 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   7800
         TabIndex        =   110
         Top             =   2280
         Width           =   915
      End
      Begin VB.TextBox txtLOFin2 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   7800
         TabIndex        =   109
         Top             =   1860
         Width           =   915
      End
      Begin VB.TextBox txtLOYdge 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   7800
         TabIndex        =   108
         Top             =   1440
         Width           =   915
      End
      Begin VB.TextBox txtLODesc 
         Height          =   315
         Left            =   7800
         TabIndex        =   107
         Top             =   1020
         Width           =   2835
      End
      Begin VB.ListBox lstLOptions 
         Height          =   2010
         Left            =   3360
         TabIndex        =   100
         Top             =   1020
         Width           =   3095
      End
      Begin VB.TextBox txtLMBalance 
         Enabled         =   0   'False
         Height          =   315
         Left            =   -68100
         TabIndex        =   98
         Top             =   3600
         Width           =   915
      End
      Begin VB.ComboBox cboLMMetal 
         Height          =   315
         ItemData        =   "frmLotInfo.frx":00C4
         Left            =   -68100
         List            =   "frmLotInfo.frx":00CE
         TabIndex        =   97
         Top             =   2790
         Width           =   1215
      End
      Begin VB.ComboBox cboLMType 
         Height          =   315
         ItemData        =   "frmLotInfo.frx":00DF
         Left            =   -68100
         List            =   "frmLotInfo.frx":00F5
         TabIndex        =   96
         Top             =   2388
         Width           =   1215
      End
      Begin VB.ComboBox cboLMDFlag 
         Height          =   315
         ItemData        =   "frmLotInfo.frx":0127
         Left            =   -68100
         List            =   "frmLotInfo.frx":0131
         TabIndex        =   95
         Top             =   1986
         Width           =   1215
      End
      Begin VB.TextBox txtLMLength 
         Height          =   315
         Left            =   -68100
         TabIndex        =   93
         Top             =   3192
         Width           =   915
      End
      Begin VB.TextBox txtLMQty 
         Height          =   315
         Left            =   -68100
         TabIndex        =   92
         Top             =   1584
         Width           =   915
      End
      Begin VB.TextBox txtLMInvNo 
         Height          =   315
         Left            =   -68100
         TabIndex        =   91
         Top             =   1182
         Width           =   915
      End
      Begin VB.TextBox txtLMDesc 
         Height          =   315
         Left            =   -68100
         TabIndex        =   90
         Top             =   780
         Width           =   4275
      End
      Begin VB.ListBox lstLMaterial 
         Height          =   4740
         Left            =   -74820
         TabIndex        =   82
         Top             =   780
         Width           =   5535
      End
      Begin VB.ListBox lstPreOrder 
         Height          =   3180
         Left            =   -69240
         TabIndex        =   81
         Top             =   2160
         Width           =   5445
      End
      Begin VB.CommandButton cmdDelMatrl 
         Caption         =   "Delete Materials"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   -65040
         TabIndex        =   60
         Top             =   5040
         Width           =   1335
      End
      Begin VB.CommandButton cmdSaveMatrl 
         Caption         =   "Save Materials"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   -67080
         TabIndex        =   59
         Top             =   5040
         Width           =   1335
      End
      Begin VB.CommandButton cmdAddMatrl 
         Caption         =   "Add Materials"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   -69120
         TabIndex        =   58
         Top             =   5040
         Width           =   1335
      End
      Begin VB.CommandButton cmdOptDel 
         Caption         =   "Delete Option"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   4320
         TabIndex        =   57
         Top             =   4920
         Width           =   1392
      End
      Begin VB.CommandButton cmdOptAdd 
         Caption         =   "Add Option"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   240
         TabIndex        =   56
         Top             =   4920
         Width           =   1395
      End
      Begin VB.CommandButton cmsDelPO 
         Caption         =   "Delete PO"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   -68280
         TabIndex        =   49
         Top             =   1260
         Width           =   2175
      End
      Begin VB.CommandButton cmdPOEdit 
         Caption         =   "Edit PO"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   -67140
         TabIndex        =   48
         Top             =   720
         Width           =   1035
      End
      Begin VB.CommandButton cmdPONew 
         Caption         =   "New PO"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   -68280
         TabIndex        =   47
         Top             =   720
         Width           =   1035
      End
      Begin VB.TextBox txtIssueTo 
         Height          =   315
         Left            =   -70680
         TabIndex        =   46
         Top             =   2040
         Width           =   3735
      End
      Begin VB.TextBox txtPONum 
         Height          =   315
         Left            =   -70680
         TabIndex        =   45
         Top             =   1560
         Width           =   1335
      End
      Begin VB.TextBox txtPONotes 
         Height          =   1215
         Left            =   -71760
         TabIndex        =   42
         Top             =   2700
         Width           =   5595
      End
      Begin VB.ListBox lstPOMaterials 
         Height          =   1230
         Left            =   -71760
         TabIndex        =   41
         Top             =   4260
         Width           =   5535
      End
      Begin VB.ListBox lstPO 
         Height          =   4350
         Left            =   -74760
         TabIndex        =   38
         Top             =   1140
         Width           =   2800
      End
      Begin VB.ListBox lstTexture 
         Height          =   4350
         Left            =   -67320
         TabIndex        =   37
         Top             =   1140
         Width           =   3660
      End
      Begin VB.ListBox lstBrown 
         Height          =   4350
         Left            =   -71100
         TabIndex        =   36
         Top             =   1140
         Width           =   3660
      End
      Begin VB.ListBox lstScratch 
         Height          =   4350
         Left            =   -74880
         TabIndex        =   35
         Top             =   1140
         Width           =   3660
      End
      Begin VB.ListBox lstLath 
         Height          =   4155
         Left            =   -69180
         TabIndex        =   34
         Top             =   1140
         Width           =   5445
      End
      Begin VB.ListBox lstYard 
         Height          =   4155
         Left            =   -74820
         Sorted          =   -1  'True
         TabIndex        =   33
         Top             =   1140
         Width           =   5445
      End
      Begin VB.ListBox lstOptMatrl 
         Height          =   1815
         ItemData        =   "frmLotInfo.frx":0145
         Left            =   240
         List            =   "frmLotInfo.frx":014C
         Sorted          =   -1  'True
         TabIndex        =   32
         Top             =   3060
         Width           =   5475
      End
      Begin VB.ListBox lstPOptions 
         Height          =   2010
         ItemData        =   "frmLotInfo.frx":015D
         Left            =   240
         List            =   "frmLotInfo.frx":0164
         TabIndex        =   31
         Top             =   1020
         Width           =   3095
      End
      Begin VB.TextBox txtSuperSP 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -70620
         TabIndex        =   30
         Top             =   4740
         Width           =   795
      End
      Begin VB.TextBox txtSuperDW 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -70620
         TabIndex        =   29
         Top             =   4140
         Width           =   795
      End
      Begin VB.TextBox txtSuperML 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -70620
         TabIndex        =   28
         Top             =   3540
         Width           =   795
      End
      Begin VB.TextBox txtSuperRL 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -70620
         TabIndex        =   27
         Top             =   2940
         Width           =   795
      End
      Begin VB.TextBox txtSuper1383 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -70620
         TabIndex        =   26
         Top             =   2340
         Width           =   795
      End
      Begin VB.TextBox txtSuper38 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -73080
         TabIndex        =   25
         Top             =   4740
         Width           =   795
      End
      Begin VB.TextBox txtSuper78 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -73080
         TabIndex        =   24
         Top             =   4140
         Width           =   795
      End
      Begin VB.TextBox txtSuper783 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -73080
         TabIndex        =   23
         Top             =   3540
         Width           =   795
      End
      Begin VB.TextBox txtSuper12 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -73080
         TabIndex        =   22
         Top             =   2940
         Width           =   795
      End
      Begin VB.TextBox txtSuperBB 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   -73080
         TabIndex        =   21
         Top             =   2340
         Width           =   795
      End
      Begin VB.TextBox txtTake138 
         Alignment       =   1  'Right Justify
         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          =   360
         Left            =   -73080
         TabIndex        =   10
         Top             =   1680
         Width           =   795
      End
      Begin VB.Label lblLOMLength 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Length:"
         Height          =   195
         Left            =   5880
         TabIndex        =   118
         Top             =   5220
         Width           =   975
      End
      Begin VB.Label lblLOMetal 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Flag:"
         Height          =   195
         Left            =   6075
         TabIndex        =   117
         Top             =   4870
         Width           =   780
      End
      Begin VB.Label lblLOMType 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Material Type:"
         Height          =   195
         Left            =   5850
         TabIndex        =   116
         Top             =   4520
         Width           =   1005
      End
      Begin VB.Label lblLOMDFlag 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Delivery Flag:"
         Height          =   195
         Left            =   5895
         TabIndex        =   115
         Top             =   4170
         Width           =   960
      End
      Begin VB.Label lblLOMQty 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Quanitity:"
         Height          =   195
         Left            =   6195
         TabIndex        =   114
         Top             =   3820
         Width           =   660
      End
      Begin VB.Label lblLOMInvNo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Inventory No:"
         Height          =   195
         Left            =   5895
         TabIndex        =   113
         Top             =   3470
         Width           =   960
      End
      Begin VB.Label lblLOMDesc 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Description:"
         Height          =   195
         Left            =   6015
         TabIndex        =   112
         Top             =   3120
         Width           =   840
      End
      Begin VB.Label lblLOTexture 
         Caption         =   "Option Texture:"
         Height          =   255
         Left            =   6585
         TabIndex        =   106
         Top             =   2760
         Width           =   1155
      End
      Begin VB.Label lblLOFAdj 
         AutoSize        =   -1  'True
         Caption         =   "Option Foam Adj:"
         Height          =   195
         Left            =   6525
         TabIndex        =   105
         Top             =   2340
         Width           =   1215
      End
      Begin VB.Label lblLOFin2 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Finish 2 Ydge:"
         Height          =   195
         Left            =   6735
         TabIndex        =   104
         Top             =   1920
         Width           =   1005
      End
      Begin VB.Label lblLOYdge 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Option Yardage:"
         Height          =   195
         Left            =   6585
         TabIndex        =   103
         Top             =   1500
         Width           =   1155
      End
      Begin VB.Label lblLODesc 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Description:"
         Height          =   195
         Left            =   6900
         TabIndex        =   102
         Top             =   1080
         Width           =   840
      End
      Begin VB.Label lblLOptions 
         AutoSize        =   -1  'True
         Caption         =   "Lot Options"
         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            =   3420
         TabIndex        =   101
         Top             =   720
         Width           =   990
      End
      Begin VB.Label lblPOptions 
         AutoSize        =   -1  'True
         Caption         =   "Plan Options"
         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            =   300
         TabIndex        =   99
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label lblOrderBalance 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Order Balance:"
         Height          =   195
         Left            =   -69210
         TabIndex        =   94
         Top             =   3660
         Width           =   1065
      End
      Begin VB.Label lblLMLength 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Length:"
         Height          =   195
         Left            =   -69120
         TabIndex        =   89
         Top             =   3252
         Width           =   975
      End
      Begin VB.Label lblLMetal 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Flag:"
         Height          =   195
         Left            =   -68925
         TabIndex        =   88
         Top             =   2850
         Width           =   780
      End
      Begin VB.Label lblLMType 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Material Type:"
         Height          =   195
         Left            =   -69150
         TabIndex        =   87
         Top             =   2448
         Width           =   1005
      End
      Begin VB.Label lblLMDFlag 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Delivery Flag:"
         Height          =   195
         Left            =   -69105
         TabIndex        =   86
         Top             =   2046
         Width           =   960
      End
      Begin VB.Label lblQty 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Quantity:"
         Height          =   195
         Left            =   -68775
         TabIndex        =   85
         Top             =   1644
         Width           =   630
      End
      Begin VB.Label lblLMInvNo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Inventory No:"
         Height          =   195
         Left            =   -69105
         TabIndex        =   84
         Top             =   1242
         Width           =   960
      End
      Begin VB.Label lblLMDesc 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Description:"
         Height          =   195
         Left            =   -68985
         TabIndex        =   83
         Top             =   840
         Width           =   840
      End
      Begin VB.Label lblPreOrder 
         Alignment       =   2  'Center
         Caption         =   "Pre Orders"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -69180
         TabIndex        =   80
         Top             =   1860
         Width           =   3195
      End
      Begin VB.Label lblSupHelp 
         Caption         =   $"frmLotInfo.frx":0175
         Height          =   555
         Left            =   -74760
         TabIndex        =   79
         Top             =   900
         Width           =   5115
      End
      Begin VB.Label lblLathOrd 
         AutoSize        =   -1  'True
         Caption         =   "Lath Order"
         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            =   -69120
         TabIndex        =   55
         Top             =   900
         Width           =   915
      End
      Begin VB.Label lblYardOrd 
         AutoSize        =   -1  'True
         Caption         =   "Yard Order"
         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            =   -74700
         TabIndex        =   54
         Top             =   900
         Width           =   930
      End
      Begin VB.Label lblTexOrd 
         AutoSize        =   -1  'True
         Caption         =   "Texture Order"
         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            =   -67260
         TabIndex        =   53
         Top             =   840
         Width           =   1185
      End
      Begin VB.Label lblBrnOrd 
         AutoSize        =   -1  'True
         Caption         =   "Brown Order"
         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            =   -71040
         TabIndex        =   52
         Top             =   840
         Width           =   1065
      End
      Begin VB.Label lblScrOrd 
         AutoSize        =   -1  'True
         Caption         =   "Scratch Order"
         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            =   -74820
         TabIndex        =   51
         Top             =   840
         Width           =   1200
      End
      Begin VB.Label lblPO 
         Caption         =   "Purchase Orders"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -74700
         TabIndex        =   50
         Top             =   840
         Width           =   2715
      End
      Begin VB.Label lblPONotes 
         Caption         =   "P.O. Notes:"
         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            =   -71640
         TabIndex        =   44
         Top             =   2460
         Width           =   1575
      End
      Begin VB.Label lblPOMaterials 
         AutoSize        =   -1  'True
         Caption         =   "P.O. Materials:"
         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            =   -71640
         TabIndex        =   43
         Top             =   4020
         Width           =   1275
      End
      Begin VB.Label lblIssueTo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Issued To:"
         Height          =   195
         Left            =   -71520
         TabIndex        =   40
         Top             =   2100
         Width           =   750
      End
      Begin VB.Label lblPONum 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "P.O. Number:"
         Height          =   195
         Left            =   -71760
         TabIndex        =   39
         Top             =   1560
         Width           =   960
      End
      Begin VB.Label lblSuperSP 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Sheer Panel:"
         Height          =   195
         Left            =   -71700
         TabIndex        =   20
         Top             =   4800
         Width           =   915
      End
      Begin VB.Label lblSuperDW 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Drywall:"
         Height          =   195
         Left            =   -71340
         TabIndex        =   19
         Top             =   4200
         Width           =   555
      End
      Begin VB.Label lblSuperRL 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Rib Lath:"
         Height          =   195
         Left            =   -71460
         TabIndex        =   18
         Top             =   3000
         Width           =   645
      End
      Begin VB.Label lblSuperML 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Metal Lath:"
         Height          =   195
         Left            =   -71580
         TabIndex        =   17
         Top             =   3600
         Width           =   795
      End
      Begin VB.Label lblSuper138 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "1 3/8 X 3 JMB:"
         Height          =   195
         Left            =   -71880
         TabIndex        =   16
         Top             =   2400
         Width           =   1080
      End
      Begin VB.Label lblSuper38 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "3/8 JMB:"
         Height          =   195
         Left            =   -73965
         TabIndex        =   15
         Top             =   4800
         Width           =   660
      End
      Begin VB.Label lblSuper78 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "7/8 JMB:"
         Height          =   195
         Left            =   -73965
         TabIndex        =   14
         Top             =   4200
         Width           =   660
      End
      Begin VB.Label lblSuper783 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "7/8X3 JMB:"
         Height          =   195
         Left            =   -74160
         TabIndex        =   13
         Top             =   3600
         Width           =   855
      End
      Begin VB.Label lblSuper12 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "1/2 Foam:"
         Height          =   195
         Left            =   -74040
         TabIndex        =   12
         Top             =   3000
         Width           =   735
      End
      Begin VB.Line linSO 
         BorderWidth     =   2
         X1              =   -75000
         X2              =   -69660
         Y1              =   2160
         Y2              =   2160
      End
      Begin VB.Label lblSuperBB 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Blackboard:"
         Height          =   195
         Left            =   -74160
         TabIndex        =   11
         Top             =   2400
         Width           =   855
      End
      Begin VB.Label lblTake138 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Takeoff 1 3/8 J-Metal:"
         Height          =   195
         Left            =   -74895
         TabIndex        =   9
         Top             =   1740
         Width           =   1590
      End
   End
   Begin VB.Label lblLathPrint 
      AutoSize        =   -1  'True
      Caption         =   "Lath Order Printed"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   8940
      TabIndex        =   131
      Top             =   2040
      Visible         =   0   'False
      Width           =   2580
   End
   Begin VB.Label lblTexture 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Finish:"
      Height          =   195
      Left            =   8760
      TabIndex        =   129
      Top             =   120
      Width           =   450
   End
   Begin VB.Label lblNote 
      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            =   2925
      TabIndex        =   78
      Top             =   1260
      Width           =   690
   End
   Begin VB.Label lblCMUYdge 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CMU Yardage:"
      Height          =   195
      Left            =   285
      TabIndex        =   67
      Top             =   2280
      Width           =   1050
   End
   Begin VB.Label lblLaborAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Labor Adj. Yardage:"
      Height          =   195
      Left            =   6420
      TabIndex        =   66
      Top             =   460
      Width           =   1410
   End
   Begin VB.Label lblTtlYdge 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Total Yardage:"
      Height          =   195
      Left            =   285
      TabIndex        =   65
      Top             =   1920
      Width           =   1050
   End
   Begin VB.Label lblFoamAdj 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Foam Adj. Yardage:"
      Height          =   195
      Left            =   6480
      TabIndex        =   64
      Top             =   120
      Width           =   1395
   End
   Begin VB.Label lblLathOrder 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lath Order Date:"
      Height          =   195
      Left            =   5940
      TabIndex        =   63
      Top             =   800
      Width           =   1185
   End
   Begin VB.Label lblFin2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Finish 2 Ydge:"
      Height          =   195
      Left            =   4710
      TabIndex        =   62
      Top             =   460
      Width           =   1005
   End
   Begin VB.Label lbl28foam 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "2X8 Foam %tge:"
      Height          =   195
      Left            =   4560
      TabIndex        =   61
      Top             =   120
      Width           =   1155
   End
   Begin VB.Line linLotInfo 
      BorderWidth     =   2
      X1              =   0
      X2              =   11940
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Label lblModel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Model/Elevation:"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label lblOwner 
      Alignment       =   1  'Right Justify
      Caption         =   "Owner:"
      Height          =   195
      Left            =   660
      TabIndex        =   4
      Top             =   840
      Width           =   675
   End
   Begin VB.Label lblAddress 
      Alignment       =   1  'Right Justify
      Caption         =   "Address:"
      Height          =   195
      Left            =   540
      TabIndex        =   2
      Top             =   480
      Width           =   795
   End
   Begin VB.Label lblLot 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lot:"
      Height          =   195
      Left            =   1065
      TabIndex        =   1
      Top             =   1560
      Width           =   270
   End
   Begin VB.Label lblProject 
      Alignment       =   1  'Right Justify
      Caption         =   "SubDivision:"
      Height          =   195
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "frmLotInfo"
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 moRSPOpt As Recordset
Dim moRSLOpt As Recordset
Dim moRSOptMat As Recordset
Dim moRSProj As Recordset
Dim moRSPlan As Recordset

Dim mboolShow As Boolean
Dim mboolAdding As Boolean
Dim mstrType As String
Dim mintTake138 As Integer

Private Sub cboLMDFlag_Change()
   If cboLMDFlag.Text = "Supplier" Then
      moRSMat!D_Flag = "S"
   Else
      moRSMat!D_Flag = "Y"
   End If
   
End Sub

Private Sub cboLMDFlag_Click()
   If cboLMDFlag.Text = "Supplier" Then
      moRSMat!D_Flag = "S"
   Else
      moRSMat!D_Flag = "Y"
   End If
End Sub

Private Sub cboLMMetal_Click()
   If cboLMMetal.Text = "Metal" Then
      moRSMat!Calc_Flag = "M"
      txtLMLength.Text = 10
      moRSMat!Calc_Amt = 10
   Else
      moRSMat!Calc_Flag = ""
      txtLMLength.Text = 0
      moRSMat!Calc_Amt = 0
   End If

End Sub

Private Sub cboLMType_Click()
   If cboLMType.Text = "Lath" Then
      moRSMat!M_Type = "L"
   ElseIf cboLMType.Text = "Scratch" Then
      moRSMat!M_Type = "S"
   ElseIf cboLMType.Text = "Brown" Then
      moRSMat!M_Type = "B"
   ElseIf cboLMType.Text = "Texture" Then
      moRSMat!M_Type = "T"
   ElseIf cboLMType.Text = "PreOrder" Then
      moRSMat!M_Type = "P"
   End If
End Sub

Private Sub cmdOptAdd_Click()
   If lstPOptions.ListIndex <> -1 Then
      moRSLOpt.AddNew
      moRSLOpt!lot_id = gintLOTID
      moRSLOpt!opt_id = lstPOptions.ItemData(lstPOptions.ListIndex)
      moRSLOpt.Update
      Call LOptLoad
   End If
End Sub

Private Sub cmdOptDel_Click()
   moRSLOpt.Delete
   Call LOptLoad
End Sub

Private Sub cmdSaveLotInfo_Click()
   Call OptMatSave
   Call OptSave
   Call MatSave
   Call FieldsSave
End Sub

Private Sub cmdSaveMatrl_Click()
   Call MatSave
   Call MatLoad
End Sub

Private Sub cmdOrders_Click()
   Call OrderLoad
End Sub

Private Sub Form_Load()
   Set moRS = New Recordset
   Set moRSProj = New Recordset
   Set moRSMat = New Recordset
   Set moRSPOpt = New Recordset
   Set moRSLOpt = New Recordset
   Set moRSOptMat = New Recordset
   Set moRSPlan = New Recordset
   
   Call ProjLoad
      If FormFind() Then
         Call PlanFind
         Call FormShow
         Call MatLoad
         Call POptLoad
         Call LOptLoad
         Call OptMatLoad
         Call OrderLoad
      End If

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

      End If
   End If
End Sub
Private Sub ProjLoad()
   Dim strSQL As String
   
   strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID

   moRSProj.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
'   Do Until oRS.EOF
'      cboProject.AddItem oRS("Proj_desc")
'      cboProject.ItemData(cboProject.NewIndex) = oRS("Proj_id")
'
'      oRS.MoveNext
'   Loop
'   moRSProj.Close
'   cboProject.ListIndex = 40
   
End Sub
Private Sub ListLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   
'   gintPROJID = cboProject.ItemData(cboProject.ListIndex)

'   strSQL = "SELECT * from tblLotInfo WHERE Lot_ID = " & gintTOID
'
'   Set oRS = New Recordset
   
'   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
'   lstMod_Elv.Clear
   
'   Do Until oRS.EOF
'      With lstMod_Elv
'         .AddItem Field2Str(oRS!pln_elv)
'         .ItemData(.NewIndex) = oRS("toid")
'      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
   gintLOTID = moRS!lot_id
   txtProject = Trim$(moRSProj!proj_Code) & "  " & moRSProj!proj_desc
   With moRS
      txtTtlYdge = Field2Str(!SQ_Yd)
      txtAddress = Field2Str(!address)
      txtOwner = Field2Str(!owner)
      txtModel = Field2Str(!model)
      txtCMUYdge = Field2Str(!CMU)
      txtNotes = Field2Str(!NOTES)
      txtFoamAdj = Field2Str(!f_adj)
      txtLaborAdj = Field2Str(!l_adj)
      txtFin2 = Field2Str(!FIN2)
      txtLotNo = Field2Str(!lot_no)
      txt28Foam = Field2Str(!FOAM)
      txtLODate = Field2Str(!LORDER)
      txtSuperBB = Field2Str(!SUP_BB)
      txtSuper12 = Field2Str(!SUP_FD12)
      txtSuper783 = Field2Str(!SUP_783)
      txtSuper78 = Field2Str(!SUP_78)
      txtSuper38 = Field2Str(!SUP_38)
      txtSuper1383 = Field2Str(!SUP_138)
      txtSuperRL = Field2Str(!SUP_RL)
      txtSuperML = Field2Str(!SUP_ML)
      txtSuperDW = Field2Str(!SUP_DW)
      txtSuperSP = Field2Str(!SUP_SP)
      
      If !Texture = "SK" Then
         txtFinish.Text = "SKIP TROWEL"
      ElseIf !Texture = "SA" Then
         txtFinish.Text = "Sand"
      ElseIf !Texture = "S2" Then
         txtFinish.Text = "Sand"
      ElseIf !Texture = "S3" Then
         txtFinish.Text = "Sand"
      ElseIf !Texture = "DA" Then
         txtFinish.Text = "Dash"
      ElseIf !Texture = "DF" Then
         txtFinish.Text = "Skip and Sand Finish"
      ElseIf !Texture = "SM" Then
         txtFinish.Text = "Smooth"
      ElseIf !Texture = "QU" Then
         txtFinish.Text = "Quernavaca"
      ElseIf !Texture = "MN" Then
         txtFinish.Text = "Monterrey"
      End If
      
   End With
   txtTake138 = mintTake138
      
   If moRSProj!STYPE = "S" Then
      txtOneKote.Text = "Superwall"
   ElseIf moRSProj!STYPE = "M" Then
      txtOneKote.Text = "Magna Wall"
   ElseIf moRSProj!STYPE = "T" Then
      txtOneKote.Text = "Three Coat"
   ElseIf moRSProj!STYPE = "N" Then
      txtOneKote.Text = "Synthetic"
   ElseIf moRSProj!STYPE = "B" Then
      txtOneKote.Text = "Synthetic over 1 Kote"
   ElseIf moRSProj!STYPE = "W" Then
      txtOneKote.Text = "Western 1 Kote"
   End If
   
   If moRS!l_flg = "P" Then
      txtTtlYdge.Enabled = False
      txtAddress.Enabled = False
      txtOwner.Enabled = False
      txtModel.Enabled = False
      txtCMUYdge.Enabled = False
      txtNotes.Enabled = False
      txtFoamAdj.Enabled = False
      txtLaborAdj.Enabled = False
      txtFin2.Enabled = False
      txtLotNo.Enabled = False
      txt28Foam.Enabled = False
      txtLODate.Enabled = False
      txtSuperBB.Enabled = False
      txtSuper12.Enabled = False
      txtSuper783.Enabled = False
      txtSuper78.Enabled = False
      txtSuper38.Enabled = False
      txtSuper1383.Enabled = False
      txtSuperRL.Enabled = False
      txtSuperML.Enabled = False
      txtSuperDW.Enabled = False
      txtSuperSP.Enabled = False
      lblLathPrint.Visible = True
   End If
   mboolShow = False
End Sub

Private Sub FormShowMat()
   mboolShow = True
   
   With moRSMat
      txtLMInvNo = Field2Str(!Inv_no)
      txtLMDesc = Field2Str(!Desc)
      txtLMQty = Field2Str(!Qty)
      txtLMLength = Field2Str(!Calc_Amt)
      If !D_Flag = "S" Then
         cboLMDFlag.Text = "Supplier"
      Else
         cboLMDFlag.Text = "Yard"
      End If
      
      If !M_Type = "L" Then
         cboLMType.Text = "Lath"
      ElseIf !M_Type = "B" Then
         cboLMType.Text = "Brown"
      ElseIf !M_Type = "S" Then
         cboLMType.Text = "Scratch"
      ElseIf !M_Type = "T" Then
         cboLMType.Text = "Texture"
      ElseIf !M_Type = "C" Then
         cboLMType.Text = "CMU"
      ElseIf !M_Type = "P" Then
         cboLMType.Text = "PreOrder"
      End If
      
      If !Calc_Flag = "M" Then
         cboLMMetal.Text = "Metal"
      Else
         cboLMMetal.Text = "None"
      End If
      
      
   End With
   mboolShow = False
End Sub
Private Sub FormShowOpt()
   mboolShow = True
'   gintOPTID = moRSLOpt!opt_id
   
   
   With moRSPOpt
      txtLOYdge = Field2Str(!yardage)
      txtLODesc = Field2Str(!Desc)
      txtLOFin2 = Field2Str(!FIN2)
      txtLOFoam = Field2Str(!f_adj)

      If !Texture = "SK" Then
         txtLOTexture.Text = "SKIP TROWEL"
      ElseIf !Texture = "SA" Then
         txtLOTexture.Text = "Sand"
      ElseIf !Texture = "S2" Then
         txtLOTexture.Text = "Sand"
      ElseIf !Texture = "S3" Then
         txtLOTexture.Text = "Sand"
      ElseIf !Texture = "DA" Then
         txtLOTexture.Text = "Dash"
      ElseIf !Texture = "DF" Then
         txtLOTexture.Text = "Skip and Sand Finish"
      ElseIf !Texture = "SM" Then
         txtLOTexture.Text = "Smooth"
      ElseIf !Texture = "QU" Then
         txtLOTexture.Text = "Quernavaca"
      ElseIf !Texture = "MN" Then
         txtLOTexture.Text = "Monterrey"
      Else
         txtLOTexture.Text = ""
      End If
     
      
   End With
   mboolShow = False
End Sub
Private Sub FormShowOptMat()
   mboolShow = True
   
   With moRSOptMat
      txtLOMInvNo = Field2Str(!Inv_no)
      txtLOMDesc = Field2Str(!Desc)
      txtLOMQty = Field2Str(!Qty)
      txtLOMLength = Field2Str(!Calc_Amt)
      
      If !D_Flag = "S" Then
         cboLOMDFlag.Text = "Supplier"
'         cboLOMDFlag.ListIndex = 0
      Else
         cboLOMDFlag.Text = "Yard"
'         cboLOMDFlag.ListIndex = 1
      End If

      If !M_Type = "L" Then
         cboLOMType.Text = "Lath"
      ElseIf !M_Type = "B" Then
         cboLOMType.Text = "Brown"
      ElseIf !M_Type = "S" Then
         cboLOMType.Text = "Scratch"
      ElseIf !M_Type = "T" Then
         cboLOMType.Text = "Texture"
      ElseIf !M_Type = "C" Then
         cboLOMType.Text = "CMU"
      ElseIf !M_Type = "P" Then
         cboLOMType.Text = "PreOrder"
      End If
      
      If !Calc_Flag = "M" Then
         cboLOMetal.Text = "Metal"
      Else
         cboLOMetal.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, strPlan As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblLotInfo "
   strSQL = strSQL & "WHERE Lot_ID = " & gintLOTID


   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 Sub PlanFind()
   Dim oRS As Recordset
   Dim strSQL As String, strPlan As String, strTest As String, intTest As Integer
   On Error GoTo Open_EH
   
   strSQL = "SELECT est_id "
   strSQL = strSQL & "FROM tblplans "
   strSQL = strSQL & "WHERE Proj_ID = " & gintPROJID & " and Mod_Elv = """ & moRS!model & """"


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

   moRSPlan.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic

   gintESTID = moRSPlan!est_id
   strPlan = "SELECT qty FROM tblPlanMat where EST_ID = " & gintESTID & " and INV_NO = 1130"
   
   Set oRS = New Recordset
   If oRS.State = adStateOpen Then
      oRS.Close
   End If
   oRS.Open strPlan, goConn, _
             adOpenForwardOnly, adLockPessimistic
   mintTake138 = oRS!Qty
   oRS.Close
   Exit Sub
   
Open_EH:
   Call ErrorHandler(goConn)
   oRS.Close
   Exit Sub
   
End Sub
Private Function FormFindPOpt() As Boolean
   Dim strSQL As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPOption "
   strSQL = strSQL & "WHERE OPTID = " & lstLOptions.ItemData(lstLOptions.ListIndex)

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

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

Private Function FormFindLOpt() As Boolean
      
   Dim strSQL As String
   
   strSQL = "SELECT Opt_ID, Lot_id "
   strSQL = strSQL & "FROM tblLOption "
   strSQL = strSQL & "WHERE Lot_id = " & gintLOTID

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

   moRSLOpt.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSLOpt.EOF Then
      FormFindLOpt = False
   Else
      FormFindLOpt = True
      gintOPTID = moRSLOpt!opt_id
   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
   Set moRSMat = New Recordset
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblLotMatrl "
   strSQL = strSQL & "WHERE LOT_ID = " & gintLOTID & " AND INV_NO = " & lstLMaterial.ItemData(lstLMaterial.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 cmdExit_Click()
   Unload Me
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)
      !BIDC = Str2Field(txtTtlCost)
      !OH = Str2Field(txtTtlMU)
      !OHPR = Str2Field(txtOH)
      !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)
   
   End With
End Sub
Private Sub MatSave()
   With moRSMat
      !Inv_no = Str2Field(txtLMInvNo.Text)
      !Desc = Str2Field(txtLMDesc.Text)
      !Qty = Str2Field(txtLMQty.Text)
      !Calc_Amt = Str2Field(txtLMLength.Text)
      !O_Qty = Str2Field(txtLMBalance.Text)
      
      If cboLMType.Text = "Lath" Then
         !M_Type = "L"
      ElseIf cboLMType.Text = "Scratch" Then
         !M_Type = "S"
      ElseIf cboLMType.Text = "Brown" Then
         !M_Type = "B"
      ElseIf cboLMType.Text = "Texture" Then
         !M_Type = "T"
      ElseIf cboLMType.Text = "PreOrder" Then
         !M_Type = "P"
      End If
      
      If cboLMDFlag.Text = "Supplier" Then
         !D_Flag = "S"
      ElseIf cboLMDFlag.Text = "Yard" Then
         !D_Flag = "Y"
      End If
   
      If cboLMMetal.Text = "Metal" Then
         !Calc_Flag = "M"
      Else
         !Calc_Flag = ""
         !Calc_Amt = 0
      End If
   End With
   moRSMat.Update
End Sub

Private Sub FormClear()
   
   
End Sub
Private Sub StuccoLoad()
   cboOneKote.AddItem ("Superwall")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 1
   cboOneKote.AddItem ("MagnaWall")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 2
   cboOneKote.AddItem ("Three Coat")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 3
   cboOneKote.AddItem ("Western 1 Kote")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 4
   cboOneKote.AddItem ("Synthetic")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 5
   cboOneKote.AddItem ("Synthetic Over 1 Kote")
   cboOneKote.ItemData(cboOneKote.NewIndex) = 6

End Sub

Private Sub MatLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT LOT_id, Inv_no, Desc, Qty, D_Flag, M_Type, Calc_Flag from tblLOTMatrl WHERE lot_id = " & gintLOTID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstLMaterial.Clear
   
   Do Until oRS.EOF
      With lstLMaterial

         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 lstLMaterial.ListCount Then
      lstLMaterial.ListIndex = 0
   Else
      txtLMInvNo = ""
      txtLMDesc = ""
      txtLMQty = ""
      txtLMLength = ""
      cboLMDFlag.ListIndex = -1
      cboLMType.ListIndex = -1
      cboLMMetal.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 = " & lstLOptions.ItemData(lstLOptions.ListIndex) 'gintOPTID
   
   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
      txtLOMInvNo = ""
      txtLOMDesc = ""
      txtLOMQty = ""
      txtLOMLength = ""
      cboLOMDFlag.ListIndex = -1
      cboLOMType.ListIndex = -1
      cboLOMetal.ListIndex = -1
   End If
         
   
End Sub
Private Sub POptLoad()
   Dim oRS As Recordset
   Dim strSQL As String
   Dim strLine As String
   
   strSQL = "SELECT OPTID, Opt_No, Desc, Yardage from tblPOption WHERE Est_id = " & gintESTID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstPOptions.Clear
   
   Do Until oRS.EOF
      With lstPOptions

         strLine = oRS("Opt_no") & "   " & oRS("Yardage") & vbTab & oRS("desc")
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("OPTID")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstPOptions.ListCount Then
      lstPOptions.ListIndex = -1
'   Else
'      txtLOYdge = ""
'      txtLODesc = ""
'      txtLOFin2 = ""
'      txtLOFoam = ""
'      lstOptMatrl.Clear
'      txtLOMInvNo = ""
'      txtLOMDesc = ""
'      txtLOMQty = ""
'      txtLOMLength = ""
'      cboLOMDFlag.ListIndex = -1
'      cboLOMType.ListIndex = -1
'      cboLMMetal.ListIndex = -1
'      gintOPTID = 0
   End If
         
   
End Sub
Private Sub LOptLoad()
   Dim oRS As Recordset
   Dim strSQL As String, intLoop As Integer, intPos As Integer
   Dim strLine As String
   
   strSQL = "SELECT OPT_ID from tblLOption WHERE Lot_ID = " & gintLOTID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstLOptions.Clear
   
   Do Until oRS.EOF
      With lstLOptions
         For intLoop = 0 To lstPOptions.ListCount - 1
            If lstPOptions.ItemData(intLoop) = oRS!opt_id Then
               .AddItem (lstPOptions.List(intLoop))
               .ItemData(.NewIndex) = oRS!opt_id
            End If
         Next intLoop
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstLOptions.ListCount Then
      lstLOptions.ListIndex = 0
      gintOPTID = lstLOptions.ItemData(lstLOptions.ListIndex)
'   Else
'      txtLOYdge = ""
'      txtLODesc = ""
'      txtLOFin2 = ""
'      txtLOFoam = ""
'      lstOptMatrl.Clear
'      txtLOMInvNo = ""
'      txtLOMDesc = ""
'      txtLOMQty = ""
'      txtLOMLength = ""
'      cboLOMDFlag.ListIndex = -1
'      cboLOMType.ListIndex = -1
'      cboLOMetal.ListIndex = -1
'      gintOPTID = 0
   End If
   
End Sub

Private Sub lstLOptions_Click()
   If lstLOptions.ListIndex <> -1 Then
      If FormFindPOpt() Then
         Call FormShowOpt
         Call OptMatLoad
         If lstOptMatrl.ListIndex <> -1 Then
            If FormFindOptMat() Then
               Call FormShowOptMat
            Else
               lstOptMatrl.Clear
               txtLOMInvNo = ""
               txtLOMDesc = ""
               txtLOMQty = ""
               txtLOMLength = ""
               cboLOMDFlag.Text = ""
               cboLOMType.Text = ""
               cboLOMetal.Text = ""
            End If
         End If
      Else
         lstLOptions.Clear
         txtLOYdge = ""
         txtLODesc = ""
         txtLOFin2 = ""
         txtLOFoam = ""
         txtLOTexture = ""
      End If
      If FormFindLOpt() Then
      End If
   End If


End Sub

Private Sub lstOptMatrl_Click()
   If lstOptMatrl.ListIndex <> -1 Then
      If FormFindOptMat() Then
         Call FormShowOptMat
      Else
         lstOptMatrl.Clear
         txtLOMInvNo = ""
         txtLOMDesc = ""
         txtLOMQty = ""
'         txtOMPrice = ""
         txtLOMLength = ""
         cboLOMDFlag.Text = ""
         cboLOMType.Text = ""
         cboLOMetal.Text = ""
      End If
   End If


End Sub

Private Sub lstLMaterial_Click()
   If lstLMaterial.ListIndex <> -1 Then
      If FormFindMat() Then
         Call FormShowMat
      Else
         lstLMaterial.Clear
         txtLMInvNo = ""
         txtLMDesc = ""
         txtLMQty = ""
         txtLMLength = ""
         cboLMDFlag.Text = ""
         cboLMType.Text = ""
         cboLMMetal.Text = ""
         txtLMBalance = ""
      End If
   End If

End Sub


Private Sub OrderLoad()
   Dim oRS As Recordset
   Dim strSQL As String, strLine As String, strSelect As String
   On Error Resume Next

   strSQL = "SELECT Inv_no, Desc, Qty, D_Flag, M_Type from tblLotMatrl WHERE Lot_ID = " & gintLOTID
'   strSQL = strSQL & " and D_Flag = 'S'  and M_Type = 'P'"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   strSelect = "D_Flag = 'S'  and M_Type = 'P'"
   
   oRS.Filter = strSelect
   lstPreOrder.Clear

   Do Until oRS.EOF
      With lstPreOrder
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   oRS.MoveFirst
   
   strSelect = "D_Flag = 'S'  and M_Type = 'L'"
   oRS.Filter = strSelect
   lstLath.Clear

   Do Until oRS.EOF
      With lstLath
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   oRS.MoveFirst
   
   strSelect = "D_Flag = 'Y'  and M_Type = 'L'"
   oRS.Filter = strSelect
   lstYard.Clear

   Do Until oRS.EOF
      With lstYard
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   oRS.MoveFirst
   
   strSelect = "D_Flag = 'S'  and M_Type = 'S'"
   oRS.Filter = strSelect
   lstScratch.Clear

   Do Until oRS.EOF
      With lstScratch
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   oRS.MoveFirst
   
   strSelect = "D_Flag = 'S'  and M_Type = 'B'"
   oRS.Filter = strSelect
   lstBrown.Clear

   Do Until oRS.EOF
      With lstBrown
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   oRS.MoveFirst
   
   strSelect = "D_Flag = 'S'  and M_Type = 'T'"
   oRS.Filter = strSelect
   lstTexture.Clear

   Do Until oRS.EOF
      With lstTexture
         strLine = oRS!Qty & vbTab & oRS!Inv_no & vbTab & oRS!Desc
         .AddItem strLine
         .ItemData(.NewIndex) = oRS("inv_no")
      End With
      
      oRS.MoveNext
   Loop
   
   
   oRS.Close
   
   If lstPreOrder.ListCount Then
      lstPreOrder.ListIndex = -1
   End If
         
   If lstLath.ListCount Then
      lstLath.ListIndex = -1
   End If
         
   If lstYard.ListCount Then
      lstYard.ListIndex = -1
   End If
         
   If lstScratch.ListCount Then
      lstScratch.ListIndex = -1
   End If
         
   If lstBrown.ListCount Then
      lstBrown.ListIndex = -1
   End If
         
   If lstTexture.ListCount Then
      lstTexture.ListIndex = -1
   End If
         
   
End Sub