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