VERSION 5.00
Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
Begin VB.Form frmPayroll 
   Caption         =   "Payroll Information"
   ClientHeight    =   4920
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   4920
   ScaleWidth      =   11880
   StartUpPosition =   3  'Windows Default
   Begin LpLib.fpList lstPayInfo 
      Height          =   1425
      Left            =   120
      TabIndex        =   55
      Top             =   810
      Width           =   6735
      _Version        =   196608
      _ExtentX        =   11880
      _ExtentY        =   2514
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Enabled         =   -1  'True
      MousePointer    =   0
      Object.TabStop         =   0   'False
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Columns         =   7
      Sorted          =   0
      LineWidth       =   1
      SelDrawFocusRect=   -1  'True
      ColumnSeparatorChar=   9
      ColumnSearch    =   -1
      ColumnWidthScale=   2
      RowHeight       =   -1
      MultiSelect     =   0
      WrapList        =   0   'False
      WrapWidth       =   0
      SelMax          =   -1
      AutoSearch      =   1
      SearchMethod    =   0
      VirtualMode     =   0   'False
      VRowCount       =   0
      DataSync        =   3
      ThreeDInsideStyle=   1
      ThreeDInsideHighlightColor=   -2147483633
      ThreeDInsideShadowColor=   -2147483627
      ThreeDInsideWidth=   1
      ThreeDOutsideStyle=   1
      ThreeDOutsideHighlightColor=   -2147483628
      ThreeDOutsideShadowColor=   -2147483632
      ThreeDOutsideWidth=   1
      ThreeDFrameWidth=   0
      BorderStyle     =   0
      BorderColor     =   -2147483642
      BorderWidth     =   1
      ThreeDOnFocusInvert=   0   'False
      ThreeDFrameColor=   -2147483633
      Appearance      =   2
      BorderDropShadow=   0
      BorderDropShadowColor=   -2147483632
      BorderDropShadowWidth=   3
      ScrollHScale    =   2
      ScrollHInc      =   0
      ColsFrozen      =   0
      ScrollBarV      =   1
      NoIntegralHeight=   0   'False
      HighestPrecedence=   0
      AllowColResize  =   0
      AllowColDragDrop=   0
      ReadOnly        =   0   'False
      VScrollSpecial  =   0   'False
      VScrollSpecialType=   0
      EnableKeyEvents =   -1  'True
      EnableTopChangeEvent=   -1  'True
      DataAutoHeadings=   -1  'True
      DataAutoSizeCols=   2
      SearchIgnoreCase=   -1  'True
      ScrollBarH      =   1
      VirtualPageSize =   0
      VirtualPagesAhead=   0
      ExtendCol       =   0
      ColumnLevels    =   1
      ListGrayAreaColor=   -2147483637
      GroupHeaderHeight=   -1
      GroupHeaderShow =   0   'False
      AllowGrpResize  =   0
      AllowGrpDragDrop=   0
      MergeAdjustView =   0   'False
      ColumnHeaderShow=   0   'False
      ColumnHeaderHeight=   300
      GrpsFrozen      =   0
      BorderGrayAreaColor=   -2147483637
      ExtendRow       =   0
      DataField       =   ""
      OLEDragMode     =   0
      OLEDropMode     =   0
      EnableClickEvent=   -1  'True
      Redraw          =   -1  'True
      ResizeRowToFont =   0   'False
      TextTipMultiLine=   0
      ColDesigner     =   "frmPayroll.frx":0000
   End
   Begin VB.TextBox txtMtlRate 
      BackColor       =   &H00C0FFFF&
      Height          =   285
      Left            =   5370
      TabIndex        =   54
      Top             =   420
      Width           =   810
   End
   Begin VB.TextBox txtPayMetal 
      BackColor       =   &H00C0FFFF&
      Height          =   315
      Left            =   3675
      TabIndex        =   52
      Top             =   390
      Width           =   780
   End
   Begin VB.TextBox txtYdRate 
      BackColor       =   &H00C0FFFF&
      Height          =   315
      Left            =   1995
      TabIndex        =   50
      Top             =   390
      Width           =   780
   End
   Begin VB.TextBox txtPayYds 
      BackColor       =   &H00C0FFFF&
      Height          =   315
      Left            =   660
      TabIndex        =   48
      Top             =   390
      Width           =   780
   End
   Begin VB.TextBox txtStone 
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   315
      Left            =   11010
      TabIndex        =   41
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtLotNotes 
      Height          =   795
      Left            =   6960
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   38
      Top             =   4020
      Width           =   4815
   End
   Begin VB.CheckBox chkLook 
      Caption         =   "Look"
      Height          =   315
      Left            =   240
      TabIndex        =   37
      Top             =   3900
      Visible         =   0   'False
      Width           =   315
   End
   Begin VB.TextBox txtOffice 
      Height          =   795
      Left            =   6960
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   29
      Top             =   3180
      Width           =   4815
   End
   Begin VB.ListBox lstCrew 
      Height          =   1425
      Left            =   6960
      Sorted          =   -1  'True
      TabIndex        =   35
      Top             =   900
      Visible         =   0   'False
      Width           =   4815
   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          =   495
      Left            =   0
      TabIndex        =   34
      Top             =   4380
      Width           =   1155
   End
   Begin VB.TextBox txtVerify 
      Enabled         =   0   'False
      Height          =   315
      Left            =   2340
      TabIndex        =   33
      Top             =   3240
      Width           =   1095
   End
   Begin VB.CommandButton cmdAddPay 
      Caption         =   "&Add Payroll"
      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            =   1780
      TabIndex        =   32
      Top             =   4380
      Width           =   1275
   End
   Begin VB.CommandButton cmdSavePay 
      Caption         =   "&Save Payroll"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3680
      TabIndex        =   30
      Top             =   4380
      Width           =   1275
   End
   Begin VB.CommandButton cmdDelPay 
      Caption         =   "&Delete Payroll"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5580
      TabIndex        =   31
      Top             =   4380
      Width           =   1275
   End
   Begin VB.CommandButton cmdFindCrew 
      Height          =   435
      Left            =   1080
      Picture         =   "frmPayroll.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   3900
      Visible         =   0   'False
      Width           =   435
   End
   Begin VB.TextBox txtNotes 
      Height          =   735
      Left            =   6960
      MaxLength       =   255
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   28
      Top             =   2400
      Width           =   4815
   End
   Begin LpLib.fpCombo cboWorkType 
      Height          =   315
      Left            =   1620
      TabIndex        =   21
      Top             =   2865
      Width           =   2355
      _Version        =   196608
      _ExtentX        =   4154
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Enabled         =   -1  'True
      MousePointer    =   0
      Object.TabStop         =   -1  'True
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Text            =   ""
      Columns         =   5
      Sorted          =   1
      SelDrawFocusRect=   -1  'True
      ColumnSeparatorChar=   9
      ColumnSearch    =   1
      ColumnWidthScale=   2
      RowHeight       =   -1
      WrapList        =   0   'False
      WrapWidth       =   0
      AutoSearch      =   2
      SearchMethod    =   1
      VirtualMode     =   0   'False
      VRowCount       =   0
      DataSync        =   3
      ThreeDInsideStyle=   1
      ThreeDInsideHighlightColor=   -2147483633
      ThreeDInsideShadowColor=   -2147483627
      ThreeDInsideWidth=   1
      ThreeDOutsideStyle=   1
      ThreeDOutsideHighlightColor=   -2147483628
      ThreeDOutsideShadowColor=   -2147483632
      ThreeDOutsideWidth=   1
      ThreeDFrameWidth=   0
      BorderStyle     =   0
      BorderColor     =   -2147483642
      BorderWidth     =   1
      ThreeDOnFocusInvert=   0   'False
      ThreeDFrameColor=   -2147483633
      Appearance      =   2
      BorderDropShadow=   0
      BorderDropShadowColor=   -2147483632
      BorderDropShadowWidth=   3
      ScrollHScale    =   2
      ScrollHInc      =   0
      ColsFrozen      =   0
      ScrollBarV      =   1
      NoIntegralHeight=   0   'False
      HighestPrecedence=   0
      AllowColResize  =   0
      AllowColDragDrop=   0
      ReadOnly        =   0   'False
      VScrollSpecial  =   0   'False
      VScrollSpecialType=   0
      EnableKeyEvents =   -1  'True
      EnableTopChangeEvent=   -1  'True
      DataAutoHeadings=   -1  'True
      DataAutoSizeCols=   2
      SearchIgnoreCase=   -1  'True
      ScrollBarH      =   1
      DataFieldList   =   ""
      ColumnEdit      =   -1
      ColumnBound     =   -1
      Style           =   2
      MaxDrop         =   8
      ListWidth       =   -1
      EditHeight      =   -1
      GrayAreaColor   =   -2147483633
      ListLeftOffset  =   0
      ComboGap        =   -2
      MaxEditLen      =   150
      VirtualPageSize =   0
      VirtualPagesAhead=   0
      ExtendCol       =   0
      ColumnLevels    =   1
      ListGrayAreaColor=   -2147483637
      GroupHeaderHeight=   -1
      GroupHeaderShow =   0   'False
      AllowGrpResize  =   0
      AllowGrpDragDrop=   0
      MergeAdjustView =   0   'False
      ColumnHeaderShow=   0   'False
      ColumnHeaderHeight=   -1
      GrpsFrozen      =   0
      BorderGrayAreaColor=   -2147483637
      ExtendRow       =   0
      EnableClickEvent=   -1  'True
      ListPosition    =   0
      ButtonThreeDAppearance=   0
      OLEDragMode     =   0
      OLEDropMode     =   0
      Redraw          =   -1  'True
      AutoSearchFill  =   0   'False
      AutoSearchFillDelay=   500
      EditMarginLeft  =   1
      EditMarginTop   =   1
      EditMarginRight =   0
      EditMarginBottom=   3
      ResizeRowToFont =   0   'False
      TextTipMultiLine=   0
      AutoMenu        =   -1  'True
      EditAlignH      =   0
      EditAlignV      =   0
      ColDesigner     =   "frmPayroll.frx":0884
   End
   Begin VB.ComboBox cboCrewType 
      Height          =   315
      ItemData        =   "frmPayroll.frx":0CB2
      Left            =   1620
      List            =   "frmPayroll.frx":0CCE
      Style           =   2  'Dropdown List
      TabIndex        =   20
      Top             =   2520
      Width           =   1815
   End
   Begin VB.TextBox txtPayAmt 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   4800
      MaxLength       =   10
      TabIndex        =   27
      Top             =   3240
      Width           =   1035
   End
   Begin VB.TextBox txtCheckNo 
      Height          =   315
      Left            =   4800
      MaxLength       =   8
      TabIndex        =   26
      Top             =   2880
      Width           =   1035
   End
   Begin VB.TextBox txtPayDate 
      Height          =   315
      Left            =   4800
      MaxLength       =   10
      TabIndex        =   25
      Top             =   2520
      Width           =   1035
   End
   Begin VB.TextBox txtCrewName 
      Height          =   315
      Left            =   1620
      TabIndex        =   19
      Top             =   3960
      Width           =   3255
   End
   Begin VB.TextBox txtCrewNo 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   1620
      MaxLength       =   4
      TabIndex        =   23
      Top             =   3600
      Width           =   675
   End
   Begin VB.TextBox txtPercentDone 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   1620
      MaxLength       =   3
      TabIndex        =   22
      Top             =   3240
      Width           =   675
   End
   Begin VB.TextBox txtMatYds 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   315
      Left            =   9270
      TabIndex        =   18
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtCMUYds 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   315
      Left            =   7410
      TabIndex        =   17
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtMetalFt 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   285
      Left            =   5715
      TabIndex        =   16
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtLathYds 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   285
      Left            =   4095
      TabIndex        =   15
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtModel 
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   285
      Left            =   2415
      TabIndex        =   14
      Top             =   60
      Width           =   855
   End
   Begin VB.TextBox txtProjLot 
      BackColor       =   &H00C0FFFF&
      Enabled         =   0   'False
      Height          =   285
      Left            =   600
      TabIndex        =   13
      Top             =   60
      Width           =   1695
   End
   Begin VB.Label lblMtlRate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "MetalRate: "
      Height          =   195
      Left            =   4575
      TabIndex        =   53
      Top             =   450
      Width           =   825
   End
   Begin VB.Label lblPayMtl 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "PayMetal: "
      Height          =   195
      Left            =   2895
      TabIndex        =   51
      Top             =   450
      Width           =   750
   End
   Begin VB.Label lblYdRate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Rate: "
      Height          =   195
      Left            =   1545
      TabIndex        =   49
      Top             =   450
      Width           =   435
   End
   Begin VB.Label lblPayYds 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "PayYds: "
      Height          =   195
      Left            =   60
      TabIndex        =   47
      Top             =   450
      Width           =   630
   End
   Begin VB.Label lblScaf 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Scaffolding Frames:"
      Height          =   195
      Left            =   7380
      TabIndex        =   46
      Top             =   480
      Width           =   1395
   End
   Begin VB.Label lbl68 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "6'8"" :"
      Height          =   195
      Left            =   8880
      TabIndex        =   45
      Top             =   480
      Width           =   375
   End
   Begin VB.Label lblD68 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   9270
      TabIndex        =   44
      Top             =   420
      Width           =   855
   End
   Begin VB.Label lbl108 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "10'8"" :"
      Height          =   195
      Left            =   10500
      TabIndex        =   43
      Top             =   480
      Width           =   465
   End
   Begin VB.Label lblD108 
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   11010
      TabIndex        =   42
      Top             =   420
      Width           =   855
   End
   Begin VB.Label lblStone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Stone SqFt:"
      Height          =   195
      Left            =   10155
      TabIndex        =   40
      Top             =   135
      Width           =   840
   End
   Begin VB.Label lblLotNotes 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lot Notes:"
      Height          =   195
      Left            =   6150
      TabIndex        =   39
      Top             =   4020
      Width           =   735
   End
   Begin VB.Label lblOffice 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Office Notes:"
      Height          =   195
      Left            =   5955
      TabIndex        =   36
      Top             =   3180
      Width           =   930
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   60
      X2              =   11880
      Y1              =   780
      Y2              =   780
   End
   Begin VB.Label lblMaterial 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Material Yds:"
      Height          =   195
      Left            =   8310
      TabIndex        =   12
      Top             =   120
      Width           =   915
   End
   Begin VB.Label lblCMU 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CMU Yds:"
      Height          =   195
      Left            =   6630
      TabIndex        =   11
      Top             =   120
      Width           =   720
   End
   Begin VB.Label lblMetal 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Metal Ft:"
      Height          =   195
      Left            =   4995
      TabIndex        =   10
      Top             =   120
      Width           =   615
   End
   Begin VB.Label lblLath 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lath Yds:"
      Height          =   195
      Left            =   3315
      TabIndex        =   9
      Top             =   120
      Width           =   675
   End
   Begin VB.Label lblLotNo 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Lot #:"
      Height          =   195
      Left            =   120
      TabIndex        =   8
      Top             =   120
      Width           =   420
   End
   Begin VB.Label lblNotes 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "PR Notes:"
      Height          =   195
      Left            =   6135
      TabIndex        =   7
      Top             =   2490
      Width           =   735
   End
   Begin VB.Label lblPayAmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Check Amt:"
      Height          =   195
      Left            =   3885
      TabIndex        =   6
      Top             =   3300
      Width           =   825
   End
   Begin VB.Label lblCheck 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Check #:"
      Height          =   195
      Left            =   4050
      TabIndex        =   5
      Top             =   2940
      Width           =   660
   End
   Begin VB.Label lblPayDate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Check Date:"
      Height          =   195
      Left            =   3810
      TabIndex        =   4
      Top             =   2580
      Width           =   900
   End
   Begin VB.Label lblCrew 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Crew:"
      Height          =   195
      Left            =   1125
      TabIndex        =   3
      Top             =   3660
      Width           =   405
   End
   Begin VB.Label lblPercent 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Percentage Done:"
      Height          =   195
      Left            =   225
      TabIndex        =   2
      Top             =   3300
      Width           =   1305
   End
   Begin VB.Label lblWorkType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Type of Work Done:"
      Height          =   195
      Left            =   75
      TabIndex        =   1
      Top             =   2940
      Width           =   1455
   End
   Begin VB.Label lblCrewType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Crew Type:"
      Height          =   195
      Left            =   720
      TabIndex        =   0
      Top             =   2580
      Width           =   810
   End
End
Attribute VB_Name = "frmPayroll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRS As Recordset
Dim moRSTIME As Recordset
Dim moRSProj As Recordset
Dim moRSMemo As Recordset

Dim mboolSHOW As Boolean
Dim mboolAdding As Boolean, mboolSAVE As Boolean
Dim mstrType As String, mstrCREW As String
Dim mlngFind As Long, mboolLOOK As Boolean
Dim mlngTIME As Long
Dim mintCREW As Integer

Private Sub cmdDelPay_Click()
   cmdSavePay.Enabled = False
   cmdDelPay.Enabled = False
   cmdAddPay.Enabled = True
   moRSTIME.Delete
   Call PayLoad
End Sub

Private Sub WTLoad()
Dim oRS As Recordset, strSQL As String
Dim strID As String, strWT As String, strWTYPE As String

   cboWorkType.Clear
   strSQL = "SELECT * FROM tblCBOWorkType"
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   If Not oRS.EOF Then
      Do Until oRS.EOF
         strID = (oRS!WTID)
         strWT = (oRS!WTCode)
         strWTYPE = (oRS!worktype)
         cboWorkType.AddItem strID & vbTab & strWT & vbTab & strWTYPE & vbTab & oRS!Rate & vbTab & oRS!Type
         
         oRS.MoveNext
      Loop
         
   End If
   
   If cboWorkType.ListCount Then
      cboWorkType.ListIndex = 0
   Else
      cboWorkType.ListIndex = -1
   End If
   
End Sub

Private Sub cmdFindCrew_Click()
   Dim oRS As Recordset
   Dim strSQL As String, lngFind As Long
   
   strSQL = "SELECT * from tblcrew WHERE crew_id = " & Field2Integer(txtCrewNo) & " and type = '" & Left(Str2Field(cboCrewType.Text), 1) & "'"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   If Not oRS.EOF Then
      If oRS!inactive Then
         MsgBox "This Crew - " & oRS!Crew_Boss & " - Is Inactive - Select an Active Crew", vbOKOnly, "Inactive Crew"
         txtCrewNo.SetFocus
'''         cmdAdd.Enabled = True
         Exit Sub
      End If
   End If
   

   If Not oRS.EOF Then
      mstrCREW = oRS!Crew_Boss
      txtCrewName = mstrCREW
      txtPayDate.SetFocus
   Else
      Call CrewLoad
      lstCrew.SetFocus
   End If
   
   oRS.Close

End Sub

Private Sub Form_Activate()
   Dim intResponse As Integer
   
   If lstPayInfo.ListCount = 0 Then
      intResponse = MsgBox("No Payroll Information, do you wish to add some?", vbYesNo + vbQuestion, "Add Records")
      If intResponse = vbYes Then
         Call cmdAddPay_Click
      Else
         Unload Me
      End If
   End If
   If chkLOOK Then
      mboolLOOK = True
   End If
'''   If chkLook Then
   If mboolLOOK Then
      cmdSavePay.Enabled = False
      cmdDelPay.Enabled = False
      cmdAddPay.Enabled = False
      cmdFindCrew.Visible = False
      txtPercentDone.Enabled = False
      txtVerify.Enabled = False
      txtCrewNo.Enabled = False
      txtPayDate.Enabled = False
      txtCheckNo.Enabled = False
      txtPayAmt.Enabled = False
      txtNotes.Enabled = False
      txtOffice.Enabled = False
      cboWorkType.Enabled = False
      cboCrewType.Enabled = False
      txtCrewName.Enabled = False
   End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If Shift = 4 Then
      Exit Sub
   End If
   
   If Not cmdSavePay.Enabled Then
      cmdSavePay.Enabled = True
   End If
   
End Sub

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

End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResponse As Integer, strMSG As String
   On Error GoTo Error_EH
   
    If cmdSavePay.Enabled Then
    
        strMSG = "Data Has Been Changed"
        strMSG = strMSG & Chr(13) & Chr(10)
        strMSG = strMSG & "Save Changes ?"
        intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption)
        Select Case intResponse
            Case vbYes
                Call FormSave
                
            Case vbNo
                
            Case vbCancel
                Cancel = True
                
         End Select
    End If
   
   If moRS.State = adStateOpen Then
      moRS.Close
   End If
   If moRSTIME.State = adStateOpen Then
      moRSTIME.Close
   End If
   Exit Sub
   
Error_EH:
   If Err = 3219 Then
      Resume Next
   End If
End Sub
Private Sub Form_Load()
   Set moRS = New Recordset
   Set moRSProj = New Recordset
'''   Set moRSTime = New Recordset
   
'''  gbytSECURITY = 1
   
   If gbytSECURITY = 1 Then
'''    cmdDelPay.Enabled = True
   End If

   Call WTLoad
   Call ProjLoad
   Call LotLoad
   Call PayLoad
'   Call WTLoad
   If FormFind() Then
'''      Call PlanFind
'''      Call FormShow
'''      Call MatLoad
'''      Call POptLoad
'''      Call LOptLoad
'''      Call OptMatLoad
'''      Call OrderLoad
'''      Call POLoad
'''      Call POMatLoad
   End If
   
End Sub

Private Sub ProjLoad()
   Dim strSQL As String
   
   strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
   Set moRSProj = New Recordset
   moRSProj.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   
End Sub

Private Sub LotLoad()
   Dim strSQL As String, strSql2 As String
   strSQL = "SELECT * FROM tblLotInfo where lot_id = " & gintLOTID
   moRS.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
            
   strSql2 = "SELECT * FROM tblYardMemo WHERE lot_id = " & gintLOTID
   Set moRSMemo = New Recordset
   moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic
   If moRSMemo.EOF Then
      strSql2 = "SELECT * FROM tblYardMemo" ' WHERE lot_id = " & gintLOTID
      Set moRSMemo = New Recordset
      moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic
      moRSMemo.AddNew
      moRSMemo!Lot_id = gintLOTID
      moRSMemo.Update
      strSql2 = "SELECT * FROM tblYardMemo WHERE lot_id = " & gintLOTID
      Set moRSMemo = New Recordset
      moRSMemo.Open strSql2, goConn, adOpenKeyset, adLockOptimistic
   End If
   
End Sub

Private Sub FormShow()
Dim strWTYPE As String
Dim intLoop As Integer, strSTR As String, intLEN As Integer
   
   mboolSHOW = True
   txtPayYds = ""
   txtProjLot = Trim$(moRSProj!Proj_Code) & "  " & moRS!lot_no
   txtLathYds = Field2Integer(moRS!sq_yd) - 19
   txtCMUYds = Field2Integer(moRS!CMU)
   txtMatYds = Field2Integer(moRS!sq_yd)
   txtMetalFt = Field2Long(moRS!METAL)
   txtModel = Field2Str(moRS!model)
   txtStone = Field2Str(moRS!ST_SQFT)
   lblD68 = Field2Str2(moRS!Scaf6)
   lblD108 = Field2Str2(moRS!scaf10)
   

   With moRSTIME
      txtPercentDone = Field2Str(!pct_done)
      txtVerify = IIf(Field2Str(!paydt) = "12:00:00 AM", "", Field2Str(!paydt))
      txtCrewNo = Field2Integer(!crew)
      mintCREW = Field2Integer(!crew)
      Call GetCrew
      txtCrewName = mstrCREW
      txtPayDate = IIf(Field2Str(!prdate) = "12:00:00 AM", "", Field2Str(!prdate))
      txtCheckNo = Field2Str(!prcheck)
      txtPayAmt = Format(Field2Str(!pay_amt), "##,###.00")
'      txtPayYds = Field2Str(!prcheck)
      txtYdRate = Format(Field2Str(!yd_rate), "##,###.00")
      txtPayMetal = Field2Str(moRS!METAL)
      txtMtlRate = Format(Field2Str(!mtl_Rate), "##,###.00")
      txtNotes = Field2Str(!notes)
      txtOffice = Field2Str(!office)
      
      If !pay_type = "L" Then
         cboCrewType.Text = "LATH"
'         txtPayYds = Field2Str2(moRS!L_yds)
      ElseIf !pay_type = "S" Then
         cboCrewType.Text = "STUCCO"
'         txtPayYds = Field2Str2(moRS!S_yds)
      ElseIf !pay_type = "R" Then
         cboCrewType.Text = "Repair/PO"
      ElseIf !pay_type = "V" Then
         cboCrewType.Text = "V_Stone"
      ElseIf !pay_type = "C" Then
         cboCrewType.Text = "C_SCAFFOLD"
      ElseIf !pay_type = "X" Then
         cboCrewType.Text = "X_PAINT"
      ElseIf !pay_type = "Q" Then
         cboCrewType.Text = "Q_MISC"
      ElseIf !pay_type = "W" Then
         cboCrewType.Text = "WRAP"
      End If
      
      strWTYPE = Field2Str(!workdone)
      intLEN = Len(strWTYPE)
      
      If !pay_type = "L" Then
         lblPayMtl.Visible = True
         lblMtlRate.Visible = True
         txtYdRate.Visible = True
         txtPayMetal.Visible = True
         txtMtlRate.Visible = True
         txtPayYds.Visible = True
         txtPayYds = Field2Integer(moRS!l_yds)
         txtYdRate = Format(Field2Str(!yd_rate), "##,###.00")
         txtPayMetal = Field2Str(moRS!METAL)
         txtMtlRate = Format(Field2Str(!mtl_Rate), "##,###.00")
      ElseIf !pay_type = "S" Then
         txtYdRate.Visible = True
         txtPayYds.Visible = True
         lblPayMtl.Visible = False
         lblMtlRate.Visible = False
         txtPayMetal.Visible = False
         txtMtlRate.Visible = False
         txtPayYds = Field2Integer(moRS!s_yds)
'         txtPayYds = Field2Integer(moRS!sq_yd) - 24
         txtYdRate = Format(Field2Str(!yd_rate), "##,###.00")
         txtPayMetal = Field2Str(moRS!METAL)
         txtMtlRate = Format(Field2Str(!mtl_Rate), "##,###.00")
      Else
         txtYdRate.Visible = True
         txtYdRate = Format(Field2Str(!yd_rate), "##,###.00")
         txtPayMetal.Visible = False
         lblPayMtl.Visible = False
         lblMtlRate.Visible = False
         txtMtlRate.Visible = False
         txtPayYds.Visible = False
      End If
      
      For intLoop = 0 To cboWorkType.ListCount - 1
         cboWorkType.ListIndex = (intLoop)
         cboWorkType.col = 1
         strSTR = cboWorkType.ColText
         
         If Trim(UCase$(strSTR)) = Trim(UCase$(strWTYPE)) Then
            cboWorkType.ListIndex = intLoop
            intLoop = cboWorkType.ListCount
         Else
            cboWorkType.ListIndex = -1
         End If
      Next intLoop
      
'      If !workdone = "A" Then
'         cboWorkType.Text = "A_WRAP"
'      ElseIf !workdone = "C" Then
'         cboWorkType.Text = "COMPLETE"
'      ElseIf !workdone = "P" Then
'         cboWorkType.Text = "PARTIAL"
'      ElseIf !workdone = "B" Then
'         cboWorkType.Text = "BROWN"
'      ElseIf !workdone = "T" Then
'         cboWorkType.Text = "TEXTURE"
'      ElseIf !workdone = "S" Then
'         cboWorkType.Text = "SCRATCH"
'      ElseIf !workdone = "R" Then
'         cboWorkType.Text = "REPAIR"
'      ElseIf !workdone = "W" Then
'         cboWorkType.Text = "WORK ORDER/PO"
'      ElseIf !workdone = "F" Then
'         cboWorkType.Text = "FENCE"
'      ElseIf !workdone = "U" Then
'         cboWorkType.Text = "U_CMU"
'      ElseIf !workdone = "Y" Then
'         cboWorkType.Text = "Y_UP"
'      ElseIf !workdone = "Z" Then
'         cboWorkType.Text = "Z_DOWN"
'      End If
   End With
   txtLotNotes = Field2Str(moRSMemo!payroll)
   
'''   If chkLook Then
   If mboolLOOK Then
      cmdSavePay.Enabled = False
      cmdDelPay.Enabled = False
      cmdAddPay.Enabled = False
      cmdFindCrew.Visible = False
      txtPercentDone.Enabled = False
      txtVerify.Enabled = False
      txtCrewNo.Enabled = False
      txtPayDate.Enabled = False
      txtCheckNo.Enabled = False
      txtPayAmt.Enabled = False
      txtNotes.Enabled = False
      txtOffice.Enabled = False
      cboWorkType.Enabled = False
      cboCrewType.Enabled = False
      txtCrewName.Enabled = False
   End If
   mboolSHOW = False
End Sub

Private Sub cmdAddPay_Click()
   Call FormClear
   txtVerify = Date
   cmdSavePay.Enabled = True
   cmdDelPay.Enabled = False
   cmdAddPay.Enabled = False
   cmdFindCrew.Visible = True
   mboolAdding = True
   cboCrewType.SetFocus
End Sub

Private Sub cmdSavePay_Click()
   mboolSAVE = False
   Call CheckCrew
   If mboolSAVE Then
      cmdSavePay.Enabled = False
      cmdDelPay.Enabled = False
      cmdAddPay.Enabled = True
      cmdFindCrew.Visible = False
      lstCrew.Visible = False
      Call FormSave
      Call PayLoad
   End If
End Sub

Private Sub FormSave()
   Dim strName As String

   On Error GoTo Error_EH
   
   If mboolAdding Then
      moRSTIME.AddNew
   End If
   
  ''' Store the controls to the recordset
   Call FieldsSave
   
   moRSTIME.Update
   
   moRSMemo!payroll = Str2Field(txtLotNotes)
   moRSMemo.Update
   
   If mboolAdding Then
      mboolAdding = False

   End If
   
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRSTIME.ActiveConnection)
   Exit Sub
End Sub
Private Function FormFind() As Boolean
   Dim strSQL As String, strPlan As String
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblTIME "
   strSQL = strSQL & "WHERE IDNUM = " & mlngTIME

   Set moRSTIME = New Recordset
'''   If moRSTime.State = adStateOpen Then
'''      moRSTime.Close
'''   End If

   moRSTIME.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSTIME.EOF Then
      FormFind = False
   Else
      FormFind = True
   End If
End Function
Private Sub cmdExit_Click()
   Unload Me
End Sub
Private Sub FieldsSave()
   On Error GoTo Error_EH

   If mboolAdding Then
'''      moRS.AddNew
      moRSTIME!Proj_ID = gintPROJID
      moRSTIME!Lot_id = gintLOTID
      moRSTIME!lot_no = Str2Field(moRS!lot_no)
      moRSTIME!paydt = Date
      moRSTIME!C_USER = gstrLOGIN
   End If


   With moRSTIME
      !pct_done = Integer2Field(txtPercentDone)
'''      !paydt = Date
'''      !paydt = Str2Field(txtVerify)
      !crew = Integer2Field(txtCrewNo)
      !prdate = Str2Field(txtPayDate)
      !prcheck = Str2Field(txtCheckNo)
      !pay_amt = Str2Field(txtPayAmt)
      !notes = Str2Field(txtNotes)
      !office = Str2Field(txtOffice)
      !pay_type = Left(Str2Field(cboCrewType.Text), 1)
      cboWorkType.col = 1
      !workdone = cboWorkType.ColText
'      !workdone = Left(Str2Field(cboWorkType.Text), 1)
      !U_USER = gstrLOGIN
      !Update = Date
   End With
'''   On Error Resume Next
'''   moRS.Update
'''   On Error GoTo 0
   moRSTIME.Update
   If mboolAdding Then
'''      Call GetLotID
      Call PayLoad
'''      Call POptLoad
      mboolAdding = False
   End If
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form Payroll - Module FieldsSave"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
   
End Sub
Private Sub FormClear()
      txtPercentDone = "0"
      txtVerify = ""
      txtCrewNo = "0"
      txtCrewName = ""
      txtPayDate = ""
      txtCheckNo = "0"
      txtPayAmt = "0"
      txtNotes = ""
      txtOffice = ""
      txtLotNotes = ""
      cboCrewType.ListIndex = -1
      cboWorkType.ListIndex = 0
      
End Sub

Private Sub PayLoad2()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String
Dim lngRET As Long, aTabs(4) As Long

   aTabs(0) = 10
   aTabs(1) = 40
   aTabs(2) = 70
   aTabs(3) = 90
   aTabs(4) = 110


   strSQL = "SELECT * from tblTime WHERE lot_id =" & gintLOTID
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lngRET = SendMessage(lstPayInfo.hwnd, LB_SETTABSTOPS, 5, aTabs(0))

   lstPayInfo.Clear
   
   Do Until oRS.EOF
      With lstPayInfo
         mintCREW = Field2Integer(oRS!crew)
         Call GetCrew
         strLine = oRS!pay_type & vbTab & oRS!workdone & vbTab & oRS!pct_done
         strLine = strLine & vbTab & oRS!prdate
         strLine = strLine & vbTab & oRS!crew & vbTab & mstrCREW
         .AddItem strLine
         .ItemData(.NewIndex) = Field2Long(oRS!idnum)
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstPayInfo.ListCount Then
      lstPayInfo.ListIndex = 0
   End If
   
End Sub

Private Sub PayLoad()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String
Dim lngRET As Long, aTabs(4) As Long

   strSQL = "SELECT * from tblTime WHERE lot_id =" & gintLOTID
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstPayInfo.Clear
   
   Do Until oRS.EOF
      With lstPayInfo
         mintCREW = Field2Integer(oRS!crew)
         Call GetCrew
         strLine = oRS!pay_type & vbTab & oRS!workdone & vbTab & oRS!pct_done
         strLine = strLine & vbTab & oRS!prdate
         strLine = strLine & vbTab & oRS!crew & vbTab & mstrCREW & vbTab & Field2Long(oRS!idnum) '& "'"
         .AddItem strLine
'         .ItemData(.NewIndex) = Field2Long(oRS!idnum)
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstPayInfo.ListCount Then
      lstPayInfo.ListIndex = 0
   End If
   
End Sub

Private Sub CrewLoad()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String
Dim lngRET As Long ', aTabs(4) As Long

'''   aTabs(0) = 10
'''   aTabs(1) = 20
'''   aTabs(2) = 40
'''   aTabs(3) = 90
'''   aTabs(4) = 110
   
   strSQL = "SELECT * from tblcrew WHERE type = '" & Left(Field2Str(cboCrewType), 1) & "'"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   lngRET = SendMessage(lstCrew.hwnd, LB_SETTABSTOPS, 1, 160)
   
   lstCrew.Clear
   lstCrew.Visible = True
   
   Do Until oRS.EOF
      With lstCrew
         mintCREW = Field2Integer(oRS!Crew_ID)
         strLine = oRS!Crew_Boss & vbTab & oRS!Crew_ID
'''         strLine = strLine & vbTab & oRS!paydt
'''         strLine = strLine & vbTab & oRS!crew & vbTab & mstrCREW
         .AddItem strLine
         .ItemData(.NewIndex) = oRS!Crew_ID
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstCrew.ListCount Then
      lstCrew.ListIndex = 0
   End If
   
End Sub

Private Sub lstCrew_DblClick()
   mintCREW = lstCrew.ItemData(lstCrew.ListIndex)
   Call GetCrew
   txtCrewName = mstrCREW
   txtCrewNo = mintCREW
   lstCrew.Visible = False
   txtPayDate.SetFocus
End Sub

Private Sub lstPayInfo_Click()
Dim intCOL As Integer
   If lstPayInfo.ListIndex <> -1 Then
      lstPayInfo.col = 6
      mlngTIME = lstPayInfo.ColText
'      mlngTIME = lstPayInfo.ItemData(lstPayInfo.ListIndex)
      If FormFind() Then
         Call FormShow
      Else
         txtPercentDone = "0"
         txtVerify = ""
         txtCrewNo = "0"
         txtCrewName = ""
         txtPayDate = ""
         txtCheckNo = "0"
         txtPayAmt = "0"
         txtNotes = ""
         cboCrewType.ListIndex = -1
         cboWorkType.ListIndex = -1
      End If
   End If

End Sub
Private Sub GetCrew()

   Dim oRS As Recordset
   Dim strSQL As String, lngFind As Long
   
   strSQL = "SELECT * from tblcrew WHERE crew_id = " & mintCREW
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   If Not oRS.EOF Then
      mstrCREW = oRS!Crew_Boss
   End If
   
   oRS.Close

End Sub

Private Sub lstPayInfo_DblClick()
   If Not mboolLOOK Then
      cmdDelPay.Enabled = True
      cmdSavePay.Enabled = True
      cmdFindCrew.Visible = True
   End If
End Sub

Private Sub txtCheckNo_GotFocus()
   Call FieldSelect(txtCheckNo)
End Sub

Private Sub txtCrewNo_GotFocus()
   Call FieldSelect(txtCrewNo)
End Sub

Private Sub txtNotes_GotFocus()
   Call FieldSelect(txtNotes)
End Sub

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

Private Sub txtPayAmt_GotFocus()
   Call FieldSelect(txtPayAmt)
End Sub

Private Sub txtPayDate_GotFocus()
   Call FieldSelect(txtPayDate)
End Sub

Private Sub txtPayDate_LostFocus()
   If Len(txtPayDate) > 0 Then
      txtPayDate = Format(txtPayDate, "00/00/####")
      If Not IsDate(txtPayDate) Then
         MsgBox "The Date You Entered is not Valid - ReEnter"
         txtPayDate.SetFocus
      End If
   End If
End Sub

Private Sub txtPercentDone_GotFocus()
   Call FieldSelect(txtPercentDone)
End Sub

Private Sub CheckCrew()
   Dim oRS As Recordset
   Dim strSQL As String, lngFind As Long
   
   strSQL = "SELECT * from tblcrew WHERE crew_id = " & Field2Integer(txtCrewNo) & " and type = '" & Left(Str2Field(cboCrewType.Text), 1) & "'"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   If Not oRS.EOF Then
      If oRS!inactive Then
         MsgBox "This Crew - " & oRS!Crew_Boss & " - Is Inactive - Select an Active Crew", vbOKOnly, "Inactive Crew"
         txtCrewNo.SetFocus
'''         cmdAdd.Enabled = True
         Exit Sub
      End If
   End If
   mboolSAVE = True
End Sub