-
Notifications
You must be signed in to change notification settings - Fork 0
/
Tendencias.iss
200 lines (181 loc) · 6.02 KB
/
Tendencias.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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
Sub Main
IgnoreWarning(True)
Call Summarization() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call Summarization1() 'ED Ventas-2011-L4-Ventas diarias por producto.IMD
Call Summarization2() 'ED Ventas-2010-L1-Ventas diarias por producto.IMD
Call Summarization3() 'ED Ventas-2010-L4-Ventas diarias por producto.IMD
Call JoinDatabase() 'Ventas mensuales-2010-L4.IMD
Call JoinDatabase1() 'Ventas mensuales-2010-L4.IMD
Call ModifyField() 'Ventas mensuales 2010-L4 y L1.IMD
Call ModifyField1() 'Ventas mensuales 2010-L4 y L1.IMD
Call AppendDatabase() 'Ventas mensuales 2011-L4 y L1.IMD
Call TrendAnalysis() 'Ventas mensuales-L4 y L1 (2010 y 2011).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 = "Ventas mensuales-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 = "Ventas mensuales-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 = "Ventas mensuales-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 = "Ventas mensuales-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
' Archivo: Unir bases de datos
Function JoinDatabase
Set db = Client.OpenDatabase("Ventas mensuales-2010-L4.IMD")
Set task = db.JoinDatabase
task.FileToJoin "Ventas mensuales-2010-L1.IMD"
task.IncludeAllPFields
task.IncludeAllSFields
task.AddMatchKey "AÑO", "AÑO", "A"
task.AddMatchKey "MES", "MES", "A"
task.CreateVirtualDatabase = False
dbName = "Ventas mensuales 2010-L4 y L1.IMD"
task.PerformTask dbName, "", WI_JOIN_MATCH_ONLY
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Archivo: Unir bases de datos
Function JoinDatabase1
Set db = Client.OpenDatabase("Ventas mensuales-2011-L4.IMD")
Set task = db.JoinDatabase
task.FileToJoin "Ventas mensuales-2011-L1.IMD"
task.IncludeAllPFields
task.IncludeAllSFields
task.AddMatchKey "AÑO", "AÑO", "A"
task.AddMatchKey "MES", "MES", "A"
task.CreateVirtualDatabase = False
dbName = "Ventas mensuales 2011-L4 y L1.IMD"
task.PerformTask dbName, "", WI_JOIN_MATCH_ONLY
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Modificar campo
Function ModifyField
Set db = Client.OpenDatabase("Ventas mensuales 2010-L4 y L1.IMD")
Set task = db.TableManagement
Set field = db.TableDef.NewField
field.Name = "LOCAL1_BRUTO"
field.Description = ""
field.Type = WI_NUM_FIELD
field.Equation = ""
field.Decimals = 4
task.ReplaceField "SUMA_CON_IMP_SUMA1", field
task.PerformTask
Set task = Nothing
Set db = Nothing
Set field = Nothing
End Function
' Modificar campo
Function ModifyField1
Set db = Client.OpenDatabase("Ventas mensuales 2011-L4 y L1.IMD")
Set task = db.TableManagement
Set field = db.TableDef.NewField
field.Name = "LOCAL1_BRUTO"
field.Description = ""
field.Type = WI_NUM_FIELD
field.Equation = ""
field.Decimals = 4
task.ReplaceField "SUMA_CON_IMP_SUMA1", field
task.PerformTask
Set task = Nothing
Set db = Nothing
Set field = Nothing
End Function
' Archivo: Anexar bases de datos
Function AppendDatabase
Set db = Client.OpenDatabase("Ventas mensuales 2010-L4 y L1.IMD")
Set task = db.AppendDatabase
task.AddDatabase "Ventas mensuales 2011-L4 y L1.IMD"
dbName = "Ventas mensuales-L4 y L1 (2010 y 2011).IMD"
task.PerformTask dbName, ""
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function
' Análisis: Análisis de tendencias
Function TrendAnalysis
Set db = Client.OpenDatabase("Ventas mensuales-L4 y L1 (2010 y 2011).IMD")
Set task = db.TrendAnalysis
task.TrendField "SUMA_CON_IMP_SUMA"
task.RefField "LOCAL1_BRUTO"
task.AuditUnitField = "ID_LOCAL"
task.GenerateForecasts TRUE, 24, 8
task.TimeScale = 1
task.CalendarValue = 1
task.TimeScaleStartAndIncrement 1, 1
resultName = db.UniqueResultName("Análisis de tendencias de L4 y L1")
task.ResultName = resultName
task.CreateMAPEDB = TRUE
task.OutputDBName = "Análisis de tendencias.IMD"
task.CreateForecastDB = TRUE
task.OutputDBName = "Análisis de tendencias.IMD"
task.CreateDB = TRUE
task.OutputDBName = "Análisis de tendencias.IMD"
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase("Análisis de tendencias PEAP.IMD")
End Function