home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / POSTUPOBJ.TRG < prev    next >
Text File  |  2000-03-16  |  449b  |  15 lines
  1. {$$3210337797 .                              }TRIGGER `postupobj` AFTER UPDATE OF `OBCHODNIK`
  2. ON `Obj_header`
  3. REFERENCING OLD AS `old` NEW AS `new`
  4. FOR EACH ROW
  5.     BEGIN
  6.   DECLARE mailuj BOOLEAN; 
  7.   SELECT sys_par.mailovat  INTO mailuj FROM sys_par;  
  8.  
  9.   IF ((OLD.obchodnik<>NEW.obchodnik) AND (OLD.potvrzena IS TRUE) AND(mailuj IS TRUE)) THEN
  10.     CALL  DETACHED OdesliMail(OLD.id_dobj, OLD.id_org, OLD.storno, true);
  11.   END IF;
  12.  
  13. END
  14.  
  15.