Home » Developer & Programmer » Forms » Forms 6i (create data block manually)
Forms 6i (create data block manually) [message #83573] Thu, 30 October 2003 10:07 Go to next message
Paul
Messages: 164
Registered: April 1999
Senior Member
I try follow (fill data block structure from procedure):
declare
S VARCHAR2(50);
I NUMBER;

CURSOR DF (dt_s1 DATE,dt_s2 DATE) IS
SELECT ipcrmain, dpcrsdt, dpcrfdt, ipcracc,
b.ccknname, c.cognsname,ccusname
FROM igg.pcr a, igg.ckn b, igg.ogn c,igg.cus d,igg.ncr
WHERE a.ipcrnum = b.icknnum
AND a.ipcrogn = c.iognnum
AND a.ipcrcus = d.icusnum
AND a.dpcrsdt >= dt_s1
AND a.dpcrsdt <= dt_s2
union
SELECT ipcrmain, dpcrsdt, dpcrfdt, ipcracc,
b.ccknname, 'Clients',ccusname
FROM igg.pcr a, igg.ckn b, igg.cus d
WHERE a.ipcrnum = b.icknnum
AND a.ipcrogn is null
AND a.ipcrcus = d.icusnum
AND a.dpcrsdt >= dt_s1
AND a.dpcrsdt <= dt_s2;

MC DF%ROWTYPE;
begin
OPEN DF(:d1,:d2);
I:=1;
loop
fetch df into :main_t(i).ipcrmain, :main_t(i).ipcrsdt,:main_t(i).ipcrfdt,
:main_t(i).ipcracc,:main_t(i).ccknname,:main_t(i).cognsname,:main_t(i).ccusname;
exit when df%notfound;
i:=i+1;
end loop;
*************************
main_t - data_block.
receive error: bad bind variable ':main_t'
Why?
i want show result of query on the forms....
may be exist another ways?
thanks..
Re: Forms 6i (create data block manually) [message #83586 is a reply to message #83573] Sun, 02 November 2003 03:25 Go to previous message
sameer_am2002
Messages: 129
Registered: September 2002
Senior Member
Usage is like this .
go_block('BlockName') ;
loop
fetch df into :main_t.ipcrmain, :main_t.ipcrsdt,:main_t.ipcrfdt,
:main_t.ipcracc,:main_t.ccknname,:main_t.cognsname,:main_t.ccusname;
exit when df%notfound;
if :system.last_record = 'TRUE' then
exit ;
else
next_record ;
end if ;
end loop;
Previous Topic: FRM 40010
Next Topic: Run a Form From Runtime Report
Goto Forum:
  


Current Time: Sat Aug 13 01:21:58 CDT 2022