function OnOrder(trans_order)
PrintDbgStr("В онордере прошло событие flag ="..tostring(flag))
PrintDbgStr("статус в онордере " .. tostring(coroutine.status(co)))
--if coroutine.status(co) == "running" then coroutine.resume(co) end
   if flag and trans_order["sec_code"] == SECCODE and trans_order["brokerref"] == COMMENT_ALL and trans_order["class_code"] == CLASSCODE then 
      table.sinsert(ORDER_TABLE,1,trans_order) 
      PrintDbgStr("Прошли по условию в онордер")
      flag = false
      --if coroutine.status(co) == "normal" or coroutine.status(co) == "suspended" then coroutine.resume(co) end
      coroutine.resume(co)
   end
end
 

function bots()
   PrintDbgStr("В BOTS скрипте даем команду на продажу")
   PrintDbgStr(tostring(coroutine.status(co)))
   --_SellOpt(TRID_TRADE,2000,QTY,MODE,COMMENT_ALL)
   flag = true
   _SellOpt(TRID_TRADE,2000,QTY,MODE,COMMENT_ALL)
   PrintDbgStr("BOTS залип после продажи")
   coroutine.yield()
   PrintDbgStr("BOTS отлип после продажи")
   --sleep (5000)
   PrintDbgStr("приступаем к удалению")
   PrintDbgStr(tostring(coroutine.status(co)))
   --sleep(1000)
   
   num2 = _GetActiveOrdersNum()[1]
   PrintDbgStr("Выставлена заявка №".. tostring(num2))
   flag = true
   _KillOrder(num2,TRID_KILL)
   PrintDbgStr("BOTS залип после удаления")
   coroutine.yield()
   PrintDbgStr("BOTS отлип после удаления")
   --coroutine.resume(co)
end

is_run=true
flag = true


PrintDbgStr(COMMENT_ALL..": Инициализация прошла")
co = coroutine.create(bots)

function main( ... )
first = true


PrintDbgStr(tostring(coroutine.status(co)))
   while is_run do   
      PrintDbgStr("В основном скрипте пошел прогон")
      PrintDbgStr(tostring(coroutine.status(co)))
      if first then coroutine.resume(co)
         first = false
         end

      if coroutine.status(co) == "dead" then 
         co = coroutine.create(bots)
      end
      
      PrintDbgStr(tostring(coroutine.status(co)))

      sleep(200)
   end

end