home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / INFLOG.TRG < prev    next >
Text File  |  2000-03-16  |  351b  |  14 lines
  1. {$$3214985222                                }TRIGGER inflog  AFTER UPDATE OF Intr_user ON  OBCHODNI_PARTNERI
  2. REFERENCING NEW AS Zaznam
  3. FOR EACH ROW
  4. BEGIN
  5.   DECLARE mailuj BOOLEAN; 
  6.   SELECT sys_par.mailovat  INTO mailuj FROM sys_par;  
  7.  
  8.  
  9.   IF (mailuj IS TRUE) THEN
  10.     CALL  DETACHED Infologin(Zaznam.id,Zaznam.Intr_user);
  11.  END IF;
  12.  
  13. END
  14.