create or alter procedure SAVE_NELIKVID2
as
declare variable NELIK smallint;
declare variable IDSERII integer;
declare variable IDT integer;
declare variable RASHOD timestamp;
declare variable IDP integer;
declare variable DATA date;
declare variable KOLVO numeric(15,3);
declare variable PRIHOD timestamp;
declare variable ID integer;
declare variable CENA numeric(15,2);
declare variable FLAG smallint;
begin

for select flag, data from flag_nelikvid
into :flag, :data
do begin
end
if ((:flag is null) or (:data < 'now')) then
begin
delete from flag_nelikvid;
insert into flag_nelikvid values (1, 'now');


for select tovar, proizv, serii, cena, prihod, kolvo from nelikv3
into :idt, :idp, :idserii, :cena, :prihod, :kolvo
do begin
update or insert into tnelikvid (id, tovar, proizv, serii, cena, prihod, kolvo)
values (Gen_id(gen_nelikvid_id2, 1), :idt, :idp, :idserii, :cena, :prihod, :kolvo)
matching (tovar, proizv, serii, cena, prihod);
end

delete from vnelikvid;

for select tovar, proizv from nelikv
into :idt, :idp
do begin
insert into vnelikvid (id, tovar, proizv)
values (Gen_id(gen_nelikvid_id, 1), :idt, :idp);
end
end
end