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

7972 qFileRewrite1: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite2: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite3: name=C:\Open_Broker_QUIK\randseed.bin
10180 qFileRewrite1: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite2: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite3: name=C:\Open_Broker_QUIK\randseed.bin
7672 qFileRewrite1: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite2: name=C:\Open_Broker_QUIK\randseed.bin
qFileRewrite3: name=C:\Open_Broker_QUIK\randseed.bin

package.cpath=""
package.path=getScriptPath().."\\. .\\Modules\\?.lua"
require("mod_trading")

local param=getParamEx2(class_code,sec_code,"LAST")
if(param.result=="1")and(param.param_image~="")and(param.param_type=="1")then last=tonumber(param.param_value) end

function main()
  local transaction={
    ["TRANS_ID"]  = "12345",
    ["ACCOUNT"]   = "4103YEK",
    ["CLASSCODE"] = "SPBFUT",
    ["SECCODE"]   = "SiU1",
    ["ACTION"]    = "KILL_ORDER",
    ["ORDER_KEY"] = "1892946353983939919"
  }
  sendTransaction(transaction)
  sleep(1000)
end

function OnTransReply(trans_reply)
  local str="OnTransReply\n"
  for k,v in pairs(trans_reply) do
    str=str..tostring(k).."="..tostring(v).."\n"
  end
  message(str)
end

OnTransReply
result_msg=Заявка 1892946353983939919 снята. Неисполненный остаток: 8.
quantity=0,0
class_code=SPBFUT
firm_id=MC0139600000
server_trans_id=1841
error_code=0
brokerref=
uid=160707
client_code=4103YEK
trans_id=12345
sec_code=SiU1
date_time=table: 000001AAA41E6A70
price=0,0
balance=8,0
gate_reply_time=table: 000001AAA41E6CB0
status=3
first_ordernum=0
flags=2359297
error_source=0
exchange_code=
time=102038
account=
order_num=1892946353983939919

function FuturesClientHolding() -- Первоначальное заполнение позиций по срочному рынку
  local n=0
  while (n<try_count)and(getNumberOf('FUTURES_CLIENT_HOLDING')==0) do -- Ждем заполнения таблицы "Позиции по клиентским счетам (фьючерсы)"
    sleep(100)
    n=n+1
  end
  if getNumberOf('FUTURES_CLIENT_HOLDING')>0 then -- Таблица "Позиции по клиентским счетам (фьючерсы)" заполнена
    for i=0,getNumberOf('FUTURES_CLIENT_HOLDING')-1 do
      local tbl=getItem('FUTURES_CLIENT_HOLDING', i)
      if(type(tbl)=="table")and(tbl['firmid']==firmid)and(tbl['trdaccid']==account)and(tbl['sec_code']==sec_code)and(tbl['type']==0)then
        holding["TOTALNET"]  = tbl['totalnet']  -- Текушие позиции
        holding["OPENBUYS"]  = tbl['openbuys']  -- Активная покупка
        holding["OPENSELLS"] = tbl['opensells'] -- Активная продажа
        return true
      end
    end
  end
  -- Таблица "Позиции по клиентским счетам (фьючерсы)" пустая, либо в ней отсутствует искомый инструмент
  holding["TOTALNET"]  = 0
  holding["OPENBUYS"]  = 0
  holding["OPENSELLS"] = 0
  return false
end

dofile("C:\\Путь\\До\\Индикатора\\индикатор.lua")

transaction['TRANS_ID'] =  tostring(TRANS_ID)
transaction['ACTION'] = 'Ввод заявки'
transaction['CLASSCODE'] = 'QJSIM'
transaction['Торговый счет'] = 'NL0011100043'
transaction['Инструмент'] = 'SBER'
transaction['К/П'] = 'Купля'
transaction['Цена'] = '0'
transaction['Лоты'] = '1'
transaction['Тип'] = 'Рыночная'

transaction['TRANS_ID'] =  tostring(TRANS_ID)
transaction['ACTION'] = "NEW_ORDER"
transaction['QUANTITY'] = '1'
transaction['CLASSCODE'] = 'QJSIM'
transaction['ACCOUNT'] = 'NL0011100043'
transaction['SECCODE'] = 'SBER'
transaction['OPERATION'] = 'B'
transaction['PRICE'] = '0'
transaction['TYPE'] = 'M'

 ds = CreateDataSource("TQBR", "LKOH", INTERVAL_M1)

  local n=0
  while(ds:Size()==0)and(n<100)do sleep(100) n=n+1 end

test = tonumber(getParamEx(class_code,sec_code,"LAST").param_value) -- test=число
test = tonumber(getParamEx("", "", "")).param_value)                -- test=nil

local w32=require("w32")
local hWnd=w32.FindWindow("InfoClass","")
w32.PostMessage(hWnd,w32.WM_COMMAND,101,0)

    local tblTotalLot =     getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT ,LIMIT_KIND)    
    if tblTotalLot==nil     then TotalLots=0    else TotalLots=tonumber(tblTotalLot.currentbal)         end   

    params["LAST"] = tonumber(getParamEx2(class_code,sec_code,"LAST").param_value) or 0 -- Последняя цена

    if(Тут_мои_условия)and(Тут_мои_условия)and(params["LAST"]~=0)then Trading(trading_lots,i) end