1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| CREATE OR REPLACE PROCEDURE
ATDCETUD.PR_ARCH06(IN Pyear dec(4, 0), IN PDivi char(3), IN PBib char(10))
LANGUAGE SQL
BEGIN
--------------------------------------------------------------------------------
CREATE TABLE QTEMP/CUMCPTGENE AS(
SELECT EGYEA4, EGAIT1, EGAIT2, EGAIT3, EGAIT4, EGAIT5, EGAIT6, EGAIT7, EGVSER,
EAAICL, SUM(EGACAM) as Solde FROM FGLEDG, FCHACC
WHERE EGCONO = EACONO AND EGAIT1 = EAAITM AND EGCONO = 100 AND
EGDIVI = 'XXX' and EAAITP=1 AND EADIVI =' '
GROUP BY EGYEA4, EGAIT1, EGAIT2, EGAIT3, EGAIT4, EGAIT5, EGAIT6, EGAIT7, EGVSER,
EAAICL HAVING SUM(EGACAM) <> 0) WITH DATA;
--
Insert Into QTEMP.CUMCPTGENE
SELECT EGYEA4, EGAIT1, EGAIT2, EGAIT3, EGAIT4, EGAIT5, EGAIT6, EGAIT7, EGVSER,
EAAICL, SUM(EGACAM) as Solde FROM FGLEDG, FCHACC
WHERE EGCONO = EACONO AND EGAIT1 = EAAITM AND EGCONO = 100 AND
EGDIVI = PDIVI and EAAITP=1 AND EADIVI =' '
GROUP BY EGYEA4, EGAIT1, EGAIT2, EGAIT3, EGAIT4, EGAIT5, EGAIT6, EGAIT7, EGVSER,
EAAICL HAVING SUM(EGACAM) <> 0;
END |