Имя: Пароль:
1C
1С v8
КаК скопировать ссылку основного изображения и установить владельцем нового наим
0 НАТалья Голубева
 
31.10.16
14:01
Здравствуйте..Подскажите, пожалуйста

Как скопировать  основное изображения из СтрокаТабличнойЧасти.Номенклатура.ОсновноеИзображение.Ссылка и подчинить к новому объекту НовыйОбъект=Справочники["Номенклатура"].СоздатьЭлемент();


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

Но изображение само не скопировалось


СтрокаТабличнойЧасти = ЭлементыФормы.Товары.ТекущиеДанные;
         Для каждого СтрокаТабличнойЧасти Из Товары Цикл
         НаименованиеДляСайта=СтрокаТабличнойЧасти.Номенклатура.НаименованиеДляСайта;
         Размер=СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
         Спр=НаименованиеДляСайта+" ("+Строка(СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры)+")";
         СсылкаНом=Справочники.Номенклатура.НайтиПоНаименованию(Спр).Ссылка;
         СсылкаРазм=Справочники.ст_Размеры.НайтиПоНаименованию(Размер).Ссылка;
        
        
         Если СсылкаРазм=Справочники.ст_Размеры.ПустаяСсылка() Тогда
                  НовыйОбъект1=Справочники["ст_Размеры"].СоздатьЭлемент();
                  НовыйОбъект1.Наименование= Размер;
                  НовыйОбъект1.Записать();
         КонецЕсли;

        
         Если СсылкаНом=Справочники.Номенклатура.ПустаяСсылка() Тогда
              НовыйОбъект=Справочники["Номенклатура"].СоздатьЭлемент();
              НовыйОбъект.Наименование= Спр;
              НовыйОбъект.НаименованиеПолное=Спр;
              НовыйОбъект.Артикул=СтрокаТабличнойЧасти.Номенклатура.Артикул;
              НовыйОбъект.БазоваяЕдиницаИзмерения=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
              НовыйОбъект.ВидНоменклатуры=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Продукция");
             // НовыйОбъект.ОсновноеИзображение=СтрокаТабличнойЧасти.Номенклатура.ОсновноеИзображение.Ссылка;
              НовыйОбъект.НаименованиеДляСайта=НаименованиеДляСайта;
              НовыйОбъект.Родитель=Каталог;
              НовыйОбъект.ст_Размер=СсылкаРазм;
              НовыйОбъект.Записать();
              
              
              НовыйОбъектХД=Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
              НовыйОбъектХД.Наименование=Спр;
              НовыйОбъектХД.Объект=НовыйОбъект.Ссылка;
              НовыйОбъектХД.ВидДанных=Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
              НовыйОбъектХД.ПолучитьФорму().ОткрытьМодально();
              НовыйОбъектХД.Записать();
              
              НовыйОбъект.ПолучитьФорму().ОткрытьМодально();
              НовыйОбъект.Ссылка.ПолучитьОбъект();
              СтрокаТабличнойЧасти.Номенклатура=НовыйОбъект.Ссылка;
              СтрокаТабличнойЧасти.ЕдиницаИзмерения=НовыйОбъект.ЕдиницаХраненияОстатков.Ссылка;
              СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры="";
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.