Андрей (Автор тем)

function main()
   bum="BRG9"
   ord="105270510"
   PrintDbgStr("Сделка по рыночной заявке "..ord)
   trade_ord(ord) 
   PrintDbgStr("---------------")
   ord="106574907"
   PrintDbgStr("Сделка по лимитированной заявке "..ord)
   trade_ord(ord) 
   PrintDbgStr("---------------")
   end

function trade_ord(ord)
      --Перебирает ТАБЛИЦУ СДЕЛОК
      cena=0
         for i=0,getNumberOf('trades')-1 do --количество записей в таблице
            local trade = getItem('trades', i); -- получает строку с номером i
          if trade.sec_code=="BRG9" then
      --   PrintDbgStr("trade.order_num==ord "..bum.."  "..trade.order_num.." == "..ord)
             if tostring(trade.order_num)==ord then
            data2=tostring(trade.datetime.day).."-"..tostring(trade.datetime.hour)..":"..tostring(trade.datetime.min)..":"..tostring(trade.datetime.sec)
PrintDbgStr("СДЕЛКА "..bum.." дата= "..data2.."     цена= "..trade.price.."    кол= "..trade.qty.." сумма= "..trade.value.." "..buysell(trade.flags).." "..lm(trade.flags).." №заяв= "..trade.order_num.." №сдел= "..trade.trade_num)
            end   
         end
      end
      --return cena
end
function buysell(text)
 if bit.test(text,2) then
         sost="Продажа"
         else
         sost="Покупка"
         end
         return sost
 end
function lm(text) --лимитированная или рыночная
 if bit.test(text,3) then
         sost="Лимитированная"
         else
         sost="Рыночная"
         end
         return sost
 end

[2528] Сделка по рыночной заявке 105270510
[2528] СДЕЛКА BRG9 дата= 17-17:13:20     цена= 60.56    кол= 1 сумма= 40295.47 Продажа Рыночная №заяв= 105270510 №сдел= 11860082
[2528] ---------------
[2528] Сделка по лимитированной заявке 106574907
[2528] СДЕЛКА BRG9 дата= 18-13:50:0     цена= 62.02    кол= 1 сумма= 41229.59 Продажа Рыночная №заяв= 106574907 №сдел= 11954452
[2528] ---------------

[5716] *18 18.01.2019 20:41:14/18.1.2019 20:19:13

function main()
PrintDbgStr("*2 "..os.date("%d.%m.%Y %X  "))
i=1*24 * 60 * 60

   while i >0 do
   date1 = os.time(datetime) - i
   trade_cena(os.date("%d.%m.%Y %X",date1))
   i=i-60*60
   end

end
function trade_cena(dattim)
      --Перебирает ТАБЛИЦУ СДЕЛОК
      cena=0
         for i=0,getNumberOf('trades')-1 do --количество записей в таблице
            local trade = getItem('trades', i); -- получает строку с номером i
          if trade.sec_code=="MXH9" then
          PrintDbgStr("*18 "..dattim.."/"..trade.datetime.day.."."..trade.datetime.month.."."..trade.datetime.year.." "..trade.datetime.hour..":"..trade.datetime.min..":"..trade.datetime.sec)
            if trade.datetime.day.."."..trade.datetime.month.."."..trade.datetime.year.." "..trade.datetime.hour..":"..trade.datetime.min..":"..trade.datetime.sec==dattim then
            cena=tonumber(trade.price)
            PrintDbgStr("*20 "..dattim.." MXH9 сделка по цене "..cena)
            end
         
         end
      end
      --return cena
end

...
 ordernum=snat_zayvk(trans) --номер заявки по которой была отправлена транзакции на покупку ТП
 stopzayvka(ordernum)
...
function snat_zayvk(tran)
  for i=0,getNumberOf('orders')-1 do --количество записей в таблице
    local orders = getItem('orders', i); -- получает строку с номером i
      if tonumber(orders.trans_id)==tonumber(tran) then
         ordernum=tonumber(orders.order_num)
     end
  end
  return ordernum
end

function stopzayvka(nom_order)
   transid_m=tonumber(osdat());
 local Transaction={
    ['TRANS_ID']   = tostring(transid_m),  
    ['ACCOUNT']    = 'SPBFUT000pf',           
   ['CLASSCODE']  = 'SPBFUT',
    ['ACTION']     = 'KILL_ORDER',
   ['ORDER_KEY']   = tostring(nom_order)
  }
 sendTransaction(Transaction)
   end

start6 = tonumber(getFuturesHolding('SPBFUT000000','SPBFUT000pf','BRG9', 0).totalnet) 
...
...am Files\QUIK-Junior\LuaIndicators\m2_14_BRG9_M1.lua:40: attempt to index a nil value

start6 = tonumber(getFuturesHolding('SPBFUT000000','SPBFUT000pf','BRG9', 0).totalnet) or 0
...
if getFuturesHolding('SPBFUT000000','SPBFUT000pf','BRG9', 0).totalnet==nil then
start6=0

function OnQuote(class, sec )
   if class =="SPBFUT" and sec == "SRH9" then
      ql2 = getQuoteLevel2(class, sec)
      PrintDbgStr(ql2.bid_count.."-"..ql2.offer_count)
      for i,#ql2.bid do  
        PrintDbgStr(ql2.offer[i].price ..'-'.. ql2.offer[i].quantity)
      end
      PrintDbgStr("-----------------------------------------------")
   end
end

[4816] обратный вызов ордер OnOrder(orders)
[4816] сист дата и время      заявка   сделка    флаг  бум лот цена сумм    транз    сост   напр    дата и время сделки
[4816] #03.01.2019 11:59:01  87655808        100011100 SRH9 2 17872 35744 0 исполн продажа 3.1.2019 11:59:7 846000

обратный вызов сделка OnTrade(trade)
[4816] сист дата и время      заявка   сделка    флаг    бум лот цена сумм    транз    сост   напр    дата и время сделки
[4816] #03.01.2019 11:59:01 87655808 10614082 001000100  SRH9 2 19339 38678 31158 исполн продажа 3.1.2019 11:59:7 846000

PrintDbgStr(" Просмотр полей таблицы заявок")   
params = {"order_num", "flags", "sec_code"}
         for i=0,getNumberOf('orders')-1 do 
       PrintDbgStr(i)
            local order = getItem('orders', i); 
         for key,v in ipairs(params) do
            PrintDbgStr(v .. " = " .. order.v)
         end
      end

params = {"VERSION", "TRADEDATE", "SERVERTIME"}
    
    for key,v in ipairs(params) do
       PrintDbgStr(v .. " = " .. getInfoParam(v).."\n")
   
    end

--ДОБАВЛЕНИЕ ДАННЫХ В ТАБЛИЦУ ТРАНЗАКЦИЙ
function OnTransReply(trans)
   -- Если поступила информация по текущей транзакции
   
obrv_trans_text1(tostring(trans.trans_id),trans.sec_code,tostring(trans.status), tostring(tobin(trans.flags)),
 tostring(trans.order_num),tostring(trans.quantity),tostring(trans.price),trans.result_msg);
   obrv_trans_data1(trans.date_time);   
               
end;


систем дата и время  ид транз   бум  ст флаг                  заявка   л ц сообщение                                Дата выполн и время

*24.12.2018 15:08:43 2147483647 SRH9 3 1001000000000000000001 78807678 1 0 Заявка 78807678 успешно зарегистрирована. 24.12.2018 15:8:43   789238 
====================
local Transaction={
    ['TRANS_ID']  = '2412181506',   -- Номер транзакции надо сделать время с днем с часами минутами и секундами
    ['ACCOUNT']   = 'SPBFUT000pf',           
   ['CLASSCODE']='SPBFUT',-- Код класса
    ['SECCODE']   = 'SRH9',             -- Код инструмента
    ['ACTION']    = 'NEW_ORDER',          -- Тип транзакции ('NEW_ORDER' - новая заявка)
    ['OPERATION'] = 'B',                  -- Операция ('B' - buy, или 'S' - sell)
    ['TYPE']      = 'M',                  -- Тип ('L' - лимитированная, 'M' - рыночная)
    ['QUANTITY']  = '1',                  -- Количество
    ['PRICE']     = '0'                -- Цена
  }
 sendTransaction(Transaction)

--Перебирает ТАБЛИЦУ СДЕЛОК
         for i=0,getNumberOf('trades')-1 do --количество записей в таблице
            local trade = getItem('trades', i); -- получает строку с номером i
            
           if i==0 then
             row = InsertRow(t_id1, -1)
               SetCell(t_id1, row, 1, "номер сделки")
               SetCell(t_id1, row, 2, "номер заявки")
               SetCell(t_id1, row, 3, "цена")
               SetCell(t_id1, row, 4, "объем")
               SetCell(t_id1, row, 5, "кол в лотах")

local Transaction={
    ['TRANS_ID']  = '13579',   -- Номер транзакции
    ['ACCOUNT']   = 'SPBFUT000pf',           -- Код класса
   ['CLASSCODE']='SPBFUT',
    ['SECCODE']   = 'GZZ8',             -- Код инструмента
    ['ACTION']    = 'NEW_ORDER',          -- Тип транзакции ('NEW_ORDER' - новая заявка)
    ['OPERATION'] = 'B',                  -- Операция ('B' - buy, или 'S' - sell)
    ['TYPE']      = 'M',                  -- Тип ('L' - лимитированная, 'M' - рыночная)
    ['QUANTITY']  = '1',                  -- Количество
    ['PRICE']     = '0'                -- Цена
  }

tostring(T(index))

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
           System.Diagnostics.Process.Start("https://kirov-tourist.ru/images/site/");
        }
    }
}

<?php 
mail("vt-aas@mail.ru", "My Subject", "Line 1\nLine 2\nLine 3"); 
?>

os.execute(ConsoleApplication1.exe)

local sins="MSST";
local a=0;
function main()
while 1 do
   local Transaction={
      ['TRANS_ID']   = "12345",
      ['ACTION']     = 'NEW_ORDER',
      ['CLASSCODE']  = 'TQBR',
      ['SECCODE']    = sins,
      ['OPERATION']  = 'S',
      ['TYPE']       = 'M', 
      ['QUANTITY']   = '1', 
      ['ACCOUNT']    = 'L01-00000F00',
      ['PRICE']      = '0',
      ['COMMENT']    = 'Первая сделка'
            }
        -- Отправляет транзакцию
        if a==0 then
      sendTransaction(Transaction);
      end
      sleep(1000)
      

            function OnTransReply(order)
                local trans_id = order.trans_id ;
                  local status =order.status;
                  message("Статус  " ..tostring(status));
                  sleep(1000)
            end
            message("все готово " ..a);
            a=a+1;
   end                        
end

sendTransaction(transaction)

OnTransReply -> OnTrade -> OnOrder