ошибка в использовании io

--константы
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