хочется чето картинки перенести из одной УТ в другую. Девушка просто вбила в номенклатуру картинки на копии базы, А в другой базе потом уже другой номенклатуры набили. И вот нужно со старой базы в новую все картинки перенести по номенклатуре. Как это сделать то? Неохота мне лень писать обработку. По идее то по регистру внешнего хранилища подключаешься, извлекаешь картинку, определяешь картинку, записываешь картинку на диск, запоминаешь ее путь и потом в другой базе находишь по коду такой элемент и подключаешь туда картинку. Но ведь все равно это больше часа пахать надо. Может есть еще способы?

Еврейчик Может есть еще способы?

можно забить

как перенести картинки с одной УТ на другую? #12

Еврейчик Но ведь все равно это больше часа пахать надо.

На момент этого сабжа уже минимум 4,5 часа херней страдаешь. Давно бы уже и написал и перенеслось )

Дядя Вася На момент этого сабжа уже минимум 4,5 часа херней страдаешь. Давно бы уже и написал и перенеслось )

писать программы нужно только если платят по тарифу 1к за час. если меньше, то нужно искать более бюджетные средства - обработку с инфостарта и т.п.

(6) Да ты чо? А как их писать-то тогда научишься? ) Все время что-то новое 1С подкидывает, и сходу за час ничего не напишешь. И я не понел - это твои базы что ли? Почему собственно не платят?

А ты рубль в час делаешь? Не думаю, что ты не найдёшь час времени на досуге, который можно потратить на написание этой обработки. Тем более, она примитивная

Дядя Вася (6) Да ты чо? А как их писать-то тогда научишься? ) Все время что-то новое 1С подкидывает, и сходу за час ничего не напишешь. И я не понел - это твои базы что ли? Почему собственно не платят?

я уже столько обработок написал за 13 лет непрерывной работы с 1с, что сейчас это уже ниже моего уровня - писать обработки. Я могу скачать готовую и чудчуть подправить для себя. А иначе это слишком дорого - своё время тратить на кодинг пфффффф....

(10) Шли пятые сутки душевных терзаний по поводу написания часовой обработки... ))

(9)(10) ты успешный человек. Поделишься с нами историей как ты этого достиг?

Дядя Вася Поделишься с на

да придется писать. но я не рад этому. Кстати если на Инфостарте такую обработку выложить, то можно разбогатеть?

sf (9)(10) ты успешный человек. Поделишься с нами историей как ты этого достиг?

конечно. отказался от употребления мяса и начал практиковать трансерфинг реальности и всё резко поменялось в жизни. ТЕперь у меня есть всё, что мне было нужно.

ну можно еще правила в конвертации набросать

шла четвертая неделя написания часовой обработки... :)

(17)правила в конвертации 15 минут писать

(18) Дату сабжа посмотри. Сравни с сегодняшней. Ну и суть...

Еврейчик Но ведь все равно это больше часа пахать надо.

За это время их перерисовать можно вручную в паинте ))

(19) ))

// функция возвращает часть строки после последнего встреченного символа в строке
Функция ПолучитьЧастьСтрокиОтделеннойСимволом(Знач ИсходнаяСтрока, Знач СимволПоиска, ЕслиНетСимволаТоВсюСтроку = Ложь)
	
	ПозицияСимвола = СтрДлина(ИсходнаяСтрока);
	Пока ПозицияСимвола >= 1 Цикл
		
		Если Сред(ИсходнаяСтрока, ПозицияСимвола, 1) = СимволПоиска Тогда
						
			Возврат Сред(ИсходнаяСтрока, ПозицияСимвола + 1); 
			
		КонецЕсли;
		
		ПозицияСимвола = ПозицияСимвола - 1;	
	КонецЦикла;

	Возврат ?(ЕслиНетСимволаТоВсюСтроку, ИсходнаяСтрока, "");
  	
КонецФункции


Функция ПолучитьИмяФайлаИзПолногоПути(Знач ПутьКФайлу) Экспорт
	
	ИмяФайла = ПолучитьЧастьСтрокиОтделеннойСимволом(ПутьКФайлу, "\", Истина);
	ИмяФайла = ПолучитьЧастьСтрокиОтделеннойСимволом(ИмяФайла,   "/", Истина);
	
	Возврат ИмяФайла;
	
КонецФункции



Функция СоздатьОсновноеИзображениеДляСайта(ОбъектВТекущейБазе,Путь,ТекНом)
	Если ТекНом.ОсновноеИзображение.ИмяФайла<>"" Тогда
		ИмяФайла=ТекНом.ОсновноеИзображение.ИмяФайла;
	Иначе
		ИмяФайла="111.jpg";
	КонецЕсли;
	ПолноеИмяФайла=Путь+ИмяФайла;
	НовыйОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
	НовыйОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
	НовыйОбъект.Наименование=ТекНом.ОсновноеИзображение.Наименование;
	ТекКартинка=ТекНом.ОсновноеИзображение.Хранилище.Получить();
	ТекКартинка.Записать(ПолноеИмяФайла);
	ТекКартинкаЛокал=Новый Картинка(ПолноеИмяФайла);
	НовыйОбъект.Хранилище = Новый ХранилищеЗначения(ТекКартинкаЛокал, Новый СжатиеДанных);
	НовыйОбъект.Объект = ОбъектВТекущейБазе.ССылка;;
	НовыйОбъект.ИмяФайла = ИмяФайла;
	НовыйОбъект.Записать();
	ОбъектВТекущейБазе.ОсновноеИзображение=НовыйОбъект.Ссылка;
	ОбъектВТекущейБазе.Записать();

КонецФункции

Функция ПолучитьВнутреннееПредставление()
	Возврат 1;
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	
	V8 = Новый COMОбъект("V83.COMConnector");
	Попытка
		ИмяПользователя="Программист";
		Пароль="";
		ПутьКБазе = "D:\pasha\bases\клиенты 2015\ОльгаБорисовна\Юлина база";
		Base_COM = V8.Connect("Usr="""+ИмяПользователя+""";Pwd="""+Пароль+""";File="""+ ПутьКБазе +"""");
	Исключение
		Предупреждение ("Ошибка открытия информационной базы");
	КонецПопытки;
	
	
	СписНом=Новый СПисокЗначений;
	СпрНом=Base_COM.Справочники.Номенклатура.Выбрать();
	Пока СпрНом.Следующий() Цикл
		//Если Не СпрНом.Код="00000000359" Тогда
		//	продолжить;
		//КонецЕсли;
		Если СпрНом.ЭтоГруппа Тогда
			продолжить;
		КонецЕсли;
		Если СпрНом.ОсновноеИзображение.Пустая()Тогда
			продолжить;
		КонецЕсли;
		СписНом.Добавить(СпрНом.Ссылка);
	КонецЦикла;
	Путь="d:\pasha\bases\pics\";
	Количество=0;
	Для Инд=0 По СписНом.Количество()-1 Цикл
		ТекНом=СписНом.Получить(Инд).Значение;
		ЭлементВТекущейБазе=СПравочники.Номенклатура.НайтиПоКоду(ТекНом.Код);
		
		Если Не ЭлементВТекущейБазе=Справочники.Номенклатура.ПустаяСсылка() Тогда
			Если ПолучитьВнутреннееПредставление()=1 Тогда
			КонецЕсли;
			
			ОбъектВТекущейБазе=ЭлементВТекущейБазе.ПолучитьОбъект();
			Если Не ОбъектВТекущейБазе.ОсновноеИзображение.Пустая() Тогда
				Если ОбъектВТекущейБазе.ОсновноеИзображение.ИмяФайла=ТекНом.ОсновноеИзображение.ИмяФайла Тогда
					продолжить;
				КонецЕсли;
			КонецЕсли;	
			ОбъектВТекущейБазе.ОсновноеИзображение=СоздатьОсновноеИзображениеДляСайта(ОбъектВТекущейБазе,Путь,ТекНом);
			Количество=Количество+1;
			Сообщить(ОбъектВТекущейБазе.Код);
		КонецЕсли;
	КонецЦикла;
	Сообщить("Всего "+Количество);
КонецПроцедуры