home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / WWW_POPIS.PGM < prev    next >
Text File  |  2000-03-16  |  3KB  |  108 lines
  1. {$$3220792584 .                              }//Program www-popis
  2.  var
  3.   popis: string[2000];
  4.  
  5. {$I I_wbinet}
  6.  
  7. procedure chybacgi(pomstr:string[200]); 
  8. /*********************************************************************/
  9.  begin
  10.    log_write(pomstr);
  11.  /*  if rp then  SetSTWError(pomstr)
  12.    else*/ SetUserError(pomstr);
  13.    Halt;
  14.  end;
  15.  
  16. procedure  nahrad_pismeno(pismenoS,pismenoN:string[2]);
  17. /*********************************************************************/
  18. var
  19.  wend: short;
  20.  
  21. begin
  22.  wend:=1;
  23. while wend<>0 do 
  24.  begin
  25.    wend:=strpos(pismenoS,popis);
  26.    if wend>0 then popis[wend]:=pismenoN;
  27.  end;
  28. end;
  29.  
  30.  
  31. procedure  zrus_cestinu();
  32. /*********************************************************************/
  33. var
  34.  wend: short;
  35.  
  36. begin
  37.   nahrad_pismeno("Φ","c");
  38.   nahrad_pismeno("╚","C");
  39.   nahrad_pismeno("∞","e");
  40.   nahrad_pismeno("╠","E");
  41.   nahrad_pismeno("Θ","E");
  42.   nahrad_pismeno("╔","E");
  43.   nahrad_pismeno("Ü","s");
  44.   nahrad_pismeno("è","S");
  45.   nahrad_pismeno("°","r");
  46.   nahrad_pismeno("╪","R");
  47.   nahrad_pismeno("₧","z");
  48.   nahrad_pismeno("Ä","Z");
  49.   nahrad_pismeno("²","y");
  50.   nahrad_pismeno("▌","Y");
  51.   nahrad_pismeno("ß","a");
  52.   nahrad_pismeno("┴","A");
  53.   nahrad_pismeno("φ","i");
  54.   nahrad_pismeno("═","I");
  55.   nahrad_pismeno("·","u");
  56.   nahrad_pismeno("┌","U");
  57.   nahrad_pismeno("∙","u");
  58.   nahrad_pismeno("┘","U");
  59.  
  60. end;
  61.  
  62. procedure sestav_popis(id_obj:integer);
  63. /*********************************************************************/
  64.  var
  65.      i,pocet:integer;
  66.      co, odkud, podminka, pom: string[254];
  67.      curs:cursor;
  68.      pom1, pom2:string[50];
  69.  
  70.  begin   //0
  71.   co:= "Info_provozovatel.nazev1,Obj_header.cis_eob,Obj_header.datum,Obj_header.k_uhrade,Obj_polozky.nazev_vl,Obj_polozky.cena_summn";
  72.   odkud:= " Obj_header, Obj_polozky, Info_provozovatel " ;
  73.   podminka:= " Obj_polozky.id_dobj=Obj_header.id_dobj AND (Obj_header.id_dobj="+int2str(id_obj)+" )";
  74.   if not Open_SQL_parts(curs,co, odkud, podminka,"") then
  75.    begin {otev°enφ prom∞nnΘho kurzoru curs}//1
  76.     Rec_cnt(curs, pocet); 
  77.     if pocet>0 then
  78.       begin  //2
  79. //       pom1:=int2str(id_obj);
  80. //       pom:="Platba cislo: "+pom1+"; %0A%0D ";
  81. //       strinsert(pom,popis,1);
  82.        pom1:=curs[0].cis_eob;
  83.        pom2:=curs[0].nazev1;
  84.        pom:="Objednavka cislo "+pom1+" ze dne "+date2str(curs[0].datum,1)+ " u "+ pom2+ "; %0A%0D ";
  85.        strinsert(pom,popis,strlength(popis)+1);
  86.        for i:=0 to pocet-1 do
  87.          begin  //3
  88.           pom1:=curs[i].nazev_vl;
  89.           pom2:=curs[i].cena_summn;
  90.           pom:=pom1+"......"+pom2+ " CZK; %0A%0D  ";
  91.           strinsert(pom,popis,strlength(popis)+1);
  92.          end;   //3
  93.           pom1:=curs[0].k_uhrade;
  94.           pom:="-------------------------------------------- %0A%0D   Celkem vcetne DPH......"+pom1+" CZK";
  95.           strinsert(pom,popis,strlength(popis)+1);
  96.       end;   //2
  97.      zrus_cestinu();
  98.      close_cursor(curs);
  99.   end //1
  100.   else chybacgi("Chyba  p°i b∞hu procedury sestav popis");
  101.  end;
  102.  
  103.  
  104. begin              
  105. end.
  106.  
  107.  
  108.