Inserting on Master Detail form

Question

Hello,
I have created two tables. One I'm using as my master form and the other for my detail form.
Table 1
CREATE TABLE AGENCY (
AGY_ID NUMBER (9) NOT NULL,
AGY VARCHAR2 (1) NOT NULL,
AGY_DESC VARCHAR2 (10) NOT NULL,
AGY_DESC_LONG VARCHAR2 (100),
CONSTRAINT PK_AGENCY
PRIMARY KEY ( AGY_ID ) )
There is post insert trigger on AGY_ID using a sequence:
CREATE OR REPLACE TRIGGER PORTAL30.AGY_ID_PI
BEFORE INSERT
ON AGENCY
FOR EACH ROW
Begin
If inserting and ( :new.AGY_ID is null ) Then
select AGY_ID.nextval into :new.AGY_ID from dual;
End If;
End;
Table 2
CREATE TABLE OFFICECODE (
OFF_ID NUMBER (9) NOT NULL,
OFF_DESC VARCHAR2 (4) NOT NULL,
AGY_ID NUMBER (9) NOT NULL,
OFF_DESC_LONG VARCHAR2 (100),
CONSTRAINT PK_OFFICECODE
PRIMARY KEY ( OFF_ID ) )
There is a Foreign Key on OFFICECOD.AGY_ID TO AGENCY.AGY_ID:
ALTER TABLE OFFICECODE ADD CONSTRAINT OFF_AGY_ID_FK
FOREIGN KEY (AGY_ID)
REFERENCES PORTAL30.AGENCY (AGY_ID) ;
There is post insert trigger on AGY_ID using a sequence:
CREATE OR REPLACE TRIGGER PORTAL30.OFF_ID_PI
BEFORE INSERT
ON OFFICECODE
FOR EACH ROW
Begin
If inserting and ( :new.OFF_ID is null ) Then
select OFF_ID.nextval into :new.OFF_ID from dual;
End If;
End;
I create a MD form in Portal 3.0.9.8.0 just fine. However I cannot insert the master and the detail at the same time because I get the following error:
Error: An unexpected error occurred: ORA-01400: cannot insert NULL into ("PORTAL30"."OFFICECODE"."AGY_ID") (WWV-16016)
If I create the Master record 1st, then add the detail records it works fine. But how do I insert the Master and the detail records at the same time?
Thanks,
Martin

Answer 1

Martin,
I had the same problem and with the help of some other folks in the forum I came up with this. It goes on the save button, plsql event handler. You'll see the 'doSave' call at the end of the procedure. It checks the value of the Master Action List and if it is 'INSERT' then sequence.nextval will be selected into v_master_id and then inserted into the table. Let me know if you have any questions. It probably needs a little clean up and some functionality for delete but so far I haven't had any problems with it.
DECLARE
v_master_id number(10);
v_masteraction varchar2(10);
v_detailaction varchar2(10);
BEGIN
v_masteraction := p_session.get_value_as_varchar2(p_block_name=> 'MASTER_BLOCK', p_attribute_name=>'_MASTER_ACTION');
IF (v_masteraction = 'INSERT') THEN
select rfi_admin.rasset_qc_master_seq.nextval into v_master_id from dual;
p_session.set_value
(p_block_name => 'MASTER_BLOCK'
,p_attribute_name => 'A_ID'
,p_index => 1
,p_value => v_master_id
FOR i in 1..g_max_det_rec LOOP
p_session.set_value
(p_block_name => 'DETAIL_BLOCK'
,p_attribute_name => 'A_MASTER_ID'
,p_index => i
,p_value => v_master_id
END LOOP;
END IF;
IF (v_masteraction = 'UPDATE') THEN
v_master_id := p_session.get_value_as_varchar2(p_block_name=> 'MASTER_BLOCK', p_attribute_name=>'A_ID');
END IF;
FOR i in 1..g_max_det_rec LOOP
v_detailaction := p_session.get_value_as_varchar2(p_block_name=> 'DETAIL_BLOCK', p_attribute_name=>'_DETAIL_ACTION', p_index => i);
IF (v_detailaction = 'INSERT') THEN
p_session.set_value(p_block_name=> 'DETAIL_BLOCK', p_attribute_name=> 'A_ASSET_QC_MASTER_ID', p_index => i, p_value=> v_master_id);
END IF;
END LOOP;
doSave;
END;