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 54 55 56 57 58 59 60 61 62 63 64 65
|
PROCEDURE MODIF_NUTI(sClie IN VARCHAR2, sCoda IN VARCHAR2, sNom IN VARCHAR2, sMail IN VARCHAR2, sEtat IN VARCHAR2, iUtilId IN NUMBER,
sSoci IN VARCHAR2, sSiret IN VARCHAR2, sAdre IN VARCHAR2, sCp IN VARCHAR2, sVille IN VARCHAR2, STEL IN VARCHAR2, sFax IN VARCHAR2, sPromo IN VARCHAR2,
sMode IN VARCHAR2, sMrej IN VARCHAR2, sCrej IN VARCHAR2, sPrea IN VARCHAR2, sTarif IN VARCHAR2, sCodaCA IN VARCHAR2)
IS
CURSOR cBCLI (sClie VARCHAR2, sCoda VARCHAR2) IS
SELECT BCLI_MCTY_CODE, BCLI_MCAC_CODE, BCLI_MCMA_CODE, BCLI_MCTA_CODE, BCLI_VRP
FROM BCLI
WHERE BCLI_CLIENT_ENS=sClie;-- AND BCLI_ESCO_CODE=sCoda;
sSoon VARCHAR2(9);
cur NUMBER;
sMcty VARCHAR2(1);
sMcac VARCHAR2(2);
sMcma VARCHAR2(2);
sMcta VARCHAR2(1);
sVrp VARCHAR2(6);
BEGIN
BEGIN
sSoon := 'SoonSE';
FOR cur IN cBCLI(sClie, sCoda) LOOP
sMcty := cur.BCLI_MCTY_CODE;
sMcac := cur.BCLI_MCAC_CODE;
sMcma := cur.BCLI_MCMA_CODE;
sMcta := cur.BCLI_MCTA_CODE;
sVrp := cur.BCLI_VRP;
EXIT;
END LOOP;
INSERT INTO NUTI
(NUTI_CLIE, NUTI_CODA, NUTI_NOM, NUTI_PWD, NUTI_SOON, NUTI_MAIL, NUTI_SOCI, NUTI_ADRE, NUTI_CP, NUTI_VILLE,
NUTI_SIRET, NUTI_PROMO, NUTI_TEL, NUTI_FAX, NUTI_DTINS, NUTI_ETAT, NUTI_UTIL_ID, NUTI_DTMDF,
NUTI_MCTY_CODE, NUTI_MCAC_CODE, NUTI_MCMA_CODE, NUTI_MCTA_CODE, NUTI_VRP, NUTI_PREA, NUTI_UTIP_PRIX, NUTI_CODA_CA)
VALUES(sClie, sCoda, sNom, RET_PWD(sNom), sSoon, sMail, sSoci, sAdre, sCp, sVille,
sSiret, sPromo, STEL, sFax, SYSDATE, sEtat, iUtilId, SYSDATE,
sMcty, sMcac, sMcma, sMcta, sVrp, sPrea, sTarif, sCodaCA);
COMMIT;
IF (sEtat = 'C') THEN
SEND_MAIL(sClie, sCoda, sNom, sMail, sMode);
END IF;
-- Mail rejets
IF (sEtat = 'R') THEN
SEND_MAIL_REJET(sClie, sCoda, sNom, sMail);
END IF;
EXCEPTION WHEN OTHERS THEN
UPDATE NUTI
SET NUTI_MAIL=sMail, NUTI_SOCI=sSoci, NUTI_ADRE=sAdre, NUTI_CP=sCp, NUTI_VILLE=sVille, NUTI_SIRET=sSiret, NUTI_PROMO=sPromo, NUTI_TEL=STEL,
NUTI_FAX=sFax, NUTI_ETAT=sEtat, NUTI_UTIL_ID=iUtilId, NUTI_DTMDF=SYSDATE,
NUTI_MCTY_CODE=sMcty, NUTI_MCAC_CODE=sMcac, NUTI_MCMA_CODE=sMcma, NUTI_MCTA_CODE=sMcta, NUTI_VRP=sVrp,
NUTI_MREJ = sMrej, NUTI_CREJ = sCrej, NUTI_PREA = sPrea, NUTI_UTIP_PRIX = sTarif, NUTI_CODA_CA = sCodaCA
WHERE NUTI_CLIE = sClie AND NUTI_CODA = sCoda AND NUTI_NOM = sNom;
COMMIT;
IF (sEtat = 'C' AND sMode != 'C') THEN -- Accepte demande ou rejet
SEND_MAIL(sClie, sCoda, sNom, sMail, sMode);
END IF;
-- Mail rejets
IF (sEtat = 'R') THEN
SEND_MAIL_REJET(sClie, sCoda, sNom, sMail);
END IF;
END; |
Partager