|
|
|
@ -1,4 +1,4 @@
|
|
|
|
|
drop table tresultat purge;
|
|
|
|
|
drop table tresultat purge;
|
|
|
|
|
create table tresultat(ligne varchar2(200));
|
|
|
|
|
|
|
|
|
|
variable vidEquipement char(3)
|
|
|
|
@ -20,18 +20,18 @@ DECLARE
|
|
|
|
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
|
|
|
|
dmessage := 'ERREUR: id équipement déjà attribué';
|
|
|
|
|
dmessage := 'ERREUR: id equipement deja attribue';
|
|
|
|
|
SELECT COUNT(*) INTO dcpt
|
|
|
|
|
FROM EQUIPEMENT
|
|
|
|
|
WHERE idEquipement = '&vidEquipement';
|
|
|
|
|
IF dcpt=1 THEN
|
|
|
|
|
INSERT INTO tresultat VALUES (dmessage);
|
|
|
|
|
ELSE
|
|
|
|
|
dmessage := 'ERREUR: Le tarif doit être supérieure à 0';
|
|
|
|
|
dmessage := 'ERREUR: Le tarif doit etre superieure a 0';
|
|
|
|
|
IF '&vtarif' <= 0 then
|
|
|
|
|
raise probleme;
|
|
|
|
|
ELSE
|
|
|
|
|
dmessage := 'ERREUR: le libellé de l''équipement doit être unique';
|
|
|
|
|
dmessage := 'ERREUR: le libelle de l equipement doit etre unique';
|
|
|
|
|
SELECT count(*) INTO dcpt
|
|
|
|
|
FROM EQUIPEMENT
|
|
|
|
|
WHERE libelle = '&vlibelle';
|
|
|
|
@ -41,7 +41,7 @@ BEGIN
|
|
|
|
|
ELSE
|
|
|
|
|
INSERT INTO EQUIPEMENT VALUES ('&vidEquipement', '&vtarif', '&vlibelle');
|
|
|
|
|
COMMIT;
|
|
|
|
|
INSERT INTO tresultat VALUES ('L'équipement a été enregistré :' || '&vlibelle');
|
|
|
|
|
INSERT INTO tresultat VALUES ('L equipement a ete enregistre :' || '&vlibelle');
|
|
|
|
|
END IF;
|
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
@ -54,5 +54,3 @@ END;
|
|
|
|
|
|
|
|
|
|
SELECT * FROM tresultat;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|