Просчитать вес товара

[CofRamGrad]

Здравствуйте.
Мне в документ РеализацияТоваровУслуг в ТабличнуюЧасть Товары надо добавить реквизит Вес, в зависимости от количества товара должен просчитываться вес.

Код:
Процедура ТоварыКоличествоПриИзменении(Элемент)

   ПриИзмененииКоличестваТовары(Элемент);
   ВесОдного = Справочники.ЕдиницыИзмерения.Выбрать().Вес;
   ЭлТов = ЭлементыФормы.Товары.ТекущаяСтрока;
   ЭлТов.Вес = ЭлТов.Количество * ВесОдного;

КонецПроцедуры

Проблема в том, что я не знаю, как обратиться к реквизиту Вес в справочнику ЕдиницыИзмерения (как достать оттуда информацию и ею пользоваться).

Помогите, пожалуйста!

[Kivals]

По идее у тебя единица измерения должна быть в табличной части, или я не прав?

[CofRamGrad]

Спасибо:) С этой частью я разобралась!
код:
Процедура ТоварыКоличествоПриИзменении(Элемент)

   ПриИзмененииКоличестваТовары(Элемент);
   ЭлТов = ЭлементыФормы.Товары.ТекущиеДанные;                       
   Ном = ЭлТов.Номенклатура;                                         
   Ном_Найти = Справочники.Номенклатура.НайтиПоНаименованию(Ном);     
   Если Не Ном_Найти.ЕдиницаДляОтчетов.Вес = 0 Тогда                 
      ЭлТов.Вес = Ном_Найти.ЕдиницаДляОтчетов.Вес * ЭлТов.Количество * ЭлТов.Коэффициент;
   Иначе                                                             
      Сообщить("Вес не задан!!!", СтатусСообщения.Информация);       
   КонецЕсли;                                                         
   
КонецПроцедуры // ТоварыКоличествоПриИзменении()

Такой вот часть кода я прописала еще в процедурах:
ТоварыНоменклатураПриИзменении,
ТоварыНоменклатураНачалоВыбора,
ТоварыНоменклатураОкончаниеВводаТекста.

Сейчас у меня загвоздка в том, что мне надо прописать это в общем модуле ОбработкаТабличных частей. В процедуре Процедура ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ДокументОбъект, ИмяЕдиницыИзмерения = "ЕдиницаИзмерения") Экспорт я прописала:
Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Вес", МетаданныеДокумента, ИмяТабличнойЧасти)
      //И СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.Вес.Владелец
      И СтрокаТабличнойЧасти.Номенклатура.ВидНоменклатуры = "Товар" Тогда
         Ном = ДокументОбъект.Номенклатура;                                                            
         Ном_Найти = Справочники.Номенклатура.НайтиПоНаименованию(Ном);                       
         Если Не Ном_Найти.ЕдиницаДляОтчетов.Вес = 0 Тогда                                    
            ДокументОбъект.Вес = Ном_Найти.ЕдиницаДляОтчетов.Вес * ДокументОбъект.Количество * ДокументОбъект.Коэффициент;
         Иначе                                                                                
            Сообщить("Вес не задан!!!", СтатусСообщения.Информация);                         
         КонецЕсли;
   КонецЕсли;

и добавила еще процедуры:

код:

Процедура ТоварыНоменклатураПриИзменении(Элемент, СтрокаТабличнойЧасти, ДокументОбъект, ИмяЕдиницыИзмерения = "ЕдиницаИзмерения") Экспорт
   
   ИмяТабличнойЧасти = ОбщегоНазначения.ПолучитьИмяТабличнойЧастиПоСсылкеНаСтроку(СтрокаТабличнойЧасти);

   МетаданныеДокумента = ДокументОбъект.Метаданные();

   Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Вес", МетаданныеДокумента, ИмяТабличнойЧасти)
      И СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.Вес.Владелец Тогда
         Ном = ДокументОбъект.Номенклатура;                                                            
         Ном_Найти = Справочники.Номенклатура.НайтиПоНаименованию(Ном);                       
         Если Не Ном_Найти.ЕдиницаДляОтчетов.Вес = 0 Тогда                                    
            ДокументОбъект.Вес = Ном_Найти.ЕдиницаДляОтчетов.Вес * ДокументОбъект.Количество * ДокументОбъект.Коэффициент;
         Иначе                                                                                
            Сообщить("Вес не задан!!!", СтатусСообщения.Информация);                         
         КонецЕсли;
   КонецЕсли;                                                                          

КонецПроцедуры

Процедура ТоварыКоличествоПриИзменении(Элемент, СтрокаТабличнойЧасти, ДокументОбъект, ИмяЕдиницыИзмерения = "ЕдиницаИзмерения") Экспорт
    ИмяТабличнойЧасти = ОбщегоНазначения.ПолучитьИмяТабличнойЧастиПоСсылкеНаСтроку(СтрокаТабличнойЧасти);

   МетаданныеДокумента = ДокументОбъект.Метаданные();
   Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Вес", МетаданныеДокумента, ИмяТабличнойЧасти)
      И СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.Вес.Владелец Тогда
         Ном = ДокументОбъект.Номенклатура;                                                            
         Ном_Найти = Справочники.Номенклатура.НайтиПоНаименованию(Ном);                       
         Если Не Ном_Найти.ЕдиницаДляОтчетов.Вес = 0 Тогда                                    
            ДокументОбъект.Вес = Ном_Найти.ЕдиницаДляОтчетов.Вес * ДокументОбъект.Количество * ДокументОбъект.Коэффициент;
         Иначе                                                                                
            Сообщить("Вес не задан!!!", СтатусСообщения.Информация);                         
         КонецЕсли;
   КонецЕсли;                                                         
   
КонецПроцедуры

Процедура ТоварыНоменклатураНачалоВыбора(СтрокаТабличнойЧасти, ДокументОбъект, ИмяЕдиницыИзмерения = "ЕдиницаИзмерения" ,Элемент, СтандартнаяОбработка) Экспорт
   ИмяТабличнойЧасти = ОбщегоНазначения.ПолучитьИмяТабличнойЧастиПоСсылкеНаСтроку(СтрокаТабличнойЧасти);

   МетаданныеДокумента = ДокументОбъект.Метаданные();
    Если ОбщегоНазначения.ЕстьРеквизитТабЧастиДокумента("Вес", МетаданныеДокумента, ИмяТабличнойЧасти)
      И СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.Вес.Владелец Тогда
         Ном = ДокументОбъект.Номенклатура;                                                            
         Ном_Найти = Справочники.Номенклатура.НайтиПоНаименованию(Ном);                       
         Если Не Ном_Найти.ЕдиницаДляОтчетов.Вес = 0 Тогда                                    
            ДокументОбъект.Вес = Ном_Найти.ЕдиницаДляОтчетов.Вес * ДокументОбъект.Количество * ДокументОбъект.Коэффициент;
         Иначе                                                                                
            Сообщить("Вес не задан!!!", СтатусСообщения.Информация);                      
         КонецЕсли;
   КонецЕсли;
КонецПроцедуры


Я не знаю, правильно ли я мыслю!!!!  Направте на путь истинный, пожалуйста:)

[CofRamGrad]

Да, ЕдиницаИзмерения в табличной части Товары.

[Kivals]

CofRamGrad, выделяй код с использование [code]Здесь код[/code]

Ты неправильно мыслишь в принципе: одинаковый (похожий) код нужно не копировать, а выносить в отдельную процедуру/функцию! При этом твоя задача как программиста определить в чем различия и создать для них параметры, передаваемые в процедуру/функцию.
Так что перепиши сначала правильно, а то даже тяжело понять6 есть ли в коде какие отличия или нет...

[CofRamGrad]

ок))) Вроде получилось уже)))

буду выделять))))))