Attribute VB_Name = "Config"
Option Explicit

Sub init()
  STRING_SEPERATOR = "#_STRING_SEPERATOR_#"
  
  SALES_ANALYSIS_COL_MONTH = "A"
  SALES_ANALYSIS_COL_QUARTER = "B"
  SALES_ANALYSIS_COL_PRODUCT_CATEGORY = "C"
  SALES_ANALYSIS_COL_SELLING_UNIT = "D"
  SALES_ANALYSIS_COL_MONTHLY_SALES = "E"
  SALES_ANALYSIS_COL_QUARTELY_SALES = "F"
  SALES_ANALYSIS_COL_COMMISSION = "G"
  SALES_ANALYSIS_COL_MONTHLY_MARGIN = "H"
  SALES_ANALYSIS_COL_QUATERLY_MARGIN = "I"
  SALES_ANALYSIS_COL_QUATERLY_COMMISSION_ = "J"
  
  'row
  SALES_ANALYSIS_ROW_JANUARY = "2"
  SALES_ANALYSIS_ROW_FEBURARY = "3"
  SALES_ANALYSIS_ROW_MARCH = "4"
  SALES_ANALYSIS_ROW_APRIL = "5"
  SALES_ANALYSIS_ROW_MAY = "6"
  SALES_ANALYSIS_ROW_JUNE = "7"
  SALES_ANALYSIS_ROW_JULY = "8"
  SALES_ANALYSIS_ROW_AUGEST = "9"
  SALES_ANALYSIS_ROW_SEPTEMBER = "10"
  SALES_ANALYSIS_ROW_OCTOBER = "11"
  SALES_ANALYSIS_ROW_NOVEMBER = "12"
  SALES_ANALYSIS_ROW_DECEMBER = "13"
  
  NumOfSales = 20
  SALES_ARRAY = Array("Alex", "Ben", "Candy", "Danny", "Eason", "Filex", "Gary", "Henry", "Irene", "Jenny")
  
  Dim top_comission(12, 3) As Double
  
  Set monthly_commission_per_agent = CreateObject("Scripting.Dictionary")
  Set monthly_product_sales_selling_unit_per_agent = CreateObject("Scripting.Dictionary")
  Set monthly_product_sales_selling_price_per_agent = CreateObject("Scripting.Dictionary")
  Set monthly_product_sales_per_agent = CreateObject("Scripting.Dictionary")
  
  MONTH_NAMES = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
  
  Var.output_report_directory = "C:\temp"
  
End Sub