FOR i from Last_Num to N ' Начало цикла
Tab_Trade=GET_ITEM(«ALL_TRADES», i)
IF (GET_VALUE(Tab_Trade, «SecCode»)== SecCode AND GET_VALUE(Tab_Trade, «ClassCode»)== ClassCode)
Q=0+GET_VALUE(Tab_Trade, «QUANTITY»)
IF Q>=QUAN ' Проверка времени
Gavriil, у меня почти так же настроена таблица всех сделок с того момента, как в Квике появилась эта функция.
Плюс куча других таблиц настроены с фильтрами и условным форматированием.
Но тормозов никаких из-за этих функций никогда не было.
Andrejnamillion, респект Вам и благодарность! Настроил ленту с фильтром по крупным сделкам, плюс цветовые ориентиры — ну отлично же проясняет ситуацию в моменте, кто в доме хозяин. Да еще с учетом отображения времени крупных сделок можно посмотреть, что в недавних свечках делалось. Давно хотел наблюдать нечто подобное. Спасибо!
DESCRIPTION Фильтр таблицы сделок;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
PROGRAM
'******************************************************************************
' Автор: Beginner
' версия 1.01 09.2009
' Программа фильтрует таблицу всех сделок по акциям Сбербанка
' с заданым объемом.
'
' E-mail: svar4ikov@yandex.ru
'******************************************************************************
NEW_GLOBAL(«Last_Num»,1)
NEW_GLOBAL(«j»,0)
'Очищение таблицы и создание
Tab_Sort=CREATE_MAP()
SecCode=«RIU2» ' бумага
ClassCode=«SPBFUT» ' класс
QUAN=100 ' объем
N=GET_NUMBER_OF(«ALL_TRADES») 'получаем кол-во записей
FOR i from Last_Num to N ' Начало цикла
Tab_Trade=GET_ITEM(«ALL_TRADES», i)
IF (GET_VALUE(Tab_Trade, «SecCode»)== SecCode AND GET_VALUE(Tab_Trade, «ClassCode»)== ClassCode)
Q=0+GET_VALUE(Tab_Trade, «QUANTITY»)
IF Q>=QUAN ' Проверка времени
FTime=""&GET_VALUE(Tab_Trade, «TIME»)
TTime=SUBSTR(FTime,0,2)& ":" & SUBSTR(FTime,2,2) & ":" & SUBSTR(FTime,4,2)
Op=""&GET_VALUE(Tab_Trade, «OPERATION»)
TPrice=0+GET_VALUE(Tab_Trade, «PRICE»)
Tab_Sort=SET_VALUE(Tab_Sort,«CodeFut»,Seccode)
Tab_Sort=SET_VALUE(Tab_Sort,«ST_Time»,TTime)
Tab_Sort=SET_VALUE(Tab_Sort, «TPrice», TPrice)
Tab_Sort=SET_VALUE(Tab_Sort, «QUAN», Q)
Tab_Sort=SET_VALUE(Tab_Sort, «Op», Op)
ADD_ITEM(1, Tab_Sort)
j=j+1
IF Op==«Sell»
SET_ROW_COLOR_EX(1,«RGB(255,140,140)», «RGB(255,140,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '
ELSE
SET_ROW_COLOR_EX(1,«RGB(140,255,140)», «RGB(140,255,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '
End IF
End IF
End IF
End FOR ' Конец цикла
Last_Num=N+1 ' пресвоим последний номер сделки
END_PROGRAM
PARAMETER CodeFut;
PARAMETER_TITLE CodeFut;
PARAMETER_DESCRIPTION Название фьюч;
PARAMETER_TYPE STRING(32);
END
PARAMETER ST_Time;
PARAMETER_TITLE ST_Time;
PARAMETER_DESCRIPTION Время сделки;
PARAMETER_TYPE STRING(32);
END
PARAMETER TPrice;
PARAMETER_TITLE TPrice;
PARAMETER_DESCRIPTION Цена;
PARAMETER_TYPE NUMERIC(10,2);
END
PARAMETER QUAN;
PARAMETER_TITLE QUAN;
PARAMETER_DESCRIPTION Кол-во;
PARAMETER_TYPE NUMERIC(10,0);
END
PARAMETER Op;
PARAMETER_TITLE Op;
PARAMETER_DESCRIPTION Операция;
PARAMETER_TYPE STRING(32);
END
END_PORTFOLIO_EX
как видео сделали?
Плюс куча других таблиц настроены с фильтрами и условным форматированием.
Но тормозов никаких из-за этих функций никогда не было.
www.youtube.com/results?search_query=%D0%BA%D0%B0%D0%BA+%D1%87%D0%B8%D1%82%D0%B0%D1%82%D1%8C+%D0%BB%D0%B5%D0%BD%D1%82%D1%83