Добавление значений в таблицу

[dmitrydonskoiy]

Доброго дня всем! Столкнулся с проблемой решить которую не могу из-за недостатка опыта, есть документ со связанными таблицами(по уникальному идентификатору) в таблицу машины (3я таблица) при добавлении нового значения открываю форму подбора, в которой выбираю галочками из справочника нужные мне значения, потом добавляю выбранные в таблицу машины, но в общую таблицу(в которую попадают в данные со всех таблиц) записывается только первое значение, как записать все выбранные значения в общую подскажите пожалуйста...

&НаКлиенте
Процедура МашиныПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
   
Если НоваяСтрока И Не Копирование Тогда
      
      НомСтроки   = 1;
      
      Элемент.ТекущиеДанные.УникальныйСотрудник         = Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
      Элемент.ТекущиеДанные.УникальныйТипОборудования      = Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
   //   Элемент.ТекущиеДанные.УникальныйМашина   = Новый УникальныйИдентификатор;
      РезультатОткрытия = ОткрытьФормуМодально("Документ.пРегистрацияПростояОборудования.Форма.Подбор",  СтуктураПараметров());
      Если НЕ РезультатОткрытия = Неопределено Тогда
         
         //СтруктураУН   = Новый Структура;
         //СтруктураУН.Вставить("УникальныйСотрудник", Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник);
         //СтруктураУН.Вставить("УникальныйТипОборудования", Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования);
         
         Для Каждого Стр из РезультатОткрытия Цикл
            Если НомСтроки   = 1 Тогда
               НовСтр   = Элемент.ТекущиеДанные;
            Иначе
               НовСтр   = ЭтаФорма.Машины.Добавить();
            КонецЕсли;
            НовСтр.Машина                  = Стр.Машина;
            НовСтр.УникальныйСотрудник         = Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
            НовСтр.УникальныйТипОборудования   = Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
            НовСтр.УникальныйМашина          = Новый УникальныйИдентификатор;
            НомСтроки   = НомСтроки + 1;
            
         конецЦикла;   
         
      //   ПроверитьСтруктуру(РезультатОткрытия, СтруктураУН);
         
      КонецЕсли;

   ИначеЕсли НоваяСтрока И Копирование Тогда
      
      WSHShell = Новый COMОбъект("WScript.Shell");
      
      Уникальный      = СозданиеКопированием(Элемент.ТекущиеДанные.УникальныйСотрудник, Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования, Элемент.ТекущиеДанные.УникальныйМашина);
      ЭтоКопирование   = Истина;
      
      ЗаполнитьТаблицуМашиныКлиент();
      ПодключитьОбработчикОжидания("СпозиционироватьНаНужнойСтроке", 0.001, Истина);
      НужнаяСтрокаИдентификатор      = ПозицияНужнойСтроки(Уникальный, "УникальныйМашина", Машины);
      Элементы.ТипыОборудования.ТекущаяСтрока   = НужнаяСтрокаИдентификатор;
      
      WSHShell.SendKeys("{ENTER}")
   
   КонецЕсли;

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