home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / SKUPINY.PGM < prev    next >
Text File  |  2000-03-16  |  18KB  |  582 lines
  1. {$$3220792583                                }INCLUDE
  2. table  Vybrane_skup;
  3. cursor  Skupiny0,Skupiny;
  4.  
  5.  
  6. var 
  7. level:integer;
  8. nadskupina:string[80];
  9. nadkod:string[80];
  10. id_POHLED1, id_POHLED2 : window_id;
  11. zskup:integer;
  12. strzskup:string[500]; 
  13. vse,nic:Boolean;
  14.  
  15.  
  16.  procedure vzskup(id_pohled:window_id); 
  17. /*********************************************************************/
  18.  var
  19.  crec:trecnum;
  20.  c:cursor;
  21.  u:untyped;
  22.  limit:integer;
  23.  pomstr:string[250];
  24.  
  25.  begin
  26.    strzskup :="";
  27.    Close_view(id_pohled);
  28.    Open_view("*skup_zarad", NO_REDIR, MODAL_VIEW, 0, 0, nil);
  29.    if Open_SQL_cursor(c,"select * from S_zbozi_sk where vybrano=TRUE") then Signalize
  30.    else  Rec_cnt(c,limit);
  31.    if limit=1 then 
  32.    begin
  33.     pomstr:=c[0].KOD_SKUPINY;
  34.     zskup:=c[0].id_skupiny;
  35.     strinsert(pomstr,strzskup ,1);
  36.     strinsert("/ " ,strzskup,StrLength(strzskup)+1);
  37.     pomstr:=c[0].NAZEV_SK;
  38.     strinsert(pomstr,strzskup,StrLength(strzskup)+1);
  39.    end
  40.      else if limit<1 then info_box("upozorn∞nφ" , "nebyla vybrßna ₧ßdnß skupina") else  info_box("upozorn∞nφ" , "vybrali jste vφce skupin, za°adit lze pouze do 1");
  41.    close_cursor(c);
  42.    Open_view("*nezaraz",NO_REDIR,MODAL_VIEW,0,0,nil);
  43.  end;
  44.  
  45.  procedure ed_nova_cen(id_cenik:integer;id_pohled:window_id); 
  46. /*********************************************************************/
  47.  var
  48. // crec:trecnum;
  49.  curs:cursor;
  50. // u:untyped;
  51.  pocet, i :integer;
  52.  statement: string[255];
  53.  
  54.  begin
  55.    Close_view(id_pohled);
  56. /*   u:=id_cenik;
  57.    crec := Look_up(cenik,"id_cenik",u);
  58.      if crec<>-1 then 
  59.      cenik[crec].skupina_zbozi:=zskup;
  60.      zarazeno:=true;
  61.                                
  62.   if  Open_sql_parts(curs, "skupina_zbozi,upd", "CENIK","upd=TRUE", "") then  Info_box("upozorn∞nφ", "Cenik nelze za°azenφ do skupiny")
  63.   else 
  64.    begin //1
  65.     Rec_cnt(curs, pocet);
  66.     if pocet>0 then
  67.      begin   //2
  68.        For i:=0 to pocet-1 do
  69.          begin //3
  70.            cenik[i].skupina_zbozi:=zskup;
  71.            cenik[i].upd:=FALSE;
  72.          end;  //3
  73.      end;    //2
  74.     end; //1
  75.    zarazeno:=true;
  76.    close_cursor(curs);
  77. */
  78. statement:="UPDATE Cenik SET skupina_zbozi="+int2str(zskup)+" WHERE upd=TRUE";
  79. sql_execute(statement);
  80. SQL_execute("UPDATE cenik SET upd= FALSE");
  81.  
  82.    Open_view("*nezaraz",NO_REDIR,MODAL_VIEW,0,0,nil);
  83.  end;
  84.  
  85.  
  86.  procedure Je_prvni_skup();
  87. /*********************************************************************/
  88. var
  89.  irec:trecnum;
  90.  csk:cursor;
  91.  limit:integer;
  92.  
  93. begin
  94.   if not Open_sql_parts(csk, "*", "S_zbozi_sk", "", "") then Rec_cnt(csk, limit);
  95.   if limit<1     then
  96.     begin   
  97.      irec:=Insert(S_zbozi_sk);
  98.      S_zbozi_sk[irec].uroven:=0;
  99. //     S_zbozi_sk[irec].rabat:=0;
  100.      S_zbozi_sk[irec].last:=true;
  101.     end;
  102.   close_cursor(csk);
  103. end;
  104.  
  105.  procedure Nova_sk_hl(rabat:integer);
  106. /*********************************************************************/
  107. var
  108.  irec:trecnum;
  109.  id_pohled:window_id;
  110.  jrec:trecnum;
  111.  u:untyped;
  112.  i,n:integer;
  113.  s:string[50];
  114.  curs:cursor;
  115.  pom_def, limit, pom_id :integer;
  116.  
  117. begin
  118.   level:=0;
  119.   if  Open_sql_parts(curs, "*", "kod_structura","uroven=0", "") then  Info_box("upozorn∞nφ", "Nevytvo°ili jste tabulku Kod-structura -  nelze zalo₧it novou skupinu")
  120.   else 
  121.    begin //1
  122.     Rec_cnt(curs, limit);
  123.     if limit>0 then
  124.      begin   //2
  125.       pom_def:=curs[0].pocet_zn; 
  126.       if pom_def>0 then 
  127.      begin  //3
  128.      irec:=Insert(S_zbozi_sk);
  129.      S_zbozi_sk[irec].nazev_sk:="novß";
  130.      S_zbozi_sk[irec].uroven:=level;
  131.        u:=level;
  132.        jrec := Look_up(Kod_structura ,"uroven",u);
  133.        n:=Kod_structura[jrec].pocet_zn;
  134.        s:="9";
  135.        for i:=1 to  n-1 do   s:=s+"9";
  136.      S_zbozi_sk[irec].kod_skupiny:=s;
  137. //     S_zbozi_sk[irec].rabat:=rabat;
  138.      S_zbozi_sk[irec].last:=true;
  139.      end; //3
  140.    end; //2
  141.   end; //1
  142.   close_cursor(curs);
  143.      
  144. end;
  145.  
  146.  procedure Smaz_sk_hl(kod:string[20]);
  147. /*************************************************************************************/
  148. var
  149.  irec:trecnum;
  150.  podminka0,podminka: string[120];
  151.  curs0,curs:cursor;
  152.  u:untyped;
  153.  i,limit0,limit:integer;
  154.  ok:boolean;
  155.  s:string[254];
  156.  
  157. begin   
  158.  podminka0:="kod_skupiny.="+""""+kod+"""";
  159. //otev°enφ prom∞nnΘho kurzoru curs se zadan²m Id_skupiny - tab. S_zbozi_sk
  160.   if not Open_sql_parts(curs0, "*", "S_zbozi_sk", podminka0, "") then Rec_cnt(curs0, limit0);
  161.   if limit0>0     then
  162.     begin   //1
  163.       podminka:=podminka0+" AND  (S_zbozi_sk.id_skupiny=cenik.skupina_zbozi)";
  164.       if not Open_sql_parts(curs, "*", "S_zbozi_sk, cenik", podminka, "") then Rec_cnt(curs, limit);
  165.       close_cursor(curs);
  166.  
  167.       if limit>0 then 
  168.        begin //2
  169.         s:="Do vybranΘ skupiny "+kod+" je za°azeno "+int2str(limit)+" polo₧ek cenφku."#10"Vybranou skupinu nelze smazat."#10"Sma₧te nebo p°e°a∩te nejd°φve polo₧ky CEN═KU a zruÜte podskupiny.";
  170.         Info_box("UPOZORN╠N═", s);
  171.        end   //2
  172. // zruÜenφ vÜech zßznam∙ vácursoru curs0
  173.        else  Delete_all_records(curs0);
  174.     end;    //1
  175.   close_cursor(curs0);
  176. end;    
  177.  
  178.  procedure Nova_sk(id_pohled:window_id; rabat:integer);
  179. /*********************************************************************/
  180. var
  181.  irec:trecnum;
  182. // id_pohled:window_id;
  183.  jrec:trecnum;
  184.  u:untyped;
  185.  i,n:integer;
  186.  nadk,s:string[50];
  187.  podminka: string[120];
  188.  sk:cursor;
  189.  query: string[1200];
  190.  
  191. begin
  192.      if (id_pohled<>9999999)  then close_view(id_pohled);
  193.      irec:=Insert(S_zbozi_sk);
  194.      S_zbozi_sk[irec].nazev_sk:=nadskupina;
  195.      S_zbozi_sk[irec].uroven:=level;
  196.      nadk:=nadkod;
  197.  
  198.        u:=level;
  199.        jrec := Look_up(Kod_structura ,"uroven",u);
  200.        if jrec<>-1 then
  201.        begin
  202.        n:=Kod_structura[jrec].pocet_zn-2;
  203.        s:=nadkod+"9";
  204.        for i:=0 to  n do   s:=s+"9";
  205.        S_zbozi_sk[irec].kod_skupiny:=s;
  206. //       S_zbozi_sk[irec].rabat:=rabat;
  207.        S_zbozi_sk[irec].last:=true;
  208.        end
  209.        else   Info_box("upozorn∞nφ", "Zkontrolujte tabulku Kod-structura pro vytvß°enou ·rove≥ -  nelze zalo₧it novou skupinu");
  210.  
  211.        podminka:=" (kod_skupiny.="+""""+nadk+""""+")  AND  (uroven="+ int2str(level)+") ";
  212.        query:="SELECT * FROM S_ZBOZI_SK WHERE "+ podminka + " ORDER BY S_zbozi_sk.poradi,S_zbozi_sk.kod_skupiny";
  213.        if  Open_SQL_cursor(Sk, query)  then Signalize;
  214.        Open_view("*edit_skup",Sk ,MODAL_VIEW+AUTO_CURSOR , 0, 0, nil);
  215.  
  216. end;
  217.  
  218.  procedure Smaz_sk(id_pohled:window_id; l:integer; nadsk:string[80]; kod:string[20]);
  219. /*************************************************************************************/
  220. var
  221.  irec:trecnum;
  222.  podminka0,podminka: string[120];
  223.  curs0,curs:cursor;
  224.  u:untyped;
  225.  i,limit0,limit:integer;
  226.  ok:boolean;
  227.  s:string[254];
  228.  delka:integer;
  229.  sk:cursor;
  230.  query: string[1200];
  231.  nadk:string[20];
  232.  
  233. begin   
  234.  close_view(id_pohled);
  235.  podminka0:="kod_skupiny.="+""""+kod+"""";
  236. //otev°enφ prom∞nnΘho kurzoru curs se zadan²m Id_skupiny - tab. S_zbozi_sk
  237.   if not Open_sql_parts(curs0, "*", "S_zbozi_sk", podminka0, "") then Rec_cnt(curs0, limit0);
  238.   if limit0>0     then
  239.     begin   //1
  240.       podminka:=podminka0+" AND  (S_zbozi_sk.id_skupiny=cenik.skupina_zbozi)";
  241.       if not Open_sql_parts(curs, "*", "S_zbozi_sk, cenik", podminka, "") then Rec_cnt(curs, limit);
  242.       close_cursor(curs);
  243.  
  244.       if limit>0 then 
  245.        begin //2
  246.         s:="Do vybranΘ skupiny "+kod+" je za°azeno "+int2str(limit)+" polo₧ek cenφku."#10"Vybranou skupinu nelze smazat."#10"Sma₧te nebo p°e°a∩te nejd°φve polo₧ky CEN═KU a zruÜte podskupiny.";
  247.         Info_box("UPOZORN╠N═", s);
  248.        end   //2
  249. // zruÜenφ vÜech zßznam∙ vácursoru curs0
  250.        else  Delete_all_records(curs0);
  251.     end;    //1
  252.   close_cursor(curs0);
  253.   level:=l;
  254.   nadskupina:=nadsk;
  255.    u := l;
  256.    irec := Look_up(kod_structura ,"uroven",u);
  257.    if irec>-1 then 
  258.     begin
  259.       delka:=kod_structura[irec].pocet_zn;
  260.       nadkod:=strcopy(kod,1,strlength(kod)-delka);
  261.     end;  
  262.   nadk:=nadkod;
  263.   podminka:=" (kod_skupiny.="+""""+nadk+""""+")  AND  (uroven="+ int2str(level)+") ";
  264.   query:="SELECT * FROM S_ZBOZI_SK WHERE "+ podminka + " ORDER BY S_zbozi_sk.poradi,S_zbozi_sk.kod_skupiny";
  265.   if Open_SQL_cursor(Sk, query)  then Signalize;
  266.   Open_view("*edit_skup",Sk ,MODAL_VIEW+AUTO_CURSOR , 0, 0, nil);
  267. end;    
  268.  
  269.  
  270. procedure edit_sk(id_pohled:window_id; l:integer;nadsk,nadk:string[80];rabat:integer);
  271. /*********************************************************************/
  272. var 
  273.  irec:trecnum;
  274.  u:untyped;
  275.  limit:integer;
  276.  podminka: string[120];
  277.  ok:boolean;
  278.  c,sk:cursor;
  279.  query: string[1200];
  280.  
  281. begin //0
  282.    close_view(id_pohled);
  283.    ok:=TRUE;
  284.      begin //1
  285.        if Open_SQL_cursor(c,"select max(uroven) AS M from kod_structura") then Signalize
  286.        else  Rec_cnt(c,limit);
  287.        if limit >0 then  pocet_urovni:=c[0].M;
  288.        close_cursor(c);
  289.  
  290.        level:=l+1;
  291.        nadskupina:=nadsk;
  292.        nadkod:=nadk;
  293.        limit:=0;
  294.        podminka:=" (kod_skupiny.="+""""+nadk+""""+")  AND  (uroven="+ int2str(level)+") ";
  295.        query:="SELECT * FROM S_ZBOZI_SK WHERE "+ podminka + " ORDER BY S_zbozi_sk.poradi,S_zbozi_sk.kod_skupiny";
  296. // SELECT * FROM S_ZBOZI_SK ORDER BY S_zbozi_sk.kod_skupiny
  297. // SELECT * FROM S_ZBOZI_SK WHERE (S_zbozi_sk.uroven=0) ORDER BY S_zbozi_sk.poradi,S_zbozi_sk.kod_skupiny
  298.  
  299.    if not Open_SQL_cursor(Sk, query)  then Rec_cnt(Sk,limit);
  300.    if limit<1 then 
  301.     begin //2
  302.       close_cursor(Sk);
  303.       Nova_sk(9999999,rabat);
  304.     end  //2
  305.     else  Open_view("*edit_skup",Sk ,MODAL_VIEW+AUTO_CURSOR , 0, 0, nil);
  306.   end; //1
  307. end;
  308.  
  309. procedure zpet_sk(id_pohled:window_id;l:integer;nadsk,nadk:string[80]);
  310. /*********************************************************************/
  311. var 
  312.  irec:trecnum;
  313.  u:untyped;
  314.  limit, delka:integer;
  315.  podm_kod,podminka: string[120];
  316.  c,sk:cursor;
  317.  query: string[1200];
  318.  
  319.  
  320. begin   //0
  321.  Close_view(id_pohled);   
  322.  if l>0 then
  323.   begin  //1
  324.    u := l;
  325.    irec := Look_up(kod_structura ,"uroven",u);
  326.    if irec>-1 then 
  327.     begin
  328.       delka:=kod_structura[irec].pocet_zn;
  329.       nadkod:=strcopy(nadk,1,strlength(nadk)-delka);
  330.     end;  
  331.    if level>0 then level:=level-1 else level:=0;
  332.    limit:=0;
  333.  
  334.    
  335.    if (level=0)
  336.    then   Open_view("*edit_sk_main",NO_REDIR ,0, 0, 0, nil)
  337.    else
  338.      begin  //2
  339.        u:=level;
  340.        podm_kod:=nadkod;
  341.        irec := Look_up(kod_structura ,"uroven",u);
  342.        delka:=kod_structura[irec].pocet_zn;
  343.        podm_kod := strcopy(podm_kod,1,strlength(nadkod)-delka);
  344.        nadkod:=podm_kod;
  345.        u:=podm_kod;
  346.        irec := Look_up(S_zbozi_sk ,"kod_skupiny",u);
  347.        nadskupina:=S_zbozi_sk[irec].nazev_sk;
  348.  
  349.        podminka:="(kod_skupiny.="+""""+podm_kod+""""+")  AND  (uroven="+ int2str(level)+")";
  350.        query:="SELECT * FROM S_ZBOZI_SK WHERE "+ podminka + " ORDER BY S_zbozi_sk.poradi,S_zbozi_sk.kod_skupiny";
  351.        if not Open_SQL_cursor(Sk, query)  then Rec_cnt(Sk,limit);
  352.        if limit>0 then  Open_view("*edit_skup",Sk ,MODAL_VIEW+AUTO_CURSOR,0, 0, nil);
  353.      end; //2
  354.   end //1  
  355.  
  356. end;   //0
  357.  
  358. procedure edit_sk_seznam(id_pohled:window_id; l:integer;nadsk,nadk:string[80]);
  359. /*********************************************************************/
  360. var 
  361.  irec:trecnum;
  362.  u:untyped;
  363.  limit:integer;
  364.  podminka: string[120];
  365.  ok:boolean;
  366.  
  367. begin
  368.    if l=0 then 
  369.      begin
  370.        close_cursor(Skupiny0);
  371.        if Open_cursor(Skupiny) then Signalize;
  372.      end;
  373.    level:=l+1;
  374.    nadskupina:=nadsk;
  375.    nadkod:=nadk;
  376.    limit:=0;
  377.    podminka:="(kod_skupiny.="+""""+nadk+""""+")  AND  (uroven="+ int2str(level)+")";
  378.    Restore_cursor(Skupiny);
  379.    if not Restrict_cursor(Skupiny, podminka)   then Rec_cnt(Skupiny,limit);
  380.      if limit<1 then      Info_box("upozorn∞nφ", "tato skupina nemß ₧ßdnΘ podskupiny")
  381.       else  
  382.         begin
  383.           Close_view(id_pohled);   
  384.           Open_view("*seznam_skup",Skupiny ,MODAL_VIEW, 0, 0, nil);
  385.         end;
  386. end;
  387.  
  388.  
  389. procedure zpet_sk_seznam(id_pohled:window_id;l:integer;nadsk,nadk:string[80]);
  390. /*********************************************************************/
  391. var 
  392.  irec:trecnum;
  393.  u:untyped;
  394.  limit, delka:integer;
  395.  podm_kod,podminka: string[120];
  396.  
  397.  
  398. begin
  399.  if l<>0 then
  400.   begin 
  401.    u := l;
  402.    irec := Look_up(kod_structura ,"uroven",u);
  403.    delka:=kod_structura[irec].pocet_zn;
  404.    nadkod:=strcopy(nadk,1,strlength(nadk)-delka);
  405.    level:=l-1;
  406.    limit:=0;
  407.    
  408.    if (level=0)
  409.    then  
  410.      begin
  411.        podminka:="uroven="+ int2str(level);
  412.        nadskupina :="hlavni skupina";
  413.        close_cursor(Skupiny);
  414.        if Open_cursor(Skupiny0) then Signalize;
  415.        Close_view(id_pohled);   
  416.        Open_view("*seznam_skup",Skupiny0 ,MODAL_VIEW, 0, 0, id_pohled);
  417.      end
  418.        
  419.    else
  420.      begin
  421.        u:=level;
  422.        podm_kod:=nadkod;
  423.        irec := Look_up(kod_structura ,"uroven",u);
  424.        delka:=kod_structura[irec].pocet_zn;
  425.        podm_kod := strcopy(podm_kod,1,strlength(nadkod)-delka);
  426.        u:=podm_kod;
  427.        irec := Look_up(S_zbozi_sk ,"kod_skupiny",u);
  428.        nadskupina:=S_zbozi_sk[irec].nazev_sk;
  429.        podminka:="(kod_skupiny.="+""""+podm_kod+""""+")  AND  (uroven="+ int2str(level)+")";
  430.        if Restore_cursor(Skupiny) then Signalize;
  431.        if  Restrict_cursor(Skupiny, podminka)  then  Signalize
  432.          else
  433.            begin  
  434.              Close_view(id_pohled);   
  435.              Open_view("*seznam_skup",Skupiny ,MODAL_VIEW, 0, 0, nil);
  436.            end;  
  437.      end; 
  438.   end
  439.  else  
  440.   begin
  441.     Close_cursor(Skupiny0);
  442.     Close_view(id_pohled);   
  443.   end;  
  444. end;
  445.  
  446.  
  447.  
  448.  procedure uloz_vyber(kod_skupiny:string[30]);
  449. /*********************************************************************/
  450.  var
  451.  irec:trecnum;
  452.  
  453.  begin
  454.   irec:=  Insert(vybrane_skup);
  455.   vybrane_skup[irec].kod_skupiny:=kod_skupiny;
  456.   Open_view("*vybrane_skup", NO_REDIR, 0, 0, 0, id_pohled1);
  457.  end;
  458.  
  459.  
  460.  procedure Vyber_skup();
  461. /*********************************************************************/
  462.  var
  463.    limit:integer;
  464.    podminka: string[120];
  465.  
  466.  begin
  467.    level:=0;
  468.    nadskupina:="hlavni skupiny";
  469.     if Open_cursor(Skupiny0) then Signalize
  470.     else Open_view("*seznam_skup",Skupiny0 ,MODAL_VIEW, 0, 0, nil);
  471.  end;
  472.  
  473.  procedure Vyb_sk();
  474. /*********************************************************************/
  475.  var
  476.    limit,i:integer;
  477.    irec:trecnum;
  478.    podminka: string[120];
  479.    cvyb:cursor;
  480.  
  481.  begin
  482. //    SQL_execute("UPDATE S_zbozi_sk  SET vybrano=false");
  483.     vse:=FALSE;
  484.     nic:=false;
  485.     Open_view("*Skup_check",NO_REDIR ,MODAL_VIEW, 0, 0, nil);
  486.     if NOT nic then
  487.      begin
  488.         if vse then
  489.          begin
  490.           if Open_SQL_cursor(cvyb,"select kod_skupiny, vybrano from S_zbozi_sk where uroven=0") then Signalize
  491.            else  Rec_cnt(cvyb,limit);
  492.          end
  493.         else
  494.          begin
  495.           if Open_SQL_cursor(cvyb,"select kod_skupiny, vybrano from S_zbozi_sk where vybrano=TRUE") then Signalize
  496.            else  Rec_cnt(cvyb,limit);
  497.          end;
  498.         for i:=0 to limit-1 do  
  499.           begin
  500.     //        cvyb[i].vybrano:=TRUE;
  501.             irec:=  Insert(vybrane_skup);
  502.             vybrane_skup[irec].kod_skupiny:=cvyb[i].kod_skupiny;
  503.           end;  
  504.         Open_view("*vybrane_skup", NO_REDIR, 0, 0, 0, nil);
  505.         close_cursor(cvyb);
  506.     end;
  507.  end;
  508.  
  509.  
  510. procedure vyber_sk_zb(co:integer);
  511. /*********************************************************************/
  512. var
  513.   ANO:Boolean;
  514.   limit,limit2, maxL:integer;
  515.   cislo_tab:tobjnum;
  516.   c,cmax:cursor;
  517. begin  //0
  518.   maxL:=0;
  519.   if Open_SQL_cursor(c,"select * from Vybrane_skup") then Signalize
  520.   else  Rec_cnt(c,limit);
  521.   close_cursor(c);
  522.   if limit>0 then ANO:=YesNo_box("","Chcete pou₧φt p°edchozφ v²b∞r?")
  523.   else ANO:=FALSE;
  524.     If NOT ANO then
  525.       begin  //1
  526.         Delete_all_records(Vybrane_skup);
  527.         if not Find_object("Vybrane_skup", CATEG_TABLE, cislo_tab) then Free_deleted(cislo_tab);
  528.           if Open_cursor( Max_level) then Signalize
  529.           else  Rec_cnt( Max_level,limit);
  530.           if limit >0 then maxL:= Max_level[0].max1;
  531.           close_cursor( Max_level);
  532.           
  533.           if maxL>11 then   Vyber_skup()
  534.                      else   Vyb_sk();
  535.      
  536.      
  537.       end;    //1
  538.  if NOT nic then
  539.   begin       //1
  540.      if Open_SQL_cursor(c,"select * from Vybrane_skup") then Signalize
  541.      else  Rec_cnt(c,limit);
  542.      close_cursor(c);
  543.        
  544.      if limit>0 then
  545.        begin     //2
  546.          if Open_cursor(Vyb_dcenik) then Signalize
  547.          else  Rec_cnt(Vyb_dcenik,limit2);
  548.          close_cursor(Vyb_dcenik);
  549.          if limit2>0 then
  550.           begin     //3
  551.           case co of
  552.            0:  begin   
  553.                  Open_view("*cenik", NO_REDIR , AUTO_CURSOR, 0, 0, id_pohled2);
  554.                  repeat Peek_message until id_POHLED2 = 0;
  555.                end;  
  556.            1:
  557.                begin
  558.                 Open_view("*edseznam", NO_REDIR , AUTO_CURSOR, 0, 0, id_pohled2);
  559.                 repeat Peek_message until id_POHLED2 = 0;
  560.                end;  
  561.            2:
  562.                begin
  563.                 Open_view("*eddealceny", NO_REDIR , AUTO_CURSOR, 0, 0, id_pohled2);
  564.                 repeat Peek_message until id_POHLED2 = 0;
  565.                end;  
  566.             end;
  567.           end  //3
  568.          else 
  569.            begin  //3
  570.             Info_box("upozorn∞nφ", "VybranΘ skupiny neobsahujφ ₧ßdnΘ polo₧ky cenφku");
  571.             close_all_views();
  572.            end;   //3
  573.        end   //2
  574.      else 
  575.        begin  //2
  576.          Info_box("upozorn∞nφ", "VybranΘ skupiny neobsahujφ ₧ßdnΘ polo₧ky cenφku");
  577.          close_all_views();
  578.        end;    //2
  579.    end;   //1
  580. end;    //0
  581.  
  582.