Первый опыт - 1С - Ответ 5375629

Процедура ПриИзмененииНоменклатурыТовары(Элемент); 
    
    СтрокаТЧ = ЭлементыФормы.Товары.ТекущиеДанные;
 
    // Выполнить общие действия для всех документов при изменении номенклатуры.
    ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТЧ, ЭтотОбъект);
 
    ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", ОтражатьВБухгалтерскомУчете, ОтражатьВНалоговомУчете или ПоддержкаУчетаВременныхРазниц);
    
    ПроцедурыБухгалтерскогоУчета.ПриВыбореСчетаВТабличномПоле(СтрокаТЧ.СчетДоходовБУ,
                                СтрокаТЧ.СубконтоДоходовБУ1, ЭлементыФормы.Товары.Колонки.СубконтоДоходовБУ1,
                                СтрокаТЧ.СубконтоДоходовБУ2, ЭлементыФормы.Товары.Колонки.СубконтоДоходовБУ2,
                                СтрокаТЧ.СубконтоДоходовБУ3, ЭлементыФормы.Товары.Колонки.СубконтоДоходовБУ3);
 
    ПроцедурыБухгалтерскогоУчета.ПриВыбореСчетаВТабличномПоле(СтрокаТЧ.СчетСписанияСебестоимостиБУ,
                                СтрокаТЧ.СубконтоСписанияСебестоимостиБУ1, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиБУ1,
                                СтрокаТЧ.СубконтоСписанияСебестоимостиБУ2, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиБУ2,
                                СтрокаТЧ.СубконтоСписанияСебестоимостиБУ3, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиБУ3);
                                
    Если ОтражатьВНалоговомУчете или ПоддержкаУчетаВременныхРазниц тОгда
                                    
        ПроцедурыБухгалтерскогоУчета.ПриВыбореСчетаВТабличномПоле(СтрокаТЧ.СчетДоходовНУ,
                                    СтрокаТЧ.СубконтоДоходовНУ1, ЭлементыФормы.Товары.Колонки.СубконтоДоходовНУ1,
                                    СтрокаТЧ.СубконтоДоходовНУ2, ЭлементыФормы.Товары.Колонки.СубконтоДоходовНУ2,
                                    СтрокаТЧ.СубконтоДоходовНУ3, ЭлементыФормы.Товары.Колонки.СубконтоДоходовНУ3);
 
        ПроцедурыБухгалтерскогоУчета.ПриВыбореСчетаВТабличномПоле(СтрокаТЧ.СчетСписанияСебестоимостиНУ,
                                    СтрокаТЧ.СубконтоСписанияСебестоимостиНУ1, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиНУ1,
                                    СтрокаТЧ.СубконтоСписанияСебестоимостиНУ2, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиНУ2,
                                    СтрокаТЧ.СубконтоСписанияСебестоимостиНУ3, ЭлементыФормы.Товары.Колонки.СубконтоСписанияСебестоимостиНУ3);  
    КонецЕсли;
                                
                                
    ПриИзмененииНоменклатурыТоваров(СтрокаТЧ);
    
    УчетСерийныхНомеров.ПроверитьСерийныеНомера(СтрокаТЧ, ЭтотОбъект);
 
    // Ввод состава набора
    УправлениеЗапасами.ДобавитьСоставНабора(СтрокаТЧ, ЭтотОбъект);
 
    // Рассчитываем реквизиты табличной части.
    ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(СтрокаТЧ, ЭтотОбъект);
    ОбработкаТабличныхЧастей.РассчитатьСуммуАкцизаТабЧасти(СтрокаТЧ, ЭтотОбъект);
    ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти  (СтрокаТЧ, ЭтотОбъект);
    
    // ДОПИСАННЫЙ КУСОК
    // установка серий в документ
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |   СерииНоменклатуры.Ссылка
    |ИЗ
    |   Справочник.СерииНоменклатуры КАК СерииНоменклатуры
    |ГДЕ
    |   СерииНоменклатуры.Владелец = &Владелец";
    
    Запрос.УстановитьПараметр("Владелец", СтрокаТЧ.Номенклатура);
    
    Выборка = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда
        СтрокаТЧ.СерияНоменклатуры = Выборка.Ссылка;        
    КонецЕсли;
    
КонецПроцедуры