-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMUM_Evaluación.iss
79 lines (74 loc) · 2.8 KB
/
MUM_Evaluación.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
Sub Main
IgnoreWarning(True)
Call MUSEvaluate() 'Muestra monetaria.IMD
Call MUSEvaluate1() 'Muestra monetaria.IMD
Call MUSEvaluate2() 'Muestra monetaria.IMD
Client.RefreshFileExplorer
End Sub
' Muestreo: Unidad Monetaria
Function MUSEvaluate
Const WI_HighValueHandling_AGGREGATE = 0
Const WI_HighValueHandling_FILE = 1
Const WI_PrecisionLimits_Upper = 1
Const WI_PrecisionLimits_UpperandLower = 2
Const WI_MUS_CLASSICAL_PPS_EVALUATION = 1
Const WI_MUS_CELL_EVALUATION = 2
Set db = Client.OpenDatabase("Muestra monetaria.IMD")
Set task = db.MUSEvaluate
task.Method = WI_MUS_CELL_EVALUATION
task.AuditAmountField = "CANT_AUDIT"
task.BookField = "CON_IMP"
task.ReferenceField = "REFERENCIA"
task.ConfidenceLevel = 90.00
task.PopulationValue = 3822999.85
task.SampleSize = 42
task.ResultName = db.UniqueResultName("Muestreo por unidades monetarias - Evaluación de celda")
task.BasicPrecisionPricing = 100.00
task.HighValueHandling = WI_HighValueHandling_FILE
task.HighValueFilename = "Valores altos.IMD"
task.HighValueAuditAmountField = "CANT_AUDIT"
task.HighValueBookField = "CON_IMP"
task.HighValueReferenceField = "REFERENCIA"
task.PerformTask
Set task = Nothing
Set db = Nothing
End Function
' Muestreo: Unidad Monetaria
Function MUSEvaluate1
Const WI_HighValueHandling_AGGREGATE = 0
Const WI_HighValueHandling_FILE = 1
Const WI_PrecisionLimits_Upper = 1
Const WI_PrecisionLimits_UpperandLower = 2
Const WI_MUS_CLASSICAL_PPS_EVALUATION = 1
Const WI_MUS_CELL_EVALUATION = 2
Set db = Client.OpenDatabase("Muestra monetaria.IMD")
Set task = db.MUSEvaluate
task.Method = WI_MUS_CLASSICAL_PPS_EVALUATION
task.AuditAmountField = "CANT_AUDIT"
task.BookField = "CON_IMP"
task.ReferenceField = "REFERENCIA"
task.ConfidenceLevel = 90.00
task.PopulationValue = 3822999.85
task.SampleSize = 42
task.ResultName = db.UniqueResultName("Muestreo por unidades monetarias - Evaluación PPS clasica")
task.PrecisionLimits = WI_PrecisionLimits_Upper
task.HighValueHandling = WI_HighValueHandling_FILE
task.HighValueFilename = "Valores altos.IMD"
task.HighValueAuditAmountField = "CANT_AUDIT"
task.HighValueBookField = "CON_IMP"
task.HighValueReferenceField = "REFERENCIA"
task.PerformTask
Set task = Nothing
Set db = Nothing
End Function
' Muestreo: Unidad Monetaria
Function MUSEvaluate2
Set db = Client.OpenDatabase("Muestra monetaria.IMD")
Set task = db.MUSCombinedEvaluate
task.ResultName = db.UniqueResultName("Muestreo por unidades monetarias – Evaluación de cota de Stringer")
task.AddSampleToEvaluation "Muestra monetaria.IMD", "CON_IMP", "CANT_AUDIT", 3822999.85, 42.00, 100.00, "Valores altos.IMD", 91023.81, "CON_IMP", "CANT_AUDIT"
task.ConfidenceLevel = 90.00
task.PerformTask
Set task = Nothing
Set db = Nothing
End Function