nikolz (Все сообщения пользователя)

PORTFOLIO_EX робокоп;
DESCRIPTION робокоп;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
USE_CASE_SENSITIVE_CONSTANTS;

PROGRAM

PORTFOLIO_EX робокоп;
DESCRIPTION робокоп;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
USE_CASE_SENSITIVE_CONSTANTS;

PROGRAM

NEW_GLOBAL("CANDLE_1",0) 'текущая свеча
NEW_GLOBAL("CANDLE_2",0) 'предыдущая свеча

X_=GET_VALUE(GET_DATETIME (),"DATETIME")
Date=SUBSTR (X_,6,4) & SUBSTR (X_, 3,2) & SUBSTR (X_, 0,2)
Time=SUBSTR (X_,11,2) & SUBSTR (X_, 14,2) & SUBSTR (X_, 17,2)

CANDLE = (GET_CANDLE_EX ("RIM6", Date, Time)
IF((CANDLE_1+0=0) or ( GET_VALUE (CANDLE,"TIME")-GET_VALUE (CANDLE_1,"TIME") <>0) )
CANDLE_2= CANDLE_1
CANDLE_1= CANDLE

LINES = GET_VALUE(CANDLE_2,"LINES")
LINE = GET_COLLECTION_ITEM(LINES,0)
OPEN = GET_VALUE(LINE,"OPEN")+0
HIGH = GET_VALUE(LINE,"HIGH")+0
LOW = GET_VALUE(LINE,"LOW")+0
CLOSE = GET_VALUE(LINE,"CLOSE")+0

OUTPUT = CREATE_MAP()
OUTPUT = SET_VALUE(OUTPUT,"DATE",DATE)
OUTPUT = SET_VALUE(OUTPUT,"TIME",TIME)
OUTPUT = SET_VALUE(OUTPUT,"OPEN",OPEN)
OUTPUT = SET_VALUE(OUTPUT,"HIGH",HIGH)
OUTPUT = SET_VALUE(OUTPUT,"LOW",LOW)
OUTPUT = SET_VALUE(OUTPUT,"CLOSE",CLOSE)

DELETE_ALL_ITEMS() 'ФУНКЦИЯ УДАЛЕНИЯ СТАРЫХ ДАННЫХ ИЗ ТАБЛИЦЫ
ADD_ITEM(1,OUTPUT)
END IF

END_PROGRAM

PARAMETER DATE;
PARAMETER_TITLE ДАТА;
PARAMETER_DESCRIPTION ДАТА;
PARAMETER_TYPE STRING(30);
END

PARAMETER TIME;
PARAMETER_TITLE ВРЕМЯ;
PARAMETER_DESCRIPTION ВРЕМЯ;
PARAMETER_TYPE STRING(30);
END

PARAMETER OPEN;
PARAMETER_TITLE ЦЕНА ОТК.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END

PARAMETER HIGH;
PARAMETER_TITLE ЦЕНА МАКС.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END

PARAMETER LOW;
PARAMETER_TITLE ЦЕНА МИН.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END


PARAMETER CLOSE;
PARAMETER_TITLE ЗАКР.;
PARAMETER_DESCRIPTION CLOSE;
PARAMETER_TYPE STRING(30);
END

END_PORTFOLIO_EX

PARAMETER HIGH;
PARAMETER_TITLE ЦЕНА МАКС.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END

PARAMETER LOW;
PARAMETER_TITLE ЦЕНА МИН.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END


PARAMETER CLOSE;
PARAMETER_TITLE ЗАКР.;
PARAMETER_DESCRIPTION CLOSE;
PARAMETER_TYPE STRING(30);
END

END_PORTFOLIO_EX