В начало

Создать вид расчета

 

Функция СоздатьВидРасчета (ПВР, Код, Наименование, БазовыеВидыРасчета = Неопределено)

// ПВР - план видов расчета

    ВР = ПВР.НайтиПоКоду (Код);

    Если ВР.Пустая () Тогда

        ВР = ПВР.СоздатьВидРасчета ();

    Иначе

        ВР = ВР.ПолучитьОбъект ();

        ВР.БазовыеВидыРасчета.Очистить ();

    КонецЕсли;

    ВР.Код = Код;

    ВР.Наименование = Наименование;

    Если БазовыеВидыРасчета<>Неопределено Тогда

        Для каждого Элемент Из БазовыеВидыРасчета Цикл

            НоваяСтрока = ВР.БазовыеВидыРасчета.Добавить ();

            НоваяСтрока.ВидРасчета = Элемент.Значение;

        КонецЦикла;

    КонецЕсли;

    ВР.Записать ();

    Возврат ВР.Ссылка;

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