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=censured
' 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=censured
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
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=censured
' 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=censured
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