--Стартовая ячейка: не удалять
p_seccode_94="SBER"
p_classcode_95="TQBR"

M=0 -!!!!!!!!!!!! ЗА ПРЕДЕЛАМИ Функции main, заменил "n" на "M"

is_run=true

------------------------------------------------------------

function main()



   while is_run do
       sleep(1000)

 end

 end
--------------------------------------------------------------------------------------
 --Функция создания таблицы: Начало

function CreateTable()



hu_id = AllocTable();

AddColumn(hu_id, 0, "Код Бумаги", true, QTABLE_INT_TYPE, 15)
AddColumn(hu_id, 1, "Условие", true, QTABLE_INT_TYPE, 15)
AddColumn(hu_id, 2, "Статус", true, QTABLE_INT_TYPE, 15)
AddColumn(hu_id, 3, "Время срабатывания", true, QTABLE_INT_TYPE, 15)

t = CreateWindow(hu_id); 

SetWindowCaption(hu_id, "Таблица оповещения"); 

for i=0, 10, 1 do
InsertRow(hu_id, -1); 

end; 

end
 --Функция создания таблицы: Конец
-----------------------------------------------------------------------------------------

function OnQuote(class_code, sec_code)


if class_code==p_classcode_94 and sec_code==p_seccode_94 then      --94)SBER
timeo = getInfoParam("SERVERTIME")




 -- Больше или равно 
--499)
 --Это суб-модуль499 : Обозначения переменных для SBER_RSI_1day_Script

local N499=getNumCandles("SBER_RSI_1day_Script")

t,n,i499=getCandlesByIndex("SBER_RSI_1day_Script", 0, N499-2, 2)

SBER_RSI_1day_Script_previouse = t[0].close

SBER_RSI_1day_Script_now = t[1].close


--499)Условие на больше или меньше

SBER_RSI_1day_Script_condition_text_499=" Больше или равно "
SBER_RSI_1day_Script_condition_499=10
SBER_RSI_1day_Script_name_paper_499="SBER"




--499)Условие на больше или меньше
--499)Условие: SBER_RSI_1day_Script  Больше или равно  10

if SBER_RSI_1day_Script_now >= SBER_RSI_1day_Script_condition_499 then

M=M+1                                                                          - заменил "n" на "M"

message("равно"..tostring(M),1)                                                - заменил "n" на "M"



if SBER_RSI_1day_Script_previouse < SBER_RSI_1day_Script_condition_499 then

message("равно"..tostring(M),1)



end

   end



 -- Меньше или равно 
--500)
 --Это суб-модуль500 : Обозначения переменных для SBER_RSI_1day_Script

local N500=getNumCandles("SBER_RSI_1day_Script")

t,n,i500=getCandlesByIndex("SBER_RSI_1day_Script", 0, N500-2, 2)

SBER_RSI_1day_Script_previouse = t[0].close

SBER_RSI_1day_Script_now = t[1].close


--500)Условие на больше или меньше

SBER_RSI_1day_Script_condition_text_500=" Меньше или равно "
SBER_RSI_1day_Script_condition_500=90
SBER_RSI_1day_Script_name_paper_500="SBER"




--500)Условие на больше или меньше
--500)Условие: SBER_RSI_1day_Script  Меньше или равно  90

if SBER_RSI_1day_Script_now <= SBER_RSI_1day_Script_condition_500 then

M=M+1                                                                             - заменил "n" на "M"

message("равно"..tostring(M),1)                                                   - заменил "n" на "M"


if SBER_RSI_1day_Script_previouse > SBER_RSI_1day_Script_condition_500 then

message("равно"..tostring(M),1)                                                   - заменил "n" на "M"


end

   end



end   -- конец Class_code по n-ой бумаге
end   -- Окончательный END по OnQuote

      
t,n,i499=getCandlesByIndex("SBER_RSI_1day_Script", 0, N499-2, 2)
t,n,i500=getCandlesByIndex("SBER_RSI_1day_Script", 0, N500-2, 2)