sp_stockoutorderappend.sql

Delphi6开发的HIS程序

create or replace function sp_stockoutorderappend
(
  l_createby in integer
)
return integer
is
  l_departmentid integer;
  l_stockoutorderid integer;
begin
  select departmentid into l_departmentid from employee where employeeid = l_createby;
  select stockoutorder_id.nextval into l_stockoutorderid from dual;
  insert into stockoutorder
  (
    stockoutorderid,
    st,
    total,
    memo,
    isapprove,
    approvedate,
    checkoutdate,
    created,
    updated,
    createby,
    updateby,
    checkoutmethodid,
    approveby,
    departmentid,
    sectionofficeid
  )
  values
  (
    l_stockoutorderid,
    1,
    0,
    null,
    0,
    null,
    null,
    sysdate,
    sysdate,
    l_createby,
    l_createby,
    2,
    null,
    l_departmentid,
    null
  );
  return l_stockoutorderid;
end;
/