-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSeries_tiempo.iss
155 lines (146 loc) · 4.94 KB
/
Series_tiempo.iss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
Sub Main
IgnoreWarning(True)
Call Summarization() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization1() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization2() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization3() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization4() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization5() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call AppendDatabase() 'Series de tiempo-2011-L3.IMD
Call TimeSeries() 'Completas - Series de tiempo.IMD
Client.RefreshFileExplorer
End Sub
' Análisis: Resumen
Function Summarization
Set db = Client.OpenDatabase("ED Ventas-2010-L4-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2010-L4.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Resumen
Function Summarization1
Set db = Client.OpenDatabase("ED Ventas-2011-L4-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2011-L4.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Resumen
Function Summarization2
Set db = Client.OpenDatabase("ED Ventas-2010-L1-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2010-L1.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Resumen
Function Summarization3
Set db = Client.OpenDatabase("ED Ventas-2011-L1-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2011-L1.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Resumen
Function Summarization4
Set db = Client.OpenDatabase("ED Ventas-2010-L3-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2010-L3.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Resumen
Function Summarization5
Set db = Client.OpenDatabase("ED Ventas-2011-L3-Ventas diarias por producto.IMD")
Set task = db.Summarization
task.AddFieldToSummarize "ID_LOCAL"
task.AddFieldToSummarize "AÑO"
task.AddFieldToSummarize "MES"
task.AddFieldToTotal "SUMA_CON_IMP"
dbName = "Series de tiempo-2011-L3.IMD"
task.OutputDBName = dbName
task.CreatePercentField = FALSE
task.StatisticsToInclude = SM_SUM
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Archivo: Anexar bases de datos
Function AppendDatabase
Set db = Client.OpenDatabase("Series de tiempo-2010-L1.IMD")
Set task = db.AppendDatabase
task.AddDatabase "Series de tiempo-2010-L3.IMD"
task.AddDatabase "Series de tiempo-2010-L4.IMD"
task.AddDatabase "Series de tiempo-2011-L1.IMD"
task.AddDatabase "Series de tiempo-2011-L3.IMD"
task.AddDatabase "Series de tiempo-2011-L4.IMD"
dbName = "Completas - Series de tiempo.IMD"
task.PerformTask dbName, ""
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Series de tiempo
Function TimeSeries
Set db = Client.OpenDatabase("Completas - Series de tiempo.IMD")
Set task = db.TimeSeriesAnalysisTask
task.SeasonalLength = 12
task.TimeSeriesField "SUMA_CON_IMP_SUMA"
task.AuditUnitField = "ID_LOCAL"
task.GenerateForecasts TRUE, 8
task.TimeScale = 1
task.CalendarValue = 1
task.TimeScaleStartAndIncrement 1, 1
resultName = db.UniqueResultName("Series de tiempo - Ventas de 2010 y 2011")
task.ResultName = resultName
task.PerformTask
Set task = Nothing
Set db = Nothing
End Function