home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / ODESLATMAIL.TRG < prev    next >
Text File  |  2000-03-16  |  406b  |  13 lines
  1. {$$3210337788                                }TRIGGER OdeslatMail  AFTER UPDATE OF potvrzena ON  OBJ_HEADER
  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.   IF ((Zaznam.potvrzena IS TRUE) AND (mailuj IS TRUE)) THEN
  9.     CALL DETACHED OdesliMail(Zaznam.id_dobj, Zaznam.id_org, Zaznam.storno, false);
  10.   END IF;
  11.  
  12. END
  13.