Список проголосовавших за комментарий "Bubellar, Для Сбера<br/> <br/> PORTFOLIO_EX FILTR;<br/> DESCRIPTION Фильтр таблицы сделок;<br/> CLIENTS_LIST ALL_CLIENTS;<br/> FIRMS_LIST FIRMID;<br/> <br/> PROGRAM<br/> <br/> '******************************************************************************<br/> ' Автор: Beginner<br/> ' версия 1.01 09.2009<br/> ' Программа фильтрует таблицу всех сделок по акциям Сбербанка<br/> ' с заданым объемом.<br/> '<br/> ' E-mail: svar4ikov@yandex.ru<br/> '******************************************************************************<br/> <br/> NEW_GLOBAL(«Last_Num»,1)<br/> <br/> NEW_GLOBAL(«j»,0)<br/> <br/> 'Очищение таблицы и создание<br/> Tab_Sort=CREATE_MAP()<br/> <br/> SecCode=«SBER» ' бумага<br/> ClassCode=«EQBR» ' класс<br/> QUAN=10000 ' объем<br/> <br/> N=GET_NUMBER_OF(«ALL_TRADES») 'получаем кол-во записей<br/> <br/> FOR i from Last_Num to N ' Начало цикла<br/> Tab_Trade=GET_ITEM(«ALL_TRADES», i)<br/> IF (GET_VALUE(Tab_Trade, «SecCode»)== SecCode AND GET_VALUE(Tab_Trade, «ClassCode»)== ClassCode)<br/> Q=0+GET_VALUE(Tab_Trade, «QUANTITY»)<br/> IF Q>=QUAN ' Проверка времени<br/> <br/> FTime=""&GET_VALUE(Tab_Trade, «TIME»)<br/> TTime=SUBSTR(FTime,0,2)& ":" & SUBSTR(FTime,2,2) & ":" & SUBSTR(FTime,4,2)<br/> Op=""&GET_VALUE(Tab_Trade, «OPERATION»)<br/> TPrice=0+GET_VALUE(Tab_Trade, «PRICE»)<br/> <br/> Tab_Sort=SET_VALUE(Tab_Sort,«CodeFut»,Seccode)<br/> Tab_Sort=SET_VALUE(Tab_Sort,«ST_Time»,TTime)<br/> Tab_Sort=SET_VALUE(Tab_Sort, «TPrice», TPrice)<br/> Tab_Sort=SET_VALUE(Tab_Sort, «QUAN», Q)<br/> Tab_Sort=SET_VALUE(Tab_Sort, «Op», Op)<br/> ADD_ITEM(1, Tab_Sort)<br/> j=j+1<br/> IF Op==«Sell»<br/> SET_ROW_COLOR_EX(1,«RGB(255,140,140)», «RGB(255,140,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '<br/> ELSE<br/> SET_ROW_COLOR_EX(1,«RGB(140,255,140)», «RGB(140,255,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '<br/> End IF<br/> <br/> End IF<br/> End IF<br/> End FOR ' Конец цикла<br/> <br/> Last_Num=N+1 ' пресвоим последний номер сделки<br/> <br/> END_PROGRAM<br/> <br/> PARAMETER CodeFut;<br/> PARAMETER_TITLE CodeFut;<br/> PARAMETER_DESCRIPTION Название фьюч;<br/> PARAMETER_TYPE STRING(32);<br/> END<br/> <br/> PARAMETER ST_Time;<br/> PARAMETER_TITLE ST_Time;<br/> PARAMETER_DESCRIPTION Время сделки;<br/> PARAMETER_TYPE STRING(32);<br/> END<br/> <br/> PARAMETER TPrice;<br/> PARAMETER_TITLE TPrice;<br/> PARAMETER_DESCRIPTION Цена;<br/> PARAMETER_TYPE NUMERIC(10,2);<br/> END<br/> <br/> PARAMETER QUAN;<br/> PARAMETER_TITLE QUAN;<br/> PARAMETER_DESCRIPTION Кол-во;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> <br/> PARAMETER Op;<br/> PARAMETER_TITLE Op;<br/> PARAMETER_DESCRIPTION Операция;<br/> PARAMETER_TYPE STRING(32);<br/> END<br/> <br/> END_PORTFOLIO