ТАблицу надо обновлять - писать явно.
ПРИМЕР
*******************
PORTFOLIO_EX MyProtocol;
DESCRIPTION Протокол торговли;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST MC0094600000;
PROGRAM
' ********************************************************************
' Программа для ведения протокола сделок
' Версия 1.1
' Дополнено выгрузкой данных о купленных бумагах
' ********************************************************************
MAP_ERROR=CREATE_MAP()
.....
БЛА-БЛА-БЛА
....
MAP_DATETIME=GET_DATETIME()
........
HOUR=GET_VALUE(MAP_DATETIME,"HOUR")+0
MIN =GET_VALUE(MAP_DATETIME,"MIN")+0
Calc_Turn_All()
' MAP для таблицы (Загружаем расчитанные данные)
Map=CREATE_MAP()
Map=SET_VALUE(Map,"TurnSell",TurnSell)
Map=SET_VALUE(Map,"TurnBuy",TurnBuy)
Map=SET_VALUE(Map,"IT_SDEL",IT_SDEL)
Map=SET_VALUE(Map,"KOLSELL",KOLSELL)
Map=SET_VALUE(Map,"KOLBUY",KOLBUY)
Map=SET_VALUE(Map,"MEDIASELL",TurnSell/KOLSELL)
Map=SET_VALUE(Map,"MEDIABUY",TurnBuy/KOLBUY)
'Создание обновления таблицы
IF GET_NUMBER_OF("OWN")=0
ADD_ITEM(1,map)
END IF
MODIFY_ITEM(1,map)
IF HOUR*100+MIN>1030 and HOUR*100+MIN<1750
Protocol_trading()
End If
END_PROGRAM
PARAMETER IT_SDEL;
PARAMETER_TITLE Сделки;
PARAMETER_DESCRIPTION Всего совершено сделок;
PARAMETER_TYPE NUMERIC(3,0);
END
. . .
PARAMETER MEDIABUY;
PARAMETER_TITLE Сред.Покупок;
PARAMETER_DESCRIPTION Средняя сделка покупок;
PARAMETER_TYPE NUMERIC(15,2);
END
END_PORTFOLIO_EX