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

    f = io.open(file,"+a");
   i = 0;
   while(f == nil) do
       i = i + 1;
      if i == 2000 then
         message("Не могу открыть для записи файл "..file);
            sleep(5000);
            error("");
      end;            
            f = io.open(file,"+a");
       sleep(1);
   end;

["ORDER_KEY"] = tostring(keyNumber)

z4 = tonumber(z.bid[z1].price)

if z.bid[i].quantity ~= nil then

 while stopped == false do

         Quotes_1 = getQuoteLevel2("TQTF", "FXRL");
             if Quotes_1 then
                ----
             end;
 
      sleep(1000)
 end

if portfolio==0 then

end;
if portfolio==1 then

end;

local timeWfinish = os.time() + 5;
while portfolio==0 do
    portfolio = getFuturesHolding("SPBFUT", "SPBFUT***","LKU0",0).totalnet;
        if os.time() > timeWfinish then
          message("Вышло время ожидания portfolio");
          error("");
        end; 
    sleep(100);
end;

local c1 = getParamEx2(CLASS_CODE, SEC_CODE, "TRADINGSTATUS");
               if (c1.result == "1") then
                  if c1.param_image ~= "открыта" then
                     message("Сессия "..c1.param_image);
                     flag_Session = false;
                  end;
               end;

if string.len(Tl.hour) == 1 then Tl.hour = "0"..Tl.hour; end;
            if string.len(Tl.min) == 1 then Tl.min = "0"..Tl.min; end;
               if string.len(Tl.sec) == 1 then Tl.sec = "0"..Tl.sec; end;

If string.len(alltrade.datetime.min)=2 then

Myfilefile = "\\MyData.txt";
   i = 0;
   while i == 0 do
      Myfile = io.open(getScriptPath()..Myfilefile,"r+");
-- Если файл занят      
      if Myfile == nil then 
         sleep(100);
      else
         i = 1;
      end;
   end;

    IsRun = true;
 tag = "macd26";
 
 function main()
  while IsRun do
   nl = getLinesCount(tag); --кол-во линий в индикаторе
   nc = getNumCandles(tag); --кол-во получаемых свечек, начина¤ с 0-ой
    first_candle = nc - 3; --получаем три последнюю
    count = 3; --заказываем три последнюю
     t, n, l = getCandlesByIndex (tag, 0, first_candle, count); --получаем таблицу с инфо по MACD
--     t, n, l = getCandlesByIndex (tag, 1, first_candle, count); --получаем таблицу с инфо по signal line     
...
...
...
  sleep(100);  
  end;
 end;
 function OnStop()
        IsRun = false;
    end; 

function OnConnected(fl)
 flag_Connected = true;
 message("OnConnected");
end;
function OnCleanUp()
 flag_CleanUp = true;
 message("OnCleanUp");
end;

dofile(getScriptPath().."\\Myfile.lua");

Pathdofile = getScriptPath().."\\Myfile.lua";
 Checkdofile(Pathdofile);

function Checkdofile(Pathdofile)
 local Mydofile = io.open(Pathdofile,"r+");
    if Mydofile == nil then 
  message("Не нашел файл ".. Pathdofile);
  error("");
    end;
 Mydofile:close();
end;

function OnOrder(order)
 if (order.trans_id == trans_id) then
  order_num = order.order_num; --номер заявки
   flag_OnOder = true;  --именно наша заявка
    return;
 end;
end;

    Size = ds:Size();
    T = ds:T(Size);
    O = ds:O(Size);
    H = ds:H(Size);
    L = ds:L(Size);
    C = ds:C(Size);