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

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

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