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

trans_params={
   ["TRANS_ID"]=trans_id,
   ["Комментарий"]=cl,
   ["ACTION"]="Ввод заявки",
   ["CLASSCODE"]=class,
   ["Тип"]="Лимитированная",
   ["Условие исполнения"]="Поставить в очередь",
   ["Класс"]=class,
   ["Инструмент"]=seccode,
   ["Количество"]=tostring(quantity),
   ["Цена"]=tostring(price),
   ['К/П']=operation,
   ["Торговый счет"]=account
   }
res=sendTransaction(trans_params)
 

         k="Строка-Демо"
         while k:len()>1 do
            t=k:find(k)
            ToLog("Поиск подстроки "..k.." в самой себе даёт "..tostring(t))
            k=k:sub(1,-2)
         end     

 Поиск подстроки Строка-Демо в самой себе даёт nil 
 Поиск подстроки Строка-Дем в самой себе даёт nil 
 Поиск подстроки Строка-Де в самой себе даёт nil 
 Поиск подстроки Строка-Д в самой себе даёт nil 
 Поиск подстроки Строка- в самой себе даёт 1 
 Поиск подстроки Строка в самой себе даёт 1 
 Поиск подстроки Строк в самой себе даёт 1 
 Поиск подстроки Стро в самой себе даёт 1 
 Поиск подстроки Стр в самой себе даёт 1 
 Поиск подстроки Ст в самой себе даёт 1 

Поиск подстроки Строка-Лом в самой себе даёт nil;
Поиск подстроки Строка-Ло в самой себе даёт nil;
Поиск подстроки Строка-Л в самой себе даёт nil;
Поиск подстроки Строка- в самой себе даёт 1;
Поиск подстроки Строка в самой себе даёт 1;
Поиск подстроки Строк в самой себе даёт 1;

function OnTradeDo(trade)  --обработка события "OnTrade произошла сделка"     
local m, y
   y=tostring(trade.trade_num).."="..tostring(trade.order_num)
   if TradesFinished[y] then           --таблица с уже обработанными Трейдами за последние N минут
      m="Событие OnTrade для trade_num= "..trade.trade_num..'  order_num= '..trade.order_num.." уже обрабатывалось " 
          m=m..tostring(os.clock() - TradesFinished[y]).." сек назад.  Повторно НЕ ОБРАБАТЫВАЕМ!!!"
      ToLog(m) 
      return
   end
   TradesFinished[y]=os.clock()  -- запомним, чтоб повторно не обрабатывать
....    --Далее идёт сама обработка события (как было до версии 7)

end

--заказ данных
               CreateDataSourceEX(BaseClassCode,T.Optionbase,"settleprice")      --цена базового актива
               CreateDataSourceEX(ClassCode,T.SecCode,"strike")               -- страйк
               CreateDataSourceEX(ClassCode,T.SecCode,"volatility")            --волатильность   
... 
 
function CreateDataSourceEX(Class,Sec,Par)
   local ds,err = CreateDataSource(Class, Sec, INTERVAL_TICK, Par)
   if ds==nil then
      message("Ошибка при получении параметра "..Par..":\n"..err, 3)
      return false
   else
      ds:SetEmptyCallback()
      while ds:Size()==0 do
         sleep(100)
      end
      return true
   end
end 

T["DAYS_TO_MAT_DATE"] = getParamEx(ClassCode,SecCode,"DAYS_TO_MAT_DATE").param_value 

CreateDataSourceEX(ClassCode,T.SecCode,"strike")
...
T.["strike"] = getParamEx(ClassCode,T.SecCode,"strike").param_value+0,

function CreateDataSourceEX(Class,Sec,Par)
   local ds,err = CreateDataSource(Class, Sec, INTERVAL_TICK, Par)
   if ds==nil then
      message("Ошибка при получении параметра "..Par..":\n"..err, 3)
      return false
   else
      ds:SetEmptyCallback()
      while ds:Size()==0 do
         sleep(100)
      end
      return true
   end
end