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
| create or replace
PROCEDURE modifier_bien
(v_NUMBIEN IN bien.numbien%TYPE,
v_DESCRIPTIONBIEN IN bien.descriptionbien%TYPE default NULL,
v_NUMRUEBIEN IN bien.NUMRUEBIEN%TYPE default NULL,
v_NOMRUEBIEN IN bien.NOMRUEBIEN%TYPE default NULL,
v_CODEPOSTALEBIEN IN bien.CODEPOSTALEBIEN%TYPE default NULL,
v_VILLEBIEN IN bien.VILLEBIEN%TYPE default NULL,
v_SURFACEHABITABLEBIEN IN bien.SURFACEHABITABLEBIEN%TYPE default NULL,
v_SURFACETERRAINBIEN IN bien.SURFACETERRAINBIEN%TYPE default NULL,
v_CAVEBIEN IN bien.CAVEBIEN%TYPE default NULL,
v_GARAGEBIEN IN bien.GARAGEBIEN%TYPE default NULL,
v_NBRPIECEMAISON IN bien.NBRPIECEMAISON%TYPE default NULL,
v_NBRETAGEMAISON IN bien.NBRETAGEMAISON%TYPE default NULL,
v_JARDINMAISON IN bien.JARDINMAISON%TYPE default NULL,
v_DESCRIPTIONAPPARTEMENT IN bien.DESCRIPTIONAPPARTEMENT%TYPE default NULL,
v_NBRPIECEAPPARTEMENT IN bien.NBRPIECEAPPARTEMENT%TYPE default NULL,
v_BALCONAPPARTEMENT IN bien.BALCONAPPARTEMENT%TYPE default NULL,
v_ASCENSEURAPPARTEMENT IN bien.ASCENSEURAPPARTEMENT%TYPE default NULL,
v_NUMETAGEAPPARTEMENT IN bien.NUMETAGEAPPARTEMENT%TYPE default NULL,
v_PLACESTATIONNEMENT IN bien.PLACESTATIONNEMENT%TYPE default NULL)
IS
BEGIN
UPDATE BIEN
SET DESCRIPTIONBIEN = nvl(v_DESCRIPTIONBIEN, DESCRIPTIONBIEN),
NUMRUEBIEN = nvl(v_NUMRUEBIEN, NUMRUEBIEN),
NOMRUEBIEN = nvl(v_NOMRUEBIEN, NOMRUEBIEN),
CODEPOSTALEBIEN = nvl(v_CODEPOSTALEBIEN, CODEPOSTALEBIEN),
VILLEBIEN = nvl(v_VILLEBIEN, VILLEBIEN),
SURFACEHABITABLEBIEN = nvl(v_SURFACEHABITABLEBIEN, SURFACEHABITABLEBIEN),
SURFACETERRAINBIEN = nvl(v_SURFACETERRAINBIEN, SURFACETERRAINBIEN),
CAVEBIEN = nvl(v_CAVEBIEN, CAVEBIEN),
GARAGEBIEN = nvl(v_GARAGEBIEN, GARAGEBIEN),
NBRPIECEMAISON = nvl(v_NBRPIECEMAISON, NBRPIECEMAISON),
NBRETAGEMAISON = nvl(v_NBRETAGEMAISON, NBRETAGEMAISON),
JARDINMAISON = nvl(v_JARDINMAISON, JARDINMAISON),
DESCRIPTIONAPPARTEMENT = nvl(v_DESCRIPTIONAPPARTEMENT, DESCRIPTIONAPPARTEMENT),
NBRPIECEAPPARTEMENT = nvl(v_NBRPIECEAPPARTEMENT, NBRPIECEAPPARTEMENT),
BALCONAPPARTEMENT = nvl(v_BALCONAPPARTEMENT, BALCONAPPARTEMENT),
ASCENSEURAPPARTEMENT = nvl(v_ASCENSEURAPPARTEMENT, ASCENSEURAPPARTEMENT),
NUMETAGEAPPARTEMENT = nvl(v_NUMETAGEAPPARTEMENT, NUMETAGEAPPARTEMENT),
PLACESTATIONNEMENT = nvl(v_PLACESTATIONNEMENT, PLACESTATIONNEMENT)
WHERE bien.numbien = v_NUMBIEN;
IF SQL%NOTFOUND THEN
RAISE_APPLICATION_ERROR(-20202,'Pas de bien modifié.');
ELSE
COMMIT;
END IF;
END modifier_BIEN ; |
Partager