int sub getSlownik()
   dispatch cnn = GetAdoConnection()
   dispatch rs = "ADODB.Recordset"
   string sNazwa, sql
   long iNumer, i

   sql = "select sl.nazwa, sl.numer from typycech tc "
   sql += "left join slownik sl on tc.id = sl.typ and tc.rodzaj = sl.rodzaj and sl.rokId = tc.rokid "
   sql += using "where tc.rodzaj = 2 and tc.rokId = %l and tc.nazwa = '%s'",IndeksRoku(),NAZ_SL
   rs.Open(sql,cnn)
   while !rs.EOF()
      iNumer = rs.Fields("numer").Value
      sNazwa = rs.Fields("nazwa").Value
      mSlownik.Set(sNazwa, iNumer)
      rs.MoveNext()
   wend
endsub