Respected All,
How to do call this report in Developer Suite 10g.This is built in 6i.
I want to do this in Developer Suite 10g;
declare
d_where varchar2(5000);
pl_id paramlist;
MX integer;
begin
GO_BLOCK('EMP');
First_Record;
If Not (:System.Last_Record = 'TRUE' And :SYSTEM.CURSOR_VALUE IS NULL) Then
Last_Record;
Mx := :SYSTEM.CURSOR_RECORD;
IF :SYSTEM.CURSOR_VALUE IS NOT NULL THEN
d_where := ' and a.emp_id in (';
FOR I IN 1.. Mx LOOP
IF :SYSTEM.CURSOR_VALUE IS NOT NULL THEN
If I < Mx Then
d_where := d_where || ''''||:System.Cursor_Value||''',';
PREVIOUS_RECORD;
Else
d_where := d_where || ''''||:System.Cursor_Value||''')';
End If;
End If;
END LOOP;
END IF;
END IF;
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id, 'p_unt_code', TEXT_PARAMETER, :global.unt_code);
Add_Parameter(pl_id, 'p_where', TEXT_PARAMETER,d_where );
Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
Run_Product(REPORTS, 'increment_letter', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
END;
How to call report from from in Developer Suit 10G
Who is online
Users browsing this forum: No registered users and 5 guests