//Функция присвоения значения

Функция ПолучениеВР(ВР,Объект)

        ВР = Объект;

        Возврат "";

КонецФункции              

 

//Ниже приведен цикл перебора видов расчетов

сзВидыРасчетов = СоздатьОбъект("СписокЗначений");

Для А = 1 По Метаданные.ВидРасчета() Цикл

       текВР = Метаданные.ВидРасчета(А);

       Шаблон("[ПолучениеВР(ВР,"+текВР.ПолныйИдентификатор()+")]");

       Если ПустаяСтрока(текВР.Синоним) = 1 Тогда

               стрВР = текВР.Идентификатор;

       Иначе

               стрВР = текВР.Синоним;

       КонецЕсли;

       сзВидыРасчетов.ДобавитьЗначение(ВР,стрВР);

КонецЦикла;