You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
527 B
37 lines
527 B
CREATE TABLE tLigne(
|
|
designation VARCHAR2(500)
|
|
);
|
|
|
|
set echo off
|
|
set verify off
|
|
set feed off
|
|
|
|
variable vnoP CHAR(5)
|
|
variable vql NUMBER
|
|
PROMPT Entrer le num du prod :
|
|
ACCEPT vnoP
|
|
PROMPT Entrer la quantitée livré :
|
|
ACCEPT vql
|
|
|
|
DECLARE
|
|
dCo NUMBER;
|
|
|
|
BEGIN
|
|
|
|
SELECT stock INTO dCo
|
|
FROM tProduit
|
|
WHERE noprod = '&vnoP';
|
|
dCo:= dCo + &vql;
|
|
UPDATE tProduit SET stock = dCo WHERE noprod = '&vnoP';
|
|
|
|
EXCEPTION
|
|
when no_data_found then
|
|
insert into Tligne values('référence inconnue');
|
|
end;
|
|
.
|
|
/
|
|
|
|
set echo on
|
|
set verify on
|
|
set feed on
|