Calling a Crystal Report from and Oracle Form6i

Question

I am attempting to call a crystal report from within an oracl form. I would appreciate documentation/suggestions on how to accomplish this task.
Thanks
NBranson

Answer 1

HI Nicole,
I have used crystal reports from oracle forms in one of my project. Send a mail to this address, i ll reply you back with the source code. My email address is [email protected] .
But if you just want to know the steps here it is :
STEPS TO display the Crystal Report in Oracle Forms :
1. Create a new form.
2. Create a control block, name it 'CONTROL'.
3. Create a CONTENT canvas, name it 'REPCAN'.
4. Create an ActiveX control on the canvas, name it 'CrystalReport1'.
5. Create a Image item , name it 'REP'. Make sure that image item overlaps the ActiveX control completely, this image item is used to get the item handle. Enlarge this object such a way that it will fit the window, the report gets displayed in this item so the item size should be adeqately large.
6. Right click on the ActiveX control item, select Insert Object from the menu.
7. From the list select Crystal Reprot Control.
8. Select the Progrm=> Import OLE Library Interface Menu in the form.
9. Select Crystal.CrystalReport from the List, this will list two methods and one Event . The two methods are CrystalCtrl and IRowCursor, the event is CrystalReprotEvent.
10. Select all the three and click on the OK button to accept. This will create the program units.
11. In the When-New-Form-Instance trigger of the form write the following code.
Declare
     charWinHandle varchar2(50);
     numWinHandle Number;
Begin
     Set_Application_Property(Cursor_Style,'BUSY');
     charWinHandle := Get_Item_Property('Control.Rep',Window_Handle);
     numWinHandle := To_Number(charWinHandle);
     :Item('Control.CrystalReport1').OCX.Crystal.CrystalReport.WindowParentHandle := numWinHandle;
     :Item('Control.CrystalReport1').OCX.Crystal.CrystalReport.WindowState := 2;
     :item('CONTROL.CRYSTALREPORT1').OCX.Crystal.CrystalReport.Connect := 'DSN=;UID='||Get_Application_Property(UserName)||';pwd='||Get_Application_Property(password)||';dsq=;';
     Crystal_CrystalCtrl.ReportFileName (:Item('Control.CrystalReport1').interface,'C:\Sample_Rep.Rpt');
     Set_Window_Property(Forms_Mdi_Window,Window_State,Maximize);
     Set_Window_Property('MAIN',Window_State,Maximize);
     :reptitle := 'Report Preview Window';
     numWinHandle := Crystal_CrystalCtrl.PrintReport(:Item('Control.CrystalReport1').interface);
     Set_Application_Property(Cursor_Style,'DEFAULT');
End;
One thing to mark here is the, change the report name and path according to your required file name and path in
Crystal_CrystalCtrl.ReportFileName (:Item('Control.CrystalReport1').interface,'C:\Sample_Rep.Rpt');
12. If you want to run multiple reports then create a parameter and pass the file name to the form through the parameter. In the above line of code, you can replace the file name with parameter, so each time the form is called with different parameter with the file name , it displays different reports.
13 Run the Form.