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

local LastStatus    = nil
local trans_id=1

local stopped = false
function OnStop()
   stopped = true
   return 2000
end

function main()

 while stopped == false do

 trans_id=trans_id+1
local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT0000",
                  ["OPERATION"] = "B",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "SRU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(trans_id),
                     ["TYPE"] = "M",
                     }
         local result = sendTransaction(OrderSell)

   sleep(1000)
   end
  end


function OnTransReply(trans_reply)
   if trans_reply.trans_id == trans_id then
      if trans_reply.status == LastStatus then return else LastStatus = trans_reply.status end
           if       trans_reply.status == 0    then message('OnTransReply(): Транзакция отправлена серверу')
            elseif   trans_reply.status == 1    then message('OnTransReply(): Транзакция получена на сервер QUIK от клиента')
            elseif   trans_reply.status == 2    then message('OnTransReply(): Ошибка')
            elseif   trans_reply.status == 3    then message('OnTransReply(): ТРАНЗАКЦИЯ ВЫПОЛНЕНА')
         end
   end
end

local stopped = false
function OnStop()
   stopped = true
   return 1000
end

function main()

   local Table = AllocTable()
   AddColumn(Table, 1,"FXRL", true, QTABLE_DOUBLE_TYPE, 18)
   CreateWindow(Table)
   SetWindowCaption(Table, "table")
   SetWindowPos(Table, 0, 10, 400, 90)

   InsertRow(Table, -1)

   while stopped == false do

      Quotes_1 = getQuoteLevel2("TQTF", "FXRL")

      if Quotes_1 then

         offer_1= tonumber(Quotes_1.offer_count)
         fxrl_pr = tonumber(Quotes_1.offer[1].price)
         SetCell(Table, 1, 1, tostring(fxrl_pr))

      end

      sleep(1000)
   end
end

if Quotes_1 then
  xxxx
end

if Quotes_1 ~= nil then
    xxxxx
end

local xxx=100

local stopped = false
function OnStop()
   stopped = true
   return 1000
end

function main()

   local Table = AllocTable()
   AddColumn(Table, 1,"FXRL", true, QTABLE_DOUBLE_TYPE, 18)
   CreateWindow(Table)
   SetWindowCaption(Table, "table")
   SetWindowPos(Table, 0, 10, 400, 90)

   InsertRow(Table, -1)

   while stopped == false do

      if xxx>0 then
         Quotes_1 = getQuoteLevel2("TQTF", "FXRL")
         offer_1= tonumber(Quotes_1.offer_count)
         fxrl_pr = tonumber(Quotes_1.offer[1].price)
         SetCell(Table, 1, 1, tostring(fxrl_pr))

      end

      sleep(1000)
   end
end

   if xxx>1 then

      while stopped == false do

         Quotes_1 = getQuoteLevel2("TQTF", Code_1)

        end

local quantity=2
local id=1

function main()
   for i=0,quantity,1 do
      local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT0000",
                  ["OPERATION"] = "B",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "SRU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(ID),
                     ["TYPE"] = "M",
                     }
         local Err_Order = sendTransaction(OrderSell)
   end
end

function main()
      ID=10
      
      if cond>100 then 
         ID=ID+1
         local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT0000",
                            ["OPERATION"] = "S",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "SRU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(ID),
                     ["TYPE"] = "M",
                     }
         local Err_Order = sendTransaction(OrderSell)
      end
      
end

function main()

   local a1 = getFuturesHolding("SPBFUT", "SPBFUT***","SRU0",0).totalnet
   local a2 = getFuturesHolding("SPBFUT", "SPBFUT***","LKU0",0).totalnet



      message("Sber   "..a1.."\nLkon   "..a2)

end

local stopped = false
function OnStop()
   stopped = true
   return 2000
end


function main()


local Table = AllocTable()
AddColumn(Table, 1,"Data", true, QTABLE_DOUBLE_TYPE, 18)

CreateWindow(Table)
SetWindowCaption(Table, "Data table")
SetWindowPos(Table, 0, 10, 380, 80)


InsertRow(Table, -1)

   while stopped == false do

      Quotes_1 = getQuoteLevel2("SPBFUT", "SRU0")

      Bid_Count_1 = tonumber(Quotes_1.bid_count)

      if Bid_Count_1>1 then
         aa= tonumber(Quotes_1.bid[Bid_Count_1].quantity)
         SetCell(Table, 1, 1, tostring(aa))
      end

      local asset = getFuturesHolding("SPBFUT", "SPBFUT****","SRU0",0).totalnet

      repeat

            if aa>1 and asset>0 then

               local ID_B_Order=10
               local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT****",
                            ["OPERATION"] = "S",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "SRU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(ID_B_Order),
                     ["TYPE"] = "M",
                     }
               local Err_Order = sendTransaction(OrderSell)
               message(Err_Order)
            end

            asset=asset-1

            sleep(1000)

      until asset==0
      --return

      sleep(3000)
   end

end

function main()

   while stopped == false do

      local portfolio = getFuturesHolding("SPBFUT", "SPBFUT***","LKU0",0).totalnet


      if portfolio==0 then
         
         --заявка на покупку LKU0

      elseif portfolio==1  then

         --заявка на покупку SRU0

      end

      sleep(1000)
   end
en

function main()
local portfolio = getFuturesHolding("SPBFUT", "SPBFUT****","LKU0",0).totalnet

      message(type(portfolio))
end

local stopped = false                                                                                                -- переменная управляющая основным циклом скрипта если значение false цикл работает, если true цикл останавливается и выполнение скрипта заканчивается.
function OnStop()                                                                                                   -- функция обратного вызова OnStop() вызывается терминалом QUIK в случае нажатия кнопки "Остановить" в окне "Доступные скрипты"
   stopped = true                                                                                                   -- изменение значения переменной stopped на true, для остановки основного цикла скрипта
   return 2000
end

function main()

   while stopped == false do

      local portfolio = getFuturesHolding("SPBFUT", "SPBFUT***","LKU0",0).totalnet

      if portfolio=="0" then
         local ID_B_Order=10
         local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT***",
                            ["OPERATION"] = "B",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "LKU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(ID_B_Order),
                     ["TYPE"] = "M",
                     }
               message(Err_Order)
            local Err_Order = sendTransaction(OrderSell)


            while Status_B_Order == nil and Err_Order == "" do
               sleep(10)
            end
            ID_B_Order = ID_B_Order + 1
      end

      sleep(1000)
   end

end

local stopped = false                                                                                                -- переменная управляющая основным циклом скрипта если значение false цикл работает, если true цикл останавливается и выполнение скрипта заканчивается.
function OnStop()                                                                                                   -- функция обратного вызова OnStop() вызывается терминалом QUIK в случае нажатия кнопки "Остановить" в окне "Доступные скрипты"
   stopped = true                                                                                                   -- изменение значения переменной stopped на true, для остановки основного цикла скрипта
   return 2000
end

function main()

   while stopped == false do
      local ID_B_Order
      local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT*****",
                            ["OPERATION"] = "B",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "LKU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(ID_B_Order),
                     ["TYPE"] = "M",
                     }
            message(Err_Order)
            local Err_Order = sendTransaction(OrderSell)

            while Status_B_Order == nil and Err_Order == "" do
               sleep(10)
            end
   end

end

function main()
     --какой-то код    
     sleep(1000)
End

repeat
   local asset = getFuturesHolding("SPBFUT", "SPBFUTJRkUv","LKU0",0).totalnet
   local Err_Order = sendTransaction(LimitOrderSell)
until asset = asset-1