LINUX.ORG.RU

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

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

+n медитаций (енумерейты не нужно)

(function()
  local base = CroApp.GetBank():GetVocabulary():GetBase("XX")  if !base then return nil end
  local v=0,rst = base.RecordSet  if !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, :

+1 медитация (енумерейты не нужно)

(function()
  local base = CroApp.GetBank():GetVocabulary():GetBase("XX")
  if !base then return nil end
  local v=0,rst = base.RecordSet
  if !rst then then return nil end
  rst:Sort{ 
            {field=5, descent=true, case=false},
            {field=7, descent=false, case=false},
            {field=10, descent=false, case=false}
          }
  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)),
                         HyTable = nil,
                         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, :

+1 медитация (енумерейты не нужно)

(function()
  local base = CroApp.GetBank():GetVocabulary():GetBase("XX")
  if !base then return nil end
  local v=0,rst = base.RecordSet
  if !rst then then return nil end
  rst:Sort{ 
            {field=5, descent=true, case=false},
            {field=7, descent=false, case=false},
            {field=10, descent=false, case=false}
          }
  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)),
                         HyTable = nil,
                         Rules = (function() local a={}
                                for i,p in ipairs(rec:GetValue(20, 0)) do
                                  a[i] = table.unserialize(p)
                                end
                                return a end)()
                       }
  end  
end)()