sp_medicinestockcheckout.sql

来自「一整套的源代码」· SQL 代码 · 共 17 行

create or replace procedure sp_medicinestockcheckout
(
  l_stockoutorderid in integer
)
is
  cursor c is select * from soomedicinedetail where stockoutorderid = l_stockoutorderid;
  r soomedicinedetail%rowtype;
  l_medicineid integer;
  result integer;
begin
  for r in c loop
    result := sp_medicinestockdecrease(r.medicinestockid, r.soomedicinedetailid, r.amount);
  end loop;
end;
/