Список проголосовавших за комментарий "По просьбе немного обновил код.<br/> Чтобы в таблице текущая цена отображались нормально, нужно включить трансляцию параметра «цена последней сделки».<br/> <br/> [CODE]<br/> <p>IsRun = true<br/> class_code = «TQBR»<br/> class_code2 = «TQTF»</p><p>function main()<br/> — Получает доступный id для создания<br/> t_id = AllocTable() <br/> <br/> — добавить столбцы<br/> AddColumn(t_id, 1, «Бумага», true, QTABLE_STRING_TYPE, 20)<br/> AddColumn(t_id, 2, «Кол-во», true, QTABLE_INT_TYPE, 7)<br/> AddColumn(t_id, 3, «Цена покупки», true, QTABLE_DOUBLE_TYPE, 14)<br/> AddColumn(t_id, 4, «Цена текущая», true, QTABLE_DOUBLE_TYPE, 14)<br/> AddColumn(t_id, 5, «Прибыль, р», true, QTABLE_INT_TYPE, 14)<br/> AddColumn(t_id, 6, «Прибыль, %», true, QTABLE_INT_TYPE, 14)<br/> t = CreateWindow(t_id)</p><p>for iRow=1, getNumberOf(«depo_limits»)-1, 1 do<br/> rowInPortfolioTable = getItem(«depo_limits», iRow) — получить текущую строку из таблицы «Лимиты по бумагам» <br/> qtyBoughtLots = tonumber(rowInPortfolioTable.currentbal) <br/> limitKind = rowInPortfolioTable.limit_kind <br/> if qtyBoughtLots>0 and limitKind<1 then <br/> InsertRow(t_id, iRow)-- добавить новую строку вниз таблицы <br/> end<br/> end<br/> local rows, columns = GetTableSize (t_id)<br/> InsertRow(t_id, rows+1) — добавить новую строку вниз таблицы для «Итого»<br/> <br/> SetWindowCaption(t_id, «Портфель: прибыли и убытки © ramirzaev@mail.ru»)</p><p> — исполнять цикл, пока пользователь не остановит скрипт или не закроет окно таблицы<br/> while IsRun do</p><p><br/> local currentPrice=0<br/> local qtyBoughtLots=0<br/> local profitAbs = 0<br/> local profitPerc = 0<br/> local currentSecCode= ""<br/> local fullNameOfInstrument = ""<br/> local limitKind = 0<br/> local rowInPortfolioTable = {} — строка из таблицы «Лимиты по бумагам»<br/> local tableInstrument = {} — данные «Таблицы текущих торгов»<br/> local iRowInOutTable = 1<br/> local totalInvest = 0<br/> local totalPortfolio = 0<br/> local totalProfit = 0<br/> local totalPercent = 0</p><p>for iRow=0, getNumberOf(«depo_limits»)-1, 1 do<br/> rowInPortfolioTable = getItem(«depo_limits», iRow) — получить текущую строку из таблицы «Лимиты по бумагам» <br/> <br/> qtyBoughtLots = tonumber(rowInPortfolioTable.currentbal)<br/> <br/> limitKind = rowInPortfolioTable.limit_kind <br/> <br/> if qtyBoughtLots>0 and limitKind<1 then — если кол-во лотов >0 и тип лимита T0<br/> currentSecCode = rowInPortfolioTable.sec_code<br/> fullNameOfInstrument = tostring(getParamEx(class_code, currentSecCode, «SHORTNAME»).param_image ) --«LONGNAME» or<br/> if fullNameOfInstrument == "" then<br/> fullNameOfInstrument = currentSecCode or «0» <br/> end<br/> avgPrice = tonumber(rowInPortfolioTable.awg_position_price) <br/> currentPrice = GetAskPrice(currentSecCode) <br/> profitAbs = (currentPrice-avgPrice)*qtyBoughtLots <br/> profitPerc = 100*currentPrice/avgPrice — 100<br/> <br/> totalInvest = totalInvest + avgPrice*qtyBoughtLots <br/> totalPortfolio = totalPortfolio + currentPrice*qtyBoughtLots <br/> <br/> SetCell(t_id, iRowInOutTable, 1, fullNameOfInstrument) — «Бумага»<br/> SetCell(t_id, iRowInOutTable, 2, RemoveZero(tostring(qtyBoughtLots))) — «Кол-во»RemoveZero(tostring(qtyBoughtLots)))<br/> SetCell(t_id, iRowInOutTable, 3, RemoveZero(tostring( math_round(avgPrice, 3) ))) — tostring(avgPrice)) — «Цена покупки»<br/> SetCell(t_id, iRowInOutTable, 4, RemoveZero(tostring(currentPrice))) — «Цена текущая»<br/> SetCell(t_id, iRowInOutTable, 5, RemoveZero(tostring( math_round( profitAbs, 0)) )) — «Прибыль, р»<br/> SetCell(t_id, iRowInOutTable, 6, tostring(math_round(profitPerc, 1)) .."%") — «Прибыль, %»<br/> <br/> if profitPerc >5 then — окрашиваем<br/> ColourRowInGreen(iRowInOutTable)<br/> elseif profitPerc<-5 then <br/> ColourRowInRed(iRowInOutTable)<br/> else <br/> ColourRowInYellow(iRowInOutTable)<br/> end <br/> iRowInOutTable = iRowInOutTable+1<br/> end<br/> end<br/> totalProfit = totalPortfolio — totalInvest <br/> totalPercent = 100*totalProfit/totalInvest <br/> SetCell(t_id, iRowInOutTable, 1, «Итого») <br/> SetCell(t_id, iRowInOutTable, 3, tostring( math_round(totalInvest, 0) )) <br/> SetCell(t_id, iRowInOutTable, 4, tostring( math_round(totalPortfolio, 0))) <br/> SetCell(t_id, iRowInOutTable, 5, tostring( math_round( totalProfit, 0)) ) <br/> SetCell(t_id, iRowInOutTable, 6, tostring(math_round(totalPercent, 1)) .."%") <br/> <br/> if profitPerc >5 then — окрашиваем<br/> ColourRowInGreen(iRowInOutTable)<br/> elseif profitPerc<-5 then <br/> ColourRowInRed(iRowInOutTable)<br/> else <br/> ColourRowInYellow(iRowInOutTable)<br/> end <br/> iRowInOutTable = iRowInOutTable+1<br/> sleep(5000) — пауза 5 сек.<br/> if IsWindowClosed(t_id) then isRun = false end<br/> end<br/> --message(«script table portfolio finished»)<br/> <br/> end</p><p><br/> function ColourRowInRed(num_row)<br/> SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(255,150,150), RGB(0,0,0), RGB(255,150,150), RGB(0,0,0))<br/> end<br/> function ColourRowInYellow(num_row)<br/> SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(255,255,200), RGB(0,0,0), RGB(255,255,200), RGB(0,0,0))<br/> end<br/> function ColourRowInGreen(num_row)<br/> SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(150,255,150), RGB(0,0,0), RGB(150,255,150), RGB(0,0,0))<br/> end<br/> function GetAskPrice(inp_Sec_Code )<br/> local ask = tostring(getParamEx(class_code, inp_Sec_Code, «LAST»).param_value or getParamEx(class_code2, inp_Sec_Code, «OFFER»).param_value or 0) — «OFFER<br/> if tonumber(ask) == 0 then<br/> ask = tostring(getParamEx(class_code2, inp_Sec_Code, „LAST“).param_value or 0)<br/> end<br/> return ask<br/> end<br/> — Округляет число до указанной точности<br/> function math_round (num, idp)<br/> local mult = 10^(idp or 0)<br/> return math.floor(num * mult + 0.5) / mult<br/> end<br/> — удаление точки и нулей после нее<br/> function RemoveZero(input)<br/> local str = tostring(input)</p><p>--if str:find(»%.")==nil and str:find(",")==nil then <br/> if not str:find("%.") and not str:find(",") then <br/> return str <br/> end <br/> <br/> while (string.sub(str,-1) == «0» and str ~= «0») do <br/> str = string.sub(str,1,-2) <br/> end<br/> if (string.sub(str,-1) == ".") then <br/> str = string.sub(str,1,-2)<br/> end <br/> if (string.sub(str,-1) == ",") then <br/> str = string.sub(str,1,-2)<br/> end <br/> <br/> return str<br/> end<br/> function OnStop()<br/> DestroyTable(t_id)<br/> IsRun = false <br/> end<br/> [/CODE]</p><br/> <br/> "