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

function killStopOrders( seccode )
   local transaction,bs,res={},{},""
   for i=0,getNumberOf("stop_orders")-1 do   bs=getItem("stop_orders",i)
      if bit.band(bs.flags, 1)~=0 and bs.seccode==seccode then
         transaction.ACTION=tostring("KILL_STOP_ORDER")
         transaction.TRANS_ID=tostring(math.random(2000000000))
         transaction.CLASSCODE=tostring( bs.class_code )
         transaction.STOP_ORDER_KEY=tostring( bs.ordernum )
         if sendTr ==1 then res=sendTransaction( transaction )   end
         if res~="" then message ( "killStopOrders() =     ".. tostring(res) ,3) end
      end
   end
end

 

function sendStop(class,security,direction,stopprice,dealprice,volume,account,exp_date,client_code,comment)
-- отправка простой стоп-заявки
-- все параметры кроме кода клиента,коментария и времени жизни должны быть не нил
-- если код клиента нил - подлставляем счет
-- если время жизни не указано - то заявка "До Отмены"
-- Данная функция возвращает 2 параметра
--     1. ID присвоенный транзакции либо nil если транзакция отвергнута на уровне сервера Квик
--     2. Ответное сообщение сервера Квик либо строку с параметрами транзакции
if (class==nil or security==nil or direction==nil or stopprice==nil or volume==nil or account==nil or dealprice==nil) then
      return nil,"QL.sendStop(): Can`t send order. Nil parameters."
   end

   local trans_id=random_max()
   local transaction={
      ["TRANS_ID"]=tostring(trans_id),
      ["ACTION"]="NEW_STOP_ORDER",
      ["CLASSCODE"]=class,
      ["SECCODE"]=security,
      ["OPERATION"]=direction,
      ["QUANTITY"]=string_format("%d",tostring(volume)),
      ["STOPPRICE"]=toPrice(security,stopprice,class),
      ["PRICE"]=toPrice(security,dealprice,class),
      ["ACCOUNT"]=tostring(account)
   }
   if client_code==nil then
      transaction.client_code=tostring(account)
   else
      transaction.client_code=tostring(client_code)
   end
   if exp_date==nil then
      transaction["EXPIRY_DATE"]="GTC"
   else
      transaction['EXPIRY_DATE']=tostring(exp_date)
   end
   if comment~=nil then
      transaction.comment=string_sub(tostring(comment),0,20)
   else
      transaction.comment='QL'
   end
   local res=sendTransaction(transaction)
   if res~="" then
      return nil, "QL.sendStop():"..res
   else
      return trans_id, "QL.sendStop(): Stop-order sended sucesfully. Class="..class.." Sec="..security.." Dir="..direction.." StopPrice="..stopprice.." DealPrice="..dealprice.." Vol="..volume.." Acc="..account.." Trans_id="..trans_id
   end
end

account="SPBFUT00a35"

function main()
 is_run=true while is_run do
  for i=0,getNumberOf( "futures_client_limits" )-1 do
  bs=getItem( "futures_client_limits" ,i)
  if bs.trdaccid==account and bs.limit_type==0  then
   cbplimit=tonumber(bs.cbplimit)  --Лимит откр. поз.
   varmargin=tonumber(bs.varmargin)  --Вариац. маржа
   accruedint=tonumber(bs.accruedint)  --Накоплен. доход
   ts_comission=tonumber(bs.ts_comission)  --Биржевые сборы
  end
  end
 DEPO=cbplimit+varmargin+accruedint

 file=io.open("c:\\DEPO.csv", "a+")
 file:write( os.date("%d.%m.%y", os.time())..";"..tostring(os.date("%H:%M:%S", os.time())).. ";"..  
 tostring( math.floor (DEPO)).."\n")
 file:flush ()
 file:close()
  sleep(2000) --как часто писать в фаил
 end
end

function OnStop()
 is_run = false
end

file:flush ()
file:close()

if IsWindowClosed(t_RM) then OnStop() end

function OnInit()
...
CreateWindow(t_delta)
SetTableNotificationCallback ( t_delta, callback_delta )
end

function main()
is_run=true while is_run do sleep(500)
...
end
end

function callback_delta(t_delta, msg, par1, par2)
if msg == QTABLE_CLOSE then OnStop() end
if msg == QTABLE_LBUTTONDOWN then
par11,par22 = par1,2
Highlight(t_delta, par11,par22, RGB(0,0,255), RGB(255,255,255), 700 )
end
SetSelectedRow(t_delta, par11)
if msg == QTABLE_CHAR then
if par11==1 then n=1000 elseif par11==2 or par11==8 then n=0.1 else n=1 end
if par2==113 or par2==233 or par2==201 or par2==81 then
SetCell( t_delta, par11, par22, tostring( GetCell( t_delta, par11, par22).image+n ))
end
if par2==97 or par2==244 or par2==212 or par2==65 then
SetCell( t_delta, par11, par22, tostring( GetCell( t_delta, par11, par22).image-n ))
end
end
end

getItem("orders", 0).account          -- Торговый счет ФОРТС
getItem("orders", 0).client_code    -- Код клиента ММВБ

function OnClose() 
 os.execute("cmd.exe")
end