Attribute VB_Name = "NoOfCasesTable"

Global new_case_per_agent As Object
Global collapsed_case_per_agent As Object

Global new_case_team_a As Double
Global collapsed_case_team_a As Double

Global new_case_team_b As Double
Global collapsed_case_team_b As Double

Global case_persistency_by_agent As Object
Global case_persistency_team_a As Double
Global case_persistency_team_b As Double

Function Calc(ByVal TablesMeta As Variant) As Variant
    Debug.Print "helloworld"
    Set new_case_per_agent = CreateObject("Scripting.Dictionary")
    Set collapsed_case_per_agent = CreateObject("Scripting.Dictionary")
    Set case_persistency_by_agent = CreateObject("Scripting.Dictionary")

    Dim agent_sales_table As Variant
    Dim product_sales_meta As Variant
    Dim product_sales_table As Variant

    Dim val_agent_name as string
    Dim val_team as string

    agent_sales_table = TablesMeta(0)
    Dim agent_sales_table_rows As Variant
    agent_sales_table_rows = agent_sales_table(0)

    product_sales_table = TablesMeta(1)
    Dim product_sales_table_row As Variant
    product_sales_table_row = product_sales_table(0)

    agent_working_performance_table = TablesMeta(2)
    Dim agent_working_performance_table_rows As Variant
    agent_working_performance_table_rows = agent_working_performance_table(0)

    Dim val_product_sales_selling_unit As String

    Dim sales_selling_unit_TA As Integer
    Dim sales_selling_unit_TB As Integer
    Dim team As String

    For ps = 1 To agent_working_performance_table(1)
      val_agent_name = agent_working_performance_table_rows(ps, 2)
      val_team = agent_working_performance_table_rows(ps, 3)
      num_new_case = agent_working_performance_table_rows(ps, 4)
      num_collapsed_case = agent_working_performance_table_rows(ps, 5)


      If (Not (IsEmpty(val_agent_name)) And Not (new_case_per_agent.exists(val_agent_name))) Then
        new_case_per_agent(val_agent_name) = 0
      End If
      new_case_per_agent(val_agent_name) = new_case_per_agent(val_agent_name) + num_new_case

      If (Not (IsEmpty(val_agent_name)) And Not (collapsed_case_per_agent.exists(val_agent_name))) Then
        collapsed_case_per_agent(val_agent_name) = 0
      End If
      collapsed_case_per_agent(val_agent_name) = collapsed_case_per_agent(val_agent_name) + num_collapsed_case

      if (val_team = "A") Then
        new_case_team_a = new_case_team_a + num_new_case
        collapsed_case_team_a = collapsed_case_team_a + num_collapsed_case
      end if

      if (val_team = "B") Then
        new_case_team_b = new_case_team_b + num_new_case
        collapsed_case_team_b = collapsed_case_team_b + num_collapsed_case
      end if

    Next ps

    for s = 0 to UBound(SALES_ARRAY)
        sales_name = SALES_ARRAY(s)
        collapsed_case  = collapsed_case_per_agent(sales_name)
        new_case = new_case_per_agent(sales_name)

        case_persistency_by_agent(sales_name) = ( new_case - collapsed_case ) / new_case

    next s

    case_persistency_team_a = (new_case_team_a - collapsed_case_team_a ) / new_case_team_a
    case_persistency_team_b = (new_case_team_b - collapsed_case_team_b ) / new_case_team_b


    Calc = Array(1, sales_selling_unit_TA, sales_selling_unit_TB)

End Function

Function WriteTable(ByVal calc_result As Variant, ByVal FILE_PATH As String)
  Debug.Print "helloworld"

    Dim sales_selling_unit_TA As Integer
    Dim sales_selling_unit_TB As Integer
    sales_selling_unit_TA = calc_result(1)
    sales_selling_unit_TB = calc_result(2)

    Const TOP_ROW As Long = 1
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range
    Dim tempArray() As Variant
    Dim i As Long

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)

    ' Check if the sheet exists
    On Error Resume Next
    Set ws = wb.Sheets("No. of cases")
    On Error GoTo 0

    ' If not found, create a new sheet
    If ws Is Nothing Then
        Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
        ws.Name = "No. of cases"
    Else
        ' Empty the entire sheet
        ws.UsedRange.ClearContents
    End If


    ' Write month names
    Set startCell = ws.Range("A1")
    tempArray = Array("Case Persistency")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(0, i).Value = tempArray(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("A2")
    tempArray = Array("Name", "No of new case", "No. of collpased case", "Case Persistency")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(0, i).Value = tempArray(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("A3")
    For i = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
        startCell.Offset(i, 0).Value = SALES_ARRAY(i)
    Next i

    ' Write month names
    Set startCell = ws.Range("B3")
    ' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
    for s = 0 to UBound(SALES_ARRAY)
        sales_name = SALES_ARRAY(s)
        startCell.Offset(s, 0).Value = new_case_per_agent(sales_name)
    Next s

    ' Write month names
    Set startCell = ws.Range("C3")
    ' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
    for s = 0 to UBound(SALES_ARRAY)
        sales_name = SALES_ARRAY(s)
        startCell.Offset(s, 0).Value = collapsed_case_per_agent(sales_name)
    Next s

    ' Write month names
    Set startCell = ws.Range("D3")
    ' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
    for s = 0 to UBound(SALES_ARRAY)
        sales_name = SALES_ARRAY(s)
        startCell.Offset(s, 0).Value = case_persistency_by_agent(sales_name)
        startCell.Offset(s, 0).NumberFormat = "0.00%"
    Next s

    ' Write month names
    Set startCell = ws.Range("A14")
    tempArray = Array("Team A total", "Team B Total")
    For i = LBound(tempArray) To UBound(tempArray)
        startCell.Offset(i, 0).Value = tempArray(i)
    Next i


    ' Write month names
    Set startCell = ws.Range("B14")
    tempArray = Array("Team A total", "Team B Total")
    startCell.Offset(0, 0).Value = new_case_team_a
    startCell.Offset(1, 0).Value = new_case_team_b

    ' Write month names
    Set startCell = ws.Range("C14")
    tempArray = Array("Team A total", "Team B Total")
    startCell.Offset(0, 0).Value = collapsed_case_team_a
    startCell.Offset(1, 0).Value = collapsed_case_team_b

    ' Write month names
    Set startCell = ws.Range("D14")
    tempArray = Array("Team A total", "Team B Total")
    startCell.Offset(0, 0).Value = case_persistency_team_a
    startCell.Offset(1, 0).Value = case_persistency_team_b
    startCell.Offset(0, 0).NumberFormat = "0.00%"
    startCell.Offset(1, 0).NumberFormat = "0.00%"




End Function