#bof: macros
Items
    AssignFromSpojeni = browse(select_*_from_Spojeni) & assign
    AssignFromSluzba = browse(select_*_from_Sluzba) & assign
    AssignFromSK = browse(//menus/sluzbaxkmen.sql) & assign
    AssignFromTVP = browse(//menus/TVP.sql) & assign
    AssignFromTVY = browse(//menus/TVY.sql) & assign
    AssignFromRVY = browse(//menus/RVY.sql) & assign
    AssignModem = browse(//menus/modem.sql) & assign
    AssignRRTST = browse(//menus/rrtst.sql) & assign
    AssignFromSpoj = browse(select_*_from_Spoj) & assign
    AssignFromStvol = browse(select_*_from_Stvol) & assign
    AssignFromKmen = browse(select_*_from_Kmen) & assign
    BigNumber = max(14) & number(0,10000000.0)
    CheckDD = upper & max(4) & list(|STRA|BARV|HOST|HOSK|HODE|)
    CheckIdty = !void & max(4) & int(0,9999) & ex(Idty,TypTech)
    CheckDrs = !void & max(5) & ex(Drs,Drsl)
    CheckObjekt = upper & max(4) & ?ex(Objekt,Adresy)
    CheckRks = upper & max(5) & evex(Objekt,Adresy)
    CheckSta = upper & max(4) & evex(Objekt,Adresy)
    CheckTypZDMO = upper & max(3)
    CheckZavod = upper & max(2) & evex(Zavod,Zavod)
    CheckZDMO = upper & max(12)
    CheckZvuk = upper & max(2) & evex(Zvuk,Zvuk)
    MenuDrs = browse(select_*_from_Drsl) & set(Drs,Drs)
    MenuIdty = browse(select_*_from_TypTech_order_by_TypZarizeni) & setme(Idty)
    MenuObjekt = browse(select_*_from_Adresy) & set(Objekt,Objekt)
    MenuRks = browse(select_*_from_Adresy_where_TypObj='RKS') & set(Rks,Objekt)
    MenuSpojeni = browse(select_*_from_Spojeni) & set(Spojeni,Spojeni)
    MenuSta = browse(select_*_from_Adresy) & setme(Objekt)
    MenuTypZarizeni = browse(select_*_from_TypTech_order_by_TypZarizeni) & set(TypZarizeni,TypZarizeni) & set(Idty,Idty) & set(Vyrobce,Vyrobce) & set(Vyrobce,Vyrobce) & set(VykonZar,VykonZar) & set(GHZ,GHZ)
    MenuTypZDMO = browse(select_*_from_TyZm) & set(TypZDMO,TypZDMO)
    MenuUziv = browse(select_*_from_Uzivatel) & set(Uziv,Uziv)
    MenuZavod = browse(select_*_from_Zavod) & set(UC,Zavod) & set(Zavod,Zavod)
    MenuZavodMe = browse(select_*_from_Zavod) & set(UC,Zavod) & setme(Zavod)
    MenuZvuk = browse(select_*_from_Zvuk) & set(Zvuk,Zvuk)
    MenuZDMO = browse(select_*_from_Kmen) & set(ZDMO,Zarizeni)
    SmallNumber = max(8) & number(0,9999.9)
    U12 = upper & max(12)
    YN = !void & upper & yn
    ZmenaZarizeni = uusql(Kmen,Zarizeni) & uusql(Sluzba,Zarizeni) & uusql(Sluzba,ZDMO) & uusql(Stvol,Stvol) & uusql(Tech,Zarizeni)
    CheckDatPor = date & !void & vcerado(060000,06:00)
#eof