Inserting Record In same table through triggers.

Question

Hi,
I've a table cus_mst ( cus_div_cd vachar2(1), cus_cd varchar2(5), cus_nm varchar2(100) )
Records are inserted in this table through forms ...
We need to automatically insert a record with a diff div_cd for any record inserted in the table .
If div_cd 'I' is entered automatically a record with div cd 'S' with other coulmns having same values should get inserted .
In case div_cd is 'S' then record with div_cd 'I' should get created.
Eg : If in insert ( 'S', 'A0001', 'ABC COmpany' ); another record with values ( 'I', 'A0001', 'ABC Comapny' ) gets created;
One way to do is to insert records in a view ( on the table ) and use instead of trigger to insert the corresponding record. But that is not possible as development team has to change form and use view instead of table.
Have tried doing it by populating a collection in-each-row trigger and then using statment level trigger to insert from the collection. But this leads to recursive error.
Would be great to get more insights into this..
thanks
cheers
Jaani

Answer 1

Hi,
Within the following script you need to make adjustments according to your needs about the columns you need to test. But this might help you.
Sorry for the layout. But I was not able to adjust it in a short time.
drop table ad_test
create table ad_test ( col1 varchar2(1), col2 varchar2(5), col3 varchar2(100) )
create or replace package ad_test_pkg is
procedure initialize_postpone ;
procedure postpone_record( r_atst in ad_test%rowtype ) ;
procedure handle_postponed_records ;
end ad_test_pkg ;
create or replace package body ad_test_pkg is
type type_atst is table of ad_test%rowtype index by binary_integer ;
t_atst type_atst ;
procedure initialize_postpone is
begin
t_atst.delete ;
end initialize_postpone ;
procedure postpone_record( r_atst in ad_test%rowtype ) is
begin
t_atst(t_atst.count) := r_atst ;
end postpone_record ;
procedure handle_postponed_records is
cursor c_test( cpiv_col1 in ad_test.col1%type ) is
select 'x'
from ad_test
where col1 = cpiv_col1
r_test c_test%rowtype ;
r_atst ad_test%rowtype ;
begin
for i in t_atst.first .. t_atst.last
loop
r_atst := t_atst(i) ;
if r_atst.col1 = 'I'
then
r_atst.col1 := 'S' ;
else
r_atst.col1 := 'I' ;
end if ;
open c_test( cpiv_col1 => r_atst.col1 ) ;
fetch c_test into r_test ;
if c_test%found
then
close c_test ;
else
close c_test ;
insert into ad_test
( col1
, col2
, col3
) values
( 'S'
, r_atst.col2
, r_atst.col3
end if ;
end loop ;
end handle_postponed_records ;
end ad_test_pkg ;
create or replace trigger test_ad_bis
before insert on ad_test
begin
ad_test_pkg.initialize_postpone ;
end ;
create or replace trigger test_ad_air
after insert on ad_test for each row
declare
r_atst ad_test%rowtype ;
begin
r_atst.col1 := :new.col1 ;
r_atst.col2 := :new.col2 ;
r_atst.col3 := :new.col3 ;
ad_test_pkg.postpone_record( r_atst => r_atst ) ;
end ;
create or replace trigger test_ad_ais
after insert on ad_test
begin
ad_test_pkg.handle_postponed_records ;
end ;
insert into ad_test values ( 'I', 'A0001', 'ABC COmpany') ;
select * from ad_test ;
Greets,
Ad
Edited by: loaddev on 10-nov-2010 4:47