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

PORTFOLIO_EX dost;
DESCRIPTION сумма маржи;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
USE_CASE_SENSITIVE_CONSTANTS;
PROGRAM
delete_all_items()

items_counter=1
vm_map=CREATE_MAP()
firmid_map=CREATE_MAP()
prev_value=""


n=get_number_of("FUTURES_CLIENT_LIMITS")
for i fr om 1 to n
 limit = get_item("FUTURES_CLIENT_LIMITS", i)
 add_item(i, limit)

 IF prev_value!=GET_VALUE(limit,"FIRMID") AND i>1
 items_counter=items_counter+1
 END IF

 
 IF i<2
 vm_map=SET_VALUE(vm_map,items_counter,GET_VALUE(limit,"VARMARGIN"))
 firmid_map=SET_VALUE(firmid_map,items_counter,GET_VALUE(limit,"FIRMID"))
 ELSE
 vm_map=SET_VALUE(vm_map,items_counter, GET_VALUE(limit,"VARMARGIN")+GET_VALUE(vm_map,items_counter))
 firmid_map=SET_VALUE(firmid_map,items_counter,GET_VALUE(limit,"FIRMID"))

 END IF

 prev_value=GET_VALUE(limit,"FIRMID")
 
end for

for i fr om n+1 to n+items_counter
limit=SET_VALUE(limit, "VARMARGIN", GET_VALUE(vm_map, i-n))
limit=SET_VALUE(limit, "FIRMID", GET_VALUE(firmid_map, i-n))
limit=SET_VALUE(lim it, "TRDACCID", "")
add_item(i, lim it)
end for


END_PROGRAM

PARAMETER FIRMID;
PARAMETER_TITLE Идентификатор фирмы;
PARAMETER_DESCRIPTION Идентификатор фирмы;
PARAMETER_TYPE STRING(128) ; 
END
PARAMETER TRDACCID;
PARAMETER_TITLE Торговый счет;
PARAMETER_DESCRIPTION Торговый счет;
PARAMETER_TYPE STRING(128) ; 
END

PARAMETER VARMARGIN;
PARAMETER_TITLE Вариационная маржа;
PARAMETER_DESCRIPTION Вариационная маржа;
PARAMETER_TYPE NUMERIC(14,2);
END

END_PORTFOLIO_EX