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
|
PROCEDURE AddBien_Immo_Appartement ( a_num_bi BIEN_IMMO.NUM_BI%TYPE,
a_statut BIEN_IMMO.STATUT%TYPE,
a_localisation BIEN_IMMO.LOCALISATION%TYPE,
a_etat_du_bien BIEN_IMMO.ETAT_DU_BIEN%TYPE,
a_prix_achat BIEN_IMMO.PRIX_ACHAT%TYPE,
a_loyer_mensuel BIEN_IMMO.LOYER_MENSUEL%TYPE,
a_charge_mensuel BIEN_IMMO.CHARGE_MENSUEL%TYPE,
a_caution BIEN_IMMO.CAUTION%TYPE,
a_num_prop BIEN_IMMO.NUM_PROP%TYPE,
a_num_contrat BIEN_IMMO.NUM_CONTRAT%TYPE,
a_Nbr_chambre APPARTEMENT.NBR_CHAMBRE%TYPE,
a_Loc_etage APPARTEMENT.LOC_ETAGE%TYPE,
a_Ascenceur APPARTEMENT.ASCENCEUR%TYPE,
a_Cuisine_equipee APPARTEMENT.CUISINE_EQUIPEE%TYPE)
IS
begin
INSERT INTO BIEN_IMMO ( NUM_BI,STATUT,LOCALISATION,ETAT_DU_BIEN,PRIX_ACHAT,
LOYER_MENSUEL,CHARGE_MENSUEL,CAUTION,NUM_PROP,NUM_CONTRAT,TYPE)
VALUES ( a_num_bi,a_statut,a_localisation,a_etat_du_bien,
a_prix_achat,a_loyer_mensuel,a_charge_mensuel,a_caution,a_num_prop,a_num_contrat,'APPARTEMENT');
INSERT INTO APPARTEMENT (NUM_BI,Nbr_chambre,Loc_etage,Ascenceur,Cuisine_equipee)
VALUES ( a_num_bi,a_Nbr_chambre,a_Loc_etage,a_Ascenceur,a_Cuisine_equipee);
end; |
