git.roojs.org Git - Pman.Xtuple/blob - pgsql/enterporeturn.sql

   1 -- modified to allow dates to be set..
   2
   3
   4 -- Function: enterporeturn(integer, numeric, integer)
   5
   6 -- DROP FUNCTION enterporeturn(integer, numeric, integer);
   7
   8 CREATE OR REPLACE FUNCTION enterporeturn(integer, numeric, integer, date)
   9   RETURNS integer AS
  10 $BODY$
  11 -- Copyright (c) 1999-2011 by OpenMFG LLC, d/b/a xTuple.
  12 -- See www.xtuple.com/CPAL for the full text of the software license.
  13 DECLARE
  14   pPoitemid ALIAS FOR $1;
  15   pQty ALIAS FOR $2;
  16   pRjctcodeid ALIAS FOR $3;
  17   v_reject_date ALIAS FOR $4;
  18   _porejectid INTEGER;
  19
  20 BEGIN
  21
  22     SELECT NEXTVAL('poreject_poreject_id_seq') INTO _porejectid;
  23
  24     INSERT INTO poreject
  25     (
  26         poreject_id, poreject_date,
  27         poreject_ponumber, poreject_poitem_id,
  28
  29         poreject_trans_username, poreject_agent_username,
  30         poreject_itemsite_id, poreject_vend_id,
  31
  32         poreject_vend_item_number, poreject_vend_item_descrip,
  33         poreject_vend_uom,   poreject_qty,
  34
  35         poreject_rjctcode_id, poreject_posted,
  36         poreject_invoiced
  37     ) SELECT
  38             _porejectid, v_reject_date,
  39             pohead_number, poitem_id,
  40
  41             getEffectiveXtUser(),         pohead_agent_username,
  42             poitem_itemsite_id,         pohead_vend_id,
  43
  44             poitem_vend_item_number, poitem_vend_item_descrip,
  45             poitem_vend_uom, pQty,
  46
  47             pRjctcodeid, FALSE,
  48             FALSE
  49         FROM
  50             pohead, poitem
  51         WHERE
  52             (
  53                 (poitem_pohead_id=pohead_id)
  54             AND
  55                 (poitem_id=pPoitemid)
  56             );
  57
  58     RETURN _porejectid;
  59
  60 END;
  61 $BODY$
  62   LANGUAGE plpgsql VOLATILE
  63   COST 100;
  64 ALTER FUNCTION enterporeturn(integer, numeric, integer, date)
  65   OWNER TO admin;