sp_pstockcheckout.sql

Delphi6开发的HIS程序

create or replace function sp_pstockcheckout
(
  l_pstockmedicineid in integer,
  l_amount in number
)
return integer
is
  l_stockamount number(16, 4);
begin
  select amount into l_stockamount from pstockmedicine where pstockmedicineid = l_pstockmedicineid;
  if l_stockamount < l_amount then
    return -1;
  end if;
  update pstockmedicine set amount = amount - l_amount where pstockmedicineid = l_pstockmedicineid;
  return 0;
end;
/