75 lines
2.3 KiB
QBasic
75 lines
2.3 KiB
QBasic
Attribute VB_Name = "Config"
|
|
|
|
Global NumOfSales As Integer
|
|
|
|
Global SALES_ANALYSIS_COL_MONTH As String
|
|
Global SALES_ANALYSIS_COL_QUARTER As String
|
|
Global SALES_ANALYSIS_COL_PRODUCT_CATEGORY As String
|
|
Global SALES_ANALYSIS_COL_SELLING_UNIT As String
|
|
Global SALES_ANALYSIS_COL_MONTHLY_SALES As String
|
|
Global SALES_ANALYSIS_COL_QUARTELY_SALES As String
|
|
Global SALES_ANALYSIS_COL_COMMISSION As String
|
|
Global SALES_ANALYSIS_COL_MONTHLY_MARGIN As String
|
|
Global SALES_ANALYSIS_COL_QUATERLY_MARGIN As String
|
|
Global SALES_ANALYSIS_COL_QUATERLY_COMMISSION_ As String
|
|
|
|
'row
|
|
Global SALES_ANALYSIS_ROW_JANUARY As String
|
|
Global SALES_ANALYSIS_ROW_FEBURARY As String
|
|
Global SALES_ANALYSIS_ROW_MARCH As String
|
|
Global SALES_ANALYSIS_ROW_APRIL As String
|
|
Global SALES_ANALYSIS_ROW_MAY As String
|
|
Global SALES_ANALYSIS_ROW_JUNE As String
|
|
Global SALES_ANALYSIS_ROW_JULY As String
|
|
Global SALES_ANALYSIS_ROW_AUGEST As String
|
|
Global SALES_ANALYSIS_ROW_SEPTEMBER As String
|
|
Global SALES_ANALYSIS_ROW_OCTOBER As String
|
|
Global SALES_ANALYSIS_ROW_NOVEMBER As String
|
|
Global SALES_ANALYSIS_ROW_DECEMBER As String
|
|
|
|
Global SALES_ARRAY As Variant
|
|
|
|
Global monthly_commission_per_agent As Object
|
|
|
|
Global STRING_SEPERATOR as string
|
|
|
|
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")
|
|
|
|
|
|
End Sub
|
|
|
|
|