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
| SQL> set serveroutput on
SQL> rollback;
Rollback complete.
SQL> BEGIN
2 FOR r IN (
3 SELECT 31 soc, z.article, 314 tarif, TRUNC(SYSDATE) datedeb, z.mont
4 FROM (
5 SELECT article, MONTANT_TARIFX( 35, a.article, 350, SYSDATE) mont
6 FROM FARTICLE a
7 WHERE a.ste = 31
8 AND EXISTS ( SELECT 1 FROM FART_CODE_PRIX p WHERE p.ste = 31
9 AND p.cat_code_prix = 'GENE_3132'
10 AND p.code_prix IN (SELECT gencod FROM wmc_fe1400)
11 AND p.article = a.article)
12 ) z
13 WHERE z.mont IS NOT NULL
14 AND ROWNUM = 1
15 )
16 LOOP
17 INSERT INTO ftarif(STE, ARTICLE, TARIF, DATE_DEB, MONTANT)
18 VALUES(r.soc, r.article, r.tarif, r.datedeb, r.mont);
19 DBMS_OUTPUT.put_line(r.article ||':'|| SQL%ROWCOUNT);
20 END LOOP;
21 END;
22 /
9600102672:1
PL/SQL procedure successfully completed. |
Partager