local base=CroApp:GetBank():GetBase("ЛЦ") local t={} local rs=base.RecordSet for rec in rs.Records do table.insert(t,{}) local curt=t[#t] for k,v in ipairs(base.Fields) do if v.Type<6 then curt[v.Name]=rec:GetValue(v.Number,0) end end end MsgBox(json.encode(t))