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

Log=io.open("D:/test.log","w") --лог файл
tparam={}

function main()
   local firm,account,client,x;
   while true do
      while #tparam>0 do
         local t=tparam[1];
      local clas=t[1]; local sec=t[2]; w=nil;    local z=string.find(clas,'FUT');
         for i=0,getNumberOf("client_codes")-1 do
            x=getItem("client_codes",i); if x~="" then if string.find(clas,'FUT')==z then  client=x; break; end end
         end
         for i=0,getNumberOf("trade_accounts")-1 do
            x=getItem("trade_accounts",i);
            if string.find(x.class_codes,clas) and x.status==0 then firm=x.firmid; account=x.trdaccid;break; end
         end
         Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
         local t1=getDepo(client,firm,sec,account);
         Log:write("type="..type(t1).."\n");Log:flush();
         table.sremove(tparam, 1)
      end
      sleep(1);
   end
end
--------------
function OnInit(pfile)    sleep(1000); end
-------------------
function OnParam(c,s)    table.sinsert(tparam,{c,s}); end 

Log=io.open("D:/test.log","w") --лог файл
------------------------
tparam={}
function main()
   local firm,account,client,x;
   while true do
      while #tparam>0 do
         local t=tparam[1]; local clas=t[1]; local sec=t[2]; w=nil;
         local z=string.find(clas,'FUT');
         for i=0,getNumberOf("client_codes")-1 do
            x=getItem("client_codes",i);
            if e~="" then local z1=string.find(clas,'FUT');if z1==z2 then  client=x; break; end end
         end
--------------------
         for i=0,getNumberOf("trade_accounts")-1 do
            x=getItem("trade_accounts",i);
            if string.find(x.class_codes,clas) and x.status==0 then firm=x.firmid; account=x.trdaccid;break; end
         end
----------------------------------
         Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
         local t1=getDepo(client,firm,sec,account);
         Log:write("type="..type(t1).."\n");Log:flush();
         table.sremove(tparam, 1)
      end
      sleep(1);
   end
end
--------------
function OnInit(pfile)    sleep(1000); end
-------------------
function OnParam(c,s)    table.sinsert(tparam,{c,s}); end 

clas=QJSIM,sec=APTK,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=CHKZ,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=DIOD,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=KROT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=KZOSP,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=LIFE,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=RNFT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=SBER,firm=NC0011100000,account=NL0011100043,client=10323