48 lines
1.6 KiB
QBasic
48 lines
1.6 KiB
QBasic
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
|
|
|