Settings  =  {
    Name  =   'Example4' ,
    Mult  =   1 ,
    Identifier  =   'TESTCHART' 
}

ChartID  =   0 
 function   Init ()
     -- ChartID = 0 -- идентификатор метки 
    plDate  =   ''   -- дата метки 
    plTime  =   ''   -- время метки 
    Data  =   0   -- данные для графика 
     PrintDbgStr ( '[QLUA]: DelAllLabels '   ..  tostring( DelAllLabels (Settings.Identifier)))
     PrintDbgStr ( '[QLUA]: Init' )
    testmodify  =   false 
     return   1 
 end 

 function   OnCalculate (index)
     -- получение информации об инструменте 
     local  t  =   getDataSourceInfo ()
    SecCode  =  t.sec_code
    ClassCode  =  t.class_code

     -- Дата и время для метки 
    plDate  =   string.format ( '%4d%02d%02d' , T(index).year, T(index).month, T(index).day)
    plTime  =   string.format ( '%02d%02d%02d' , T(index).hour, T(index).min, T(index).sec)

    Data  =   getNumberOf ( 'all_trades' )  -- данные для метки 

     -- если ID метки не найден, то рисуем новую. Иначе меняем старую 
     if  index  =  =   Size ()  then 
         if  ChartID  =  =   0   then 
            ChartID  = 
                PlotLabel(
                C(index),
                plDate,
                plTime,
                'text  ' .. Data .. '   ' .. SecCode,
                Data .. '   ' .. SecCode,
                Settings.Identifier,
                ' green'
            )
             PrintDbgStr ( '[QLUA]: ChartID =0, new Label, new ChartID= '   ..  ChartID)
         else 
            testmodify  = 
                ModifyLabel(
                C(index),
                plDate,
                plTime,
                'text  ' .. Data .. '   ' .. SecCode,
                Data .. '   ' .. SecCode,
                Settings.Identifier,
                ChartID,
                ' green'
            )
             PrintDbgStr ( '[QLUA]: ChartID ='   ..  ChartID  ..   ' modified '   ..  tostring(testmodify))
         end 
     end 

     return  index
 end 

 function   PlotLabel (fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCOLOR)
     local  r, g, b  =   255 ,  255 ,  255 

     if  fCOLOR  =  =   'green'   then 
        r  =   0 
        g  =   255 
        b  =   0 
     elseif  fCOLOR  =  =   'red'   then 
        r  =   255 
        g  =   0 
        b  =   0 
     end 

     local  label_params  =  {
        TEXT  =  tostring(fTEXT),
        IMAGE_PATH =   "" ,
        ALIGNMENT  =   'LEFT' ,
        YVALUE  =  fPRICE,
        DATE  =  fDATE,
        TIME  =  fTIME,
        R  =  r,
        G  =  g,
        B  =  b,
        TRANSPARENCY  =   0 ,
        TRANSPARENT_BACKGROUND  =   1 ,
        FONT_FACE_NAME  =   'Lucida Console' ,
        FONT_HEIGHT  =   10 ,
        HINT  =  tostring(fHINT)
    }

     return   AddLabel (fCHARTTAG, label_params)  or   -  1 
 end 

 function   ModifyLabel (fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCHARTID, fCOLOR)
     local  r, g, b  =   255 ,  255 ,  255 

     if  fCOLOR  =  =   'green'   then 
        r  =   0 
        g  =   255 
        b  =   0 
     elseif  fCOLOR  =  =   'red'   then 
        r  =   255 
        g  =   0 
        b  =   0 
     end 

     local  label_params  =  {
        TEXT  =  tostring(fTEXT),
        IMAGE_PATH =   "" ,
        ALIGNMENT  =   'LEFT' ,
        YVALUE  =  fPRICE,
        DATE  =  fDATE,
        TIME  =  fTIME,
        R  =  r,
        G  =  g,
        B  =  b,
        TRANSPARENCY  =   0 ,
        TRANSPARENT_BACKGROUND  =   1 ,
        FONT_FACE_NAME  =   'Lucida Console' ,
        FONT_HEIGHT  =   10 ,
        HINT  =  tostring(fHINT)
    }
     return   SetLabelParams (fCHARTTAG, fCHARTID, label_params)
 end 

 function   OnDestroy ()
     DelAllLabels (Settings.Identifier)
 end 


  

Settings = {
    Name = 'Example4',
    Mult = 1,
    Identifier = 'TESTCHART'
}

ChartID = 0
function Init()
    -- ChartID = 0 -- идентификатор метки
    plDate = '' -- дата метки
    plTime = '' -- время метки
    Data = 0 -- данные для графика
    PrintDbgStr('[QLUA]: DelAllLabels ' .. tostring(DelAllLabels(Settings.Identifier)))
    PrintDbgStr('[QLUA]: Init')
    testmodify = false
    return 1
end

function OnCalculate(index)
    -- получение информации об инструменте
    local t = getDataSourceInfo()
    SecCode = t.sec_code
    ClassCode = t.class_code

    -- Дата и время для метки
    plDate = string.format('%4d%02d%02d', T(index).year, T(index).month, T(index).day)
    plTime = string.format('%02d%02d%02d', T(index).hour, T(index).min, T(index).sec)

    Data = getNumberOf('all_trades') -- данные для метки

    -- если ID метки не найден, то рисуем новую. Иначе меняем старую
    if index == Size() then
        if ChartID == 0 then
            ChartID =
                PlotLabel(
                C(index),
                plDate,
                plTime,
                'text ' .. Data .. ' ' .. SecCode,
                Data .. ' ' .. SecCode,
                Settings.Identifier,
                'green'
            )
            PrintDbgStr('[QLUA]: ChartID =0, new Label, new ChartID= ' .. ChartID)
        else
            testmodify =
                ModifyLabel(
                C(index),
                plDate,
                plTime,
                'text ' .. Data .. ' ' .. SecCode,
                Data .. ' ' .. SecCode,
                Settings.Identifier,
                ChartID,
                'green'
            )
            PrintDbgStr('[QLUA]: ChartID =' .. ChartID .. ' modified ' .. tostring(testmodify))
        end
    end

    return index
end

function PlotLabel(fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCOLOR)
    local r, g, b = 255, 255, 255

    if fCOLOR == 'green' then
        r = 0
        g = 255
        b = 0
    elseif fCOLOR == 'red' then
        r = 255
        g = 0
        b = 0
    end

    local label_params = {
        TEXT = tostring(fTEXT),
        IMAGE_PATH= "",
        ALIGNMENT = 'LEFT',
        YVALUE = fPRICE,
        DATE = fDATE,
        TIME = fTIME,
        R = r,
        G = g,
        B = b,
        TRANSPARENCY = 0,
        TRANSPARENT_BACKGROUND = 1,
        FONT_FACE_NAME = 'Lucida Console',
        FONT_HEIGHT = 10,
        HINT = tostring(fHINT)
    }

    return AddLabel(fCHARTTAG, label_params) or -1
end

function ModifyLabel(fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCHARTID, fCOLOR)
    local r, g, b = 255, 255, 255

    if fCOLOR == 'green' then
        r = 0
        g = 255
        b = 0
    elseif fCOLOR == 'red' then
        r = 255
        g = 0
        b = 0
    end

    local label_params = {
        TEXT = tostring(fTEXT),
        IMAGE_PATH= "",
        ALIGNMENT = 'LEFT',
        YVALUE = fPRICE,
        DATE = fDATE,
        TIME = fTIME,
        R = r,
        G = g,
        B = b,
        TRANSPARENCY = 0,
        TRANSPARENT_BACKGROUND = 1,
        FONT_FACE_NAME = 'Lucida Console',
        FONT_HEIGHT = 10,
        HINT = tostring(fHINT)
    }
    return SetLabelParams(fCHARTTAG, fCHARTID, label_params)
end

function OnDestroy()
    DelAllLabels(Settings.Identifier)
end