home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Komercni / software602 / cnv_ifp.exe / _CONFIG_SAVE.PSM < prev    next >
Text File  |  2001-02-14  |  2KB  |  42 lines
  1. {$$3249892617 .                              }PROCEDURE `_config_save`();
  2. BEGIN 
  3.   DECLARE v_conf_id INT;  
  4.  
  5.   DELETE FROM _config_tobjects;
  6.  
  7.   FOR row AS curs INSENSITIVE CURSOR FOR
  8.     SELECT Objtab.Obj_name, Tabtab.tab_name, Tabtab.flags
  9.     FROM Objtab, Tabtab
  10.     WHERE Objtab.obj_name=Current_application
  11.           AND (Objtab.category=chr(CATEG_APPL))
  12.           AND Objtab.apl_uuid=Tabtab.apl_uuid
  13.   DO
  14.     INSERT INTO _config_tobjects (obj_name, obj_category, flags)
  15.     VALUES (row.tab_name, CATEG_TABLE, row.flags);    
  16.   END FOR;
  17.  
  18.   FOR row AS curs INSENSITIVE CURSOR FOR
  19.     SELECT Ot1.Obj_name AS f_app_name, Ot2.obj_name, Ot2.category, Ot2.flags
  20.     FROM Objtab Ot1, Objtab Ot2
  21.     WHERE (Ot1.obj_name=Current_application) AND (Ot1.category=chr(CATEG_APPL))        
  22.           AND Ot1.apl_uuid=Ot2.apl_uuid
  23.           AND (
  24.                  (Ot2.category=chr(CATEG_VIEW))    OR
  25.                  (Ot2.category=chr(CATEG_CURSOR))  OR
  26.                  (Ot2.category=chr(CATEG_MENU))    OR
  27.                  (Ot2.category=chr(CATEG_PGMSRC))  OR
  28.                  (Ot2.category=chr(CATEG_DRAWING)) OR
  29.                  (Ot2.category=chr(CATEG_REPLREL)) OR
  30.                  (Ot2.category=chr(CATEG_PROC))    OR
  31.                  (Ot2.category=chr(CATEG_TRIGGER)) OR
  32.                  (Ot2.category=chr(CATEG_WWW))     OR
  33.                  (Ot2.category=chr(CATEG_SEQ))
  34.               )
  35.         
  36.   DO
  37.     INSERT INTO _config_tobjects (obj_name, obj_category, flags)
  38.     VALUES (row.obj_name, ord(row.category), row.flags);        
  39.   END FOR;
  40. END
  41.  
  42.