When i run .ACSAUTO file i get error "Compilation error of Microsoft VBScript. Line 0, characte

mariostia · Jun 23, 2015

Hello guys,
when i try to run .acsauto Avaya GENERATED AUTOSCRIPT to run the VBscript is all ok.

But when i try to run MODIFIED SOURCE of .acsauto Avaya's file script with all calls with indexed parameters in a loop i get "Compilation error of Microsoft VBScript. Line 0, character not valid".

Why? What about my modify?

Here explain :
in the code there are 14 sequential sessions very similar
Change only for these two sections :
1) "_97.xls"
2) Rep.SetProperty "Gruppo/Specialità","97"
so i have create a loop for all parameters that changing session after session. But where is the error?

Thank you very much
Mario Broz

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MODIFIED SCRIPT >> RUN ERROR
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'LANGUAGE=ITA
'SERVERNAME=a nice number
' 2015 06 12 MDL Vers. 0.1
' Prova Codice con For Next e array numerico

Public Sub Main()

On Error Resume Next

Dim numbers = {97, 103, 104, 106, 108, 122, 124, 125, 910, 911, 923, 924, 930, 939}
Dim NumeroTask = 14

For index = 1 To TotTask
' +++++++++++++ Il valore dell'array indicizzato lo gestisce (numbers(index))

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

' +++++++++++++ Rep.SetProperty "Gruppo/Specialità","97"
Rep.SetProperty "Gruppo/Specialità",(numbers(index))

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

'+++++++++++++ b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\" &FormatDateTime(date()-1, 1)&"_97.xls", 9, 0, True, True, True)
b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\" &FormatDateTime(date()-1, 1)&"_"&(numbers(index))&".xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

next

'## cvs_cmd_end

End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ORIGINAL AUTOGENERATED SCRIPT >> RUN OK

there are 14 sessions very similar
Change only for these two sections so i have create a loop . But where is the error?
"_97.xls"
Rep.SetProperty "Gruppo/Specialità","97"
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'LANGUAGE=ITA
'SERVERNAME= another nice number
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "97","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","97"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_97.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "103","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","103"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_103.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "104","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","104"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_104.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "106","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","106"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_106.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "108","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","108"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_108.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "122","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","122"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_122.xls", 9, 0, "1", True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing
'## cvs_cmd_end

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "124","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","124"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_124.xls", 9, 0, "1", True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "125","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","125"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_125.xls", 9, 0, "1", True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "910","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)'
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","910"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_910.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "911","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","911"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_911.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "923","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","923"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_923.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "924","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","924"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_924.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "924","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","930"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_930.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati"
'## Parameters.Add "Rapporto: Storico: Editore grafico: Mobile Report Consuntivo Giornaliero: Esporta dati","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Mobile Report Consuntivo Giornaliero","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-67","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20390","_Width"
'## Parameters.Add "11655","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "924","Gruppo/Specialità"
'## Parameters.Add "24/02/2015","Data"
'## Parameters.Add "00:00-23:30","Orario"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\ivan.toscano\AppData\Roaming\Avaya\CMS Supervisor R17\Profiles\seminara\pippo.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Mobile Report Consuntivo Giornaliero")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\Designer\Mobile Report Consuntivo Giornaliero non esiste sull'ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = -67
Rep.Window.Left = 50
Rep.Window.Width = 20390
Rep.Window.Height = 11655

Rep.TimeZone = "default"

Rep.SetProperty "Gruppo/Specialità","939"

Rep.SetProperty "Data","-2"

Rep.SetProperty "Orario","00:00-23:30"

b = Rep.ExportData("\\pmshares\Dashboard_COP\Pianificazioni_Avaya\testMDL\" &FormatDateTime(date()-1, 1)&"_939.xls", 9, 0, True, True, True)

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing

'## cvs_cmd_end

End Sub

Stinney · Jun 23, 2015

Is the TotTask supposed to be NumerTask?

Dim NumeroTask = 14

For index = 1 To TotTask

And I think the NumeroTask should be 13. In VBScript, doing an array the first number in the array is 0. So I think your For index statement should be: For index - 0 to NumeroTask and the variable NumeroTask should be 13.

You might also need to change your Dim numbers statement to be: numbers=Array(97, 103, 104, 106, 108, 122, 124, 125, 910, 911, 923, 924, 930, 939)

Doing a simple vbs test using the following code it runs through the numbers properly:

numbers=Array(97, 103, 104, 106, 108, 122, 124, 125, 910, 911, 923, 924, 930, 939)
for index=0 to 13
msgbox(numbers(index))
next

- Stinney

“The man who asks a question is a fool for a minute, the man who does not ask is a fool for life.” ? Confucius

mariostia · Jun 24, 2015

Thank you Stinney! but compilation error persist.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

When i run .ACSAUTO file i get error "Compilation error of Microsoft VBScript. Line 0, characte

mariostia

Programmer

Stinney

IS-IT--Management

mariostia

Programmer

Similar threads

Part and Inventory Search

Sponsor

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

When i run .ACSAUTO file i get error &quot;Compilation error of Microsoft VBScript. Line 0, characte

mariostia

Programmer

Stinney

IS-IT--Management

mariostia

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor

When i run .ACSAUTO file i get error "Compilation error of Microsoft VBScript. Line 0, characte