1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| DECLARE
nb_projet NUMBER(5);
curr_row NUMBER(5);
fiscal_year NUMBER(4);
inv_amt NUMBER(10);
adj_amt NUMBER(10);
debit NUMBER(10);
rec_amt1 NUMBER(10);
rec_amt2 NUMBER(10);
wo_amt NUMBER(10);
cursor no_projet is
select REQ_NUM
FROM DEC_REQUEST
WHERE REQUEST_STATUS = '608'
and REQ_NUM = '161000351';
BEGIN
FOR cur IN no_projet loop
DECLARE
CURSOR donnees IS
SELECT DISTINCT C.COM_FISCAL_YR,
(SELECT SUM(D.COM_ITEM_AMOUNT)
FROM COMMIT_ITM_DST D, COMMIT_ITEMS I
WHERE I.ELEMENT_5 = cur.REQ_NUM
AND D.COM_XREF_NUM = I.COM_XREF_NUM
AND D.COM_XREF_ITEM_NUM = I.COM_XREF_ITEM_NUM
AND D.COM_FISCAL_YR = C.COM_FISCAL_YR
AND D.LOCATION = 1) AS COM_AMT,
FROM COMMIT_ITM_DST C
WHERE COM_FISCAL_YR >= '2002'
ORDER BY COM_FISCAL_YR;
BEGIN
FOR curr_don IN donnees loop
INSERT INTO NADINE_HUGO_FIN (REQ_NUM,FISCAL_YEAR,INV_AMT, ADJ_AMT, DEBIT, REC_AMT1,
REC_AMT2, WO_AMT) VALUES (curr.REQ_NUM, curr_don.FISCAL_YEAR, curr_don.INV_AMT,curr_don.ADJ_AMT,
curr_don.DEBIT, curr_don.REC_AMT1, curr_don.REC_AMT2, curr_don.WO_AMT);
END LOOP;
END;
END LOOP;
COMMIT;
END;
/ |
Partager