sp_medicinestockcheckin.sql

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

create or replace procedure sp_medicinestockcheckin(l_stockinorderid in integer) is
  cursor c is
    select *
    from   siomedicinedetail
    where  stockinorderid = l_stockinorderid;
  r                 siomedicinedetail%rowtype;
  l_count           integer;
  l_medicinestockid integer;
begin
  for r in c loop
    l_medicinestockid := sp_medicinesotckfind(r.medicineid);
    if l_medicinestockid < 0 then
      l_medicinestockid := sp_medicinestockappend(r.medicineid);
    end if;
    insert into medicinestockdetail
      (amount, medicinestockid, siomedicinedetailid)
    values
      (r.amount, l_medicinestockid, r.siomedicinedetailid);
  end loop;
  update stockinorder set isapprove = 1, approvedate = sysdate, updated = sysdate
  where stockinorderid = l_stockinorderid;
end;
/