Poslední výkon "prichod" uživatele "Admin":

local uzivatel="Admin"
--pripravi SQL dotaz
local sql = dlg.formatsql([[select first 1 idvykp from prost_vykony 
    where IDProst = %q  and idvyk='prichod'
    order by datum desc]], uzivatel)
--spusti SQL a pripravy vystup v sqlDS
local sqlMD = ClientSession:CreateMidFromXML(sql)
local sqlDS = sqlMD:FindDataSetItem("")
sqlDS:LocateRange("", "")
local IDVykP = ""
if sqlDS:LocateFirst() then
  IDVykP=sqlDS:FieldByName("IDVykP")
end
--odstraneni middle z pameti
sqlMD=sqlMD:Free()