Chip 2000 May/Chip_2000-05_cd1.bin/tema/SW602/Winbase/EShop_demo/TESTY.PGM

Text File | 2000-03-16 | 48KB | 1,284 lines

{$$3220792584                                }INCLUDE

Table CHYBY, S_DOPRAVA, CEN_SLEVY;

procedure test_uziv();
/*********************************************************************/
 var
  uzivname, rolename : string[50];
  query, strpom : string[255];
  pocet,stav      : integer;
  curs       : cursor;
  chrec      : trecnum;
  usernum, rolenum: tobjnum;
  homesrv : binary[12];
  OK: Boolean;

begin  //0
    uzivname:="__WEB";
    if Find_object(uzivname,CATEG_USER,usernum) then
     begin //1
       strpom := 'U₧ivatel > '+uzivname+' < nenφ dosud zalo₧en(a).'#10'Chcete ho  zalo₧it prßv∞ te∩ a pokraΦovat?'#10'(nutnΘ pouze na stran∞ webserveru)';
       if  YesNo_box('Varovßnφ',strpom) then
         if Create_user(uzivname,'Internet','','user','', homesrv ,'',usernum) then Signalize;
     end;  //1


    if  not Find_object(uzivname,CATEG_USER,usernum) then
     begin   //1
       rolename:="Internet_user";
        if Find_object(rolename,CATEG_ROLE,rolenum) then
          begin //2
            strpom := '  nebyla nalezena. '#10'Chcete roli zalo₧it prßv∞ te∩ a pokraΦovat?';
            if Yesno_box('Role Internet_User', strpom) then
            if  Insert_object("Internet_user",CATEG_ROLE,rolenum) then  Signalize;
          end;    //2

            if not Find_object(rolename,CATEG_ROLE,rolenum) then
             begin   //2
                 if GetSet_group_role(usernum,rolenum, CATEG_ROLE,OPER_GET,stav) then Signalize
                    else
                      if stav=0 then
                         begin  //3
                            strpom := 'nenφ obsazen do role Internet_User. '#10'Chcete ho obsadit prßv∞ te∩ a pokraΦovat?';
                            if Yesno_box('U₧ivatel __WEB', strpom) then
                              begin //4
                                 stav:=1;
                                 if GetSet_group_role(usernum,rolenum, CATEG_ROLE,OPER_SET,stav) then Signalize
                              end;  //4
                         end;   //3
                  if GetSet_group_role(usernum,rolenum, CATEG_ROLE,OPER_GET,stav) then Signalize
                    else
                     if stav=0 then
                        begin  //3
                           chrec:=Insert(CHYBY);
                           CHYBY[chrec].TABNAME:="Internet user - __web";
                           CHYBY[chrec].irec:=0;
                           CHYBY[chrec].ID:=0;
                           CHYBY[chrec].CHYBA:="U₧ivatel __WEB nenφ obsazen do role Internet_user, bez toho nebudou funkΦnφ www objekty, u₧ivatel nebude mφt prßvo www objekty pou₧φvat";
                        end;
             end //2
              else
               begin
                chrec:=Insert(CHYBY);
                CHYBY[chrec].TABNAME:="OBJTAB";
                CHYBY[chrec].irec:=0;
                CHYBY[chrec].ID:=0;
                CHYBY[chrec].CHYBA:="V aplikaci nenφ role Internet_user, bez tΘto role nebudete mφt prßvo pou₧φvat www objekty";
               end;

    end //1
      else
       begin
        chrec:=Insert(CHYBY);
        CHYBY[chrec].TABNAME:="USERTAB";
        CHYBY[chrec].irec:=0;
        CHYBY[chrec].ID:=0;
        CHYBY[chrec].CHYBA:="Na serveru nenφ u₧ivatel __WEB, bez tohoto u₧ivatele nebudou funkΦnφ www objekty";
       end;

  Rec_cnt(SYS_PAR, pocet);
  if (pocet=1) then
    begin
      if sys_par[0].aplname<>Current_application then
        begin
          OK:=YesNo_box("JmΘno aplikace uvedenΘ v tabulce SYS_PAR"," nesouhlasφ se jmΘnem spuÜt∞nΘ aplikace, chcete ho p°epsat?");
          if OK then sys_par[0].aplname:=Current_application
                else
                  begin
                   chrec:=Insert(CHYBY);
                   CHYBY[chrec].TABNAME:="SYS_PAR";
                   CHYBY[chrec].irec:=0;
                   CHYBY[chrec].ID:=0;
                   CHYBY[chrec].CHYBA:=sys_par[0].aplname+": jmΘno aplikace, uvedenΘ v tabulce SYS_PAR nesouhlasφ se jmΘnem spuÜt∞nΘ aplikace: "+Current_application;
                  end;

        end;
    end;


end;

procedure smaz_prazdne(podm:string[254]);
/*********************************************************************/
 var
  pocet      : integer;
  c          : cursor;
//  idtab      :tobjnum;

 begin
   if Open_SQL_cursor(c, podm) then Signalize
    else Rec_cnt(c, pocet);
   if pocet>0 then   Delete_all_records(c);
    close_cursor(c);
//   if not Find_object("CEN_SLEVY", CATEG_TABLE, idtab) then  Free_deleted(idtab);
 end;


procedure smaz_tzv_prazdne();
/*********************************************************************/
 var
  podm       : string[254];

 begin   //0
   podm:="SELECT * FROM CEN_SLEVY WHERE nad_mnoz IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_cenik FROM CENIK WHERE id_cenik IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_cenik FROM  cenik WHERE id_cenik IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT idj FROM JEDNOTKA WHERE idj IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT * FROM KOD_STRUCTURA WHERE uroven IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id FROM OBCHODNI_PARTNERI WHERE id IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_obchodnika FROM OBCHODNICI WHERE id_obchodnika IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_dobj FROM OBJ_HEADER WHERE id_dobj IS NULL";
   smaz_prazdne(podm);


   podm:="SELECT id_dobj FROM  OBJ_POLOZKY WHERE id_dobj IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT metoda FROM RABAT WHERE metoda IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT metoda FROM  RABAT_HEADER WHERE metoda IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT deal_id FROM S_DEAL_SK WHERE deal_id IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_doprava FROM S_DOPRAVA  WHERE id_doprava IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id FROM S_PLATBA  WHERE id IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_dph FROM S_DPH  WHERE id_dph IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_round FROM S_TAB_ROUND WHERE id_round IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_typ FROM S_TYP_UZIV WHERE id_typ IS NULL";
   smaz_prazdne(podm);

   podm:="SELECT id_skupiny  FROM S_ZBOZI_SK WHERE id_skupiny IS NULL";
   smaz_prazdne(podm);

 end;




procedure srovnej_lastid();
/*********************************************************************/
//najde v tabulkßch poslednφ id a zapφÜe do sys_par
var
 curs:cursor;
 ipom, pocet: integer;
 podm:string[100];

 begin
     Set_status_text("Porovnßvßm maximßlnφ ID v tabulkßch s hodnotou v tabulce SYS_PAR.");
      podm:="uc_rok="+int2str(year(today));
      if Open_sql_parts(curs, "*", "S_DPH", podm, "") then Signalize
      else Rec_cnt(curs, pocet);
      if pocet<=0 then Info_box("UPOZORN╠N═", "Pro letoÜnφ rok jste nezadali skupiny DPH");
      close_cursor(curs);

      if Open_sql_parts(curs, "MAX(id_cenik) AS M", "cenik", "", "") then Signalize
      else
       begin
         ipom:=CURS[0].M;
         if sys_par[0].id_last_c<ipom then sys_par[0].id_last_c:=CURS[0].M;
       end;
      close_cursor(curs);

      if Open_sql_parts(curs, "MAX(id_dobj) AS M", "OBJ_HEADER", "", "") then Signalize
      else
       begin
         ipom:=CURS[0].M;
         if sys_par[0].id_last_r<ipom then sys_par[0].id_last_r:=CURS[0].M;
       end;
      close_cursor(curs);

      if Open_sql_parts(curs, "MAX(id) AS M", "OBCHODNI_PARTNERI", "", "") then Signalize
      else
       begin
         ipom:=CURS[0].M;
         if sys_par[0].id_last_od<ipom then sys_par[0].id_last_od:=CURS[0].M;
        end;
      close_cursor(curs);

      if Open_sql_parts(curs, "MAX(id_obchodnika) AS M", "OBCHODNICI", "", "") then Signalize
      else
       begin
         ipom:=CURS[0].M;
         if sys_par[0].id_last_obch<ipom then sys_par[0].id_last_obch:=CURS[0].M;
       end;
      close_cursor(curs);

     Set_status_text("");
   Info_box("","Kontrola ID dokonΦena");
 end;


procedure Zaloz_tab();
/*********************************************************************/
var
  infostr, infoname:string[255];
  NAME:string[100];
  idtab:tobjnum;
  i, pocet:integer;
  prennum:tobjnum;

begin
     pocet:=0;
 //zalo₧enφ tabulky   KOD_STRUCTURA POCET_ZN
   Set_status_text("Tabulka KOD_STRUCTURA struktura skupin.");
      Rec_cnt(KOD_STRUCTURA, pocet);
      if pocet<=0 then
       begin
        irec:=Insert(KOD_STRUCTURA);
        KOD_STRUCTURA[irec].UROVEN:=0;
        KOD_STRUCTURA[irec].POCET_ZN:=1;
       end;

     pocet:=0;
 //zalo₧enφ tabulky pro zaokrouhlovßnφ
   Set_status_text("Tabulka S_TAB_ROUND pro zaokrouhlovßnφ.");
      Rec_cnt(S_TAB_ROUND, pocet);
      if pocet<=0 then
       begin
        irec:=Insert(S_TAB_ROUND);
        S_TAB_ROUND[irec].ID_ROUND:=0;
        S_TAB_ROUND[irec].koef:=0.010;
        S_TAB_ROUND[irec].nazev:="bez zaokrouhlenφ";
        irec:=Insert(S_TAB_ROUND);
        S_TAB_ROUND[irec].ID_ROUND:=1;
        S_TAB_ROUND[irec].koef:=0.100;
        S_TAB_ROUND[irec].nazev:="desetihalΘ°e";
        irec:=Insert(S_TAB_ROUND);
        S_TAB_ROUND[irec].ID_ROUND:=2;
        S_TAB_ROUND[irec].koef:=1.000;
        S_TAB_ROUND[irec].nazev:="koruny";
       end;

     pocet:=0;
 //zalo₧enφ tabulky typ u₧ivatele
   Set_status_text("Tabulka S_TYP_UZIV - typ u₧ivatele.");
      Rec_cnt(S_TYP_UZIV, pocet);
      if pocet<=0 then
       begin
        irec:=Insert(S_TYP_UZIV);
        S_TYP_UZIV[irec].ID_TYP:=1;
        S_TYP_UZIV[irec].nazev_TYP:="Soukromß osoba";
        irec:=Insert(S_TYP_UZIV);
        S_TYP_UZIV[irec].ID_TYP:=3;
        S_TYP_UZIV[irec].nazev_TYP:="Fyzickß osoba";
        irec:=Insert(S_TYP_UZIV);
        S_TYP_UZIV[irec].ID_TYP:=5;
        S_TYP_UZIV[irec].nazev_TYP:="Prßvnickß osoba";
       end;

     pocet:=0;
 //zalo₧enφ tabulky formulß°e
   Set_status_text("Tabulka S_PLATBA pro v²b∞r formulß°e.");
      Rec_cnt(S_PLATBA, pocet);
      if pocet<=0 then
       begin
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=0;
        S_PLATBA[irec].nazev:="Bez formulß°e";
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=1;
        S_PLATBA[irec].nazev:="P°φkaz k ·hrad∞";
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=2;
        S_PLATBA[irec].nazev:="Proforma";
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=3;
        S_PLATBA[irec].nazev:="Slo₧enka";
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=4;
        S_PLATBA[irec].nazev:="Expandia";
        irec:=Insert(S_PLATBA);
        S_PLATBA[irec].ID:=5;
        S_PLATBA[irec].nazev:="SET KB";
       end;

     pocet:=0;
//zalo₧enφ tabulky SYS_PAR
   Set_status_text("Tabulka SYS_PAR.");
      Rec_cnt(SYS_PAR, pocet);
      if pocet<=0 then irec:=Insert(SYS_PAR);
      if pocet>1 then
       begin
        Info_box("!!!!!", "V tabulce SYS_PAR je vφce ne₧ 1 zßznam, co₧ m∙₧e zp∙sobit nefunkΦnost celΘ aplikace");
        Info_box("!!!!!", "ZruÜte a uvoln∞te nadbyteΦnΘ zßznamy!");
       end;
   Set_status_text("");


     pocet:=0;
//zalo₧enφ tabulky EP_EXPANDIA
   Set_status_text("Tabulka EP_EXPANDIA.");
      Rec_cnt(EP_EXPANDIA, pocet);
      if pocet<=0 then irec:=Insert(EP_EXPANDIA);
      if pocet>1 then
       begin
        Info_box("!!!!!", "V tabulce EP_EXPANDIA je vφce ne₧ 1 zßznam, co₧ m∙₧e zp∙sobit problΘmy p°i odesφlßnφ objednßvky");
        Info_box("!!!!!", "ZruÜte a uvoln∞te nadbyteΦnΘ zßznamy!");
       end;
   Set_status_text("");


     pocet:=0;
//zalo₧enφ tabulky INFO_PROVOZOVATEL
   Set_status_text("Tabulka INFO_PROVOZOVATEL.");
      Rec_cnt(INFO_PROVOZOVATEL, pocet);
      if pocet<=0 then irec:=Insert(INFO_PROVOZOVATEL);
      if pocet>1 then
       begin
        Info_box("!!!!!", "V tabulce INFO_PROVOZOVATEL je vφce ne₧ 1 zßznam, co₧ m∙₧e zp∙sobit problemy v aplikaci");
        Info_box("!!!!!", "ZruÜte a uvoln∞te nadbyteΦnΘ zßznamy!");
       end;
   Set_status_text("");
     pocet:=0;
//zalo₧enφ tabulky Default_hodnoty
   Set_status_text("Tabulka Default_hodnoty.");
      Rec_cnt(Default_hodnoty, pocet);
      if pocet<=0 then irec:=Insert(Default_hodnoty);
      if pocet>1 then
       begin
        Info_box("!!!!!", "V tabulce Default_hodnoty je vφce ne₧ 1 zßznam, co₧ m∙₧e zp∙sobit nefunkΦnost celΘ aplikace");
        Info_box("!!!!!", "ZruÜte a uvoln∞te nadbyteΦnΘ zßznamy!");
       end;

     pocet:=0;
//zalo₧enφ tabulky ZAL_TAB pro zßlohu dat
   Set_status_text("Tabulka ZAL_TAB pro zßlohu dat.");
      Rec_cnt(ZAL_TAB, pocet);
      if pocet<=0 then
       begin
        if Find_object("ZT",CATEG_PGMSRC,prennum) then Signalize
         else  if not Move_data(prennum,"",-1,"",-1,-1,-1,-1,true) then Signalize;
       end;
     Zadej_poradi();
     pocet:=0;
   Set_status_text("");
//zalo₧enφ tabulky S_DEAL_SK  dealersk²ch skupin
   Set_status_text("Tabulka dealersk²ch skupin  S_DEAL_SK.");
      Rec_cnt(S_DEAL_SK, pocet);
//      if pocet<10 then
       begin
         for i:=0 to pocet-1 do
          begin
           if (S_DEAL_SK[i].DEAL_ID<>i) then  S_DEAL_SK[i].DEAL_ID:=i;
          end;
         for i:=pocet to 9 do
          begin
           irec:=Insert(S_DEAL_SK);
           S_DEAL_SK[irec].DEAL_ID:=i;
           if i=0 then S_DEAL_SK[irec].DEAL_SKUPINA:="Koncov² zßkaznφk";
          end;
       end;
   Set_status_text("");
// vytvo°enφ novΘho seznamu u₧ivatel∙ za°azen²ch do role administrßtor a obchodnφci
 uziv0();

end;


procedure Uvolni_zrusene();
/*********************************************************************/
var
  infostr, infoname:string[255];
  NAME:string[100];
  idtab:tobjnum;
  i, pocet:integer;

begin
   Set_status_text("Uvol≥uji zruÜenΘ zßznamy ve vÜech tabulkßch aplikace");
   if Open_cursor(Seznam_tab) then Signalize
    else Rec_cnt(Seznam_tab, pocet);
   infoname:="Uvol≥uji zruÜenΘ zßznamy ve vÜech tabulkßch aplikace "+Seznam_tab[0].apl;
   Set_status_text(infoname);
   infoname:="V aplikaci "+Seznam_tab[0].apl +" nebyla nalezena tabulka: ";
   if pocet>0 then
    for i:=0 to pocet-1 do
     begin //1
       name:=Seznam_tab[i].tab_name;
       infostr:="Uvol≥uji zruÜenΘ zßznamy v tabulce: "+name;
       Set_status_text(infostr);
       infostr:= infoname+name;
       if not Find_object(name, CATEG_TABLE, idtab) then  Free_deleted(idtab) else Info_box("", infostr);
     end;   //1
   close_cursor(Seznam_tab);
   Info_box("","Uvol≥ovßnφ zruÜen²ch zßznam∙ tabulek aplikace bylo dokonΦeno");
   Set_status_text("");
end;


 FUNCTION Test_defH():Boolean;
/*********************************************************************/
 var
  u          : untyped;
  pocet      : integer;
  chrec, irec: trecnum;
  chybatxt   : string[2000];
  podm       : string[254];
  curs       : cursor;

 begin   //0
   Rec_cnt(Default_hodnoty, pocet);
   if pocet<=0 then irec:=Insert(Default_hodnoty);
   if pocet>1 then
    begin
      Info_box("!!!!!", "V tabulce Default_hodnoty je vφce ne₧ 1 zßznam, co₧ m∙₧e zp∙sobit nefunkΦnost celΘ aplikace");
      Info_box("!!!!!", "ZruÜte a uvoln∞te nadbyteΦnΘ zßznamy!");
    end;
   if pocet=1 then
    begin  //1
      u:=Default_hodnoty[0].DEAL_SK ;
      irec:=Look_up(S_DEAL_SK,"deal_id",u);
      if irec=-1 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je Φ. dealerskΘ skupiny , kterΘ nenφ v tabulce S_DEAL_SK";
       end;
      u:=Default_hodnoty[0].ZP_DOPRAV;
      irec:=Look_up(S_DOPRAVA,"id_doprava",u);
      if irec=-1 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je zp∙sob dopravy, kter² nenφ v tabulce S_DOPRAVA";
       end;
      u:=Default_hodnoty[0].TYP_UZIV;
      irec:=Look_up(S_TYP_UZIV,"id_typ",u);
      if irec=-1 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je typ u₧ivatele, kter² nenφ v tabulce S_TYP_UZIV";
       end;
      u:=Default_hodnoty[0].OBCHODNIK  ;
      irec:=Look_up(OBCHODNICI,"id_obchodnika",u);
      if irec=-1 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je obchodnφk, kter² nenφ v tabulce OBCHODNICI";
       end;
      u:=Default_hodnoty[0].JEDNOTKA ;
      irec:=Look_up(JEDNOTKA,"idj",u);
      if irec=-1 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je jednotka, kterß nenφ v tabulce JEDNOTKA";
       end;
      podm:="uc_rok="+int2str(year(today))+ " AND ID_DPH=" + int2str(Default_hodnoty[0].DPH);
      if Open_sql_parts(curs, "*", "S_DPH", podm, "") then Signalize
      else Rec_cnt(curs, pocet);
      close_cursor(curs);
      if pocet<=0 then
       begin
         chrec:=Insert(CHYBY);
         CHYBY[chrec].TABNAME:="Default_hodnoty";
         CHYBY[chrec].irec:=0;
         CHYBY[chrec].ID:=0;
         CHYBY[chrec].CHYBA:="V tabulce DEFAULT_HODNOTY je DPH, kterΘ nenφ v tabulce S_DPH pro letoÜnφ rok";
       end;

    end;  //1
 end;   //0


FUNCTION Test_Obch():Boolean;
/*********************************************************************/
var
  u: untyped;
  stav, pocet, pocetc, i, j, pomID: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;
  logname:string[80];
  usernum, rolenum: tobjnum;

begin //0

  if Open_SQL_cursor(ctest, "SELECT DISTINCT Obchodnici.logname FROM Obchodnici") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           logname:=ctest[i].logname;
           if Find_object(logname,CATEG_USER,usernum) then
             begin //5
               chrec:=Insert(CHYBY);
               CHYBY[chrec].TABNAME:="Obchodnici";
               u:=logname;
               ntab:=Look_up(Obchodnici,"logname",u);
               if ntab<>-1 then
                begin  //6
                  CHYBY[chrec].irec:=ntab;
                  CHYBY[chrec].ID:=Obchodnici[ntab].id_obchodnika;
                end   //6
                else
                 begin   //6
                  CHYBY[chrec].irec:=-1;
                  CHYBY[chrec].ID:=-1;
                 end;    //6
                if logname="" then CHYBY[chrec].CHYBA:="V tabulce OBCHODNICI nenφ zadanΘ p°ihlaÜovacφ jmΘno obchodnφka"
                else CHYBY[chrec].CHYBA:="V tabulce OBCHODNICI je p°ihlaÜovacφ jmΘno ("+logname+"), kterΘ nenφ v seznamu u₧ivatel∙ na serveru, po₧ßdejte administrßtora aplikace o jeho vytvo°enφ a obsazenφ do role Obchodnφci";
             end //5
            else
             begin //5
                if Find_object('Obchodnici',CATEG_ROLE,rolenum) then
                 begin //6
                   chrec:=Insert(CHYBY);
                   CHYBY[chrec].irec:=-1;
                   CHYBY[chrec].ID:=-1;
                   CHYBY[chrec].TABNAME:="Obchodnici";
                   CHYBY[chrec].CHYBA:="Nelze nalΘzt roli Obchodnφci";
                 end  //6
                else
                 begin  //6
                   if GetSet_group_role(usernum,rolenum, CATEG_ROLE,OPER_GET,stav) then Signalize;
                   if stav=0 then
                    begin  //7
                     chrec:=Insert(CHYBY);
                     CHYBY[chrec].TABNAME:="Obchodnici";
                     u:=logname;
                     ntab:=Look_up(Obchodnici,"logname",u);
                     if ntab<>-1 then
                       begin  //8
                         CHYBY[chrec].irec:=ntab;
                         CHYBY[chrec].ID:=Obchodnici[ntab].id_obchodnika;
                       end   //8
                     else
                       begin    //8
                         CHYBY[chrec].irec:=-1;
                         CHYBY[chrec].ID:=-1;
                       end;     //8
                     CHYBY[chrec].CHYBA:="Obchodnik s p°ihlaÜovacφm jmΘnem-  ("+logname+"), nenφ obsazen do role Obchodnφci";
                    end;      //7
                 end;      //6
             end;      //5
         end; //2
 close_cursor(ctest);
      end; //1
end; //0


FUNCTION Test_Rabat():Boolean;
/*********************************************************************/
var
  u: untyped;
  pocet, pocetc, i, j, pomID: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;

begin //0
  if Open_SQL_cursor(ctest, "SELECT DISTINCT metoda FROM RABAT") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].metoda;
           u:=pomID;
           irec:=Look_up(RABAT_HEADER,"metoda",u);
           if irec=-1 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  metoda FROM RABAT WHERE metoda IS NULL"
               else Q:="SELECT metoda FROM RABAT WHERE metoda="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="RABAT";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].metoda;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce RABAT nenφ zadanß metoda"
                       else CHYBY[chrec].CHYBA:="V tabulce RABAT je metoda ("+int2str(pomID)+"), kterß nenφ v tabulce RABAT_HEADER";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);
end;

FUNCTION Test_OP():Boolean;
/*********************************************************************/
var
  u: untyped;
  pocet, pocetc, i, j, pomID: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;

begin
//test typ u₧ivatele
  if Open_SQL_cursor(ctest, "SELECT DISTINCT typ FROM OBCHODNI_PARTNERI") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].typ;
           u:=pomID;
           irec:=Look_up(S_TYP_UZIV,"ID_TYP",u);
           if irec=-1 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  id, typ FROM OBCHODNI_PARTNERI WHERE typ IS NULL"
               else Q:="SELECT  id, typ FROM OBCHODNI_PARTNERI WHERE typ="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBCHODNI_PARTNERI";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI nenφ zadßn typ u₧ivatele"
                       else CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI je typ u₧ivatele ("+int2str(pomID)+"), kter² nenφ v tabulce S_TYP_UZIV";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);

// test dealerskß skupina
  if Open_SQL_cursor(ctest, "SELECT DISTINCT deal_sk FROM OBCHODNI_PARTNERI") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].deal_sk;
           u:=pomID;
           irec:=Look_up(S_DEAL_SK,"DEAL_ID",u);
           if irec=-1 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  id, deal_sk FROM OBCHODNI_PARTNERI WHERE deal_sk IS NULL"
               else Q:="SELECT  id, deal_sk FROM OBCHODNI_PARTNERI WHERE deal_sk="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBCHODNI_PARTNERI";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].ID;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI nenφ zadanß dealerskß skupina"
                       else CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI je dealerskß skupina ("+int2str(pomID)+"), kterß nenφ v tabulce S_DEAL_SK";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);

 //test obchodnik
  if Open_SQL_cursor(ctest, "SELECT DISTINCT id_obchodnika FROM OBCHODNI_PARTNERI") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].id_obchodnika;
           u:=pomID;
           irec:=Look_up(OBCHODNICI,"ID_obchodnika",u);
           if irec=-1 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  id,id_obchodnika FROM OBCHODNI_PARTNERI WHERE id_obchodnika IS NULL"
               else Q:="SELECT  id,id_obchodnika FROM OBCHODNI_PARTNERI WHERE id_obchodnika="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBCHODNI_PARTNERI";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI nenφ zadßn obchodnik"
                       else CHYBY[chrec].CHYBA:="V tabulce OBCHODNI_PARTNERI je obchodnik ("+int2str(pomID)+"), kter² nenφ v tabulce OBCHODNICI";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);


end;


FUNCTION Test_Ceniky():Boolean;
/*********************************************************************/
var
  u: untyped;
  pocet, pocetc, i, j, pomID, pomdealsk: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q, podm:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;
  strcena:string[50];

begin
  Rec_cnt(Cenik, pocet);
  Rec_cnt(cenik, pocetc);
  if pocet <> pocetc then
    begin //1
      chrec:=Insert(CHYBY);
      CHYBY[chrec].TABNAME:="Cenik-cenik";
      CHYBY[chrec].irec:=pocet;
      CHYBY[chrec].ID:=pocetc;
      CHYBY[chrec].CHYBA:="V cenφcφch nesouhlasφ poΦet zßznam∙, v tabulce cenik je  ("+int2str(pocetc)+") zßznam∙, v tabulce CENIK je  ("+int2str(pocet)+") zßznam∙. ";
    end; //1


//test  rabatu zadan²ch v Cenφku
  if Open_SQL_cursor(ctest, "SELECT DISTINCT rabat FROM Cenik") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
          pomID:=ctest[i].rabat;
          if ((pomID<>NONEINTEGER) AND (pomID<>0)) then
           begin //20
            u:=pomID;
            irec:=Look_up(RABAT_HEADER,"metoda",u);
            if irec=-1 then
             begin //3
               Q:="SELECT  id_cenik, rabat FROM Cenik WHERE rabat="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="Cenik";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_cenik;
                       CHYBY[chrec].CHYBA:="V tabulce CENIK je rabatovß metoda ("+int2str(pomID)+"), kterß nenφ v tabulce RABAT_HEADER";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
           end;  //20
         end;   //2
      end;  //1
 close_cursor(ctest);

//test  za°azenφ do skupin v Cenφku
  if Open_SQL_cursor(ctest, "SELECT DISTINCT skupina_zbozi FROM Cenik") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].skupina_zbozi;
           u:=pomID;
           irec:=Look_up(S_ZBOZI_SK,"id_skupiny",u);
           if irec=-1 then
             begin //3
              if pomID=NONEINTEGER then Q:="SELECT  id_cenik,skupina_zbozi  FROM Cenik WHERE skupina_zbozi IS NULL "
              else  Q:="SELECT  id_cenik,skupina_zbozi  FROM Cenik WHERE skupina_zbozi="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="Cenik";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_cenik;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce CENIK je polo₧ka neza°azenß do skupiny"
                       else CHYBY[chrec].CHYBA:="V tabulce CENIK je polo₧ka za°azenß do skupiny ("+int2str(pomID)+"), kterß nenφ v tabulce S_ZBOZI_SK";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);




//test  DPH pro letoÜnφ rok v Cenφku
  if Open_SQL_cursor(ctest, "SELECT DISTINCT DPH FROM Cenik") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].DPH;
           if pomID=NONEINTEGER then pocetc:=0
           else
            begin
              podm:="uc_rok="+int2str(year(today))+ " AND ID_DPH=" + int2str(pomID);
              if Open_sql_parts(c, "*", "S_DPH", podm, "") then Signalize
              else Rec_cnt(c, pocetc);
              close_cursor(c);
            end;
           if pocetc<=0 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  id_cenik, DPH FROM Cenik WHERE DPH IS NULL"
               else  Q:="SELECT  id_cenik, DPH FROM Cenik WHERE DPH="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="Cenik";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_cenik;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce CENIK nenφ zadßno DPH pro letoÜnφ rok"
                       else CHYBY[chrec].CHYBA:="V tabulce CENIK je DPH ("+int2str(pomID)+"), kterΘ nenφ v tabulce S_DPH pro letoÜnφ rok";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);


//test napln∞nφ cenφku

  if Open_SQL_cursor(ctest, "SELECT deal_id FROM S_DEAL_SK WHERE kod<>"""" ") then Signalize
   else Rec_cnt(ctest, pocet);
  if pocet>0 then
   begin //1
    for j:=0 to pocet-1 do
     begin //2
      pomdealsk:=ctest[j].deal_id;

      case pomdealsk  of
      1:   strcena:="cena1";
      2:   strcena:="cena2";
      3:   strcena:="cena3";
      4:   strcena:="cena4";
      5:   strcena:="cena5";
      6:   strcena:="cena6";
      7:   strcena:="cena7";
      8:   strcena:="cena8";
      9:   strcena:="cena9";
      else: strcena:="min_cena";
      end;

      podm:="SELECT id_cenik FROM cenik WHERE "+strcena+" IS NULL";
      if Open_SQL_cursor(c,podm) then Signalize
      else Rec_cnt(c, pocetc);
        if pocetc>0 then
         begin //3
          for i:=0 to pocetc-1 do
            begin //4
             pomID:=c[i].id_cenik;
             chrec:=Insert(CHYBY);
             CHYBY[chrec].TABNAME:="cenik";
             Translate(c,i,0,ntab);
             CHYBY[chrec].irec:=ntab;
             CHYBY[chrec].ID:=c[i].id_cenik;
             CHYBY[chrec].CHYBA:="V tabulce cenik je polo₧ka ("+int2str(pomID)+"), u kterΘ nenφ zadanß "+strcena;
            end;   //4
         end;   //3
        close_cursor(c);
     end;  //2
   end;  //1
 close_cursor(ctest);
end;

FUNCTION Test_Skup():Boolean;
/*********************************************************************/
var
  u: untyped;
  pocet, pocetc, i, j, pomID, delka1 , delka2: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;
  pomstr:string[100];

begin
//test  rabatu zadan²ch ve skupinßch zbo₧φ
/*
  if Open_SQL_cursor(ctest, "SELECT DISTINCT rabat FROM S_ZBOZI_SK WHERE last=TRUE") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
          pomID:=ctest[i].rabat;
          if (pomID<>0) then
           begin //20
            u:=pomID;
            irec:=Look_up(RABAT_HEADER,"metoda",u);
            if irec=-1 then
             begin //3
               if pomID=NONEINTEGER then Q:="SELECT  id_skupiny, rabat FROM  S_ZBOZI_SK WHERE rabat IS NULL"
               else  Q:="SELECT  id_skupiny, rabat FROM  S_ZBOZI_SK WHERE rabat="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:=" S_ZBOZI_SK";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_skupiny;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce S_ZBOZI_SK nenφ zadßnß rabatovß metoda"
                       else CHYBY[chrec].CHYBA:="V tabulce  S_ZBOZI_SK je rabatovß metoda ("+int2str(pomID)+"), kterß nenφ v tabulce RABAT_HEADER";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
           end;  //20
         end;   //2
      end;  //1
 close_cursor(ctest);
*/
//test max. ·rovn∞
      if Open_sql_parts(c, "MAX(uroven) AS M", "KOD_STRUCTURA", "", "") then Signalize
      else
       begin
         pocet:=C[0].M;
         close_cursor(c);
       end;

      if Open_sql_parts(c, "MAX(uroven) AS M", "S_ZBOZI_SK", "", "") then Signalize
      else
       begin
         pocetc:=C[0].M;
         close_cursor(c);
       end;

  if pocet <> pocetc then
    begin //1
      chrec:=Insert(CHYBY);
      CHYBY[chrec].TABNAME:="S_ZBOZI_SK";
      CHYBY[chrec].irec:=pocet;
      CHYBY[chrec].ID:=pocetc;
      CHYBY[chrec].CHYBA:="V tabulce S_ZBOZI_SK nesouhlasφ max. ·rove≥ ("+int2str(pocetc)+") a max. ·rovnφ v tabulce KOD_STRUCTURA ("+int2str(pocet)+")";
    end; //1

  Rec_cnt(KOD_STRUCTURA, pocet);
   if pocet>0 then
     for i:=0 to pocet-1 do
       begin
         pomID:=KOD_STRUCTURA[i].uroven;
         Q:="SELECT  SUM(pocet_zn) AS DELKA FROM  KOD_STRUCTURA WHERE uroven<="+int2str(pomID);
          if Open_SQL_cursor(ctest, Q) then Signalize
          else delka1:=ctest[0].delka;
          close_cursor(ctest);
            if delka1>0 then
              begin //3
                Q:="SELECT  id_skupiny, uroven, KOD_Skupiny FROM  S_ZBOZI_SK WHERE uroven="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       pomstr:=c[j].KOD_Skupiny;
                       delka2:=Strlength(pomstr);
                       if delka2<>delka1 then
                         begin //6
                           chrec:=Insert(CHYBY);
                           CHYBY[chrec].TABNAME:=" S_ZBOZI_SK";
                           Translate(c,j,0,ntab);
                           CHYBY[chrec].irec:=ntab;
                           CHYBY[chrec].ID:=c[j].id_skupiny;
                           CHYBY[chrec].CHYBA:="V tabulce  S_ZBOZI_SK je kod skupiny"+pomstr+" o dΘlce ("+int2str(delka2)+"), kterß nesouhlasφ s po₧adovanou dΘlkou("+int2str(delka1)+"), v tabulce KOD_STRUCTURA";
                         end; //6
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
           end;  //20


end;

FUNCTION Test_OBJ():Boolean;
var
  u: untyped;
  pocet, pocetc, i, j, pomID: integer;
  chrec, irec:trecnum;
  chybatxt:string[2000];
  Q:string[254];
  ctest, c: cursor;
  ncurs, ntab: trecnum;
  pomstr:string[50];

begin
//test zßkaznφk∙
  if Open_SQL_cursor(ctest, "SELECT DISTINCT id_org  FROM OBJ_HEADER") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].id_org;
           u:=pomID;
           irec:=Look_up(OBCHODNI_PARTNERI,"id",u);
           if irec=-1 then
             begin //3
              if pomID=NONEINTEGER then Q:="SELECT  id_dobj,id_org  FROM OBJ_HEADER WHERE id_org IS NULL "
              else  Q:="SELECT  id_dobj,id_org  FROM OBJ_HEADER WHERE id_org="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBJ_HEADER";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_dobj;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBJ_HEADER nenφ objednßvka p°i°azena zßkaznφkovi  "
                       else CHYBY[chrec].CHYBA:="V tabulce OBJ_HEADER je objednßvka s neznßm²m zßkaznφkem ("+int2str(pomID)+"), kter² nenφ v tabulce OBCHODNI_PARTNERI";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);


//test doprava
  if Open_SQL_cursor(ctest, "SELECT DISTINCT doprav  FROM OBJ_HEADER") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomstr:=ctest[i].doprav;
           u:=pomstr;
           irec:=Look_up(S_DOPRAVA,"kod",u);
           if irec=-1 then
             begin //3
              if pomstr="" then Q:="SELECT  id_dobj,doprav  FROM OBJ_HEADER WHERE doprav IS NULL"
              else  Q:="SELECT  id_dobj,doprav  FROM OBJ_HEADER WHERE doprav="+""""+pomstr+"""";
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBJ_HEADER";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_dobj;
                       if pomstr="" then CHYBY[chrec].CHYBA:="V tabulce OBJ_HEADER nenφ v objednßvce zadßn zp∙sob dopravy"
                       else CHYBY[chrec].CHYBA:="V tabulce OBJ_HEADER je v objednßvce s neznßm²  zp∙sob dopravy ("+pomstr+"), kter² nenφ v tabulce S_DOPRAVA";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);

//test polo₧ky-header
  if Open_SQL_cursor(ctest, "SELECT DISTINCT id_dobj  FROM OBJ_POLOZKY") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].id_dobj;
           u:=pomID;
           irec:=Look_up(OBJ_HEADER,"id_dobj",u);
           if irec=-1 then
             begin //3
              if pomID=NONEINTEGER then Q:="SELECT  id_dobj  FROM OBJ_POLOZKY WHERE id_dobj IS NULL"
              else  Q:="SELECT  id_dobj FROM OBJ_POLOZKY WHERE id_dobj="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBJ_POLOZKY";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_dobj;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBJ_POLOZKY jsou polo₧ky bez hlaviΦky OBJ_HEADER"
                       else CHYBY[chrec].CHYBA:="V tabulce OBJ_POLOZKY je objednßvka  ("+int2str(pomID)+"), kterß nenφ v tabulce OBJ_HEADER";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);

//test polo₧ky-cenik
  if Open_SQL_cursor(ctest, "SELECT DISTINCT id_cnk  FROM OBJ_POLOZKY") then Signalize
   else Rec_cnt(ctest, pocet);
     if pocet>0 then
      begin //1
       for i:=0 to pocet-1 do
         begin //2
           pomID:=ctest[i].id_cnk;
           u:=pomID;
           irec:=Look_up(cenik,"id_cenik",u);
           if irec=-1 then
             begin //3
              if pomID=NONEINTEGER then Q:="SELECT  id_dobj, id_cnk  FROM OBJ_POLOZKY WHERE id_cnk IS NULL "
              else  Q:="SELECT  id_dobj, id_cnk FROM  OBJ_POLOZKY WHERE id_cnk="+int2str(pomID);
                if Open_SQL_cursor(c, Q) then Signalize
                else Rec_cnt(c, pocetc);
                 if pocetc>0 then
                   begin //4
                    for j:=0 to pocetc-1 do
                     begin //5
                       chrec:=Insert(CHYBY);
                       CHYBY[chrec].TABNAME:="OBJ_POLOZKY";
                       Translate(c,j,0,ntab);
                       CHYBY[chrec].irec:=ntab;
                       CHYBY[chrec].ID:=c[j].id_dobj;
                       if pomID=NONEINTEGER then CHYBY[chrec].CHYBA:="V tabulce OBJ_POLOZKY bez odkazu na Cenik"
                       else CHYBY[chrec].CHYBA:="V tabulce OBJ_POLOZKY je polo₧ka cenφku ("+int2str(pomID)+"), kterß nenφ v tabulce cenik";
                     end; //5
                   end; //4
                close_cursor(c);
             end; //3
         end;   //2
      end;  //1
 close_cursor(ctest);
end;


procedure test_ID();
/*********************************************************************/
//kontrola relacφ mezi tabulkami
var
 curs:cursor;
 ipom, pocet: integer;
 podm:string[100];
 idtab: tobjnum;
 tabnam:string[50];
  ncurs, ntab: trecnum;

 begin
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho!");
   if not Find_object("CHYBY", CATEG_TABLE, idtab) then
     begin
      Delete_all_records(CHYBY);
      Free_deleted(idtab);
     end;
   Set_status_text("");
//   Set_status_text("Uvol≥uji zruÜenΘ zßznamy v  tabulkßch.");
// Uvolni_zrusene();
   Set_status_text("Kontroluji existenci u₧ivatele __web a jeho obsazenφ do role.");
   test_uziv();
   Set_status_text("");
   Set_status_text("Kontroluji zalo₧enφ a stav  pomocn²ch tabulek.");
 Zaloz_tab();
   Set_status_text("");
   Set_status_text("Hledßm a ma₧u v tabulkßch zßznamy s prßzdn²mi ID.");
 Smaz_tzv_prazdne();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - Default hodnoty");
 Test_defH();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - Obchodnφ partne°i");
 Test_OP();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - Obchodnφci");
 Test_Obch();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho!- Rabat");
 Test_Rabat();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - CEN═KY");
 Test_Ceniky();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - OBJEDN┴VKY");
 Test_OBJ();
   Set_status_text("");
   Set_status_text("Kontroluji relace mezi tabulkami, co₧ m∙₧e trvat dost dlouho! - SKUPINY");
 Test_Skup();
   Set_status_text("");

 Set_status_text("Kontrola relacφ mezi tabulkami dokonΦena");
 Rec_cnt(CHYBY,pocet);
 if pocet>0 then
  Open_view("*Chyby",NO_REDIR,0,0,0,nil)
 else
  Info_box("V▌SLEDEK TESTU","V aplikaci nebyly nalezeny ₧ßdnΘ chyby");
 end;