home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / SETKB.TRG < prev    next >
Text File  |  2000-03-16  |  270b  |  12 lines
  1. {$$3216275822 .                              }TRIGGER `setkb` AFTER UPDATE OF `USEOK`
  2. ON `Ep_setkb`
  3. REFERENCING OLD AS `old` NEW AS `new`
  4. FOR EACH ROW
  5. BEGIN
  6.  IF (new.useok IS TRUE) THEN
  7.  UPDATE  Ep_setkb  SET  useok=FALSE  WHERE  TYP<>new.typ;
  8.  END IF;
  9.  
  10. END
  11.  
  12.