"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

WRTINGOFFSINSERT

Входные параметры

(Нет входных параметров)

Выходные параметры

(Нет выходных параметров)

Описание

Добавление списания 3 кат.

Определение

CREATE PROCEDURE WRTINGOFFSINSERT
AS
DECLARE VARIABLE INVOICEID INTEGER;
begin

 INVOICEID = gen_id(invoiceidgen, 0);

insert into IT
  (INVENTORYID, invoiceid,
   OPERATIONID, PARENTID,
  STATE,regdate)
values
  (gen_id(inventoryidgen, 1),
  :INVOICEID,
  22, 0, 0, current_date);

insert into IT
  (INVENTORYID, invoiceid,
   OPERATIONID, PARENTID,
   STATE, regdate)
values
  (gen_id(inventoryidgen, 1),
  :INVOICEID,
   4, 0, 0, current_date);

end