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

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

Tue Aug 29 11:21:47 2023,getDepoEx currentbal=0.0
Tue Aug 29 11:21:47 2023,выставляем заявку
Tue Aug 29 11:21:48 2023,getDepoEx currentbal=10.0
Tue Aug 29 11:21:48 2023,OnDepolimit currentbal=10.0

while getDepoEx(Firm_ID, Client_code, _ticker_buy, Account, 2) == nil
do
sleep(100)
end
while tonumber(getDepoEx(Firm_ID, Client_code, _ticker_buy, Account, 2).currentbal) < 1
do
sleep(100)
end

local z;  while (z==nil) or (z.currentbal<1) do z=getDepoEx(Firm_ID, Client_code, _ticker_buy, Account, 2) end 

function main()
   local time;
    while is_run do
    if time>58 then
            message("Секунды превысили значение 58!")
     end
     sleep(100)
   time=string.sub(getInfoParam("SERVERTIME"),-2);
    end
end

function OnStop()
    is_run = false
end

local time_pos=string.gsub(getInfoParam("SERVERTIME"), ":", "");