Только приступил к
Написал программу.
Не получается записать в OWN данные.
В чём ошибка?
(прочее - работает. Сообщение выскакивает и обновляется, таблица создаётся.
Правда номера записей (служебные) справа в таблице появляются только после первого прохода.
Во 2-м MESSAGE показывает: map1 и map2 - пустые. Остальные переменные - как надо)
----------------------------------------
PORTFOLIO_EX SdRu_in_QUIK;
DESCRIPTION Расчёт текущего SdRu в QUIK;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;
USE_CASE_SENSITIVE_CONSTANTS;
PROGRAM
breakpoint()
new_global("nLine10h00m",0) ' в кавычках - ИМЯ переменной!
nLine10h00m=nLine10h00m+1 ' N прохода
sEmitent="SBER_SdRu"
mapt=create_map()
mapt=set_value(mapt,"Emitent",sEmitent)
MESSAGE ("mapt= "&mapt,0)
if(nLine10h00m=1)
ADD_ITEM(1,mapt)
ADD_ITEM(2,mapt)
else
modify_item(2,mapt)
end if
nLineInOWN=GET_NUMBER_OF("OWN")
map1=create_map()
map1=GET_ITEM("OWN",1)
map2=create_map()
map2=GET_ITEM("OWN",2)
MESSAGE ("nLine10h00m= "&nLine10h00m&"; "&"nLineInOWN= "&nLineInOWN&"; mapt= "&mapt&"; map1= "&map1&"; map2= "&map2,0)
END_PROGRAM
PARAMETER sEmitent;
PARAMETER_TITLE Emitent;
PARAMETER_DESCRIPTION Em;
PARAMETER_TYPE STRING(12);
END
END_PORTFOLIO_EX
-----------------------------------------
Написал программу.
Не получается записать в OWN данные.
В чём ошибка?
(прочее - работает. Сообщение выскакивает и обновляется, таблица создаётся.
Правда номера записей (служебные) справа в таблице появляются только после первого прохода.
Во 2-м MESSAGE показывает: map1 и map2 - пустые. Остальные переменные - как надо)
----------------------------------------
PORTFOLIO_EX SdRu_in_QUIK;
DESCRIPTION Расчёт текущего SdRu в QUIK;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;
USE_CASE_SENSITIVE_CONSTANTS;
PROGRAM
breakpoint()
new_global("nLine10h00m",0) ' в кавычках - ИМЯ переменной!
nLine10h00m=nLine10h00m+1 ' N прохода
sEmitent="SBER_SdRu"
mapt=create_map()
mapt=set_value(mapt,"Emitent",sEmitent)
MESSAGE ("mapt= "&mapt,0)
if(nLine10h00m=1)
ADD_ITEM(1,mapt)
ADD_ITEM(2,mapt)
else
modify_item(2,mapt)
end if
nLineInOWN=GET_NUMBER_OF("OWN")
map1=create_map()
map1=GET_ITEM("OWN",1)
map2=create_map()
map2=GET_ITEM("OWN",2)
MESSAGE ("nLine10h00m= "&nLine10h00m&"; "&"nLineInOWN= "&nLineInOWN&"; mapt= "&mapt&"; map1= "&map1&"; map2= "&map2,0)
END_PROGRAM
PARAMETER sEmitent;
PARAMETER_TITLE Emitent;
PARAMETER_DESCRIPTION Em;
PARAMETER_TYPE STRING(12);
END
END_PORTFOLIO_EX
-----------------------------------------