Databáze množin

Databáze množin je uložena v hlavním datovém adresáøi a má název LamGroup.
Používá se jí k uložení øetìzcù, na které ukazují položky oddìlení osobního,
pamu nebo mezd. V makrojazyku se k vìtì množiny, která je nahrána v pamìti
pøistupuje pomocí klíèového slova GRP.
  Stavba vìty:
 ¸÷÷÷÷÷÷ö÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ö÷÷÷÷÷÷÷÷÷÷÷÷ö÷÷÷÷÷÷÷÷÷÷÷÷÷ö÷÷÷ç
 ËÈíslo ËNázev položky   ËTyp položky ËIdentifikátorËIdxË
 Ö÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷Ô
 Ë 1    ËIdent           ËLongint     ËdbIdent      Ë x Ë
 Ë 2    ËAttr            ËWord        ËdbAttr       Ë   Ë
 Ö÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷Ô
 Ë 3    ËSkupina         ËWord        ËgrpSkup      Ë x ËDefault (grpCislo)
 Ë 4    ËVáha            ËWord        ËgrpVaha      Ë x Ë
 Ë 5    ËKód             ËWord        ËgrpKod       Ë x Ë
 Ë 6    ËText            ËString[15]  ËgrpText      Ë x Ë
 Ë 7..11ËPole èísel (5)  ËLongInt     ËgrpLI..      Ë   Ë
 Ö÷÷÷÷÷÷ô÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ô÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷÷÷÷÷÷÷÷÷÷÷ë÷÷÷Ô
 Ë       Celkem položek = 11          ËgrpMax       Ë   Ë
 î÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ô÷÷÷÷÷÷÷÷÷÷÷÷÷ô÷÷÷¶
 Stavba indexù:
 · dbIdent   Ë Ident Ë
             î÷ô÷ô÷ô÷¶
 · grpSkup   ËSkupinaË Ident ËAttr Ë
             î÷÷÷ô÷÷÷ô÷ô÷ô÷ô÷ô÷÷ô÷÷¶
 · grpVaha   ËSkupinaË not(Váha) Ë CSText(Text[15]) Ë Ident ËAttr Ë
             î÷÷÷ô÷÷÷ô÷÷÷÷÷ô÷÷÷÷÷ôôôôôôôôôôôôôôôôôôôô÷ô÷ô÷ô÷ô÷÷ô÷÷¶
 · grpKod    Ë  Kód  Ë Ident ËAttr Ë
             î÷÷÷ô÷÷÷ô÷ô÷ô÷ô÷ô÷÷ô÷÷¶
 · grpText   ËSkupinaË CSText(Text[15]) Ë Ident ËAttr Ë
             î÷÷÷ô÷÷÷ôôôôôôôôôôôôôôôôôôôô÷ô÷ô÷ô÷ô÷÷ô÷÷¶
 Pole èísel slouží pro použití v makrojazyku. Na kartì množiny nejsou
 tato èísla zobrazena.
 · Podívejte se na standardní stavbu databázové vìty.
 ·  Pøíklad: Zmìòte ukazatel na množinu u položky osobního oddìlení, která
             má index 100. Množina má text = "muž".
          Switch("C+")
          if _FindRec(dbtGrp, grpText, _WToKey(_GetNumGrp(dbtO,100))+
                                       _StrToCS(_UpperS("muž")) then
            O[100] := Grp[dbIdent];
          endif
 ·  Pøíklad: Naleznìte první množinu ve skupinì 12 podle váhy.
          if _SearchRec(dbtGrp, grpVaha, _WToKey(12)+_WToKey($FFFF)) then
            ...
          endif