Вопрос по QUIK версии 8,6,097

FUNC Get_Money(acc)
result=0
n = GET_NUMBER_OF(«FUTURES_CLIENT_LIMITS»)
for j from 1 to n
acc_limit = GET_ITEM(«FUTURES_CLIENT_LIMITS», j)
ftype = GET_VALUE(acc_limit,«TYPE»)
if (ftype == «Ден.средства»)
fAcc = GET_VALUE(acc_limit, «TRDACCID»)
if (acc == fAcc)
fCBPLUSED = GET_VALUE(acc_limit, «CBPLUSED»)
fCBPLPLANNED = GET_VALUE(acc_limit, «CBPLPLANNED»)
fVARMARGIN = GET_VALUE(acc_limit, «VARMARGIN»)
result = FLOOR(0 + fCBPLUSED + fCBPLPLANNED + fVARMARGIN)
RETURN
end if
end if
end for
END FUNC

PORTFOLIO_EX Money;
DESCRIPTION Деньги;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRM_ID;
USE_CASE_SENSITIVE_CONSTANTS

PROGRAM

FUNC Get_Money(acc)
result=0
n = GET_NUMBER_OF(«FUTURES_CLIENT_LIMITS»)
for j from 1 to n
acc_limit = GET_ITEM(«FUTURES_CLIENT_LIMITS», j)
ftype = GET_VALUE(acc_limit,«TYPE»)
if (ftype == «Ден.средства»)
fAcc = GET_VALUE(acc_limit, «TRDACCID»)
if (acc == fAcc)
fCBPLUSED = GET_VALUE(acc_limit, «CBPLUSED»)
fCBPLPLANNED = GET_VALUE(acc_limit, «CBPLPLANNED»)
fVARMARGIN = GET_VALUE(acc_limit, «VARMARGIN»)
result = FLOOR(0 + fCBPLUSED + fCBPLPLANNED + fVARMARGIN)
RETURN
end if
end if
end for
END FUNC

NEW_GLOBAL («acc_list», «SPBFUT*****»)

DELETE_ALL_ITEMS()

i = 1

for Acc IN acc_list
a_info = ""
a_info = SET_VALUE(a_info, «Account», Acc)
a_info = SET_VALUE(a_info, «Money», Get_Money(Acc))
add_item(i, a_info)
i = i + 1
end for

END_PROGRAM

PARAMETER Account;
PARAMETER_TITLE Счет;
PARAMETER_DESCRIPTION Account;
PARAMETER_TYPE STRING(32);
END

PARAMETER Money;
PARAMETER_TITLE Деньги;
PARAMETER_DESCRIPTION Money;
PARAMETER_TYPE STRING(64);
END

END_PORTFOLIO_EX