Помогите ученику 1С

[korneevasa]

1С 7.7 Бухучет Добрый день. Столкнулась с такой проблемой: Есть документ «Отгрузка продукции» в котором при отгрузке готовой продукции формируется проводка:
90.2.1- 43
60.01.1-90.1.1
Субконто 1 (ВидНоменклатуры) в счете 90.1.1 и 90.2.1 подтягивается из справочника ВидыНоменклатуры автоматически.. Нужно сделать так, чтобы была возможность менять вид номенклатуры в шапке документа. Например: есть Номенклатура «сок», вид номенклатуры «продукция 18%» , нужно, сделать так, чтобы модно было выбирать вид номенклатуры меду «продукция18%» и «торговля». Я добавила в шапку документ новый реквизита с возможность выбора вида номенклатуры (Справочник.ВидыНоменклатуры), но как подвязать выбранный элемент к проводке , не пойму. Буду очень благодарна за помощь, Спасибо.
/~~~~~~         
         Операция.НоваяПроводка();
         Операция.СодержаниеПроводки = "Отгружено со склада";
         Операция.НомерЖурнала = "ТВ";
         Операция.Кредит.Счет = СчетУчета;
         Операция.Кредит.Номенклатура = Товар;
         Операция.Кредит.МестаХранения = МестоХранения;
         Операция.Количество = Количество;
         Операция.Сумма = СуммаОтгрузки;
         Если ВидОтгрузки = 3 Тогда
            Операция.Дебет.Счет = СчетСписания; 
            Если ПустоеЗначение(Субконто1)=0 Тогда
               Операция.Дебет.Субконто(1,Субконто1);
            КонецЕсли;
            Если ПустоеЗначение(Субконто2)=0 Тогда
               Операция.Дебет.Субконто(2,Субконто2);
            КонецЕсли;
            Если ПустоеЗначение(Субконто3)=0 Тогда
               Операция.Дебет.Субконто(3,Субконто3);
            КонецЕсли;
         ИначеЕсли ВидОтгрузки = 2 Тогда
            Операция.Дебет.Счет = Сч45;
            Операция.Дебет.Контрагенты = Контрагент;
            Операция.Дебет.Договоры = Договор;
            Операция.Дебет.Номенклатура = Товар;

         ИначеЕсли ВидОтгрузки = 1 Тогда
            Операция.Дебет.Счет = Сч90_2_1;
            Операция.Дебет.ВидыНоменклатуры = ВидыНоменклатуры.ВидНоменклатуры;
            
            ТаблицаОтгрузки.НоваяСтрока();
            ТаблицаОтгрузки.ВидНоменклатуры = Товар.ВидНоменклатуры;
            ТаблицаОтгрузки.СтавкаНДС = глСтавкаНалога(Контекст, "НДС");
            ТаблицаОтгрузки.СтавкаНП = глСтавкаНалога(Контекст, "НП");
            Если ТаблицаОтгрузки.ВидыНоменклатуры.ВидНоменклатуры = Перечисление.ВидНоменклатуры.Товар Тогда
               ТаблицаОтгрузки.ВидРасчетов = Перечисление.ВидыРасчетовСПокупателями.РасчетыЗаТовары;
            Иначе
               ТаблицаОтгрузки.ВидРасчетов = Перечисление.ВидыРасчетовСПокупателями.РасчетыЗаПродукциюРаботыУслуги;
            КонецЕсли;