local  code_class1  =   "TQBR" 
 local  code_paper1  =   "GAZP" 
 local  interval1    =  INTERVAL_TICK
 local  code_class2  =   "TQBR" 
 local  code_paper2  =   "SBER" 
 local  interval2    =  INTERVAL_TICK
 ------------------------ 
 local   function   my_cb_CDS (idx,tabl)
 message (tostring(tabl.sec) .. "," .. tostring(idx), 1 )
Sleep( 100 );
 end 
 -----------------------------------------------------------------------------------------------------------int main:----------------------------------------------------------------------------------------------------- 
 function   main ()
    while   not  stopped  do 
    if  tab1 =  =  nil   then  tab1  =   CreateDataSource (code_class1, code_paper1, interval1);
       if  tab1  then 
       tab1.clas = code_class1; tab1.sec = code_paper1; tab1.int = interval1;
         tab1: SetUpdateCallback ( function (idx) my_cb_CDS(idx,tab1)  end )
       end 
    end 
    if   tab2 =  =  nil   then  tab2 =   CreateDataSource (code_class2, code_paper2, interval2);
       if   tab2  then 
         tab2.clas = code_class2; tab2.sec = code_paper2; tab2.int = interval2;
         tab2: SetUpdateCallback (  function (idx) my_cb_CDS(idx, tab2)  end )
       end 
    end 
 ------------------------- 
 --   message(tostring(my_table1:Size()),1) 
    sleep ( 1000 )
    end 
 ------------------------- 
 end   -- end main() 
 function   OnInit (script_path)
 end 

  

function GetDS(p) -- функция закачки  данных
   local error_desc=""
   if p==1 then -- дневные
...
   elseif p==2 then -- тиковые
      dsa,error_desc=CreateDataSource(p_classcode, trw.p_seccode, INTERVAL_TICK)
      while not dsa or dsa:Size()==0 do
         local n=100
         while n>0 do
            sleep(100)
            if dsa and dsa:Size()>0 then break end
            n=n-1
         end
         if not dsa or dsa:Size()==0 then
            dsa,error_desc=CreateDataSource(p_classcode, trw.p_seccode, INTERVAL_TICK) -- повтор 
         end
         if error_desc~=nil and error_desc~="" then
            message("TICK, "..p_classcode.."/"..trw.p_seccode.."/".."Source2 error==>" .. error_desc)
            return 0
         end
      end
      dsa:SetEmptyCallback()
      return    dsa:Size()

   else
      return 0
   end
end

local code_class1 = "TQBR"
local code_paper1 = "GAZP"
local interval1   = INTERVAL_TICK
local code_class2 = "TQBR"
local code_paper2 = "SBER"
local interval2   = INTERVAL_TICK
------------------------
local function my_cb_CDS(idx,tabl)
message(tostring(tabl.sec)..","..tostring(idx),1)
Sleep(100);
end
-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------
function main()
   while not stopped do
   if tab1==nil then tab1 = CreateDataSource(code_class1, code_paper1, interval1);
      if tab1 then
       tab1.clas=code_class1; tab1.sec=code_paper1; tab1.int=interval1;
         tab1:SetUpdateCallback(function(idx) my_cb_CDS(idx,tab1) end)
      end
   end
   if  tab2==nil then tab2= CreateDataSource(code_class2, code_paper2, interval2);
      if  tab2 then
         tab2.clas=code_class2; tab2.sec=code_paper2; tab2.int=interval2;
         tab2:SetUpdateCallback( function(idx) my_cb_CDS(idx, tab2) end)
      end
   end
-------------------------
--   message(tostring(my_table1:Size()),1)
   sleep(1000)
   end
-------------------------
end -- end main()
function OnInit(script_path)
end

local code_class1 = "TQBR"
local code_paper1 = "GAZP"
local interval1   = INTERVAL_TICK
local code_class2 = "TQBR"
local code_paper2 = "SBER"
local interval2   = INTERVAL_TICK
------------------------
local function my_cb_CDS(idx,tabl)
message(tostring(tabl.sec)..","..tostring(idx),1)
Sleep(100);
end
--------int main:---------------
function main()
   if tab1==nil then tab1 = CreateDataSource(code_class1, code_paper1, interval1);
      if tab1 then
       tab1.clas=code_class1; tab1.sec=code_paper1; tab1.int=interval1;
         tab1:SetUpdateCallback(function(idx) my_cb_CDS(idx,tab1) end)
      end
   end
   if  tab2==nil then tab2= CreateDataSource(code_class2, code_paper2, interval2);
      if  tab2 then
         tab2.clas=code_class2; tab2.sec=code_paper2; tab2.int=interval2;
         tab2:SetUpdateCallback( function(idx) my_cb_CDS(idx, tab2) end)
      end
   end
-------------------------
   while not stopped do
--   message(tostring(my_table1:Size()),1)
   sleep(1000)
   end
-------------------------
end -- end main()
function OnInit(script_path)
end

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_, interval_, cntr)

message(code_paper_)

end






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


function main()


local code_class1 = "TQBR"           
local code_paper1 = "GAZP"           
local interval1   = INTERVAL_TICK  


local code_class2 = "TQBR"           
local code_paper2 = "SBER"           
local interval2   = INTERVAL_TICK  







local my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)  --Вызываем собсвенно CreateDataSource

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

message(tostring(my_table1.Size()))
if my_table1.Size() == 0 then
message("data requested from the server")
end









local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

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

message(tostring(my_table2.Size()))
if my_table2.Size() == 0 then
message("data requested from the server")
end






my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1, interval1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2, interval2) end)





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



end -- end main()