'*************************************************************************************
'* Name:  CS 100-01                                                                  *
'* Program:  Putting It All Together                                                 *
'* Date:  4/8/03                                                                     *
'* Description:  This program is designed to demonstrate files, arrays, printing, &  *
'*               sorting using a Sub Procedure.                                      *
'*************************************************************************************

Option Explicit

'Global Constants
Const intMAX_REPS = 15
Const intMAX_WKS = 4

'Global Variables
Dim curSalesAmt(1 To intMAX_REPS, _
                1 To intMAX_WKS) As Currency
Dim intInFileNum As Integer
Dim intNumReps As Integer
Dim intWkIndx As Integer
Dim strSalesRep(1 To intMAX_REPS) As String

Private Sub Form_Load()
    Const strDATA_FILE = "\SalesRepsData.csv"
    
    Dim strFilePath As String

    'Open the File
    strFilePath = App.Path & strDATA_FILE
    intInFileNum = FreeFile
    Open strFilePath For Input As #intInFileNum
    
    'Read the Data Files
    Do Until EOF(intInFileNum)
        intNumReps = intNumReps + 1
        Input #intInFileNum, strSalesRep(intNumReps)

        For intWkIndx = 1 To intMAX_WKS
            Input #intInFileNum, curSalesAmt(intNumReps, intWkIndx)
        Next intWkIndx
    Loop

'    txtSalesRep.SetFocus
End Sub

Private Sub btnFindData_Click()
    'Variable Declarations
    Dim curTempSales(1 To intMAX_WKS) As Currency
    Dim intCount As Integer
    Dim intCount1 As Integer
    Dim intCount2 As Integer
    Dim intRepIndx As Integer
    Dim strTempRep As String

    'Sort the Reps
    For intCount1 = 1 To intNumReps - 1
        For intCount2 = intCount1 + 1 To intNumReps
            If strSalesRep(intCount1) > strSalesRep(intCount2) Then
                'Swap Reps
                strTempRep = strSalesRep(intCount2)
                strSalesRep(intCount2) = strSalesRep(intCount1)
                strSalesRep(intCount1) = strTempRep
                
                'Swap Sales
                For intCount = 1 To intMAX_WKS
                    curTempSales(intCount) = curSalesAmt(intCount2, intCount)
                    curSalesAmt(intCount2, intCount) = curSalesAmt(intCount1, intCount)
                    curSalesAmt(intCount1, intCount) = curTempSales(intCount)
                Next intCount
            End If
        Next intCount2
    Next intCount1
    
    'Find the Sales Rep
    intRepIndx = 1
    Do While (intRepIndx <= intNumReps) And _
             (LCase(strSalesRep(intRepIndx)) <> LCase(txtSalesRep.Text))
          intRepIndx = intRepIndx + 1
    Loop
    
    'Output the Sales Data
    If intRepIndx > intNumReps Then
        txtSalesData.Text = "Rep not found"
    Else
        txtSalesData.Text = FormatCurrency(curSalesAmt(intRepIndx, txtWeekNum))
        txtSalesData.Alignment = 1
    End If
    
    txtSalesRep.SetFocus
End Sub

Private Sub btnEnd_Click()
    Close
    End
End Sub