how do i open a Powerplay report using cogmos script in series 7.1 1

[aminaalavi]

I am creating a dialog box and want a powerplay report to open up when the user clicks the button. Could someone please tell me what code i use to open the powerplay report. I have my code below, but it is not working.

Thanks

Amina

Dim objPPRep as Object
Set objPPRep = CreateObject("CognosPowerPlay.Report&quot
objPPRep.Open "c:\forecating.ppr"
objPPRep.Visible
objPPRep.Close
Set objPPRep = Nothing

 

[flex13]

Hi Amina,

You may want to try this instead as you were missing the value for the visible property.

Sub Main ()

Dim objPPRep as Object

Set objPPRep = CreateObject("CognosPowerPlay.Report&quot

objPPRep.Open "d:\test.ppr"
objPPRep.Visible = True

End Sub

Scott

 

[aminaalavi]

Thanks Scott. I changed the code to include your suggestion. It compiles fine. When i run it , i get the following error:

TEMP6!main(4) - R440 "PowerPlay: An internal error occurred."

I am not really sure what it means

Thanks again
Amina

 

[Recce]

Hi Flex13. After you have opned the powerplay report, how can you then export the result as text or as a spread sheet ? :->

 

[flex13]

This script opens a remote cube, creates a report and then saves it out as the default ppr, xls and asc formats.

Sub Main()

Dim objPPApp As Object
Dim objPPRep As Object

Set objPPApp = CreateObject ("CognosPowerPlay.Application&quot
Set objPPRep = CreateObject ("CognosPowerPlay.Report&quot
objPPRep.New "PPDSRemote;wottmassons-2k:8010;Sample Cube"
objPPRep.Visible = true

objPPRep.SaveAs "D:\MyNewReport.ppr"
objPPRep.SaveAs "D:\MyNewReport.xls",4
objPPRep.SaveAs "D:\MyNewReport.asc",3
objPPRep.Close

Set objPPRep = Nothing
Set objPPApp = Nothing

End Sub

Hope this helps.

Scott

 

[Recce]

Hi Flex13. Brilliant thanks.