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