client_pre = GET_VALUE(all_client, "CLIENT_CODE")
   FIRMID = GET_VALUE(all_client, "FIRMID") 
   LIMIT_KIND = GET_VALUE(all_client, "LIMIT_KIND") 
   client_port = GET_CLIENT_MARGINAL_PORTFOLIO_INFO_EX(FIRMID, client_pre, LIMIT_KIND)
   all_limit = APPLY_SCALE(GET_VALUE(client_port, "ASSETS"),4)

PORTFOLIO_EX тест;
DESCRIPTION тест;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;

USE_CASE_SENSITIVE_CONSTANTS

PROGRAM

client_pre = " "

DELETE_ALL_ITEMS()

n = GET_NUMBER_OF("MONEY_LIMITS")
  
FOR i FROM 1 to n 

all_client = GET_ITEM ("MONEY_LIMITS", i)

   client_pre = GET_VALUE(all_client, "CLIENT_CODE")
   client_port = GET_CLIENT_MARGINAL_PORTFOLIO_INFO("ФИРМА", client_pre) 
   all_limit = APPLY_SCALE(GET_VALUE(client_port, "ASSETS"),4)

show_data()

end for

FUNC show_data()
   
      OUTPUT=CREATE_MAP()
      OUTPUT=SET_VALUE(OUTPUT,"client_pre" , SUBSTR(client_pre,0,5))
      OUTPUT=SET_VALUE(OUTPUT,"all_limit" , all_limit)

      ADD_ITEM(1,OUTPUT)
end func

END_PROGRAM
 
PARAMETER client_pre;
PARAMETER_TITLE Клиент;
PARAMETER_DESCRIPTION Клиент;
PARAMETER_TYPE STRING(20);
END

PARAMETER all_limit;
PARAMETER_TITLE СДС;
PARAMETER_DESCRIPTION Стоимость портфеля;
PARAMETER_TYPE NUMERIC(10,2);
END