Attribute VB_Name = "SAProdCatGraph"

Function SalesAmountTable(ByVal calc_result As Variant, ByVal FILE_PATH As String, ByVal int_month As Integer)
    Const START_CELL As String = "A1"
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range

    Dim row As Integer

    Dim TravelInsuranceByMonth As Variant
    Dim HealthInsuranceByMonth As Variant
    Dim LifeInsuranceByMonth As Variant
    Dim VehicleInsuranceByMonth As Variant
    Dim AccidentInsuranceByMonth As Variant

    TravelInsuranceByMonth = calc_result(0)
    HealthInsuranceByMonth = calc_result(1)
    LifeInsuranceByMonth = calc_result(2)
    VehicleInsuranceByMonth = calc_result(3)
    AccidentInsuranceByMonth = calc_result(4)

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Sales Analysis Product Category")

    Dim InstType() As Variant
    InstType = Array("Accident insurance", "Vehicle insurance", "Life insurance", "Health insurance", "Travel insurance")

    ' Write headers
    Set startCell = ws.Range(START_CELL)
    For m = LBound(MONTH_NAMES) To UBound(MONTH_NAMES)
      month_name = MONTH_NAMES(m)

      row = 0
      startCell.Offset(row, 0 + (m * 3)).Value = "Sales unit of " & month_name

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Type"
      startCell.Offset(row, 1 + (m * 3)).Value = "Sales"

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Accident insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = AccidentInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Vehicle insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = VehicleInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Life insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = LifeInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Health insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = HealthInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Travel insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = TravelInsuranceByMonth(m + 1)

    Next m


    ' TODO: replace content to real data



    ' Save and close the workbook
    ' wb.Close SaveChanges:=True
End Function


Function SalesAmountGraph(ByVal calc_result As Variant, ByVal FILE_PATH As String, ByVal int_month As Integer)
    Dim wb As Workbook
    Dim ws As Worksheet

    Dim YEAR_GRAPHS_TOP As Variant
    Dim YEAR_GRAPHS_LEFT As Variant
    YEAR_GRAPHS_TOP = Array(0, 0, 0, 300, 300, 300, 600, 600, 600, 900, 900, 900)
    YEAR_GRAPHS_LEFT = Array(0, 400, 800, 0, 400, 800, 0, 400, 800, 0, 400, 800)

    Dim DATA_RANGES As Variant
    DATA_RANGES = Array("A2:B7", "D2:E7", "G2:H7", "J2:K7", "M2:N7", "P2:Q7", "S2:T7", "V2:W7", "Y2:Z7", "AB2:AC7", "AE2:AF7", "AH2:AI7")

    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Sales Analysis Product Category")

    For m = LBound(MONTH_NAMES) To UBound(MONTH_NAMES)
      month_name = MONTH_NAMES(m)
      data_range = DATA_RANGES(m)

      ActiveSheet.Shapes.AddChart2(251, xlPie).Select
      ActiveChart.SetSourceData Source:=Range(data_range)

      ActiveChart.SetElement (msoElementLegendNone)
      ActiveChart.SetElement (msoElementDataLabelCallout)
      ActiveChart.ChartTitle.Select
      ActiveChart.ChartTitle.Text = "Sales amount of " & month_name
      Selection.Format.TextFrame2.TextRange.Characters.Text = "Sales amount of " & month_name

      Set cho = ws.ChartObjects(ws.ChartObjects.Count)
      Set cht = cho.Chart
      cho.Top = YEAR_GRAPHS_TOP(m)
      cho.Left = YEAR_GRAPHS_LEFT(m)
      cho.Width = 400
      cho.Height = 300


    Next m

End Function


Function SalesUnitTable(ByVal calc_result As Variant, ByVal FILE_PATH As String, ByVal int_month As Integer)
    ' Const HEADER_ROW As Long = 1
    ' Const START_CELL As String = "F1"
    ' Dim wb As Workbook
    ' Dim ws As Worksheet
    ' Dim startCell As Range
    Const START_CELL As String = "A10"
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range

    Dim row As Integer

    Dim TravelInsuranceByMonth As Variant
    Dim HealthInsuranceByMonth As Variant
    Dim LifeInsuranceByMonth As Variant
    Dim VehicleInsuranceByMonth As Variant
    Dim AccidentInsuranceByMonth As Variant

    TravelInsuranceByMonth = calc_result(0)
    HealthInsuranceByMonth = calc_result(1)
    LifeInsuranceByMonth = calc_result(2)
    VehicleInsuranceByMonth = calc_result(3)
    AccidentInsuranceByMonth = calc_result(4)

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Sales Analysis Product Category")

    Dim InstType() As Variant
    InstType = Array("Accident insurance", "Vehicle insurance", "Life insurance", "Health insurance", "Travel insurance")

    ' Write headers
    Set startCell = ws.Range(START_CELL)
    For m = LBound(MONTH_NAMES) To UBound(MONTH_NAMES)
      month_name = MONTH_NAMES(m)

      row = 0
      startCell.Offset(row, 0 + (m * 3)).Value = "Sales amount of " & month_name

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Type"
      startCell.Offset(row, 1 + (m * 3)).Value = "Sales"

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Accident insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = AccidentInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Vehicle insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = VehicleInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Life insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = LifeInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Health insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = HealthInsuranceByMonth(m + 1)

      row = row + 1
      startCell.Offset(row, 0 + (m * 3)).Value = "Travel insurance"
      startCell.Offset(row, 1 + (m * 3)).Value = TravelInsuranceByMonth(m + 1)

    Next m


    ' TODO: replace content to real data

End Function


Function SalesUnitGraph(ByVal calc_result As Variant, ByVal FILE_PATH As String, ByVal int_month As Integer)
    Dim wb As Workbook
    Dim ws As Worksheet

    Dim YEAR_GRAPHS_TOP As Variant
    Dim YEAR_GRAPHS_LEFT As Variant
    YEAR_GRAPHS_TOP = Array(1200, 1200, 1200, 1200 + 300, 1200 + 300, 1200 + 300, 1200 + 600, 1200 + 600, 1200 + 600, 1200 + 900, 1200 + 900, 1200 + 900)
    YEAR_GRAPHS_LEFT = Array(0, 400, 800, 0, 400, 800, 0, 400, 800, 0, 400, 800)

    Dim DATA_RANGES As Variant
    DATA_RANGES = Array("A11:B16", "D11:E16", "G11:H16", "J11:K16", "M11:N16", "P11:Q16", "S11:T16", "V11:W16", "Y11:Z16", "AB11:AC16", "AE11:AF16", "AH11:AI16")

    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Sales Analysis Product Category")

    For m = LBound(MONTH_NAMES) To UBound(MONTH_NAMES)
      month_name = MONTH_NAMES(m)
      data_range = DATA_RANGES(m)

      ActiveSheet.Shapes.AddChart2(251, xlPie).Select
      ActiveChart.SetSourceData Source:=Range(data_range)

      ActiveChart.SetElement (msoElementLegendNone)
      ActiveChart.SetElement (msoElementDataLabelCallout)
      ActiveChart.ChartTitle.Select
      ActiveChart.ChartTitle.Text = "Sales unit of " & month_name
      Selection.Format.TextFrame2.TextRange.Characters.Text = "Sales unit of " & month_name

      Set cho = ws.ChartObjects(ws.ChartObjects.Count)
      Set cht = cho.Chart
      cho.Top = YEAR_GRAPHS_TOP(m)
      cho.Left = YEAR_GRAPHS_LEFT(m)
      cho.Width = 400
      cho.Height = 300


    Next m

End Function


Function Helloworld()
  Debug.Print "helloworld Sales_Analysis_Product_Category"
End Function