Developing powerful Oracle Business Intelligence Beans



Prerequisites
Oracle Forms 10g Rel. 2
•
•
•

Forms_Demos_10gr2.zip
 Installation (1)
Download from OTN: Forms_Demos_10gr2.zip
•
•download.oracle.com/otndocs/demos/Forms_Demos_10gr2.zip
–
•Unzip it into an example-Folder of your choice
•
•Copy FormsGraph.jar into \forms\java
 Source-Codes
PROCEDURE BT_Compare IS
  vItem               VARCHAR2(200) := :SYSTEM.Cursor_Item;
  vGrafik             ITEM          := FIND_ITEM (Const_lokal.itm_Chart);
  vData               VARCHAR2(200);
BEGIN
  -- Initialize Graph
  SET_CUSTOM_PROPERTY (vGrafik, 1, 'CLEAR_GRAPH', '');
  GO_BLOCK ('UMSATZUEBERSICHT');
  FIRST_RECORD;
  LOOP
    vData := :UMSATZUEBERSICHT.Ums_Geschaeftsbereich || ',' ||
             :UMSATZUEBERSICHT.Ums_Jahr || ',' ||
             :UMSATZUEBERSICHT.Ums_Umsatz;
    SET_CUSTOM_PROPERTY(vGrafik, 1, 'ADD_ROWDATA', vData);
    IF :SYSTEM.Last_Record = 'TRUE' THEN
      EXIT;
    END IF;
    NEXT_RECORD;
  END LOOP;
  FIRST_RECORD;
  -- Show Graph
  SET_CUSTOM_PROPERTY(vGrafik, 1, 'ADD_DATA_TO_GRAPH', '');
  SET_CUSTOM_PROPERTY(vGrafik, 1, 'GRAPHTYPE', 'VERTICAL_BAR');
  GO_ITEM(vItem);
END
 
PROCEDURE BT_Sum IS
  vGrafik             ITEM          := FIND_ITEM (Const_lokal.itm_Chart);
  vData               VARCHAR2(200);
BEGIN
  -- Initialize Graph
  SET_CUSTOM_PROPERTY(vGrafik, 1, 'CLEAR_GRAPH', '');
  FOR rUms IN (SELECT Ums_Geschaeftsbereich, SUM(Ums_Umsatz) Ums_Umsatz
                 FROM UMSATZUEBERSICHT
GROUP BY Ums_Geschaeftsbereich)
  LOOP
    vData := rUms.Ums_Geschaeftsbereich || ',' ||
             'Total Sales 2000 - 2005'  || ',' ||
             rUms.Ums_Umsatz;
    SET_CUSTOM_PROPERTY(vGrafik, 1, 'ADD_ROWDATA', vData);
  END LOOP;
  -- Show Graph
  SET_CUSTOM_PROPERTY (vGrafik, 1, 'GRAPHTYPE', 'PIE_GRAPH');
  SET_CUSTOM_PROPERTY (vGrafik, 1, 'ADD_DATA_TO_GRAPH', '');
END;
 
•

Comments

Post a Comment

Popular posts from this blog

Another user has changed the row with primary key oracle.jbo.Key[12 ].

Image
Try these solutions:  make sure that you check "refresh after insert" and refresh after update" for the primary key column in you entity object. in the application module tab Click the Properties tab and select jbo.locking.mode. Double click the “pessimistic”value next to the property to open the field editor and type “optimistic” over the value.Press enter. if error still exist then you must set "refresh after insert" and refresh after update" as true for all attributes in the entity object another way is to execute the View Object after the commit operation to bring back updated data to ViewObject. For this we need to override the  afterCommit()  of ViewObject class as follows:                  public void afterCommit(TransactionEvent){                         executeQuery();                  ...
Read more

weblogic windows JPS-01050: Opening of wallet based credential store failed. Reason java.io.IOException: Failed to lock cwallet.sso.lck

Integreated weblogic serer cannot be started and retuen this error weblogic windows JPS-01050: Opening of wallet based credential store failed. Reason java.io.IOException: Failed to lock cwallet.sso.lck Solution is simple  just remove the cwallet.sso file and cwallet.sso.lck located in C:\Users\tarek.DHAMAN\AppData\Roaming\JDeveloper\system12.2.1.4.42.190911.2248\o.jdeveloper.rescat2.model Then open jevveloper again and start weblogic again
Read more

Working With File Throgh WebUtill

-------------------------------------------------- Required Configuraion : By default the file transfer is disabled in webutil for a security measure. So, you have to enable File transfer configuration in webutil.cfg file. The webutil.cfg file is located in  forms\server. Open The webuil.cfg file and edit the following parameters : transfer.database.enabled=FALSE   Change To TRUE transfer.appsrv.enabled=FALSE       Change to TRUE WebUtil_File contains APIs to manipulate files and directories on the client. These Functions Or APIs are: Copy_File :  Copies a file Returns a Boolean to indicate success.  Syntax :   Webutil_File.Copy_File(SourceFileName in Varchar2 , Destination In Varchar2) Return Boolean  Example   Declare  vCopied Boolean;  Begin   vCopied :=  Webutil_File.Copy_File('C:\temp\mypic.jpg','X:\destination_folder');  If vCopied = true Then    Message('File copied Successfully');  Else   Message('Error in Copying File');  End if; Delete_File: ...
Read more