Список проголосовавших за комментарий "<blockquote><p>IsRun = true<br/> class_code = «TQBR»<br/> class_code2 = «TQTF»</p><p>function main()<br/> — Получает доступный id для создания<br/> t_id = AllocTable()</p><p> — добавить столбцы<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>2 then<br/> InsertRow(t_id, iRow)-- добавить новую строку вниз таблицы<br/> end<br/> end<br/> local rows, columns = GetTableSize (t_id)<br/> InsertRow(t_id, rows+1) — добавить новую строку вниз таблицы для «Итого»</p><p>SetWindowCaption(t_id, «Портфель: прибыли и убытки»)</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) — получить текущую строку из таблицы «Лимиты по бумагам»</p><p>qtyBoughtLots = tonumber(rowInPortfolioTable.currentbal)</p><p>limitKind = rowInPortfolioTable.limit_kind</p><p>if qtyBoughtLots~=0 and limitKind>2 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</p><p>totalInvest = totalInvest + avgPrice*qtyBoughtLots<br/> totalPortfolio = totalPortfolio + currentPrice*qtyBoughtLots</p><p>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)) .."%") — «Прибыль, %»</p><p>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)) .."%")</p><p>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»)</p><p>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</p><p>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</p><p>return str<br/> end<br/> function OnStop()<br/> DestroyTable(t_id)<br/> IsRun = false<br/> end</p></blockquote><br/> <br/> может кому пригодится, сделал только Т2 и теперь отображаются и короткие позиции"