home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / WWW_MN.PGM < prev    next >
Text File  |  2000-03-16  |  2KB  |  79 lines
  1. {$$3220792584                                }//Program www-runprogram
  2.  
  3. table 
  4.  obj_polozky;
  5.  
  6.  
  7.  
  8. {$I I_wbinet}
  9.  
  10.  
  11. procedure   prepis_mn(id_obj,id_pol:integer;mn:real);
  12. /*********************************************************************/
  13.  
  14. var
  15.  numpol,i:integer;
  16.  podminka: string[120];
  17.  curs:cursor;
  18.  u:untyped;
  19.  irec:trecnum;
  20.  
  21. begin
  22.   podminka:="(id_dobj="+int2str(id_obj)+") AND (id_pol="+int2str(id_pol)+")";
  23.   if not Open_sql_parts(curs, "*", "Obj_polozky", podminka, "") then 
  24.    begin 
  25.     Rec_cnt(curs,numpol);
  26.     if numpol>0 then 
  27.      begin
  28.        if ((mn>0) AND (mn<=1000)) then 
  29.         begin
  30.          mn:=trunc(mn);
  31.          curs[i].mnozstvi:=mn;
  32.         end;
  33.       end;
  34.     close_cursor(curs);
  35.    end;
  36. end;
  37.  
  38.  
  39. procedure RunProgram;
  40. /*********************************************************************/
  41. var
  42.     varcount:short;
  43.     varname,vl_hodnota,s:string[255];
  44.     i,j,id_cenik,id_pol,id_obj:integer;
  45.     mn:real;
  46.     
  47. begin       //1
  48.     j:=1;
  49.     varcount:=-1;
  50.     if ( GetValue("objednavka",0,vl_hodnota) ) then
  51.      begin //2
  52.        id_obj:=str2int(vl_hodnota);
  53.        varcount:=GetVarCount;
  54.        if varcount<>-1 then 
  55.          for i:=0 to varcount-1 do
  56.             begin   //3
  57.               if( GetVar(i,varname) ) then
  58.                 begin //4
  59.                   if( varname.="W_MNOZ" ) then
  60.                     begin  //5
  61.                       id_pol:=str2int(strcopy(varname,7,strlength(varname)-6));
  62.                       if( GetVarValue(i,vl_hodnota) ) then
  63.                         begin    //6
  64.                           mn:=str2real(vl_hodnota);   
  65.                           if mn>0 then
  66.                             begin //7
  67.                               prepis_mn(id_obj,id_pol,mn);
  68.                             end;    //7
  69.                         end;    //6
  70.                     end;       //5
  71.                 end;          //4
  72.             end;             //3
  73.      end                    //2
  74.     else   SetSTWError("chyba, vra¥te se zp∞t");
  75. end;            //1
  76.  
  77. begin
  78. end.
  79.