update,

2025-01-31 21:36:48 +08:00
parent 8ee1ccbebc
commit 2e592cb561
248 changed files with 11958 additions and 0 deletions
--- a/jimmycheung93/task4/1/frmMain.frm
+++ b/jimmycheung93/task4/1/frmMain.frm
@@ -0,0 +1,545 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMain
+   Caption         =   "Main"
+   ClientHeight    =   9255.001
+   ClientLeft      =   120
+   ClientTop       =   465
+   ClientWidth     =   8655.001
+   OleObjectBlob   =   "frmMain.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "frmMain"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Dim monthly_commission As Variant
+Dim montyly_commission_TA As Variant
+Dim montyly_commission_TB As Variant
+
+Dim quartely_commission_TA As Variant
+Dim quartely_commission_TB As Variant
+
+Dim monthly_top_5_comission_name As Variant
+Dim monthly_top_5_comission_value As Variant
+
+Dim monthly_total As Variant
+Dim monthly_total_TA As Variant
+Dim monthly_total_TB As Variant
+
+Dim month_selected As Integer
+
+Dim sales_selected As String
+
+
+Dim sales_data_loaded As Boolean
+Dim calc_result_empty As Boolean
+
+Dim pivot_result
+
+Dim get_team_monthly_sale
+Dim teams_month_total_sale, team_a_month_total_sale, team_b_month_total_sale
+
+Dim best_selling_result
+Dim month_best_agent
+Dim team_a_best_name, team_a_best_value, team_a_best_commission
+Dim team_b_best_name, team_b_best_value, team_b_best_commission
+
+Dim apanalysis_calc_result As Variant
+Dim apanalysis_sales_calc_result As Variant
+
+Dim agent_name_selected As String
+Dim str_month_selected As String
+Dim name_and_month As String
+Dim case_persistency_pivot As Variant
+Dim agent_month_new_case, agent_month_collapsed_case, agent_quarter_new_case, agent_quarter_collapsed_case, agent_month_case_persistency, agent_quarter_case_persistency
+
+Dim agent_monthly_sale As Variant
+Dim monthly_total_sell, month_total_commission
+
+Function validateAgentSalesFile(workfile_xls_filename As String) As Boolean
+  Dim validation_result As Boolean
+  validation_result = True
+
+  Set agent_sales_workbook = Workbooks.Open(workfile_xls_filename)
+  Set agent_sales_worksheet = agent_sales_workbook.Worksheets(1)
+
+  If (agent_sales_worksheet.Cells(1, 1) <> "Sales No.") Then
+    validation_result = False
+  End If
+
+  If (agent_sales_worksheet.Cells(1, 2) <> "Date") Then
+    validation_result = False
+  End If
+
+  If (agent_sales_worksheet.Cells(1, 3) <> "Agent Name") Then
+    validation_result = False
+  End If
+
+  agent_sales_workbook.Close
+
+  validateAgentSalesFile = validation_result
+End Function
+
+Function validateAgentWorkingPerformanceFile(workfile_xls_filename As String) As Boolean
+  Dim validation_result As Boolean
+  validation_result = True
+
+  Set agent_working_performance_workbook = Workbooks.Open(workfile_xls_filename)
+  Set agent_working_performance_worksheet = agent_working_performance_workbook.Worksheets(1)
+
+  If (agent_working_performance_worksheet.Cells(1, 1) <> "Date") Then
+    validation_result = False
+  End If
+
+  If (agent_working_performance_worksheet.Cells(1, 2) <> "Name") Then
+    validation_result = False
+  End If
+
+  If (agent_working_performance_worksheet.Cells(1, 3) <> "Team") Then
+    validation_result = False
+  End If
+
+  agent_working_performance_workbook.Close savechanges:=False
+
+  validateAgentWorkingPerformanceFile = True
+End Function
+
+Function validateProductSalesFile(workfile_xls_filename As String) As Boolean
+  Dim validation_result As Boolean
+  validation_result = True
+
+  Set product_sales_workbook = Workbooks.Open(workfile_xls_filename)
+  Set product_sales_worksheet = product_sales_workbook.Worksheets(1)
+
+  If (product_sales_worksheet.Cells(1, 1) <> "Sales No.") Then
+    validation_result = False
+  End If
+
+  If (product_sales_worksheet.Cells(1, 2) <> "Date") Then
+    validation_result = False
+  End If
+
+  If (product_sales_worksheet.Cells(1, 3) <> "Product Category") Then
+    validation_result = False
+  End If
+
+  product_sales_workbook.Close
+
+
+  validateProductSalesFile = True
+End Function
+
+
+Private Sub cmbMonthSelect_Change()
+
+  If (cmbMonthSelect.Value <> "") Then
+    str_month_selected = Common.ConvLetterMonthToIntMonth(cmbMonthSelect.Value)
+
+    If (calc_result_empty = False) Then
+      name_and_month = agent_name_selected & "," & str_month_selected
+      frmMain.UpdateScreen
+    End If
+  End If
+
+End Sub
+
+Sub UpdateScreen()
+    ' team details
+    Dim team_a_agent_name, team_b_agent_name As String
+    team_a_agent_name = team_a_best_name(str_month_selected)
+    team_b_agent_name = team_b_best_name(str_month_selected)
+
+    lblTotalSales.Caption = "Total Sales: " & " " & Format(teams_month_total_sale(str_month_selected), "0.00")
+    lblMonthlyCommissionTA.Caption = "Team A: " & "$" & Format(team_a_month_total_sale(str_month_selected), "0.00")
+    lblMonthlyCommissionTB.Caption = "Team B: " & "$" & Format(team_b_month_total_sale(str_month_selected), "0.00")
+    lblTaTopSeller.Caption = team_a_agent_name
+    lblTbTopSeller.Caption = team_b_agent_name
+
+    'commission
+    lblTaTopSellingUnit.Caption = Format(team_a_best_commission(str_month_selected), "0.00")
+    lblTbTopSellingUnit.Caption = Format(team_b_best_commission(str_month_selected), "0.00")
+
+    lblTaTopMonthlySales.Caption = Format(team_a_best_value(str_month_selected), "0.00")
+    lblTbTopMonthlySales.Caption = Format(team_b_best_value(str_month_selected), "0.00")
+
+    lblTaCasePersistency.Caption = Format(agent_month_case_persistency(team_a_agent_name & "," & str_month_selected), "0.00%")
+    lblTbCasePersistency.Caption = Format(agent_month_case_persistency(team_b_agent_name & "," & str_month_selected), "0.00%")
+
+    StatusTa.BackColor = Var.STATUS_COLOR_GREEN
+    If (agent_month_case_persistency(team_a_agent_name & "," & str_month_selected) < 0.66) Then
+      StatusTa.BackColor = Var.STATUS_COLOR_YELLOW
+    End If
+    If (agent_month_case_persistency(team_a_agent_name & "," & str_month_selected) < 0.33) Then
+      StatusTa.BackColor = Var.STATUS_COLOR_RED
+    End If
+
+    StatusTb.BackColor = Var.STATUS_COLOR_GREEN
+    If (agent_month_case_persistency(team_b_agent_name & "," & str_month_selected) < 0.66) Then
+      StatusTb.BackColor = Var.STATUS_COLOR_YELLOW
+    End If
+    If (agent_month_case_persistency(team_b_agent_name & "," & str_month_selected) < 0.33) Then
+      StatusTb.BackColor = Var.STATUS_COLOR_RED
+    End If
+
+    ' agent details
+    Common.initAccountFromAccountSheet
+    lblAgentName.Caption = agent_name_selected
+    lblAgentAge.Caption = Common.LookupAge(agent_name_selected)
+    lblAgentTeam.Caption = Common.LookupTeam(agent_name_selected)
+
+    lblCasePersistency.Caption = Format(agent_month_case_persistency(name_and_month), "0.00")
+    lblCollpasedCase.Caption = agent_month_collapsed_case(name_and_month)
+    lblNewCase.Caption = agent_month_new_case(name_and_month)
+    lblTotalComission.Caption = month_total_commission(name_and_month)
+    lblTotalSale.Caption = Format(monthly_total_sell(name_and_month), "0.00")
+
+    ' check if path found
+
+    ' handle throw error
+    If (Dir(Application.ActiveWorkbook.Path & "\images\" & agent_name_selected & ".jpg") = "") Then
+      Msgbox "Sorry but the path for staff profile image not found"
+    Else
+      Image1.Picture = LoadPicture(Application.ActiveWorkbook.Path & "\images\" & agent_name_selected & ".jpg")
+    End If
+
+End Sub
+
+Private Sub cmbAgentSelect_Change()
+
+  If (cmbAgentSelect.Value <> "") Then
+    agent_name_selected = cmbAgentSelect.Value
+
+    If (calc_result_empty = False) Then
+      'monthly_commission_per_agent
+      name_and_month = agent_name_selected & "," & str_month_selected
+      frmMain.UpdateScreen
+
+    End If
+  End If
+
+End Sub
+
+Private Sub cmdBrowseAgentSalesFileBtn_Click()
+  Dim validate_result As Boolean
+
+  Var.agentSalesFilePath = Application.GetOpenFilename(FileFilter:="Excel files (*.xlsx*), *.xlsx*", Title:="Choose an Excel file to open", MultiSelect:=False)
+
+  Debug.Print CStr(Var.agentSalesFilePath)
+
+  If CStr(Var.agentSalesFilePath) = CStr(False) Then
+    ' User did not select a file
+    MsgBox "no file selected"
+  Else
+    ' User selected a file
+    txtBrowseAgentSalesFilePath.Value = Var.agentSalesFilePath
+
+    validate_result = validateAgentSalesFile(Var.agentSalesFilePath)
+
+    If (validate_result = False) Then
+      MsgBox "sorry but wrong agent sales file selected"
+
+      Var.agentSalesFilePath = ""
+      txtBrowseAgentSalesFilePath.Text = ""
+    Else
+      Debug.Print "agent sales file validation OK"
+      Var.agent_sales_file_OK = True
+
+    End If
+  End If
+
+End Sub
+
+
+Sub UpdateSelectReportTabStatus()
+  Dim result As Boolean
+  result = False
+
+  If (Var.agent_sales_file_OK = True) Then
+    If (Var.agent_working_performance_OK = True) Then
+      If (Var.product_sales_OK = True) Then
+        MultiPage1.Pages(1).Enabled = True
+        MultiPage1.Pages(2).Enabled = True
+      End If
+    End If
+  End If
+
+End Sub
+
+Private Sub cmdBrowseAgentWorkingPerformanceBtn_Click()
+  Dim validate_result As Boolean
+
+  Var.agentWorkingPerformancePath = Application.GetOpenFilename(FileFilter:="Excel files (*.xlsx*), *.xlsx*", Title:="Choose an Excel file to open", MultiSelect:=False)
+
+  Debug.Print CStr(Var.agentWorkingPerformancePath)
+
+  If CStr(Var.agentWorkingPerformancePath) = CStr(False) Then
+    ' User did not select a file
+    MsgBox "no file selected"
+  Else
+    ' User selected a file
+    txtBrowseAgentWorkingPerformancePath.Value = Var.agentWorkingPerformancePath
+
+    validate_result = validateAgentWorkingPerformanceFile(Var.agentWorkingPerformancePath)
+
+    If (validate_result = False) Then
+      MsgBox "sorry but wrong agent sales file selected"
+
+      Var.agentWorkingPerformancePath = ""
+      txtBrowseAgentWorkingPerformancePath.Text = ""
+    Else
+      Debug.Print "agent sales file validation OK"
+      Var.agent_working_performance_OK = True
+
+    End If
+  End If
+
+End Sub
+
+Private Sub cmdBrowseProductSalesBtn_Click()
+
+  Dim validate_result As Boolean
+
+  Var.productSalesPath = Application.GetOpenFilename(FileFilter:="Excel files (*.xlsx*), *.xlsx*", Title:="Choose an Excel file to open", MultiSelect:=False)
+
+  If CStr(Var.productSalesPath) = CStr(False) Then
+    ' User did not select a file
+    MsgBox "no file selected"
+  Else
+    ' User selected a file
+    txtBrowseProductSalesPath.Value = Var.productSalesPath
+
+    validate_result = validateProductSalesFile(Var.productSalesPath)
+
+    If (validate_result = False) Then
+      MsgBox "sorry but wrong agent sales file selected"
+
+      Var.productSalesPath = ""
+      txtBrowseProductSalesPath.Text = ""
+    Else
+      Debug.Print "agent sales file validation OK"
+      Var.product_sales_OK = True
+
+    End If
+  End If
+End Sub
+
+Private Sub cmdCalculate_Click()
+    Dim sPath As String
+
+    Var.AgentSalesMeta = ReadAgentSalesWorkbook.Run(Var.agentSalesFilePath)
+    Var.ProductSalesMeta = ReadProductSalesWorkbook.Run(Var.productSalesPath)
+    Var.AgentWorkingPerformanceMeta = ReadAgentWorkingPerfWorkbook.Run(Var.agentWorkingPerformancePath)
+
+    Var.CombinedSalesMeta = Array(Var.AgentSalesMeta, Var.ProductSalesMeta, Var.AgentWorkingPerformanceMeta)
+    calc_result_empty = False
+
+    case_persistency_pivot = awp_xlsx_case_persistency_pivot.OpenFile(Var.agentWorkingPerformancePath)
+    Set agent_month_new_case = case_persistency_pivot(0)
+    Set agent_month_collapsed_case = case_persistency_pivot(1)
+    Set agent_quarter_new_case = case_persistency_pivot(2)
+    Set agent_quarter_collapsed_case = case_persistency_pivot(3)
+    Set agent_month_case_persistency = case_persistency_pivot(4)
+    Set agent_quarter_case_persistency = case_persistency_pivot(5)
+
+    agent_monthly_sale = as_xlsx_get_agent_monthly_sale.OpenFile(Var.agentSalesFilePath)
+    Set monthly_total_sell = agent_monthly_sale(0)
+    Set month_total_commission = agent_monthly_sale(1)
+
+    month_best_agent = as_xlsx_get_month_best_agent.OpenFile(Var.agentSalesFilePath)
+    'Set monthly_total_sell = month_best_agent(0)
+    Set team_a_best_name = month_best_agent(1)
+    Set team_a_best_value = month_best_agent(2)
+    Set team_a_best_commission = month_best_agent(3)
+    Set team_b_best_name = month_best_agent(4)
+    Set team_b_best_value = month_best_agent(5)
+    Set team_b_best_commission = month_best_agent(6)
+
+    month_best_agent = as_xlsx_get_team_monthly_sale.OpenFile(Var.agentSalesFilePath)
+    Set teams_month_total_sale = month_best_agent(0)
+    Set team_a_month_total_sale = month_best_agent(1)
+    Set team_b_month_total_sale = month_best_agent(2)
+
+    agent_name_selected = "Alex"
+    str_month_selected = "1"
+    name_and_month = "Alex,1"
+
+    frmMain.UpdateScreen
+
+    ' APAnalysis_WriteTable calc_result, file_path, wb
+    cmbMonthSelect.Enabled = True
+    optTeamEnable.Enabled = True
+    optAgentEnable.Enabled = True
+
+    framePressToStart.Visible = False
+    frameTeamDetails.Visible = True
+
+    ' wb.Save
+    ' wb.Close
+
+    Debug.Print "done"
+
+End Sub
+
+Private Sub cmdLogout_Click()
+
+  frmMain.Hide
+  frmLogin.Show
+
+End Sub
+
+
+Private Sub cmdGenTextRpt_Click()
+  Debug.Print "GenTextReport start"
+  Common.GenTextReport
+
+  Debug.Print "GenTextReport end"
+
+End Sub
+
+Private Sub cmdTest_Click()
+
+End Sub
+
+Private Sub CommandButton11_Click()
+  End
+End Sub
+
+
+Function createNewXlsx(file_path As String)
+
+  Dim wb As Workbook
+  Set wb = Workbooks.Add
+  wb.SaveAs file_path
+  wb.Close
+
+End Function
+
+
+Private Sub UserForm_Initialize()
+  calc_result_empty = True
+  Config.init
+
+  'txtOutputRptDirectory.Text = Var.output_report_directory
+
+  frmMain.cmbGenRptType.AddItem "01 Text Report"
+  frmMain.cmbGenRptType.AddItem "02 Chart Report"
+
+  frmMain.cmbMonthSelect.AddItem "Jan"
+  frmMain.cmbMonthSelect.AddItem "Feb"
+  frmMain.cmbMonthSelect.AddItem "Mar"
+  frmMain.cmbMonthSelect.AddItem "Apr"
+  frmMain.cmbMonthSelect.AddItem "May"
+  frmMain.cmbMonthSelect.AddItem "Jun"
+  frmMain.cmbMonthSelect.AddItem "Jul"
+  frmMain.cmbMonthSelect.AddItem "Aug"
+  frmMain.cmbMonthSelect.AddItem "Sep"
+  frmMain.cmbMonthSelect.AddItem "Oct"
+  frmMain.cmbMonthSelect.AddItem "Nov"
+  frmMain.cmbMonthSelect.AddItem "Dec"
+  cmbMonthSelect.Value = "Jan"
+
+  frmMain.cmbAgentSelect.AddItem "Alex"
+  frmMain.cmbAgentSelect.AddItem "Ben"
+  frmMain.cmbAgentSelect.AddItem "Candy"
+  frmMain.cmbAgentSelect.AddItem "Danny"
+  frmMain.cmbAgentSelect.AddItem "Eason"
+  frmMain.cmbAgentSelect.AddItem "Filex"
+  frmMain.cmbAgentSelect.AddItem "Gary"
+  frmMain.cmbAgentSelect.AddItem "Henry"
+  frmMain.cmbAgentSelect.AddItem "Irene"
+  frmMain.cmbAgentSelect.AddItem "Jenny"
+
+  sales_selected = "Alex"
+  cmbAgentSelect.Text = ""
+  cmbAgentSelect.Value = sales_selected
+
+
+
+  cmbGenRptType.Text = ""
+  cmbGenRptType.Value = "01 Text Report"
+
+  framePressToStart.Visible = True
+  framePressToStart.Top = 75
+  framePressToStart.Left = 10
+  framePressToStart.Height = 283
+  framePressToStart.Width = 388
+
+  frameAgentDetails.Visible = False
+  frameAgentDetails.Top = framePressToStart.Top
+  frameAgentDetails.Left = framePressToStart.Left
+  frameAgentDetails.Height = framePressToStart.Height
+  frameAgentDetails.Width = framePressToStart.Width
+
+  frameTeamDetails.Visible = False
+  frameTeamDetails.Top = framePressToStart.Top
+  frameTeamDetails.Left = framePressToStart.Left
+  frameTeamDetails.Height = framePressToStart.Height
+  frameTeamDetails.Width = framePressToStart.Width
+
+  ' align frame in tab 2
+  frmChartRpt.Top = frmTextReport.Top
+  frmChartRpt.Left = frmTextReport.Left
+  frmChartRpt.Height = frmTextReport.Height
+  frmChartRpt.Width = frmTextReport.Width
+
+  Var.STATUS_COLOR_GREEN = RGB(0, 128, 0)
+  Var.STATUS_COLOR_YELLOW = RGB(255, 255, 0)
+  Var.STATUS_COLOR_RED = RGB(255, 0, 0)
+
+End Sub
+
+Private Sub txtOutputRptDirectory_Change()
+  Var.output_report_directory = txtOutputRptDirectory.Text
+End Sub
+
+
+Private Sub cmdGenReport_Click()
+  If (frmMain.cmbGenRptType.Value = "01 Text Report") Then
+    Common.GenTextReport
+  End If
+
+  If (frmMain.cmbGenRptType.Value = "02 Chart Report") Then
+    Common.GenChartReport
+  End If
+End Sub
+
+
+Private Sub optAgentEnable_Click()
+    If (optAgentEnable.Value) Then
+      cmbAgentSelect.Enabled = True
+      frameAgentDetails.Visible = True
+      frameTeamDetails.Visible = False
+    End If
+End Sub
+
+
+
+
+
+Private Sub optTeamEnable_Click()
+    If (optTeamEnable.Value) Then
+      cmbAgentSelect.Enabled = False
+      frameTeamDetails.Visible = True
+      frameAgentDetails.Visible = False
+    End If
+End Sub
+
+Private Sub cmbGenRptType_Change()
+    If (cmbGenRptType.Value = "01 Text Report") Then
+        frmTextReport.Visible = True
+        frmChartRpt.Visible = False
+    End If
+
+    If (cmbGenRptType.Value = "02 Chart Report") Then
+        frmChartRpt.Visible = True
+        frmTextReport.Visible = False
+    End If
+End Sub
+
+Private Sub cmdNext_Click()
+    UpdateSelectReportTabStatus
+End Sub
+