home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Komercni / software602 / cnv_ifp.exe / CONV_TRANSFER_102TO103.PSM < prev    next >
Encoding:
Text File  |  2001-02-14  |  680 b   |  22 lines
  1. {$$3249892617 .                              }FUNCTION `CONV_TRANSFER_102TO103`( { <parameters> } ) RETURNS BOOLEAN;
  2. BEGIN
  3.   DECLARE maxid INT;
  4.   DECLARE EXIT HANDLER FOR SQLEXCEPTION,SQLWARNING
  5.   BEGIN
  6.     RETURN FALSE;
  7.   END;
  8.  
  9.   CALL Set_sql_option(64,0);    -- automatickΘ uvol≥ovßnφ zßznam∙
  10.   DELETE FROM _103ti_031; 
  11.   CALL Set_sql_option(64,64);
  12.  
  13.   INSERT INTO _103ti_031 DEFAULT VALUES;
  14.  
  15.   SET maxid=(SELECT Max(id) FROM _102Ti_03);
  16.   INSERT INTO _102Ti_03 (id,username, name, b_forw_cont, b_forw_op, b_forw_dl, b_forw_cmp, b_co_ins,sys, visible)
  17.   VALUES (maxid+1,"_ESUPPORT","eSupport",false,false,false,false,false,true,false);
  18.  
  19.   RETURN TRUE;
  20. END
  21.  
  22.