PDA

View Full Version : Could not display Report



ge_nildo
12-May-2009, 01:03 PM
I did a test, where I could print a report using visual 14.1, but I couldn't display the report in the screen. Follow the test.

Use Windows.pkg
Use DFClient.pkg
Use cVisualReport.pkg
Deferred_View Activate_oReportWriter for ;
Object oReportWriter is a dbView
Set Border_Style to Border_Thick
Set Size to 51 161
Set Location to 39 41
Set Label to "Report Wiriter Test"
Object oButton1 is a Button
Set Size to 15 77
Set Location to 19 41
Set Label to "Run Report"

// fires when the button is clicked
Procedure OnClick
Set peOutputDestination of oReport to PRINT_TO_WINDOW
Send RunReport of oReport
Send DisplayReport of oReport
End_Procedure
End_Object
Object oReport is a cVisualReport
Set psReportName to "S:\SISTEMAS\NOVO\SAF2008V141\DATA\List1.vrw"
Set peOutputDestination to PRINT_TO_WINDOW
Procedure OnInitializeReport
Forward Send OnInitializeReport
End_Procedure
End_Object // oReport
Cd_End_Object