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

REBILLINSERT

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

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

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

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

Описание

(Нет описания для процедуры REBILLINSERT)

Определение

CREATE PROCEDURE REBILLINSERT
AS
declare variable INVOICEID integer;
begin /*$$IBE$$ 

invoiceid = gen_id(invoiceidgen,0);

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

insert into IT
  (INVENTORYID, INVOICEID,
   OPERATIONID, PARENTID,  STATE, regdate)
values
  (gen_id(inventoryidgen, 1), :INVOICEID,  17, 0, 0, current_date);
 $$IBE$$*/
invoiceid = gen_id(INVOICEIDGEN, 0);

insert into IT (INVOICEID, OPERATIONID, PARENTID, STATE, REGDATE)
  values (:INVOICEID, 17, 0, 0, current_date);

insert into IT (INVOICEID, OPERATIONID, PARENTID, STATE, REGDATE)
  values(:INVOICEID, 17, 0, 0, current_date);

end