How do I develop a CMS script (ACSAUTO) with language result in different operating system.
For example, if Windows Server is in English I get the result of the report in Italian?
Thanks
'LANGUAGE=ITA
'SERVERNAME=XXX.XXX.XXX.XXX
Public Sub Main()
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\CMS custom\Multi_Skill")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\CMS custom\Multi_Skill non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\CMS custom\Multi_Skill non esiste sull'ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 15480
Rep.Window.Height = 11190
Rep.SetProperty "Split(s)/Skill(s)","42;72"
Rep.SetProperty "Date(s)","09/01/2011"
b = Rep.PrintReport
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
End Sub
For example, if Windows Server is in English I get the result of the report in Italian?
Thanks
'LANGUAGE=ITA
'SERVERNAME=XXX.XXX.XXX.XXX
Public Sub Main()
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\CMS custom\Multi_Skill")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "Il rapporto Historical\CMS custom\Multi_Skill non esiste sull'ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "Il rapporto Historical\CMS custom\Multi_Skill non esiste sull'ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 15480
Rep.Window.Height = 11190
Rep.SetProperty "Split(s)/Skill(s)","42;72"
Rep.SetProperty "Date(s)","09/01/2011"
b = Rep.PrintReport
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
End Sub