Прикол в Сбере

Bubellar, Для Сбера

PORTFOLIO_EX FILTR;
DESCRIPTION Фильтр таблицы сделок;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;

PROGRAM

'******************************************************************************
' Автор: Beginner
' версия 1.01 09.2009
' Программа фильтрует таблицу всех сделок по акциям Сбербанка
' с заданым объемом.
'
' E-mail: [email protected]
'******************************************************************************

NEW_GLOBAL(«Last_Num»,1)

NEW_GLOBAL(«j»,0)

'Очищение таблицы и создание
Tab_Sort=CREATE_MAP()

SecCode=«SBER» ' бумага
ClassCode=«EQBR» ' класс
QUAN=10000 ' объем

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