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

INQUIRYINSERT

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

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

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

Описание

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

Определение

CREATE PROCEDURE INQUIRYINSERT(
    OPERATIONID INTEGER)
AS
begin

if (:OPERATIONID = 49) then
begin
insert into IT
  (INVENTORYID, INVOICEID, LABQUALITYID,
   OPERATIONID, PARENTID,
   SAMPLERQUALITYID, STATE,regdate)
values
  (gen_id(inventoryidgen, 1), null , null , 49, 0, null, 0, current_date);

insert into IT
  (INVENTORYID, INVOICEID, LABQUALITYID,
   OPERATIONID, PARENTID,
   SAMPLERQUALITYID, STATE, regdate)
values
  (gen_id(inventoryidgen, 1), null , null , 50, 0, null, 0, current_date);
end

if (:OPERATIONID = 51) then
begin
insert into IT
  (INVENTORYID, INVOICEID, LABQUALITYID,
   OPERATIONID, PARENTID,
   SAMPLERQUALITYID, STATE,regdate)
values
  (gen_id(inventoryidgen, 1), null , null , 51, 0, null, 0, current_date);

insert into IT
  (INVENTORYID, INVOICEID, LABQUALITYID,
   OPERATIONID, PARENTID,
   SAMPLERQUALITYID, STATE, regdate)
values
  (gen_id(inventoryidgen, 1), null , null , 53, 0, null, 0, current_date);
end
end