Дмитрий Минеев (Все сообщения пользователя)

firm_id = "SPBFUT000000"
client_code = "10260"
class_code = "SPBFUT"
sec_code = "RIZ8"

result = getBuySellInfo(firm_id, client_code, class_code, sec_code, 0)

message(tostring(result.can_buy))

function main()   
   local last_change = getParamEx('QJSIM',  'GAZP', "LASTCHANGE")
   
   message("result:" .. tostring(last_change.result) .. ", value = " .. tostring(last_change.param_value) .. ", image = " .. tostring(last_change.last_change))
   
end

table_id = AllocTable()
AddColumn(table_id, 0,    'Hist. min (HMin), (руб)',      true,   QTABLE_DOUBLE_TYPE,   17)
CreateWindow(table_id)

stopped = false

function main()   
   ds, err = CreateDataSource('QJSIM', 'GAZP', INTERVAL_M1, 'bid')
   while (err == "" or err == nil) and ds:Size() == 0 do
      sleep(5)
   end

   if err ~= "" and err ~= nil then
      message("Error: " .. err)
      return
   end

   message("size:" .. tostring(ds:Size()))
   
   ds:SetUpdateCallback(myFunc)

   while stopped ~= true do
      sleep(50)
   end
end

function myFunc(index)
   message(tostring(index))
end

--Send limit or market order
function SendOrder(operation, price, quantity, type_order, comment)
   
   -- Если это маркет заявка и цена не указана, то подставим цену в зависимости от типа заявки
   if type_order == "M"
      and price == 0 then
      
      if operation == "B" then         
         price = tonumber(getParamEx(params.p_classcode, params.p_seccode, "pricemax").param_value)
      elseif operation == "S" then
         price = tonumber(getParamEx(params.p_classcode, params.p_seccode, "pricemin").param_value)
      end
      
   end
   
   transaction = {
      ["CLASSCODE"] = params.p_classcode,
      ["ACTION"]="NEW_ORDER",
      ["ACCOUNT"]=params.account,
      ["OPERATION"] = operation,
      ["SECCODE"] = params.p_seccode,
      ["PRICE"] = tostring(round(price)),
      ["QUANTITY"] = tostring(quantity),
      ["TYPE"] = tostring(type_order),
      ["Условие исполнения"]=tostring("Поставить в очередь"),
      ["Переносить заявку"] = tostring("Да"),
      ["Дата экспирации"] = os.date("%Y%m%d", os.time() + 60 * 60 * 24),
   }
   
   --Check connection
   if isConnected == 0 then
      WriteLog("SendOrder", "Try to send limit in offline mode")
   else
      transaction.TRANS_ID = tostring(trans_id)
      transaction.CLIENT_CODE = comment
      res = sendTransaction(transaction)
   end
   
   if string.len(res) ~= 0 then
      message(res)
   end
   
end

transaction = {
      ["ACTION"] = "NEW_STOP_ORDER",
      ["ACCOUNT"] = account,
      ["CLASSCODE"] = class_code,
      ["SECCODE"] = sec_code,
      ["OPERATION"] = operation,      
      ["QUANTITY"] = tostring(quantity),
      ["STOPPRICE"] = tostring(price), -- Стоп условие      
      ["PRICE"] = tostring(price2), -- Цецна исполнения
   }
   
   --Check connection
   if isConnected == 0 then
      message("Try to send limit in offline mode", 1)
   else
      transaction.TRANS_ID = tostring(trans_id)
      transaction.CLIENT_CODE = comment
      res = sendTransaction(transaction)
      
      if string.len(res) ~= 0 then
         -- Ошибка отправки
         message("send message = " .. tostring(res), 1)
      end
   end
 

transaction = {
      ["CLASSCODE"] = class_code,
      ["SECCODE"] = sec_code,
      ["ACTION"] = "NEW_STOP_ORDER",
      ["ACCOUNT"] = account,
      ["OPERATION"] = operation,      
      ["QUANTITY"] = tostring(quantity),
      ["STOPPRICE2"] = tostring(price)
      ["PRICE"] = tostring(price2),      
      ["STOP_ORDER_KIND"] = "SIMPLE_STOP_ORDER",
      ["EXPIRY_DATE"] = "GTC",
   }
   
   --Check connection
   if isConnected == 0 then
      message("Try to send limit in offline mode", 1)
   else
      transaction.TRANS_ID = tostring(trans_id)
      transaction.CLIENT_CODE = comment
      res = sendTransaction(transaction)
      
      if string.len(res) ~= 0 then
         -- Ошибка отправки
         message("send message = " .. tostring(res), 1)
      end
   end
    

package.cpath = ";;f:\\lua\\5.1\\clibs\\?51.dll;f:\\lua\\5.1\\clibs\\?.dll;"
package.path = ";;f:\\lua\\5.1\\lua\\?.lua;"
require'iuplua'

...terminals\QUIK Junior\scripts\RangeForTrade\test.lua:1: module 'iuplua' not found:
   no field package.preload['iuplua']
   no file '.\iuplua.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\lua\iuplua.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\lua\iuplua\init.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\iuplua.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\iuplua\init.lua'
   no file 'F:\Lua\5.1\clibs\iuplua51.dll'
   no file '.\iuplua.dll'
   no file '.\iuplua.so'
   no file '..\lib\iuplua.so'
   no file '..\lib\vc_dll\iuplua.dll'
   no file '..\lib\bcc_dll\iuplua.dll'
   no file '..\lib\mingw_dll\iuplua.dll'
   no file '.\iuplua.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\lua\iuplua.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\lua\iuplua\init.lua'
   no file 'F:\work\trade\ММВБ\terminals\QUIK Junior\iuplua.lua'
   no file 'F:\work\trade\ММВ
 

";;F:\Lua\5.1\clibs\?51.dll;.\?.dll;.\?.so;..\lib\?.so;..\lib\vc_dll\?.dll;..\lib\bcc_dll\?.dll;..\lib\mingw_dll\?.dll;;;;F:\lua\5.1\lua\?.luac"
 

package.cpath =  ";;F:\Lua\5.1\clibs\?51.dll;.\?.dll;.\?.so;..\lib\?.so;..\lib\vc_dll\?.dll;..\lib\bcc_dll\?.dll;..\lib\mingw_dll\?.dll;;;;F:\lua\5.1\lua\?.luac;" .. package.cpath

require"iuplua"
 

error loading module 'iuplua' from file 'C:\Program Files (x86)\Lua\5.1\clibs\iuplua51.dll':
   C:\Program Files (x86)\Lua\5.1\clibs\iuplua51.dll:1: '=' expected near 'ђ'
 

require"bit"