Session storage errors in master-detail form

Question

hi,
as the sequences do not work in master detail forms, i'm using session variables but the form does not compile and gives error.
following is my code in the SAVE button of the master-detail form -
declare
new_prod_id number(10);
begin
select BPSIDEV.PRODUCT_ID_SEQ.NEXTVAL
into new_prod_id
from dual;
p_session.set_value
p_block_name => 'MASTER_BLOCK',
p_attribute_name => 'A_PRODUCT_ID',
p_value => new_prod_id
doSave; -- This is generated code
end;
the action item values is as foloows -
Master - INSERT
Detail - INSERT
am i missing here something ? or is anything wrong here ?? pls advise ...
after the above changes the form would not compile at all.
also how would i populate the the detail records with the foreign key ??
thanx...
null

Answer 1

This problem is fixed in 3.0.8 release of Portal which will be available with the next release of iAS.
Actuallty the fix is simple look at the generated package of EXAMPLE_MD_FORM from EXAMPLE_APP, onSave event handler looks like this:
procedure onSave
p_block_name in varchar2,
p_object_name in varchar2,
p_instance in integer,
p_event_type in varchar2,
p_user_args in varchar2,
p_session in out WWV_30898.wwa_api_module_session
is
"_master_block" varchar2(30) := 'MASTER_BLOCK';
Some more code.......
And then closer to the end in detail processing section there is something like:
"_d_data_rec".COMM:=p_session.get_value_as_NUMBER(
p_block_name => "_detail_block",
p_attribute_name => 'A_COMM',
p_index => "_cnt"
"_d_data_rec".DEPTNO:=p_session.get_value_as_NUMBER(
p_block_name => "_detail_block",
p_attribute_name => 'A_DEPTNO',
p_index => "_cnt"
===========================================
You'll need to insert following code, just one if statement, that's it. Please note every time you regenerate the package this code will be lost, so you'll need to add this agains and again. Not a perfect solution, that's why I like JS workaround better.
============================================
if "_d_data_rec".DEPTNO is NULL and "_m_data_rec".DEPTNO is NOT NULL
then
"_d_data_rec".DEPTNO := "_m_data_rec".DEPTNO;
end if;
============================================
============================================
if "_detail_action" = 'DELETE' and "_DETAIL_ROWID" is not null then
DELETE FROM WWV_30898_DEMO.EMP WHERE ROWID = "_DETAIL_ROWID";
"_detail_deleted" := "_detail_deleted" + 1;
elsif "_detail_action" = 'UPDATE' then
UPDATE WWV_30898_DEMO.EMP SET EMPNO="_d_data_rec".EMPNO,ENAME="_d_data_rec".ENAME,JOB="_d_data_rec".JOB,MGR="_d_data_rec".MGR,HIREDATE="_d_data_rec".HIREDATE,SAL="_d_data_rec".SAL,COMM="_d_data_rec".COMM,DEPTNO ="_d_data_rec".DEPTNO WHERE ROWID = "_DETAIL_ROWID" ;
"_detail_updated" := "_detail_updated" + 1;
elsif "_detail_action" = 'INSERT' then
INSERT INTO WWV_30898_DEMO.EMP (EMPNO,ENAME,JOB,MGR,HIREDATE,SAL,COMM,DEPTNO) VALUES ("_d_data_rec".EMPNO,"_d_data_rec".ENAME,"_d_data_rec".JOB,"_d_data_rec".MGR,"_d_data_rec".HIREDATE,"_d_data_rec".SAL,"_d_data_rec".COMM,"_d_data_rec".DEPTNO) RETURNING ROWID INTO "_DETAIL_ROWID";
"_detail_inserted" := "_detail_inserted" + 1;
end if;
............................