-
Notifications
You must be signed in to change notification settings - Fork 0
/
Estadistica_correlacion.iss
35 lines (32 loc) · 1.1 KB
/
Estadistica_correlacion.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
Sub Main
IgnoreWarning(True)
Set db = Client.OpenDatabase("Tabladinámica10.IMD")
Set task = db.Correlation
task.AddFieldForCorrelation "COD_PROD_01"
task.AddFieldForCorrelation "COD_PROD_02"
task.AddFieldForCorrelation "COD_PROD_03"
task.AddFieldForCorrelation "COD_PROD_04"
task.AddFieldForCorrelation "COD_PROD_05"
task.AddFieldForCorrelation "COD_PROD_06"
task.AddFieldForCorrelation "TOTAL"
resultName = db.UniqueResultName("Correlación01")
task.ResultName = resultName
task.PerformTask
Set db = Client.OpenDatabase("Tabladinámica10.IMD")
Set task = db.Correlation
task.AddFieldForCorrelation "COD_PROD_01"
task.AddFieldForCorrelation "COD_PROD_02"
task.AddFieldForCorrelation "COD_PROD_03"
task.AddFieldForCorrelation "COD_PROD_04"
task.AddFieldForCorrelation "COD_PROD_05"
task.AddFieldForCorrelation "COD_PROD_06"
task.AddFieldForCorrelation "TOTAL"
task.CreateResult = FALSE
dbName = "Correlación01.IMD"
task.OutputDBName = dbName
task.PerformTask
Set task = Nothing
Set db = Nothing
Client.OpenDatabase(dbName)
Client.RefreshFileExplorer
End Sub