Data from 2 database blocks insert into the same base table?

Question

Hello,
I have canvas C_NEW. On this canvas, items from 3 blocks are usable by the user.
1. Block NEW_HEAD: 3 items say X1,X2,X3
2. Block NEW : multi record text fields say Y1 thru Y10. Also a scrollbar.
3. Block NEW_ACTION: 6 buttons say B1 thru B6 (One of them is N_OK which is the item in question)
both the blocks NEW, NEW_HEAD are db blocks and have the same base table say BT. When the users click on the N_OK (after filling out the data in the NEW_HEAD block and then NEW in that order) I need the data from both the NEW, NEW_HEAD to go into the BT. Currently only the data from the NEW is going into BT. Fields in the BT table which correspond to the fields X1,X2,X3 in the NEW_HEAD remain null after clicking the N_OK button. I put commit_form in the N_OK code since both the blocks are db blocks( and as suggested by folks, it is easier to issue a commit_form than do a lot more work in writing my own SQL).
How can I achive this?
Thanks,
Chiru

Answer 1

I tried doing what you suggested by putting the following code in the program unit which gets called when_button_pressed.
PROCEDURE P_SAVE IS
v_lc_no number;
v_lc_seq number;
v_dmg_allow number;
BEGIN
  Go_Block('B_new_head');
  v_lc_no:= :B_new_head.N_LC_NO;
  v_lc_seq:= :B_new_head.N_LC_SEQ;
  v_dmg_allow:= :B_new_head.N_LC_DMG_ALLOW;
  Go_Block('B_new');      
FIRST_RECORD;
LOOP     
     emessage('before insert'||v_lc_no||'-'||v_lc_seq||'-'||:B_new.order_no);
  INSERT INTO ct_lc_import(
    LC_NUMBER,
    LC_SEQ,
    DAMAGE_ALLOWANCE,
    ORDER_NO,
    QTY_SHIPPED,
    UNIT_PRICE,
    DRAFT_AMOUNT,
    TICKET_DEDUCTION,
    SHIPMENT_PENALTY,
    TOTAL_DEBIT,
    DEBIT_DATE)
    VALUES (v_lc_no,
            v_lc_seq,
            v_dmg_allow,
            :B_new.order_no,
            :B_new.qty_shipped,
            :B_new.unit_price,
            :B_new.draft_amount,
            :B_new.ticket_deduction,
            :B_new.shipment_penalty,
            :B_new.total_debit,
            :B_new.debit_date);
   commit;
  NEXT_RECORD;
   if :SYSTEM.LAST_RECORD='TRUE' then
         emessage('last record');
         EXIT;
   end if;
  --NEXT_RECORD;
END LOOP;
EXCEPTION
   when FORM_TRIGGER_FAILURE then
      raise;
   when OTHERS then
      emessage(SQLERRM);
      raise FORM_TRIGGER_FAILURE;
END;But I can't see the records in the table eventhough the message pops up with the values before inserting the 1st record. It then exits. I would think it would atleast insert the very first record into the the table at the least.
Thanks,
Chiru