p_classcode_1="TQBR"
p_seccode_1="GAZP"

is_run = true

function cb(index)

Price_close1 = ds:C(Kol_vo_svechey)

local t1 = ds:T(Kol_vo_svechey)

message("Цена:"..tostring(Price_close1));

end

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

function main()

ds=CreateDataSource(p_classcode_1, p_seccode_1, INTERVAL_D1)

--------------
while ds:Size() == 0 do 
sleep(5) 
end
--------------

Kol_vo_svechey=ds:Size()

ds:SetUpdateCallback(cb)


while is_run do

sleep(100)

end
end

While ds:Size() < 3001 do 
      sleep(5) 
   end

is_run=true

------------------------------------------------------------
function main()

ds1, err = CreateDataSource("TQBR", "GAZP", INTERVAL_D1);
Kol_vo_svechey=ds1:Size()

Price_close = ds1:C(Kol_vo_svechey)

message(tostring(Price_close))

   while is_run do
       sleep(1000)

 end
 end

p_classcode_1="TQBR"
p_seccode_1="GAZP"

is_run=true
------------------------------------------------------------
function main()

ds1, err = CreateDataSource("TQBR", "GAZP", INTERVAL_M1, "last");

message(err);
ds1:SetEmptyCallback();
message(ds1:Size());


   while is_run do
       sleep(1000)

 end
 end