Список проголосовавших за комментарий "Glago, на восьмом не проверял. Попробуйте всю прогу целиком. <br/> <br/> <p>PORTFOLIO_EX Money;<br/> DESCRIPTION Деньги;<br/> CLIENTS_LIST ALL_CLIENTS;<br/> FIRMS_LIST FIRM_ID;<br/> USE_CASE_SENSITIVE_CONSTANTS</p><p>PROGRAM<br/> <br/> FUNC Get_Money(acc)<br/> result=0<br/> n = GET_NUMBER_OF(«FUTURES_CLIENT_LIMITS»)<br/> for j from 1 to n<br/> acc_limit = GET_ITEM(«FUTURES_CLIENT_LIMITS», j)<br/> ftype = GET_VALUE(acc_limit,«TYPE»)<br/> if (ftype == «Ден.средства»)<br/> fAcc = GET_VALUE(acc_limit, «TRDACCID»)<br/> if (acc == fAcc) <br/> fCBPLUSED = GET_VALUE(acc_limit, «CBPLUSED»)<br/> fCBPLPLANNED = GET_VALUE(acc_limit, «CBPLPLANNED»)<br/> fVARMARGIN = GET_VALUE(acc_limit, «VARMARGIN») <br/> result = FLOOR(0 + fCBPLUSED + fCBPLPLANNED + fVARMARGIN)<br/> RETURN<br/> end if<br/> end if<br/> end for<br/> END FUNC</p><p>NEW_GLOBAL («acc_list», <strong>«SPBFUT*****»)</strong></p><p>DELETE_ALL_ITEMS()</p><p>i = 1</p><p>for Acc IN acc_list<br/> a_info = ""<br/> a_info = SET_VALUE(a_info, «Account», Acc)<br/> a_info = SET_VALUE(a_info, «Money», Get_Money(Acc))<br/> add_item(i, a_info)<br/> i = i + 1<br/> end for</p><p>END_PROGRAM</p><p>PARAMETER Account;<br/> PARAMETER_TITLE Счет;<br/> PARAMETER_DESCRIPTION Account;<br/> PARAMETER_TYPE STRING(32);<br/> END</p><p>PARAMETER Money;<br/> PARAMETER_TITLE Деньги;<br/> PARAMETER_DESCRIPTION Money;<br/> PARAMETER_TYPE STRING(64);<br/> END</p><p>END_PORTFOLIO