|
Далее все триггеры по UPDATE
А сама строка 'UPDATE ZAKAZ SET EXECZAKAZ=2 where ID=876950'
CREATE TRIGGER "NOM_ZAKAZ_U" FOR "ZAKAZ"
ACTIVE BEFORE UPDATE POSITION 1
AS declare variable i int; BEGIN
NEW.VERS=GEN_ID(VERSIYA,1);
IF (OLD.DADA<>NEW.DADA) THEN BEGIN select max(NOM) from ZAKAZ a where a.Dada = new.Dada into i; new.NOM = i+1; if ((new.NOM is NULL) or (new.NOM = 0)) then new.NOM = 1; END END
^
CREATE TRIGGER "T_ZAKAZ_LAST_U" FOR "ZAKAZ"
ACTIVE BEFORE UPDATE POSITION 1
AS
declare variable dt TimeStamp;
declare variable dtl TimeStamp;
BEGIN
if (new.ExecZakaz<>old.ExecZakaz) then
if (new.ExecZakaz=2) Then
begin
dt=new.Dada+new.Timer;
select dtlast from car where id=new.car_id and fired=0 into dtl;
if (:dtl is null) then
UPDATE car set dtLast=:dt where id=New.Car_id and fired=0;
else if (dt>dtl) then
UPDATE car set dtLast=:dt where id=New.Car_id and fired=0;
end
if (new.Car_id>0) then
if (new.Car_Id<>old.Car_id) then
begin
dt=CURRENT_TIMESTAMP;
select dtlast from car where id=new.car_id and fired=0 into dtl;
if (:dtl is null) then
UPDATE car set dtLast=:dt where id=New.Car_id and fired=0;
else if (dt>dtl) then
UPDATE car set dtLast=:dt where id=New.Car_id and fired=0;
end
END
^
CREATE TRIGGER "T_ZAKAZ_BEZNAL" FOR "ZAKAZ"
ACTIVE BEFORE UPDATE POSITION 2
AS
declare variable idDB SmallInt;
declare variable idF SmallInt;
declare variable proc SmallInt;
BEGIN
if (new.ExecZakaz<>old.ExecZakaz) then begin
if (new.beznal>0) then begin
select id from dengi_beznal where nomzak=new.nom and datZak=new.dada into idDB;
select id,proc1 from fbeznal where nom=new.beznal into idF,proc;
if (:idDB>0) then
if (new.ExecZakaz=2) then
UPDATE dengi_beznal SET dengi=0-new.Tarif-new.Tarif*:proc/100, firma_id=:idF WHERE id=:idDB;
else
UPDATE dengi_beznal SET dengi=0, firma_id=:idF WHERE id=:idDB;
else
if (new.ExecZakaz=2) then
INSERT INTO dengi_beznal (dt,user_id,firma_id,dengi,priznak,nomzak,datzak) values (Current_TimeStamp,new.user_id,:idF,(0-new.Tarif-new.Tarif*:proc/100),1,new.nom,new.dada);
else if (old.ExecZakaz=2) then
INSERT INTO dengi_beznal (dt,user_id,firma_id,dengi,priznak,nomzak,datzak) values (Current_TimeStamp,new.user_id,:idF,(new.Tarif+new.Tarif*:proc/100),1,new.nom,new.dada);
end
end else if (new.ExecZakaz=2) then begin
select id from dengi_beznal where nomzak=new.nom and datZak=new.dada into idDB;
select id,proc1 from fbeznal where nom=new.beznal into idF,proc;
if (new.beznal>0) then begin
if (:idDB>0) then
UPDATE dengi_beznal SET dengi=0-new.Tarif-new.Tarif*:proc/100, firma_id=:idF WHERE id=:idDB;
else
INSERT INTO dengi_beznal (dt,user_id,firma_id,dengi,priznak,nomzak,datzak) values (Current_TimeStamp,new.user_id,:idF,(0-new.Tarif-new.Tarif*:proc/100),1,new.nom,new.dada);
end else if (old.beznal>0) then begin
if (:idDB>0) then
UPDATE dengi_beznal SET dengi=0, firma_id=:idF WHERE id=:idDB;
end
end
END
^
CREATE TRIGGER "T_ZAKAZ_NEC_U" FOR "ZAKAZ"
ACTIVE BEFORE UPDATE POSITION 2
AS
declare variable dt TimeStamp;
declare variable cec SmallInt;
declare variable razni SmallInt;
BEGIN
dt=CURRENT_TIMESTAMP;
select CanEditCar from nastr where id=1 into cec;
razni=(CURRENT_TIMESTAMP-new.dtZakaz)*1440;
if (new.Car_id<>old.Car_id) then
begin
if (new.NotEditCar=1) then
if (cec>0) then
if (razni>cec) then
insert into penalty (car_id,car2_id,user_id,datep,timep,primech,nedavat,dateZak,NomZak) values (old.car_id,new.car_id,new.userLastEdit_id,Current_date,current_time,'Èçìåíåíà ìàøèíà',3,new.dada,new.nom);
if (new.NotEditCar=0) then begin
new.NotEditCar=1;
end
new.userr_id=new.UserLastEdit_id;
new.dtzakazR=current_timestamp;
INSERT INTO PHONERING (USER_ID,ZAKAZ_ID,WHAT,ZAKAZ_NOM) VALUES (new.UserLastEdit_id,new.id,2,new.nom);
end
if (old.TimeN<>new.TimeN) then begin
new.dtzakaz=Current_timestamp;
INSERT INTO PHONERING (USER_ID,ZAKAZ_ID,WHAT,ZAKAZ_NOM) VALUES (new.UserLastEdit_id,new.id,1,new.nom);
end
if (old.Blok<>new.Blok) then begin
if (new.Blok=5) then begin
INSERT INTO PHONERING (USER_ID,ZAKAZ_ID,WHAT,WHAT_DOP,ZAKAZ_NOM) VALUES (-1,new.id,2,2,new.nom);
end
end
END
^
CREATE TRIGGER "PROZVON_ZAKAZ_U" FOR "ZAKAZ"
ACTIVE BEFORE UPDATE POSITION 3
AS
declare variable i int;
BEGIN IF (OLD.PROZVON<>NEW.PROZVON) THEN
BEGIN
if (OLD.PROZVON=0) then begin
NEW.EXECZAKAZ2=OLD.EXECZAKAZ;
NEW.EXECZAKAZ=0;
end else if (NEW.PROZVON=0) then begin
if (OLD.EXECZAKAZ2>0) then NEW.EXECZAKAZ=OLD.EXECZAKAZ2;
end
END
END
^
CREATE TRIGGER "AU_ZAKAZ" FOR "ZAKAZ"
ACTIVE AFTER UPDATE POSITION 0
AS BEGIN POST_EVENT 'zakaz'; END
^
|
