PC World 2001 July/PCWorld_2001-07_cd.bin/Software/Komercni/software602/cnv_ifp.exe/_CONFIG_LOAD.PSM

Text File | 2001-02-14 | 1KB | 33 lines

{$$3249892617 .                              }PROCEDURE `_config_load`();
BEGIN
  FOR row AS curs INSENSITIVE CURSOR FOR
    SELECT *
    FROM _config_tobjects
    WHERE obj_category=CATEG_TABLE
  DO
    UPDATE Tabtab SET flags=row.flags
    WHERE (apl_uuid=(SELECT apl_uuid FROM Objtab WHERE (obj_name=Current_application) AND (category=chr(CATEG_APPL)))) AND (tab_name=row.obj_name) AND (category=chr(CATEG_TABLE));
  END FOR;

  FOR row AS curs INSENSITIVE CURSOR FOR
    SELECT *
    FROM _config_tobjects
    WHERE (
            (obj_category=CATEG_VIEW)    OR
            (obj_category=CATEG_CURSOR)  OR
            (obj_category=CATEG_MENU)    OR
            (obj_category=CATEG_PGMSRC)  OR
            (obj_category=CATEG_DRAWING) OR
            (obj_category=CATEG_REPLREL) OR
            (obj_category=CATEG_PROC)    OR
            (obj_category=CATEG_TRIGGER) OR
            (obj_category=CATEG_WWW)     OR
            (obj_category=CATEG_SEQ)
          )
  DO
    UPDATE Objtab SET flags=row.flags
    WHERE (apl_uuid=(SELECT apl_uuid FROM Objtab WHERE (obj_name=Current_application) AND (category=chr(CATEG_APPL)))) AND (obj_name=row.obj_name) AND (category=chr(row.obj_category));
  END FOR;
END