VERSION 5.00
Begin VB.Form frmShowRepair 
   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 VB.TextBox txtScheduled 
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      TabIndex        =   48
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox txtCompleted 
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      TabIndex        =   47
      Top             =   840
      Width           =   1215
   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        =   25
      Top             =   4800
      Width           =   1275
   End
   Begin VB.ComboBox cboDArea 
      Enabled         =   0   'False
      Height          =   315
      ItemData        =   "frmShowRepair.frx":0000
      Left            =   960
      List            =   "frmShowRepair.frx":0010
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   1200
      Width           =   1215
   End
   Begin VB.TextBox txtNotes 
      Enabled         =   0   'False
      Height          =   1335
      Left            =   4080
      TabIndex        =   24
      Top             =   3960
      Width           =   7635
   End
   Begin VB.TextBox txtDesc 
      Enabled         =   0   'False
      Height          =   1035
      Left            =   4080
      MaxLength       =   250
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   23
      Top             =   2760
      Width           =   5595
   End
   Begin VB.TextBox txtBPhone 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   14
      TabIndex        =   3
      Top             =   2280
      Width           =   1215
   End
   Begin VB.TextBox txtEstTime 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   8400
      MaxLength       =   3
      TabIndex        =   15
      Top             =   1920
      Width           =   1215
   End
   Begin VB.TextBox txtStory 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   8400
      MaxLength       =   1
      TabIndex        =   14
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox txtBCWho 
      Enabled         =   0   'False
      Height          =   315
      Left            =   6120
      MaxLength       =   20
      TabIndex        =   16
      Top             =   2280
      Width           =   3495
   End
   Begin VB.Frame frmRepair 
      Caption         =   "Work Type"
      Height          =   2295
      Left            =   9840
      TabIndex        =   28
      Top             =   840
      Width           =   1875
      Begin VB.CheckBox chkBC 
         Alignment       =   1  'Right Justify
         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          =   375
         Left            =   1440
         TabIndex        =   22
         Top             =   1800
         Width           =   255
      End
      Begin VB.CheckBox chkWarrenty 
         Alignment       =   1  'Right Justify
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1440
         TabIndex        =   21
         Top             =   1500
         Width           =   255
      End
      Begin VB.CheckBox chkWO 
         Alignment       =   1  'Right Justify
         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          =   375
         Left            =   1440
         TabIndex        =   20
         Top             =   1140
         Width           =   255
      End
      Begin VB.CheckBox chkYr2 
         Alignment       =   1  'Right Justify
         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          =   375
         Left            =   1440
         TabIndex        =   19
         Top             =   780
         Width           =   255
      End
      Begin VB.CheckBox chkYr1 
         Alignment       =   1  'Right Justify
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1440
         TabIndex        =   18
         Top             =   480
         Width           =   255
      End
      Begin VB.CheckBox chkPunch 
         Alignment       =   1  'Right Justify
         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          =   255
         Left            =   1440
         TabIndex        =   17
         Top             =   240
         Width           =   255
      End
      Begin VB.Label lblBC 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Back Charge:"
         Height          =   195
         Left            =   420
         TabIndex        =   55
         Top             =   1860
         Width           =   975
      End
      Begin VB.Label lblRepair 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Warrenty:"
         Height          =   195
         Left            =   705
         TabIndex        =   54
         Top             =   1548
         Width           =   690
      End
      Begin VB.Label lblWO 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Work Order:"
         Height          =   195
         Left            =   525
         TabIndex        =   53
         Top             =   1236
         Width           =   870
      End
      Begin VB.Label lbl2Yr 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "2nd Year End:"
         Height          =   195
         Left            =   375
         TabIndex        =   52
         Top             =   924
         Width           =   1020
      End
      Begin VB.Label lbl1Yr 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "1st Year End:"
         Height          =   195
         Left            =   435
         TabIndex        =   51
         Top             =   612
         Width           =   960
      End
      Begin VB.Label lblPunch 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "Punch:"
         Height          =   195
         Left            =   885
         TabIndex        =   50
         Top             =   300
         Width           =   510
      End
   End
   Begin VB.TextBox txtVWPSuper 
      Enabled         =   0   'False
      Height          =   315
      Left            =   8400
      MaxLength       =   3
      TabIndex        =   12
      Top             =   840
      Width           =   1215
   End
   Begin VB.TextBox txtHPhone 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   3300
      MaxLength       =   14
      TabIndex        =   11
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox txtHAddress 
      Enabled         =   0   'False
      Height          =   315
      Left            =   3300
      MaxLength       =   30
      TabIndex        =   10
      Top             =   1200
      Width           =   3315
   End
   Begin VB.TextBox txtHName 
      Enabled         =   0   'False
      Height          =   315
      Left            =   3300
      MaxLength       =   20
      TabIndex        =   9
      Top             =   840
      Width           =   3315
   End
   Begin VB.TextBox txtBillAmt 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   8
      Top             =   4080
      Width           =   1215
   End
   Begin VB.TextBox txtBillDate 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   7
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CheckBox chkBilled 
      Alignment       =   1  'Right Justify
      Caption         =   "Billed:"
      Enabled         =   0   'False
      Height          =   195
      Left            =   420
      TabIndex        =   6
      Top             =   3420
      Width           =   1035
   End
   Begin VB.TextBox txtBPOAmt 
      Alignment       =   1  'Right Justify
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   10
      TabIndex        =   5
      Top             =   3000
      Width           =   1215
   End
   Begin VB.TextBox txtBPO 
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   15
      TabIndex        =   4
      Top             =   2640
      Width           =   1215
   End
   Begin VB.TextBox txtBContact 
      Enabled         =   0   'False
      Height          =   315
      Left            =   960
      MaxLength       =   20
      TabIndex        =   2
      Top             =   1920
      Width           =   2175
   End
   Begin VB.ComboBox cboRCrew 
      Enabled         =   0   'False
      Height          =   315
      Left            =   7200
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   1200
      Width           =   2415
   End
   Begin VB.Label lblCompleted 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Completed:"
      Height          =   195
      Left            =   135
      TabIndex        =   49
      Top             =   960
      Width           =   795
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Area:"
      Height          =   195
      Left            =   465
      TabIndex        =   46
      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        =   45
      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        =   44
      Top             =   2820
      Width           =   1770
   End
   Begin VB.Label lblBPhone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Phone:"
      Height          =   195
      Left            =   330
      TabIndex        =   43
      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        =   42
      Top             =   1980
      Width           =   3060
   End
   Begin VB.Label lblStory 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "# of Stories:"
      Height          =   195
      Left            =   7530
      TabIndex        =   41
      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        =   40
      Top             =   2400
      Width           =   1365
   End
   Begin VB.Label lblVWPSuper 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "VWP Superintendent:"
      Height          =   195
      Left            =   6840
      TabIndex        =   39
      Top             =   960
      Width           =   1545
   End
   Begin VB.Label lblHPhone 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Telephone:"
      Height          =   195
      Left            =   2385
      TabIndex        =   38
      Top             =   1680
      Width           =   810
   End
   Begin VB.Label lblHAddress 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Address:"
      Height          =   195
      Left            =   2580
      TabIndex        =   37
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label lblHName 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Name:"
      Height          =   195
      Left            =   2730
      TabIndex        =   36
      Top             =   960
      Width           =   465
   End
   Begin VB.Label lblBillDate 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Billed Date:"
      Height          =   195
      Left            =   30
      TabIndex        =   35
      Top             =   3840
      Width           =   810
   End
   Begin VB.Label lblBillAmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Billed Amt:"
      Height          =   195
      Left            =   105
      TabIndex        =   34
      Top             =   4200
      Width           =   735
   End
   Begin VB.Label lblHOInfo 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Homeowner Information:"
      Height          =   195
      Left            =   3360
      TabIndex        =   33
      Top             =   600
      Width           =   1725
   End
   Begin VB.Label lblBAmt 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Amount:"
      Height          =   195
      Left            =   255
      TabIndex        =   32
      Top             =   3120
      Width           =   585
   End
   Begin VB.Label lblBPO 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "P.O.:"
      Height          =   195
      Left            =   480
      TabIndex        =   31
      Top             =   2760
      Width           =   360
   End
   Begin VB.Label lblBContact 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Contact:"
      Height          =   195
      Left            =   240
      TabIndex        =   30
      Top             =   2040
      Width           =   600
   End
   Begin VB.Label lblBuilderInfo 
      AutoSize        =   -1  'True
      Caption         =   "Builder Information:"
      Height          =   195
      Left            =   840
      TabIndex        =   29
      Top             =   1620
      Width           =   1350
   End
   Begin VB.Label lblScheduled 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Scheduled:"
      Height          =   195
      Left            =   120
      TabIndex        =   27
      Top             =   600
      Width           =   810
   End
   Begin VB.Label lblProjectLot 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   3300
      TabIndex        =   26
      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 = "frmShowRepair"
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 ShowRepair - Module CrewLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdExit_Click()
   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
   Call CrewLoad
'   Call FormClear
'   Call GetLotInfo
   If FormFind() Then
      Call FormShow
   Else
      MsgBox "No Information Was Found For This Repair", vbOKOnly, "No Information"
      Unload Me
   End If
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ShowRepair - Module Form_Load"
   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 Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

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

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

Private Function FormFind() As Boolean
Dim strSQL As String, strPlan As String, strMEMO As String

   On Error GoTo Error_EH
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblRepair "
   strSQL = strSQL & "WHERE Repair_ID = " & gintREPAIRID

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

   moRSRepair.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSRepair.EOF Then
      FormFind = False
   Else
      FormFind = True
      gintLOTID = Field2Str2(moRSRepair!Lot_id)
      gintPROJID = Field2Str2(moRSRepair!proj_id)
   End If
   Exit Function
   
Error_EH:
   gstrMODULE = "Form ShowRepair - Module FormFind"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Function
End Function

Private Sub FormShow()
Dim mstrAREA As String
Dim strSQL As String
Dim oRS As Recordset

   On Error GoTo Error_EH
   
'   strSQL = "Select Proj_Desc FROM tblProject WHERE proj_id = " & gintPROJID
'   Set oRS = New Recordset
'   oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
'   lblProject.Caption = Field2Str(oRS!proj_desc)

'   strSQL = "Select Lot_no FROM tblLotInfo WHERE Lot_id = " & gintLOTID
'   Set oRS = New Recordset
'   oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
'   lblLot.Caption = Field2Str(oRS!lot_no)
   With moRSRepair
      txtScheduled = Field2Str(!scheduled)
      txtCompleted = Field2Str(!completed)
      txtBContact = Field2Str(!builder_contact)
      txtBPhone = Field2Str(!builder_phone)
      txtBPO = Field2Str(!builder_PO)
      txtBPOAmt = Field2Str(!PO_Amt)
      txtBillDate = Field2Str(!bill_date)
      txtBillAmt = Field2Str(!bill_amt)
      txtHName = Field2Str(!Owner_Name)
      txtHAddress = Field2Str(!Owner_address)
      txtHPhone = Field2Str(!Owner_phone)
      txtVWPSuper = Field2Str(!VWP_Super)
      txtStory = Field2Str(!storys)
      txtEstTime = Field2Str(!est_time)
      txtBCWho = Field2Str(!bc_who)
      txtDesc = Field2Str(!Desc)
      txtNotes = Field2Str(!notes)
      mstrAREA = Field2Str(!Area)
      If mstrAREA = "W" Then
         cboDArea.Text = "West"
      ElseIf mstrAREA = "N" Then
         cboDArea.Text = "North"
      ElseIf mstrAREA = "S" Then
         cboDArea.Text = "South"
      ElseIf mstrAREA = "X" Then
         cboDArea.Text = "Xtra"
      End If
      chkBilled = Field2CheckBox(!billed)
      chkPunch = Field2CheckBox(!punch)
      chkYr1 = Field2CheckBox(!yrend1)
      chkYr2 = Field2CheckBox(!yrend2)
      chkWO = Field2CheckBox(!wo)
      chkWarrenty = Field2CheckBox(!repair)
      chkBC = Field2CheckBox(!backcharge)
      cboRCrew.ListIndex = Field2Integer(!repair_crew) - 1
      lblProjectLot.Caption = Field2Str(!proj_lot)
'      cboRCrew.ListIndex = Field2Long(!repair_crew)
   End With
   
'   Call GetLotInfo

   mboolSHOW = False
   Exit Sub
   
Error_EH:
   If Err = 3021 Then
      MsgBox "No Project Was Found = Be Sure To Click The Get Lot Button", vbOKOnly, "No Project"
      Resume Next
   End If
   gstrMODULE = "Form ShowRepair - Module FormShow"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub