home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Komercni / software602 / cnv_ifp.exe / I_CONV.PGM < prev    next >
Encoding:
Text File  |  2001-02-14  |  7.9 KB  |  267 lines
  1. {$$3249892600 .                              }include
  2.  
  3. var
  4.  
  5.   conv_dir : string[255];  // Adresß°, v n∞m₧ se majφ data konvertovat
  6.   conv_ver : short;        // UrΦuje konkrΘtnφ konverzi mezi verzemi
  7.   conv_sqlerror : boolean; // Chyba p°i provßd∞nφ SQL p°φkazu
  8.  
  9. procedure ConvFormOpen;
  10. begin
  11.   conv_dir := "";
  12.   conv_ver := 0;
  13.   Conv_entry.OPEN(nil);
  14. end;
  15.  
  16. procedure ConvDirSelect;
  17. begin
  18.   if Select_Directory(Conv_entry.handle,conv_dir) then
  19.     Conv_entry.RESET_VIEW(-1,RESET_CONTROLS);
  20. end;
  21.  
  22. procedure ConvExecute;
  23. begin
  24.   Set_cursor(1);
  25.   if conv_dir[StrLength(conv_dir)]<>"\" then StrInsert("\",conv_dir,StrLength(conv_dir)+1);
  26.   case conv_ver of
  27.     0 : Conv100To101;
  28.     1 : Conv101To102;
  29.     2 : Conv102To103;
  30.     3 : Conv107To110;
  31.   end;
  32.   Set_cursor(0);
  33. end;
  34.  
  35. procedure Conv107To110;
  36. var
  37.   err      : boolean;
  38.   filename : string[255];
  39.  
  40. begin
  41.   err := false;
  42.  
  43.   #sqlbegin
  44.     CALL Set_sql_option(64,0);
  45.     DELETE FROM _107ti_010;
  46.     DELETE FROM _107ti_011;
  47.     DELETE FROM _107ti_013;
  48.     DELETE FROM _107ti_014;
  49.     DELETE FROM _107ti_015;
  50.     DELETE FROM _107ti_016;
  51.     DELETE FROM _107ti_09;
  52.     DELETE FROM _107ti_07;
  53.     DELETE FROM _107ti_03;
  54.     CALL Set_sql_option(64,64);
  55.   #sqlend
  56.  
  57.   filename := conv_dir+"Ti_09.tdt";
  58.   Set_status_text("Importuji tabulku Ti_09");
  59.   err := not Move_data(-1,filename,-1,"_107ti_09",0,11,-1,-1,true);
  60.  
  61.   if not err then begin
  62.     filename := conv_dir+"Ti_010.tdt";
  63.     Set_status_text("Importuji tabulku Ti_010");
  64.     err := not Move_data(-1,filename,-1,"_107ti_010",0,11,-1,-1,true);
  65.   end;
  66.   if not err then begin
  67.     filename := conv_dir+"Ti_011.tdt";
  68.     Set_status_text("Importuji tabulku Ti_011");
  69.     err := not Move_data(-1,filename,-1,"_107ti_011",0,11,-1,-1,true);
  70.   end;
  71.   if not err then begin
  72.     filename := conv_dir+"Ti_013.tdt";
  73.     Set_status_text("Importuji tabulku Ti_013");
  74.     err := not Move_data(-1,filename,-1,"_107ti_013",0,11,-1,-1,true);
  75.   end;
  76.   if not err then begin
  77.     filename := conv_dir+"Ti_014.tdt";
  78.     Set_status_text("Importuji tabulku Ti_014");
  79.     err := not Move_data(-1,filename,-1,"_107ti_014",0,11,-1,-1,true);
  80.   end;
  81.   if not err then begin
  82.     filename := conv_dir+"Ti_015.tdt";
  83.     Set_status_text("Importuji tabulku Ti_015");
  84.     err := not Move_data(-1,filename,-1,"_107ti_015",0,11,-1,-1,true);
  85.   end;
  86.   if not err then begin
  87.     filename := conv_dir+"Ti_016.tdt";
  88.     Set_status_text("Importuji tabulku Ti_016");
  89.     err := not Move_data(-1,filename,-1,"_107ti_016",0,11,-1,-1,true);
  90.   end;
  91.   if not err then begin
  92.     filename := conv_dir+"Ti_07.tdt";
  93.     Set_status_text("Importuji tabulku Ti_07");
  94.     err := not Move_data(-1,filename,-1,"_107ti_07",0,11,-1,-1,true);
  95.   end;
  96.   if not err then begin
  97.     filename := conv_dir+"Ti_03.tdt";
  98.     Set_status_text("Importuji tabulku Ti_03");
  99.     err := not Move_data(-1,filename,-1,"_107ti_03",0,11,-1,-1,true);
  100.   end;
  101.  
  102.   if not err then begin
  103.     Set_status_text("Provßdφm konverzi. Tato operace m∙₧e trvat velmi dlouho. Prosφm Φekejte...");
  104.     #sql SET :>conv_sqlerror=Conv_transfer_107to110;
  105.     err := not conv_sqlerror;
  106.   end; 
  107.  
  108.   if not err then begin
  109.     filename := conv_dir+"Ti_032.tdt";
  110.     Set_status_text("Exportuji tabulku Ti_033");
  111.     err := not Move_data(-1,"_110Ti_032",-1,filename,11,0,-1,-1,true);
  112.   end;
  113.   if not err then begin
  114.     filename := conv_dir+"Ti_033.tdt";
  115.     Set_status_text("Exportuji tabulku Ti_033");
  116.     err := not Move_data(-1,"_110Ti_033",-1,filename,11,0,-1,-1,true);
  117.   end;
  118.   if not err then begin
  119.     filename := conv_dir+"Ti_034.tdt";
  120.     Set_status_text("Exportuji tabulku Ti_034");
  121.     err := not Move_data(-1,"_110Ti_034",-1,filename,11,0,-1,-1,true);
  122.   end;
  123.   if not err then begin
  124.     filename := conv_dir+"Ti_035.tdt";
  125.     Set_status_text("Exportuji tabulku Ti_035");
  126.     err := not Move_data(-1,"_110Ti_035",-1,filename,11,0,-1,-1,true);
  127.   end;
  128.   if not err then begin
  129.     filename := conv_dir+"Ti_036.tdt";
  130.     Set_status_text("Exportuji tabulku Ti_036");
  131.     err := not Move_data(-1,"_110Ti_036",-1,filename,11,0,-1,-1,true);
  132.   end;
  133.   if not err then begin
  134.     filename := conv_dir+"Ti_037.tdt";
  135.     Set_status_text("Exportuji tabulku Ti_037");
  136.     err := not Move_data(-1,"_110Ti_037",-1,filename,11,0,-1,-1,true);
  137.   end;
  138.   if not err then begin
  139.     filename := conv_dir+"Ti_038.tdt";
  140.     Set_status_text("Exportuji tabulku Ti_038");
  141.     err := not Move_data(-1,"_110Ti_038",-1,filename,11,0,-1,-1,true);
  142.   end;
  143.   if not err then begin
  144.     filename := conv_dir+"_export_tables.tdt";
  145.     Set_status_text("Exportuji tabulku _export_tables");
  146.     err := not Move_data(-1,"_110_export_tables",-1,filename,11,0,-1,-1,true);
  147.   end;
  148.   if not err then begin
  149.     filename := conv_dir+"Ti_07.tdt";
  150.     Set_status_text("Exportuji tabulku Ti_07");
  151.     err := not Move_data(-1,"_110Ti_07",-1,filename,11,0,-1,-1,true);
  152.   end;
  153.   if not err then begin
  154.     filename := conv_dir+"Ti_03.tdt";
  155.     Set_status_text("Exportuji tabulku Ti_03");
  156.     err := not Move_data(-1,"_110Ti_03",-1,filename,11,0,-1,-1,true);
  157.   end;
  158.  
  159.   if err then
  160.     MessageBox(nil,"Konverze se nezda°ila!","Chyba!",mb_stop+mb_ok)
  161.   else
  162.     MessageBox(nil,"Konverze provedena.","Informace",mb_info+mb_ok); 
  163. end;
  164.  
  165. procedure Conv101To102;
  166. var
  167.   err      : boolean;
  168.   filename : string[255];
  169.  
  170. begin
  171.   err := false;
  172.  
  173.   #sqlbegin
  174.     CALL Set_sql_option(64,0);
  175.     DELETE FROM _101ti_04;   
  176.     CALL Set_sql_option(64,64);
  177.   #sqlend
  178.  
  179.   filename := conv_dir+"Ti_04.tdt";
  180.   Set_status_text("Importuji tabulku Ti_04");
  181.   err := not Move_data(-1,filename,-1,"_101ti_04",0,11,-1,-1,true);
  182.   
  183.   if not err then begin
  184.     Set_status_text("Provßdφm konverzi. Prosφm Φekejte...");
  185.     #sql SET :>conv_sqlerror=Conv_transfer_101to102;
  186.     err := not conv_sqlerror;
  187.   end; 
  188.  
  189.   if not err then begin
  190.     filename := conv_dir+"Ti_04.tdt";
  191.     Set_status_text("Exportuji tabulku Ti_04");
  192.     err := not Move_data(-1,"_102Ti_04",-1,filename,11,0,-1,-1,true);
  193.   end; 
  194.  
  195.   if err then
  196.     MessageBox(nil,"Konverze se nezda°ila!","Chyba!",mb_stop+mb_ok)
  197.   else
  198.     MessageBox(nil,"Konverze provedena.","Informace",mb_info+mb_ok); 
  199. end;
  200.  
  201. procedure Conv102To103;
  202. var
  203.   err      : boolean;
  204.   filename : string[255];
  205.  
  206. begin
  207.   err := false;
  208.  
  209.   #sqlbegin
  210.     CALL Set_sql_option(64,0);
  211.     DELETE FROM _102ti_03;    
  212.     CALL Set_sql_option(64,64);
  213.   #sqlend
  214.  
  215.   filename := conv_dir+"Ti_03.tdt";
  216.   Set_status_text("Importuji tabulku Ti_03");
  217.   err := not Move_data(-1,filename,-1,"_102ti_03",0,11,-1,-1,true); 
  218.  
  219.   if not err then begin
  220.     Set_status_text("Provßdφm konverzi. Prosφm Φekejte...");
  221.     #sql SET :>conv_sqlerror=Conv_transfer_102to103;
  222.     err := not conv_sqlerror;
  223.   end; 
  224.  
  225.   if not err then begin
  226.     filename := conv_dir+"Ti_03.tdt";
  227.     Set_status_text("Exportuji tabulku Ti_03");
  228.     err := not Move_data(-1,"_102Ti_03",-1,filename,11,0,-1,-1,true);
  229.   end; 
  230.   if not err then begin
  231.     filename := conv_dir+"Ti_031.tdt";
  232.     Set_status_text("Exportuji tabulku Ti_031");
  233.     err := not Move_data(-1,"_103Ti_031",-1,filename,11,0,-1,-1,true);
  234.   end; 
  235.  
  236.   if err then
  237.     MessageBox(nil,"Konverze se nezda°ila!","Chyba!",mb_stop+mb_ok)
  238.   else
  239.     MessageBox(nil,"Konverze provedena.","Informace",mb_info+mb_ok); 
  240. end;
  241.  
  242. procedure Conv100To101;
  243.  var
  244.   err      : boolean;
  245.   filename : string[255];
  246.  
  247. begin
  248.   err := false;
  249.  
  250.   #sqlbegin
  251.     CALL Set_sql_option(64,0);
  252.     DELETE FROM _101_config_tobjects;    
  253.     CALL Set_sql_option(64,64);
  254.   #sqlend 
  255.  
  256.   if not err then begin
  257.     filename := conv_dir+"_config_tobjects.tdt";
  258.     Set_status_text("Exportuji tabulku _config_tobjects");
  259.     err := not Move_data(-1,"_101_config_tobjects",-1,filename,11,0,-1,-1,true);
  260.   end;   
  261.  
  262.   if err then
  263.     MessageBox(nil,"Konverze se nezda°ila!","Chyba!",mb_stop+mb_ok)
  264.   else
  265.     MessageBox(nil,"Konverze provedena.","Informace",mb_info+mb_ok); 
  266. end;
  267.