parent
98ff7414c9
commit
9e1eb0052e
@ -0,0 +1,41 @@
|
|||||||
|
DROP TABLE TLigne;
|
||||||
|
CREATE TABLE TLigne(designation VARCHAR2(500));
|
||||||
|
|
||||||
|
|
||||||
|
variable vnoproduit char(4)
|
||||||
|
|
||||||
|
PROMPT Saisir un numero de produit
|
||||||
|
|
||||||
|
ACCEPT vnoproduit
|
||||||
|
|
||||||
|
DECLARE
|
||||||
|
|
||||||
|
dnbfournisseur number;
|
||||||
|
|
||||||
|
dnbproduit number;
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
|
||||||
|
SELECT COUNT(*) INTO dnbfournisseur FROM TPRODUITFOURN WHERE noproduit = '\&vnoproduit';
|
||||||
|
|
||||||
|
IF dnbfournisseur = 0 THEN
|
||||||
|
|
||||||
|
SELECT COUNT(*) INTO dnbproduit FROM TPRODUIT WHERE noproduit = '\&vnoproduit';
|
||||||
|
|
||||||
|
END IF;
|
||||||
|
|
||||||
|
IF dnbproduit = 0 THEN INSERT INTO Tligne VALUES('Pas de produit'||'\&vnoproduit');
|
||||||
|
|
||||||
|
ELSE
|
||||||
|
|
||||||
|
INSERT INTO Tligne VALUES('Le nombre de fournisseur du produit'
|
||||||
|
||'\&vnoproduit'||' est '|| dnbfournisseur);
|
||||||
|
|
||||||
|
END IF;
|
||||||
|
|
||||||
|
END;
|
||||||
|
|
||||||
|
.
|
||||||
|
|
||||||
|
/
|
||||||
|
SELECT * FROM Tligne;
|
Loading…
Reference in new issue