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

n = getNumberOf("trades")
   for i=0,n-1 do
      local t = getItem("trades", i)
                if t.capacity==11 then   
                -- это Market maker
                end
   end

paths = "D:/nkarray/"
package.cpath =paths.."?.dll";
require"nkarray"
require"nkthread"
path = "D:/QUIK_SCRIPT/nk_bot/"
event=nkevent.Create("event");

local acc="NL0011100043"
local firmid="NC0011100000"
local firmid_f="SPBFUT000000"
local Client_code="10590"
local acc_f="SPBFUT000ie"
local sec_code="SBER"
local class_code="QJSIM"


Order_buy = {
["ACTION"]="NEW_ORDER",
["ACCOUNT"] = tostring(acc),
["CLIENT_CODE"] = Client_code,
["TYPE"] = "M",
["TRANS_ID"] = 0,
["CLASSCODE"] = class_code,
["SECCODE"] = sec_code,
["OPERATION"] = "B",
["PRICE"] = "0",
["QUANTITY"] = "1",
["EXPIRY_DATE"]="TODAY",
}

function main()
local f=0;
local trans_id=1;
 while true do
   nkevent.wait(event); --ждем события
      local z=getDepoEx(firmid, Client_code,sec_code,acc,0); --или 2
      if z then z=z.currentbal;
      Log:write(os.date()..",getDepoEx currentbal="..tostring(z).."\n");   Log:flush();
      end
      if f==0 then
      Log:write(os.date()..",выставляем заявку\n");   Log:flush();
      Order_buy.TRANS_ID=tostring(trans_id);
      local res = sendTransaction(Order_buy);
      if res ~="" then    message("Ошибка транзакции:"..res) else trans_id=trans_id+1; end
      f=1;
      local z=getDepoEx(firmid, Client_code,sec_code,acc,0).currentbal;
      Log:write(os.date()..",getDepoEx currentbal="..tostring(z).."\n");   Log:flush();
--         f=0;
   end
end
end

function OnDepoLimit(t)
   sec=t.sec_code -- STRING  Код инструмента
   acc=t.trdaccid  --STRING  Счет депо
   firm=t.firmid  --STRING  Идентификатор фирмы
   client=t.client_code--  STRING  Код клиента
   cur=t.currentbal -- NUMBER  Текущий остаток
 Log:write(os.date()..",OnDepolimit currentbal="..tostring(cur).."\n"); Log:flush();
 nkevent.Set(event);
end

function OnInit(pfile)
path = getScriptPath();
Log=io.open(path.."/forum_test.log","w") --лог файл
 fconnect=isConnected();
 end

function OnParam(c,s)
 nkevent.Set(event);
end