Вы искали 1с - Страница 21 из 40

Массовая установка вида номенклатуры 1С Розница 2.2

30.05.2018 Павел Грибов 1C

Данная обработка может пригодится тем, кому необходимо в справочнике номенклатуры массово поменять реквизит «Вид номенклатуры». Мне например это понадобилось, чтобы в разделе «Дополнительно», для каждого вида номенклатуры были заданы свои характеристики.

инфостарте

Код:

&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
	
 ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение);
 
КонецПроцедуры


&НаКлиенте
Процедура ПодборНоменклатуры(Команда)
	ПараметрыФормы = Новый Структура;	
	ПараметрыФормы.Вставить("РежимПодбораБезСуммовыхПараметров", Истина);
	ПараметрыФормы.Вставить("Дата", ТекущаяДата());
	
	
	ОткрытьФорму("Обработка.ПодборТоваров.Форма", ПараметрыФормы, ЭтаФорма, УникальныйИдентификатор);

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

&НаСервере
Функция ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение)	
	ТаблицаТоваров = ПолучитьИзВременногоХранилища(ВыбранноеЗначение.АдресТоваровВХранилище);
	для каждого стр из ТаблицаТоваров цикл
		сс=объект.СписокНоменклатуры.Добавить();
		сс.номенклатура=стр.номенклатура;
	конеццикла;	
КонецФункции

&НаСервере
Процедура изменитьвид(ном,вид)
	об=ном.ПолучитьОбъект();
	об.ВидНоменклатуры=вид;
	об.Записать();
КонецПроцедуры
&НаКлиенте
Процедура ИзменитьВидНоменклатуры(Команда)
	если объект.ВидНоменклатуры=объект.ВидНоменклатуры.Пустая() тогда
		сообщить("Не выбран вид номенклатуры!");
	иначе	
		для каждого стр из объект.СписокНоменклатуры цикл
			изменитьвид(стр.номенклатура,объект.ВидНоменклатуры);
		конеццикла;	
		сообщить("Готово!");
	конецесли;
КонецПроцедуры

&НаКлиенте

Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)

ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение);

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

&НаКлиенте

Процедура ПодборНоменклатуры(Команда)

ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("РежимПодбораБезСуммовыхПараметров", Истина);

ПараметрыФормы.Вставить("Дата", ТекущаяДата());

ОткрытьФорму("Обработка.ПодборТоваров.Форма", ПараметрыФормы, ЭтаФорма, УникальныйИдентификатор);

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

&НаСервере

Функция ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение)

ТаблицаТоваров = ПолучитьИзВременногоХранилища(ВыбранноеЗначение.АдресТоваровВХранилище);

для каждого стр из ТаблицаТоваров цикл

сс=объект.СписокНоменклатуры.Добавить();

сс.номенклатура=стр.номенклатура;

конеццикла;

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

&НаСервере

Процедура изменитьвид(ном,вид)

об=ном.ПолучитьОбъект();

об.ВидНоменклатуры=вид;

об.Записать();

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

&НаКлиенте

Процедура ИзменитьВидНоменклатуры(Команда)

если объект.ВидНоменклатуры=объект.ВидНоменклатуры.Пустая() тогда

сообщить("Не выбран вид номенклатуры!");

иначе

для каждого стр из объект.СписокНоменклатуры цикл

изменитьвид(стр.номенклатура,объект.ВидНоменклатуры);

конеццикла;

сообщить("Готово!");

конецесли;

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

Оставить комментарий 1с, вид номенклатуры, изменение вида номенклатры, массово

Программное присоединение изображения к номенклатуре. 1С Розница 2.2

15.05.2018 Павел Грибов 1C

	ИмяВременногоФайла="c:\temp\minion.jpg";                        
    ном=Справочники.Номенклатура.НайтиПоКоду("1536       ");            
                                    
	ПараметрыФайла=Новый Структура;
	ПараметрыФайла.Вставить("Автор",Пользователи.НайтиПоИмени("Администратор"));
	ПараметрыФайла.Вставить("ВладелецФайлов",ном.Ссылка);
	ПараметрыФайла.Вставить("ИмяБезРасширения","бла-бла-3");
	ПараметрыФайла.Вставить("РасширениеБезТочки","jpg");
	ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное",ТекущаяУниверсальнаяДата());	
		
	ДвоичДанные = Новый ДвоичныеДанные(ИмяВременногоФайла);
	АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичДанные);
	
	фс=ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);
	
	об=ном.ПолучитьОбъект();
	об.ФайлКартинки= фс;
	об.Записать();

ИмяВременногоФайла="c:\temp\minion.jpg";

ном=Справочники.Номенклатура.НайтиПоКоду("1536 ");

ПараметрыФайла=Новый Структура;

ПараметрыФайла.Вставить("Автор",Пользователи.НайтиПоИмени("Администратор"));

ПараметрыФайла.Вставить("ВладелецФайлов",ном.Ссылка);

ПараметрыФайла.Вставить("ИмяБезРасширения","бла-бла-3");

ПараметрыФайла.Вставить("РасширениеБезТочки","jpg");

ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное",ТекущаяУниверсальнаяДата());

ДвоичДанные = Новый ДвоичныеДанные(ИмяВременногоФайла);

АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичДанные);

фс=ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,АдресВременногоХранилищаФайла,,,);

об=ном.ПолучитьОбъект();

об.ФайлКартинки= фс;

об.Записать();

Оставить комментарий 1с, номенклатура, присоединение изображения, присоединение файла, розница

1С Розница 2.2, сохранить присоединенные к номенклатуре картинки

14.05.2018 Павел Грибов 1C

Присоединенные к номенклатуре файлы можно выгрузить например так:

&НаСервереБезКонтекста
Процедура ПолучитьФайлыНаСервере()
	ном=Справочники.Номенклатура.НайтиПоКоду("1534       ");
	сообщить(ном.ФайлКартинки);
	Запрос = Новый Запрос;
		Запрос.Текст = 		
"ВЫБРАТЬ
|	НоменклатураПрисоединенныеФайлы.Ссылка КАК Ссылка,
|	НоменклатураПрисоединенныеФайлы.ПутьКФайлу КАК ПутьКФайлу,
|	НоменклатураПрисоединенныеФайлы.ТипХраненияФайла КАК ТипХраненияФайла,
|	НоменклатураПрисоединенныеФайлы.Том КАК Том,
|	НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище
|ИЗ
|	Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
|ГДЕ
|	НоменклатураПрисоединенныеФайлы.ВладелецФайла.Ссылка = &ном"	;
		
	 Запрос.УстановитьПараметр("ном", ном);					
	 файлы=Запрос.Выполнить().Выбрать();			
	 n=0;
	 Пока файлы.Следующий() Цикл		
		 сообщить(файлы.ПутьКФайлу);
		 сообщить(файлы.ТипХраненияФайла);
		 сообщить(файлы.Том);
		 сообщить(файлы.ФайлХранилище);
		 картинка=ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(файлы.Ссылка);
		 картинка.Записать("c:\temp\"+n+".jpg");
		 n=n+1;
	 конеццикла;	 
КонецПроцедуры

&НаКлиенте
Процедура ПолучитьФайлыКлиент(Команда)
	ПолучитьФайлыНаСервере();
КонецПроцедуры

&НаСервереБезКонтекста

Процедура ПолучитьФайлыНаСервере()

ном=Справочники.Номенклатура.НайтиПоКоду("1534 ");

сообщить(ном.ФайлКартинки);

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| НоменклатураПрисоединенныеФайлы.Ссылка КАК Ссылка,

| НоменклатураПрисоединенныеФайлы.ПутьКФайлу КАК ПутьКФайлу,

| НоменклатураПрисоединенныеФайлы.ТипХраненияФайла КАК ТипХраненияФайла,

| НоменклатураПрисоединенныеФайлы.Том КАК Том,

| НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище

|ИЗ

| Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы

|ГДЕ

| НоменклатураПрисоединенныеФайлы.ВладелецФайла.Ссылка = &ном" ;

Запрос.УстановитьПараметр("ном", ном);

файлы=Запрос.Выполнить().Выбрать();

n=0;

Пока файлы.Следующий() Цикл

сообщить(файлы.ПутьКФайлу);

сообщить(файлы.ТипХраненияФайла);

сообщить(файлы.Том);

сообщить(файлы.ФайлХранилище);

картинка=ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(файлы.Ссылка);

картинка.Записать("c:\temp\"+n+".jpg");

n=n+1;

конеццикла;

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

&НаКлиенте

Процедура ПолучитьФайлыКлиент(Команда)

ПолучитьФайлыНаСервере();

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

Оставить комментарий выгрузка картинок, номенклатура, розница 2.2

Не заполняется продавец в табличной части реализации 1С Розница

06.04.2018 Павел Грибов 1C

Ситуация: при подборе товаров в документе реализации не заполняется автоматически текущим продавцом соответствующий столбец в таблице с товаром.

Это не баг и не ошибка, по гуглу, «так и должно». Но руками выставлять нужного продавца — велика вероятность ошибки. А не заполнять — часть отчетов строится без «продавца». Например «Валовая прибыль».

Решение:

Добавляем подписку на событие для документа «Реализация», с событием «Перед записью». В принципе достаточно добавить что-то вроде:

Функция ПроверкаЗаполненияПродавца(Источник, Отказ) Экспорт
	//проверяем заполнена ли табличная часть реализации продаванами или нет
	для каждого стр из источник.Товары  цикл
		стр.продавец=источник.продавец;
	конеццикла;	
	///
КонецФункции