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!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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

Status
Not open for further replies.

mariostia

Programmer
Jun 23, 2015
3
IT
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

 
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top