Sergey Gorokhov (Все сообщения пользователя)

        row = InsertRow(AVT, -1)
        SetCell(AVT, row, 1, MySec[i..'']['CCod'])
        SetCell(AVT, row, 2, MySec[i..'']['SCod'])

message ('time='..os.date())

dofile ("C:\\Program Files\\Lua\\5.1\\lua\\ATR.lua")--ATR
ds_v = CreateDataSource(instr[k].v_class,instr[k].v_sec,INTERVAL_D1)
ds_v:SetEmptyCallback()
sleep(1000)
func1 = ATR() 
func2 = ATR() 
candles=ds_v:Size() --до этого места доходит и выдаёт количество свечей
long_v={}
short_v={}
for i=1,candles do   
long_v[i]=func1(candles, {Period=252}, ds_v)                  
short_v[i]=func2(candles, {Period=5}, ds_v)   
end

function main() 
   is_run=true; 
   while is_run == true do 
      sleep(2000); 
   end 
end; 

function OnQuote(class, sec) 
if (class == "TQBR") and (sec == "SBER") then
   tb = getQuoteLevel2(class, sec); 
   message(tostring(tb.offer[1].price));
end   
end

function Close_all_order()
 function myFind(F)
  return (bit.band(F, 0x1) ~= 0) 
 end
 local ord = "orders"
 local orders = SearchItems(ord, 0, getNumberOf(ord)-1, myFind, "flags")
 if (orders ~= nil) and (#orders > 0) then
  for i=1,#orders do
   local transaction={
   TRANS_ID=tostring(1000*os.clock()),
   ACTION="KILL_ORDER",
   CLASSCODE=c_code,
   SECCODE=getItem(ord,orders[i]).sec_code,
   ORDER_KEY=tostring(getItem(ord,orders[i]).order_num)
   }
   local res=sendTransaction(transaction) 
  end
 end
end

work = false
function OnStopOrder(...)
 work = true
end

function main()
 ...
  if work then
   ...
  end
...
end