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