Script CMS

[pozomarta]

Hello,

I have a problem with a script. I need the file with labels, but it dosen't work. The script generates the file but whitout labels.
Does anybody know whether it's impossible obtain the file with them?

Thank you very much

I enclose a example code.

'LANGUAGE=ENU
'SERVERNAME=
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: VDN: Report (Skill) Daily: Export Data"
'## Parameters.Add "Report: Historical: VDN: Report (Skill) Daily: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\VDN\Report (Skill) Daily","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "5295","_Top"
'## Parameters.Add "-30","_Left"
'## Parameters.Add "15450","_Width"
'## Parameters.Add "4635","_Height"
'## Parameters.Add "The report Historical\VDN\Report (Skill) Daily was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "6501","VDN"
'## Parameters.Add "04/01/2005","Dates"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\tmp\preuba.txt","_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\VDN\Report (Skill) Daily")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\VDN\Report (Skill) Daily was not found on ACD 1.", vbCritical Or vbOKOnly, "CentreVu Supervisor"
Else
Set Log = CreateObject("CVSERR.cvsLog")
Log.AutoLogWrite "The report Historical\VDN\Report (Skill) Daily was not found on ACD 1."
Set Log = Nothing
End If
Else

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

Rep.Window.Top = 5295
Rep.Window.Left = -30
Rep.Window.Width = 15450
Rep.Window.Height = 4635



Rep.SetProperty "VDN","6501"

Rep.SetProperty "Dates","04/01/2005"




b = Rep.ExportData("C:\tmp\preuba.txt", 9, 0, Verdadero, Falso, Verdadero)





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

 

[banny3105]

Hi There
Change the following line as follows

b = Rep.ExportData("C:\tmp\preuba.txt", 9, 0, True, False, False)

Cheers

 

[pozomarta]

Thank you, Banny3105, but I test it and get the same result.
Do you know where can I get any docs about CMS scripts?

 

[banny3105]

Hi There

Use True, True, False

That will work and you can play around with them to see the change on the script

 

[pozomarta]

Thank you.

It works!!!!!!