вставляю редактированную программу таблицы в середину цикла 
if n_day <p_day then   
        t1,n1,i1=getCandlesByIndex("TATN_close", 0, N1-n_day, n_day)--  
message("n_day = "..n_day) 
-- сюда.считает  в середине без таблицы ,а снаружи таблицу  выводит и останавливается.  
message("день-дата= "..????)  
end  
......
function main()
        -- Создает таблицу
        CreateTable();
        -- Основной цикл
        while sIsRun do
                -- Дата и время
                sDate=getInfoParam('TRADEDATE').." "..getInfoParam('SERVERTIME');
                -- Перебираем компании: k -порядковый номер, v - название тикера
                for k,v in pairs(aTickerList) do
                   -- Крайняя цена
                   sBID=tonumber(getParamEx("TQBR", v, "LAST").param_value);
                   -- Расчетное дно
                   sDno=math.floor(((aTickerLow2008[k]*(sInflation+100))/100)*100)/100;
                   -- Сколько до дна %
                   sDistance=math.floor((100-((sDno*100)/sBID))*100)/100;
                   -- Вставляем данные в табличку
                   SetCell(t_id, k, 0, tostring(sDate));
                   SetCell(t_id, k, 1, tostring(aTickerName[k]));
                   SetCell(t_id, k, 2, tostring(v));
                   SetCell(t_id, k, 3, tostring(sBID));
                   SetCell(t_id, k, 4, tostring(sDno));
                   SetCell(t_id, k, 5, tostring(sDistance));
                  -- Раскрашиваем желтым
                   if sDistance<50 then 
                        Yellow(k);
                   end;
                  -- Раскрашиваем красным
                   if sDistance>80 then 
                        Red(k);
                   end;
                  -- Раскрашиваем зеленым
                   if sDistance<0 then 
                        Green(k);
                   end;
                end;
                -- Спим
                sleep(50000);
        end;
end;
--- Функция создает таблицу
function CreateTable()
        -- Получает доступный id для создания
        t_id = AllocTable();    
        -- Добавляет 6 колонок
        AddColumn(t_id, 0, "Дата", true, QTABLE_INT_TYPE, 15);
        AddColumn(t_id, 1, "Название", true, QTABLE_INT_TYPE, 15);
        AddColumn(t_id, 2, "Ticker", true, QTABLE_INT_TYPE, 15);
        AddColumn(t_id, 3, "BID", true, QTABLE_INT_TYPE, 15);
        AddColumn(t_id, 4, "Расчетное дно", true, QTABLE_INT_TYPE, 15);
        AddColumn(t_id, 5, "Сколько до дна (%)", true, QTABLE_INT_TYPE, 15);
        -- Создаем
        t = CreateWindow(t_id);
        -- Даем заголовок       
        SetWindowCaption(t_id, "Компании");
   -- Добавляет строку
      for k,v in pairs(aTickerList) do
        InsertRow(t_id, k);
      end
end;
--- Функции по раскраске ячеек таблицы
function Red(col)
 for i=0, 5 do
        SetColor(t_id, col, i, RGB(255,168,164), RGB(0,0,0), RGB(255,168,164), RGB(0,0,0));
 end;
end;
function Green(col)
 for i=0, 5 do
        SetColor(t_id, col, i, RGB(157,241,163), RGB(0,0,0), RGB(157,241,163), RGB(0,0,0));
 end;
end;
function Yellow(col)
 for i=0, 5 do
        SetColor(t_id, col, i, RGB(249,247,172), RGB(0,0,0), RGB(249,247,172), RGB(0,0,0));
 end;
end;