1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
CREATE OR REPLACE PROCEDURE SUPPR_X ( REF_CONTRAT VARCHAR2, DATE_DEB DATE, DATE_FIN DATE) IS
CURSOR curseur is select contratfac_numfac, entpiedfac_type
from contratfac, entpiedfac
where contratfac_refcontrat = '&REF_CONTRAT'
and contratfac_numfac = entpiedfac_numfac
and entpiedfac_datefact between to_date('&DATE_DEB', 'dd/mm/yyyy') and to_date('&DATE_FIN', 'dd/mm/yyyy');
BEGIN
For Cur IN Curseur Loop
INSERT INTO USER_OWNER_GC.CMDFACT ( CMDFACT_IDF, CMDFACT_ACTION, CMDFACT_IDFPARAM, CMDFACT_UTILIS, CMDFACT_DATE, CMDFACT_MOTIF,CMDFACT_ETAT, CMDFACT_COMMENT, CMDFACT_TYPEFACT, CMDFACT_NUMFACANNU, CMDFACT_CMDFACTPREC)
VALUES (ALSIGETIDFCMDFACTSUIV,41,cur.contratfac_numfac ,'ADMINISTRATEUR', sysdate, NULL ,'A', NULL , cur.entpiedfac_type, NULL , NULL );
COMMIT;
End loop ;
END; |
Partager