Insert in Pre-Update...please help...

Question

hii all...
i have master/detail block form....
Table - T_MAST (MASTER)
M_CODE
M_NO
M_DATE
M_PARTY
M_DISC_AMT
M_CHRGS
Table - T_DET (DETAIL)
D_MCODE
D_MNO
D_ITEM
D_QTY
D_PRICE
D_AMT (Non-DB Formula item, calculates D_QTY * D_PRICE)
D_TOT_AMT (Non-DB Summary item, sums D_AMT)
D_NET_AMT (Non-DB Formula item, D_TOT_AMT-M_DISC_AMT+M_CHRGS)
on saving, in pre-insert i want to save some columns from T_MAST & T_DET blocks
into another table T_ACNT;
Table - T_ACNT
ACNT_CODE
ACNT_NO
ACNT_DATE
ACNT_PARTY
ACNT_DC
ACNT_AMT
I gave the follwing 2 inserts...in
PRE-INSERT (Header Block)
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:M_PARTY,
'C',:D_NET_AMT);
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:GLOBAL.M_CASH_CODE,
'D',:D_NET_AMT);
Pre-Insert have no issues...
but the problem i am facing is, when i update record after any change..
in PRE-UPDATE, first i am Deleting the record already existing in T_ACNT table,
matching with the current header record and then Insert record with new values..
PRE-UPDATE (Detail Block)
DELETE FROM ACNT_TXN
WHERE ACNT_CODE = :M_CODE
AND ACNT_NO = :M_NO
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:M_PARTY,
'C',:D_NET_AMT);
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:GLOBAL.M_CASH_CODE,
'D',:D_NET_AMT);
Modifying 1 record at a time, either master,detail or both has no problem,
but if i update more than 1 header records or updating combination of both header-detail records.
doesn't insert new records in ACNT_TXN correctly....
for example, with the followinf data;
M_CODE       M_NO M_DATE    M_PART M_DISC_AMT    M_CHRGS
SAL            24 15-JUN-10 C1006                      1
SAL            25 23-JUN-10 C1003           2
D_MCOD      D_MNO D_ITEM               D_QTY    D_PRICE
SAL            24 987654321                2          2
SAL            25 P0140000014              2          4
Initially PRE-INSERT result goes well.. in ACNT_TXN...no issues
ACN    ACNT_NO ACNT_DATE ACNT_C A   ACNT_AMT
SAL         24 15-JUN-10 C1006  D          5
SAL         24 15-JUN-10 5500   C          5
SAL         25 23-JUN-10 5500   C          6
SAL         25 23-JUN-10 C1003  D          6lets assume that i change header field of record with M_No. 24 and 25
and remaining on record no. 25 i press save button...
what i notice is, Form start to commit the changes from the first changed record,,
which in my case from header record No. 24...and thats fine...
since the record is changed, so pre-update gets fired.
First, it deletes the record from ACNT_TXN with matching header record no.24 but...
when re-Inserting in ACNT_TXN, it is replacing values of record no.24 with the values current record no 25...!
i put a message trapping the value of D_NET_AMT before Delete and found this...
kindly if any one help me correct my logic n approach...
TY..

Answer 1

hello,
No need to delete the record from the table ACNT_TXN.
Just check it if record is exist then update it.
Do you have any contraints in your detail table?
i assumed you have this contrainst field :
as primary or unique :-
ACNT_CODE
ACNT_NO
ACNT_DC
if no constraint then just make function to check if exist then update the record.
since you have the code on your forms then i will suggest this code if it suite to your need.
Ok. can you just try it again by pre-update under dtl_blk.
begin
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:M_PARTY,
'C',
:D_NET_AMT);
exception when duP_val_on_index then
begin
update T_ACNT
set ACNT_AMT = nvl(:D_NET_AMT,0)
where ACNT_CODE = :M_CODE
     ACNT_NO = :M_NO
ACNT_DC = 'C';
end;
end;
OR-
begin
update T_ACNT
set ACNT_AMT = nvl(:D_NET_AMT,0)
where ACNT_CODE = :M_CODE
     ACNT_NO = :M_NO
ACNT_DC = 'C';
IF SQL%NOTFOUND THEN
begin
INSERT INTO T_ACNT VALUES (:M_CODE,
          :M_NO,
          :M_DATE,
          :M_PARTY,
          'C',
          :D_NET_AMT);
end;
end if;
end;
begin
INSERT INTO T_ACNT VALUES (:M_CODE,
:M_NO,
:M_DATE,
:GLOBAL.M_CASH_CODE,
'D',:D_NET_AMT);
exception when duP_val_on_index then
begin
update T_ACNT
set ACNT_AMT = nvl(:D_NET_AMT,0)
where ACNT_CODE = :M_CODE
     ACNT_NO = :M_NO
ACNT_DC = 'D';
end;
end;
OR-
begin
update T_ACNT
set ACNT_AMT = nvl(:D_NET_AMT,0)
where ACNT_CODE = :M_CODE
     ACNT_NO = :M_NO
ACNT_DC = 'D';
IF SQL%NOTFOUND THEN
begin
INSERT INTO T_ACNT VALUES (:M_CODE,
          :M_NO,
          :M_DATE,
          :M_PARTY,
          'D',
          :D_NET_AMT);
end;
end if;
end;
hope will help you...
Note: this code i didnt try it, maybe you need some review but i give the idea.
charles