global_cntr=0;

------------------------------------------------------------------------------------------------my_callback_CreateDataSource_SBER:Начало-----------------------------------------------------------------------------------------------

function my_callback_CreateDataSource_SBER(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_, idx)

message("SIZE_TABLE:" ..tostring(my_table_data_history_candle_:Size()) .. "\n" .. ":" ..  code_paper_ ..":" .. interval_string_..":" ..tostring(my_table_data_history_candle_:C(idx))  )



if global_cntr == 13 then       -- на 13 вызов callback`а Сбера отписываемся от колбека Сбера
my_table_data_history_candle_:Close()     --отписываемся от callback`а SBER.
message("CLOSE SBER CALLBACK")
end
global_cntr=global_cntr+1


end
---------------------------------------------------------------------------------------------my_callback_CreateDataSource_SBER:Конец-----------------------------------------------------------------------------------------------




------------------------------------------------------------------------------------------------my_callback_CreateDataSource_GAZP:Начало-----------------------------------------------------------------------------------------------
function my_callback_CreateDataSource_GAZP(my_table_data_history_candle_, code_class_, code_paper_, interval_, interval_string_, idx)


message("my_callback_CreateDataSource_HISTORY_2 - НЕ ВЫЗЫВАЕТСЯ")


end
------------------------------------------------------------------------------------------------my_callback_CreateDataSource_GAZP:Конец-----------------------------------------------------------------------------------------------









-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------

function main()

message("start")

local code_class_1= "TQBR"          
local code_paper_1= "SBER"
local intervakla_1= INTERVAL_M1
local intervakla_string_1 = "INTERVAL_M1"


local my_table_1, error_desc_1 = CreateDataSource(code_class_1, code_paper_1, intervakla_1)  


------------------------Проверка на ошибки:-------------------
if error_desc_1 ~= nil then 
message("1:" .. error_desc_1)
end
--------------------------------------------------------------


status = my_table_1:SetUpdateCallback(function(idx)my_callback_CreateDataSource_SBER(my_table_1, code_class_1, code_paper_1, intervakla_1, intervakla_string_1, idx) end)  --Подписываемся на колбек Сбера.




--Ждем пока не вызовется 13-ый по счета вызов колбек Сбера в котором произойдет отписка от колбека. После чего - подписываемся на SetUpdateCallback для Газпрома:
while not stopped do 

sleep(1)

if global_cntr == 14 then

message("START_2")

code_class_2= "TQBR"          
code_paper_2= "GAZP"
intervakla_2= INTERVAL_M5
intervakla_string_2 = "INTERVAL_M5"



my_table_2, error_desc_2 = CreateDataSource(code_class_2, code_paper_2, intervakla_2)  


------------------------Проверка на ошибки:-------------------
if error_desc_2 ~= nil then 
message("1:" .. error_desc_2)
end
--------------------------------------------------------------------------
--Ошибок нет:


message("START_SetUpdateCallback_2")

status1 = my_table_2:SetUpdateCallback(function(idx)my_callback_CreateDataSource_GAZP(my_table_2, code_class_2, code_paper_2, intervakla_2, intervakla_string_2, idx) end)

message(tostring(status1))  --Статус 0: ошибок нет, НО my_callback_CreateDataSource_GAZP - НИКОГДА НЕ ВЫЗОВЕТСЯ.

global_cntr = global_cntr + 1

message("END")
break

end


end 







-------------------------
while not stopped do 
sleep(1)
end 
-------------------------

message("NOT END")

end -- end main()