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

t_trades = {}

   if t_trades[trade.order_num] then
   return
   end
   t_trades[trade.order_num] = true

ticker = {"VTBR"}
lot = {"1"}
trans_id = {os.time()+1}
account = "xxxxxx"
class_code = "yyyy"
client_code = "zzzzzzzz"
LastStatus = {nil}           
run = true         

function main()
   TransOpenPos() 
   while run do sleep(1) 
   end
end

function OnStop() 
   run = false 
end

function TransOpenPos()
   for j = 1, #ticker do
      local Transaction={
         ACCOUNT = account;
         CLIENT_CODE = client_code;
         CLASSCODE = class_code;
         SECCODE = ticker[j];
         ACTION = 'NEW_ORDER';
         OPERATION = 'S';
         TYPE = 'M';
         PRICE = 0;
         QUANTITY = lot[j];
         TRANS_ID = tostring(trans_id[j]);
      }
      local Res = sendTransaction(Transaction)
      if Res ~= '' then message('TransOpenPos(): Ошибка отправки транзакции: '..Res) else message('TransOpenPos(): Транзакция отправлена') 
      end
   end
end

function OnTrade(trade)
   for j = 1, #ticker do
      if trade.trans_id == trans_id[j] then
         sleep(100);
         message('OnTrade(): По транзакции №'..trade.trans_id..' успешно совершена сделка №'..trade.trade_num..' по цене '..trade.price..' объемом '..trade.qty) 
         qty_trades = getNumberOf("trades"); 
         num_trade = 0; 
         for i = 0, qty_trades - 1 do 
            trade_find = getItem("trades", i); 
            if trade_find.sec_code == ticker then 
               num_trade = trade_find.trade_num
            end
         end
         message("Номер сделки в торговой системе - "..trade.trade_num);
         sleep(100);   
      end
   end
end

function main()
   
   ticker = "ETLN"
   firmid = "XXXXXXXXXXXXX"
   clientcode = "XXXXXX"
   account = "XXXXX-XXXXXXXX" 
   
   depodata = getDepo(clientcode, firmid, ticker, account)
   dostupno = depodata.depo_limit_available   
   
   message (ticker.." "..dostupno)

end

   instruments={{"AFKS", 1, 0.001, os.time()+1}, {"AFLT", 1, 0.01, os.time()+2}, {"AGRO", 1, 0.2, os.time()+3}}
   for _,val in ipairs(instruments) do
      message(val[1].." "..val[2].." "..val[3].." "..val[4])
   end

function main ()
   ticker = {"AFKS", "AFLT", "AGRO"}
   lot = {"1", "1", "1"}
   pricestep = {"0.001", "0.01", "0.2"}
   trans_id = {os.time()+1, os.time()+2, os.time()+3}
      
   for i = 1, #ticker do
      ds = CreateDataSource("TQBR", ticker[i], INTERVAL_D1);
      sleep(400) 
      CandleNum = ds:Size()
      priceO = ds:O(CandleNum)
      orderprice = priceO * 1.05 - priceO * 1.05%pricestep[i]
      
      message ("Тикер "..ticker[i]..". Количество лотов: "..lot[i]..". Шаг цены: "..pricestep[i]..". Номер транзакции: "..trans_id[i]..". Цена: "..orderprice)
   end
   
   -- и дальше код ........
end

stopped = false
function OnStop()
   stopped = true
   return 5000
end

function main()
   ticker = "SIBN"
   ds1, err = CreateDataSource("TQBR", ticker, INTERVAL_D1);
   sleep(400)
   CandleNum = ds1:Size()
   PriceC = ds1:C(CandleNum)
   PriceO = ds1:O(CandleNum)
   
   if PriceC > PriceO * 1.05 then -- Если цена закрытия становится больше цены открытия на 5%, то покупаем по рынку 1 лот
      
      A = {
         ACTION = 'NEW_ORDER',
         ACCOUNT = 'xxxxxxxxxxx',
         OPERATION = 'B', -- 'B' - покупка, 'S' - продажа
         CLASSCODE = 'TQBR', 
         SECCODE = ticker, 
         PRICE = tostring(0), 
         QUANTITY = tostring(1), -- количество лотов
         TRANS_ID = tostring(1000), -- идентификатор транзакции, чтобы программа распознавала транзакции, когда много сделок
         TYPE = 'M'
      }
      Err_A = sendTransaction(A)
      message("error: "..Err_A)
   end   
end