Problem running a report in forms.
855665Jun 7 2011 — edited Jun 8 2011Hello!
I am having a problem with running a report in a form. I have installed on my computer Oracle developer suite 10g, weblogic, oracle database 11g. Now i have a main form in witch runs froms and reports. The forms and reports had run well on oracle 6i but now i am faceing with a issue, the forms are running but the reports do not. In oracle 6i the reports did run with run_product, now with REPORT_OBJECT. I don't understand what structure could i use. Do i have to install Application server ???? PLS explain what do i have to do, all the configuration necessery, other ipoduct installation if needed. thanks!!!!!
This is the main form that runs other forms and reports:
DECLARE
nod varchar2(50);
htree ITEM;
lis paramlist;
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status varchar2(100);
BEGIN
nod:=ftree.get_tree_node_property('COP1',ftree.get_tree_selection('COP1',1),ftree.node_value);
htree := Find_Item('FRONT.COP1');
Ftree.Set_Tree_Selection(HTREE, :SYSTEM.TRIGGER_NODE, Ftree.SELECT_ON);
--lis:=create_parameter_list('LISTA');
:GLOBAL.PROJECT_PATH:= 'D:\Diploma\Last_version\rap\';
-- forme
if lower(nod) = 'intretinere clienti' then
open_form('D:\Diploma\Last_version\INTRETINERE_CLIENTI',ACTIVATE, SESSION);
ELSIF LOWER(nod) = 'produse clienti' then
--add_parameter(lis,'USERU',TEXT_PARAMETER,:PAROLA.USERU);
open_form('D:\Diploma\Last_version\PROD_CL_inch',ACTIVATE, NO_SESSION,lis);
-- rapoarte
elsif upper(nod)='CLIENT' then begin
run_product(REPORTS,'D:\Diploma\Last_version\rap\CLIENT',SYNCHRONOUS,RUNTIME,FILESYSTEM,'',NULL);
--v_rep := RUN_REPORT_OBJECT('D:\Diploma\Last_version\rap\CLIENT');
end;
elsif upper(nod)='PRODUSE BANCARE DESCHISE IN PERIOADA' then begin
run_product(REPORTS,'D:\Diploma\Last_version\rap\PRODUSE_PERIOADA',SYNCHRONOUS,RUNTIME,FILESYSTEM,'',NULL);
--repid := find_report_object('PRODUSE_PERIOADA');
--SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE, SYNCHRONOUS);
--SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,CACHE);
--rep_status := REPORT_OBJECT_STATUS(repid);
-- v_rep := RUN_REPORT_OBJECT('D:\Diploma\Last_version\rap\PRODUSE_PERIOADA');
--v_rep := RUN_REPORT_OBJECT(repid);
end;
elsif upper(nod)='DEPOZITE SCADENTE IN PERIOADA' then
run_product(REPORTS,'D:\Diploma\Last_version\rap\DEPOZITE_SCAD',SYNCHRONOUS,RUNTIME,FILESYSTEM,'',null);
-- nomenclatoare
elsif upper(nod)='TIPURI PRODUSE' then
open_form('D:\Diploma\Last_version\nom_prod',activate, NO_SESSION);
elsif upper(nod)='TIPURI DOBANZI' then
open_form('D:\Diploma\Last_version\nom_dob',activate, NO_SESSION);
-- operatiuni
elsif upper(nod)='DEPUNERE NUMERAR' then
lis:=create_parameter_list('LISTA');
add_parameter(lis,'STARE',TEXT_PARAMETER,'D');
open_form('D:\Diploma\Last_version\depunere_numerar',activate, NO_SESSION,lis);
elsif upper(nod)='ELIBERARE NUMERAR' then
lis:=create_parameter_list('LISTA');
add_parameter(lis,'STARE',TEXT_PARAMETER,'E');
open_form('D:\Diploma\Last_version\depunere_numerar',activate, NO_SESSION,lis);
elsif upper(nod)='TRANSFER' then
open_form('D:\Diploma\Last_version\TRANSFER',activate, NO_SESSION);
elsif upper(nod)='SIMULARE DEPOZIT' then
open_form('D:\Diploma\Last_version\SIMULARE_DEPOZIT',activate, NO_SESSION);
elsif upper(nod)='RAMBURSARE CREDIT' then
open_form('D:\Diploma\Last_version\RAMBURSARE_CREDIT',activate, NO_SESSION);
elsif upper(nod)='RAMBURSARE RATA' then
open_form('D:\Diploma\Last_version\RAMBURSARE_RATA',activate, NO_SESSION);
elsif upper(nod)='TRECERE LA RESTANTA' then
open_form('D:\Diploma\Last_version\RESTANTA_CREDIT',activate, NO_SESSION);
elsif upper(nod)='TRAGERE CREDIT' then
open_form('D:\Diploma\Last_version\TRAGERE_CREDIT',activate, NO_SESSION);
/*elsif upper(nod)='TRAGERE CREDIT' then
open_form('D:\Diploma\Last_version\TRAGERE_CREDIT',activate, NO_SESSION);*/
end if;
--destroy_parameter_list(lis);
END;