VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmRepairLot 
   Caption         =   "Repair Schedule"
   ClientHeight    =   5430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11850
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   5430
   ScaleWidth      =   11850
   StartUpPosition =   3  'Windows Default
   Begin MSComCtl2.DTPicker dtpRepair 
      Height          =   315
      Left            =   960
      TabIndex        =   1
      Top             =   840
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   556
      _Version        =   393216
      Format          =   92078081
      CurrentDate     =   40575
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1500
      TabIndex        =   27
      Top             =   4800
      Width           =   1275
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   180
      TabIndex        =   26
      Top             =   4800
      Width           =   1275
   End
   Begin VB.ComboBox cboDArea 
      Height          =   315
      ItemData        =   "frmRepairLot.frx":0000
      Left            =   960
      List            =   "frmRepairLot.frx":0022
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   1200
      Width           =   1215
   End
   Begin VB.TextBox txtNotes 
      Height          =   1335
      Left            =   4080
      TabIndex        =   25
      Top             =   3960
      Width           =   7635
   End
   Begin VB.TextBox txtDesc 
      Height          =   1035
      Left            =   4080
      MaxLength       =   250
      TabIndex        =   24
      Top             =   2760
      Width           =   5595
   End
   Begin VB.TextBox txtBPhone 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   960
      MaxLength       =   14
      TabIndex        =   4
      Top             =   2280
      Width           =   1215
   End
   Begin VB.TextBox txtEstTime 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   8400
      MaxLength       =   3
      TabIndex        =   16
      Top             =   1920
      Width           =   1215
   End
   Begin VB.TextBox txtStory 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   8400
      MaxLength       =   1
      TabIndex        =   15
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox txtBCWho 
      Height          =   315
      Left            =   6120
      MaxLength       =   20
      TabIndex        =   17
      Top             =   2280
      Width           =   3495
   End
   Begin VB.Frame frmRepair 
      Caption         =   "Work Type"
      Height          =   2295
      Left            =   9840
      TabIndex        =   30
      Top             =   840
      Width           =   1875
      Begin VB.CheckBox chkBC 
         Caption         =   "Back Charge:"
         Height          =   375
         Left            =   300
         TabIndex        =   23
         Top             =   1800
         Width           =   1400
      End
      Begin VB.CheckBox chkWarrenty 
         Caption         =   "Warranty:"
         Height          =   315
         Left            =   300
         TabIndex        =   22
         Top             =   1500
         Width           =   1400
      End
      Begin VB.CheckBox chkWO 
         Caption         =   "WorkOrder:"
         Height          =   315
         Left            =   300
         TabIndex        =   21
         Top             =   1200
         Width           =   1400
      End
      Begin VB.CheckBox chkYr2 
         Caption         =   "2nd Year End:"
         Height          =   375
         Left            =   300
         TabIndex        =   20
         Top             =   840
         Width           =   1400
      End
      Begin VB.CheckBox chkYr1 
         Caption         =   "1st Year End:"
         Height          =   315
         Left            =   300
         TabIndex        =   19
         Top             =   540
         Width           =   1400
      End
      Begin VB.CheckBox chkPunch 
         Caption         =   "Punch:"
         Height          =   255
         Left            =   300
         TabIndex        =   18
         Top             =   240
         Width           =   1400
      End
   End
   Begin VB.TextBox txtVWPSuper 
      Height          =   315
      Left            =   8400
      MaxLength       =   14
      TabIndex        =   13
      Top             =   840
      Width           =   1215
   End
   Begin VB.TextBox txtHPhone 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   3300
      MaxLength       =   14
      TabIndex        =   12
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox txtHAddress 
      Height          =   315
      Left            =   3300
      MaxLength       =   30
      TabIndex        =   11
      Top             =   1200
      Width           =   3315
   End
   Begin VB.TextBox txtHName 
      Height          =   315
      Left            =   3300
      MaxLength       =   20
      TabIndex        =   10
      Top             =   840
      Width           =   3315
   End
   Begin VB.TextBox txtBillAmt 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   9
      Top             =   4080
      Width           =   1215
   End
   Begin VB.TextBox txtBillDate 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   8
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CheckBox chkBilled 
      Alignment       =   1  'Right Justify
      Caption         =   "Billed:"
      Height          =   195
      Left            =   420
      TabIndex        =   7
      Top             =   3420
      Width           =   1035
   End
   Begin VB.TextBox txtBPOAmt 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   6
      Top             =   3000
      Width           =   1215
   End
   Begin VB.TextBox txtBPO 
      Height          =   315
      Left            =   960
      MaxLength       =   15
      TabIndex        =   5
      Top             =   2640
      Width           =   1215
   End
   Begin VB.TextBox txtBContact 
      Height          =   315
      Left            =   960
      MaxLength       =   20
      TabIndex        =   3
      Top             =   1920
      Width           =   2175
   End
   Begin VB.ComboBox cboRCrew 
      Height          =   315
      Left            =   7200
      Style           =   2  'Dropdown List
      TabIndex        =   14
      Top             =   1200
      Width           =   2415
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Area:"
      Height          =   195
      Left            =   465
      TabIndex        =   48
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label lblNotes 
      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            =   3360
      TabIndex        =   47
      Top             =   4020
      Width           =   690
   End
   Begin VB.Label lblDesc 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Description of Work:"
      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            =   2280
      TabIndex        =   46
      Top             =   2820
      Width           =   1770
   End
   Begin VB.Label lblBPhone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Phone:"
      Height          =   195
      Left            =   330
      TabIndex        =   45
      Top             =   2340
      Width           =   510
   End
   Begin VB.Label lblEstTime 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Estimated # of Minutes to Complete Repair:"
      Height          =   195
      Left            =   5325
      TabIndex        =   44
      Top             =   1980
      Width           =   3060
   End
   Begin VB.Label lblStory 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "# of Stories:"
      Height          =   195
      Left            =   7530
      TabIndex        =   43
      Top             =   1680
      Width           =   855
   End
   Begin VB.Label lblBCWho 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Back Charge Who:"
      Height          =   195
      Left            =   4680
      TabIndex        =   42
      Top             =   2400
      Width           =   1365
   End
   Begin VB.Label lblVWPSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "VWP Superintendent:"
      Height          =   195
      Left            =   6840
      TabIndex        =   41
      Top             =   960
      Width           =   1545
   End
   Begin VB.Label lblHPhone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Telephone:"
      Height          =   195
      Left            =   2385
      TabIndex        =   40
      Top             =   1680
      Width           =   810
   End
   Begin VB.Label lblHAddress 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Address:"
      Height          =   195
      Left            =   2580
      TabIndex        =   39
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label lblHName 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Name:"
      Height          =   195
      Left            =   2730
      TabIndex        =   38
      Top             =   960
      Width           =   465
   End
   Begin VB.Label lblBillDate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Billed Date:"
      Height          =   195
      Left            =   30
      TabIndex        =   37
      Top             =   3840
      Width           =   810
   End
   Begin VB.Label lblBillAmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Billed Amt:"
      Height          =   195
      Left            =   105
      TabIndex        =   36
      Top             =   4200
      Width           =   735
   End
   Begin VB.Label lblHOInfo 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Homeowner Information:"
      Height          =   195
      Left            =   3360
      TabIndex        =   35
      Top             =   600
      Width           =   1725
   End
   Begin VB.Label lblBAmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Amount:"
      Height          =   195
      Left            =   255
      TabIndex        =   34
      Top             =   3120
      Width           =   585
   End
   Begin VB.Label lblBPO 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "P.O.:"
      Height          =   195
      Left            =   480
      TabIndex        =   33
      Top             =   2760
      Width           =   360
   End
   Begin VB.Label lblBContact 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Contact:"
      Height          =   195
      Left            =   240
      TabIndex        =   32
      Top             =   2040
      Width           =   600
   End
   Begin VB.Label lblBuilderInfo 
      AutoSize        =   -1  'True
      Caption         =   "Builder Information:"
      Height          =   195
      Left            =   840
      TabIndex        =   31
      Top             =   1620
      Width           =   1350
   End
   Begin VB.Label lblScheduled 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Scheduled:"
      Height          =   195
      Left            =   120
      TabIndex        =   29
      Top             =   960
      Width           =   810
   End
   Begin VB.Label lblProjectLot 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   3300
      TabIndex        =   28
      Top             =   120
      Width           =   5055
   End
   Begin VB.Label lblCrew 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Crew:"
      Height          =   195
      Left            =   6720
      TabIndex        =   0
      Top             =   1320
      Width           =   405
   End
End
Attribute VB_Name = "frmRepairLot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim moRSRepair As Recordset
Dim moRS As Recordset, moRSProj As Recordset

Dim mboolSHOW As Boolean, mboolAdding As Boolean
Dim mintREPAIRID As Integer
Dim mstrPROJLOT As String

Private Sub CrewLoad()
Dim oRSRCrew As Recordset
Dim strSQL As String, intRows As Integer
Dim row, col As Long
   On Error GoTo Error_EH
   
   strSQL = "SELECT RC_ID, Name FROM tblRCrew"

   Set oRSRCrew = New Recordset
   oRSRCrew.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   oRSRCrew.MoveLast
   oRSRCrew.MoveFirst
   intRows = oRSRCrew.RecordCount
   Do Until oRSRCrew.EOF
      cboRCrew.AddItem oRSRCrew("Name")
      cboRCrew.ItemData(cboRCrew.NewIndex) = Field2Long(oRSRCrew("RC_ID"))
      oRSRCrew.MoveNext
   Loop
   oRSRCrew.Close

   Exit Sub
   
Error_EH:
   gstrMODULE = "Form RepairLot - Module CrewLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdSave_Click()
   If Len(cboDArea.Text) = 0 Then
      MsgBox "You Must Enter The Area Of Town Before Saving", vbOKOnly, "Select An Area"
      cboDArea.SetFocus
      Exit Sub
   End If
   Call FormSave
   Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If Shift = 4 Then
      Exit Sub
   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_Load()
   On Error GoTo Error_EH
   dtpRepair.Value = Date
   Call CrewLoad
   Call FormClear
   Call GetLotInfo
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form RepairLot - Module Form_Load"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FieldsSave()
Dim strLOT As String
   On Error GoTo Error_EH

   moRSRepair.AddNew

   With moRSRepair
      !scheduled = dtpRepair.Value
      !builder_contact = Str2Field(txtBContact)
      !builder_phone = Str2Field(txtBPhone)
      !builder_PO = Str2Field(txtBPO)
      !PO_Amt = Str2Field(txtBPOAmt)
      !bill_date = Str2Field(txtBillDate)
      !bill_amt = Str2Field(txtBillAmt)
      !Owner_Name = Str2Field(txtHName)
      !Owner_address = Str2Field(txtHAddress)
      !Owner_phone = Str2Field(txtHPhone)
      !VWP_Super = Str2Field(txtVWPSuper)
      !storys = Str2Field(txtStory)
      !est_time = Str2Field(txtEstTime)
      !bc_who = Str2Field(txtBCWho)
      !Desc = Str2Field(txtDesc)
      !notes = Str2Field(txtNotes)
      !Area = Left((cboDArea.Text), 1)
      !billed = chkBilled
      !punch = chkPunch
      !yrend1 = chkYr1
      !yrend2 = chkYr2
      !wo = chkWO
      !repair = chkWarrenty
      !backcharge = chkBC
      !repair_crew = cboRCrew.ListIndex + 1
      !UpdateUser = gstrLOGIN
      !Updated = Date
      !proj_lot = lblProjectLot.Caption
      !createuser = gstrLOGIN
      !Proj_ID = gintPROJID
      !Lot_id = gintLOTID
   End With
   
   moRSRepair.Update
   
   Exit Sub
   
Error_EH:
   If Err.Number = -2147467259 Then
      Resume Next
   End If
   gstrMODULE = "Form RepairLot - Module FieldsSave"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FormClear()
      txtBContact = ""
      txtBPhone = ""
      txtBPO = ""
      txtBPOAmt = 0
      txtBillDate = ""
      txtBillAmt = 0
      txtHName = ""
      txtHAddress = ""
      txtHPhone = ""
      txtVWPSuper = ""
      txtStory = ""
      txtEstTime = 0
      txtBCWho = ""
      txtDesc = ""
      txtNotes = ""
      cboDArea.ListIndex = -1
      chkBilled = vbUnchecked
      chkPunch = vbUnchecked
      chkYr1 = vbUnchecked
      chkYr2 = vbUnchecked
      chkWO = vbUnchecked
      chkWarrenty = vbUnchecked
      chkBC = vbUnchecked
      cboRCrew.ListIndex = -1
      lblProjectLot = ""

End Sub

Private Sub FormSave()

   On Error GoTo Error_EH
   
   ' Store the controls to the recordset
   Call FieldsSave
   
   Exit Sub
   
Error_EH:
   Call ErrorHandler(moRSRepair.ActiveConnection)
   Exit Sub
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

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

End Sub

Private Sub txtBContact_GotFocus()
   Call FieldSelect(txtBContact)
End Sub

Private Sub txtBContact_LostFocus()
   txtBContact = UCase(txtBContact)
End Sub

Private Sub txtBCWho_GotFocus()
   Call FieldSelect(txtBCWho)
End Sub

Private Sub txtBCWho_LostFocus()
   txtBCWho = UCase(txtBCWho)
End Sub

Private Sub txtBillAmt_GotFocus()
   Call FieldSelect(txtBillAmt)
End Sub

Private Sub txtBillDate_GotFocus()
   Call FieldSelect(txtBillDate)
End Sub

Private Sub txtBillDate_LostFocus()
Dim lngPOS As Long

   lngPOS = InStr(1, txtBillDate, "/", 1)
   If lngPOS = 0 Then
      If Len(txtBillDate) > 0 Then
         txtBillDate = Format(txtBillDate, "00/00/####")
         If Not IsDate(txtBillDate) Then
            MsgBox "The Date You Entered is not Valid - ReEnter"
            txtBillDate.SetFocus
         End If
      End If
   Else
      MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
      txtBillDate.SetFocus
   End If

End Sub

Private Sub txtBPhone_GotFocus()
   Call FieldSelect(txtBPhone)
End Sub

Private Sub txtBPO_GotFocus()
   Call FieldSelect(txtBPO)
End Sub

Private Sub txtBPOAmt_GotFocus()
   Call FieldSelect(txtBPOAmt)
End Sub

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

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

Private Sub txtEstTime_GotFocus()
   Call FieldSelect(txtEstTime)
End Sub

Private Sub txtHAddress_GotFocus()
   Call FieldSelect(txtHAddress)
End Sub

Private Sub txtHAddress_LostFocus()
   txtHAddress = UCase(txtHAddress)
End Sub

Private Sub txtHName_GotFocus()
   Call FieldSelect(txtHName)
End Sub

Private Sub txtHName_LostFocus()
   txtHName = UCase(txtHName)
End Sub

Private Sub txtHPhone_GotFocus()
   Call FieldSelect(txtHPhone)
End Sub

Private Sub txtNotes_GotFocus()
'   txtNotes.MaxLength = Len(txtNotes)
'   Call FieldSelect(txtNotes)
End Sub

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

Private Sub txtStory_GotFocus()
   Call FieldSelect(txtStory)
End Sub

Private Sub txtVWPSuper_GotFocus()
   Call FieldSelect(txtVWPSuper)
End Sub

Private Sub txtVWPSuper_LostFocus()
   txtVWPSuper = UCase(txtVWPSuper)
End Sub

Private Sub GetLotInfo()
Dim strSQL As String, strSELECT As String, strREPAIR As String
   
   strREPAIR = "SELECT * FROM tblRepair WHERE Repair_id = 1"
   
   Set moRSRepair = New Recordset
   
   moRSRepair.Open strREPAIR, goConn, adOpenKeyset, adLockOptimistic
   
   strSQL = "SELECT * FROM tblLotInfo WHERE lot_id = " & gintLOTID
   
   Set moRS = New Recordset
   
   moRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
   
   If Not moRS.EOF Then
      strSELECT = "SELECT * FROM tblProject WHERE proj_id = " & Field2Long(moRS!Proj_ID)
'      strSELECT = "SELECT * FROM tblProject WHERE proj_id = " & Field2Integer(moRS!proj_id)
      
      Set moRSProj = New Recordset
      
      moRSProj.Open strSELECT, goConn, adOpenForwardOnly, adLockOptimistic
      
   End If

   mstrPROJLOT = Trim(Field2Str(moRSProj!Proj_Desc)) & " - " & Trim(Field2Str(moRS!lot_no))
   lblProjectLot = mstrPROJLOT
   txtHName = Field2Str(moRS!Owner)
   txtHAddress = Field2Str(moRS!address)
   
End Sub