История изменений

Исправление qulinxao3, 20.01.21 23:58 (текущая версия) :

«скоропись»

s_\!_not _g

подразумев(ал|ется|атся) :



(function()
  local base = CroApp.GetBank():GetVocabulary():GetBase("XX")  if not base then return nil end
  local v=0,rst = base.RecordSet;  if not rst then return nil end --;?!
   rst:Sort{{field=5,descent=true},{field=7},{field=10}}
  for rec in rst.Records do v = v + 1
    arrSimpleConv[v] = { 
                         Type = rec:GetValue(5),
                         LegName = rec:GetValue(10),
                         PickName = rec:GetValue(11),
                         FlagHierarch = tonumber(rec:GetValue(30)),
                         Rules = (function(B) local a={}
                                for i,p in ipairs(B) do a[i] = table.unserialize(p)end
                                return a end)(rec:GetValue(20, 0))
                       }
  end  
end)()

Исходная версия qulinxao3, 20.01.21 23:57:

+1 медиация (сохранилась ли? семантика полузабытого кодеца)

«скоропись»

s_\!_not _g

подразумев(ал|ется|атся) :



(function()
  local base = CroApp.GetBank():GetVocabulary():GetBase("XX")  if !base then return nil end
  local v=0,rst = base.RecordSet;  if not rst then return nil end --;?!
   rst:Sort{{field=5,descent=true},{field=7},{field=10}}
  for rec in rst.Records do v = v + 1
    arrSimpleConv[v] = { 
                         Type = rec:GetValue(5),
                         LegName = rec:GetValue(10),
                         PickName = rec:GetValue(11),
                         FlagHierarch = tonumber(rec:GetValue(30)),
                         Rules = (function(B) local a={}
                                for i,p in ipairs(B) do a[i] = table.unserialize(p)end
                                return a end)(rec:GetValue(20, 0))
                       }
  end  
end)()