26 lines
654 B
QBasic
26 lines
654 B
QBasic
Attribute VB_Name = "APAnalysis_Sales_Calc"
|
|
Option Explicit
|
|
|
|
Function Run(ByVal TablesMeta As Variant)
|
|
' agent_working_performance
|
|
Dim agent_working_performance As Variant
|
|
Dim awp_rows As Variant
|
|
Dim awp_lastrow As Integer
|
|
Dim awp_current_row As Integer
|
|
|
|
' init agent_working_performance
|
|
agent_working_performance = TablesMeta(2)
|
|
awp_rows = agent_working_performance(0)
|
|
awp_lastrow = CInt(agent_working_performance(1))
|
|
awp_current_row = 0
|
|
|
|
For awp_current_row = 1 To 4
|
|
Debug.Print (awp_rows(1, 1))
|
|
Next awp_current_row
|
|
|
|
|
|
|
|
Run = "done"
|
|
End Function
|
|
|