os.date() .. " ".. proc_name .. "\n"

--константы
ds = {} --таблица datasource по инструментам
--переменные скрипта
is_run = true      --Режим работы скрипта, работает или остановлен
shares = {}      --Список акций
shares_count = 0   --Количество акций
SEC_PRICE_STEP=0 --шаг цены
t = nil   --Данные для визуальной таблицы
sec_code = "CRH3"
class_code = "SPBFUT"
QUANTITY = 1
MAX_QUANTITY = 1 --максимальное количество дозакупки


file_log = nul         --указатель на файл лога
count_error = 0    --количество ошибок

--Дополнительый поток
function main()
   while is_run do
      if IsWindowClosed(t) then
         is_run=false
         return        
      end   
      sleep(50)
   end
end

event_table = {
        [QTABLE_LBUTTONDBLCLK] = "Левый даблклик",
        [QTABLE_RBUTTONDBLCLK]  = "Правый даблклик",        
        [QTABLE_CLOSE] = "Закрыли таблицу"
        }

-- колбек на изменение данных. расчитывает в текущей свече данные ЕМА и показывает в таблице.
function collback_H1( index )
end


--События основного потока
function OnInit(quik_path)
   --Создаем структуру, описывающую таблицу
   t = AllocTable()

   --столбцы
   CreateWindow(t)
   SetWindowPos(t, 200, 200, 600, 110)
   SetTableNotificationCallback(t, table_str)
   

      InsertRow(t, -1)
      InsertRow(t, -1)
      InsertRow(t, -1)

    
-- заполняем таблицу используя сортировку по ключам
   SetCell(t, 2, 1, tostring(sec_code))

   SetCell(t, 3, 9, tostring(currentprice))
   SERVERTIME = getInfoParam("SERVERTIME")
   file_log, error_desc   = io.open(getScriptPath() .. "\\M15_".. sec_code ..".log", "a")
   if not file_log then 
      message("Ошибка получения файла лога:" .. error_desc)
   else
      writeToLog("OnInit")
      writeToLog(SERVERTIME)
   end
end

function OnStop()
   is_run = false
   DestroyTable(t)
   writeToLog("OnStop")   
end

--служебные функции
function quantity_total() --подсчет количество позиций
end

function price_total() --цена позиции
end

function table_str(t_id, msg, par1, par2)
   --par1 номер строки. par2 номер колонки
   if msg == QTABLE_CLOSE then 
      is_run=false
      return
   elseif (par1 == 3) and (par2 == 9) and (msg == QTABLE_LBUTTONDBLCLK) then
      
   end
end


function apply_scale(value) --округляем до шага цены
   return math.floor((tonumber(value) or 0)/SEC_PRICE_STEP+0.5)*SEC_PRICE_STEP
end

function format_scale(value, scale)
    return string.format("%."..scale .."f", tonumber(value) or 0)
end

function writeToLog(proc_name)
    file_log:write(os.date() .. " ".. proc_name .. "\n")
    file_log:flush()
end

    f, error_desc     =    io.open (  getScriptPath  ()   ..     "\\M15_"    ..   sec_code   ..   ".log" ,  "a" )
          if     not   f   then   
        message  (  "Ошибка получения файла лога:"     ..   error_desc)
     else  
      writeToLog(  "MA"     ..   tostring(MA))
     end      

  f, error_desc    =   io.open ( getScriptPath ()  ..   "\\M15_"  ..  sec_code  .. ".log",  "a" )
         if   not  f  then  
       message ( "Ошибка получения файла лога:"   ..  error_desc)
    else 
      writeToLog( "MA"   ..  tostring(MA))
    end   

    f   =     nil                --указатель на файл лога  
MA   =     0  
sec_code   =     "SRH3"  
  function    main ()
      while   is_run   do  
          if     IsWindowClosed  (t)   then  
            is_run  =    false  
              return          
          end   
        exMA()
        f, error_desc     =    io.open (  getScriptPath  ()   ..     "\\M15_"    ..   sec_code   ..   ".log" ,  "a" )
          if     not   f   then   
        message  (  "Ошибка получения файла лога:"     ..   error_desc)
     else  
      writeToLog(  "MA"     ..   tostring(MA))
     end  
          sleep  (  50  ) 
     end  
  end  

  function    writeToLog (proc_name)
    f:write( os.date ()   ..     " "    ..   proc_name   ..     "\n"  )
    f:flush()
  end  
    

f, error_desc   = io.open(getScriptPath() .. "\\M15_".. sec_code ..".log", "a")
        if not f then 
      message("Ошибка получения файла лога:" .. error_desc)
   else
      writeToLog("MA" .. tostring(MA))
   end

  f  =   nil              --указатель на файл лога 
MA  =   0 
sec_code  =   "SRH3" 
 function   main ()
     while  is_run  do 
         if   IsWindowClosed (t)  then 
            is_run =  false 
             return         
         end  
        exMA()
        f, error_desc    =   io.open ( getScriptPath ()  ..   "\\M15_"  ..  sec_code  .. ".log",  "a" )
         if   not  f  then  
       message ( "Ошибка получения файла лога:"   ..  error_desc)
    else 
      writeToLog( "MA"   ..  tostring(MA))
    end 
         sleep ( 50 ) 
    end 
 end 

 function   writeToLog (proc_name)
    f:write( os.date ()  ..   " "  ..  proc_name  ..   "\n" )
    f:flush()
 end 
  

f = nil            --указатель на файл лога
MA = 0
sec_code = "SRH3"
function main()
    while is_run do
        if IsWindowClosed(t) then
            is_run=false
            return        
        end 
        exMA()
        f, error_desc   = io.open(getScriptPath() .. "\\M15_".. sec_code ..".log", "a")
        if not f then 
      message("Ошибка получения файла лога:" .. error_desc)
   else
      writeToLog("MA" .. tostring(MA))
   end
        sleep(50) 
   end
end

function writeToLog(proc_name)
    f:write(os.date() .. " ".. proc_name .. "\n")
    f:flush()
end