Архивы 1C - Страница 31 из 46

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

Программный вызов отчета СКД с параметрами и отборами. Выгрузка в файл

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

Можно сделать примерно так:

таб1=новый ТабличныйДокумент();	   
	СКД=Отчеты.ОценкаВаловойПрибыли.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
	
	Настройки=СКД.НастройкиПоУмолчанию;	
	ПераметрыСКД=Настройки.ПараметрыДанных.Элементы;	
	прскд=ПераметрыСКД.Найти("Период");	
		пер=Новый СтандартныйПериод;
		пер.ДатаНачала=НачалоМесяца(ТекущаяДата());
		пер.ДатаОкончания=КонецДня(ТекущаяДата());
	прскд=пер;
			ЭлементОтбора=Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
				ЭлементОтбора.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;
				ЭлементОтбора.ЛевоеЗначение=Новый ПолеКомпоновкиДанных("Магазин");//поле отбора
				ЭлементОтбора.ПравоеЗначение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");
				ЭлементОтбора.Использование=Истина;
				ЭлементОтбора.ИдентификаторПользовательскойНастройки=Новый УникальныйИдентификатор();//добавляет отбор  в состав пользовательских настроек
	
	
	 	Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;    
		
	    //Передаем в макет компоновки схему, настройки и данные расшифровки
	    МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);    
	    ВнешниеПараметры = Новый Структура;    		
		
	    //Выполним компоновку с помощью процессора компоновки
	    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);    
		
	    //Выводим результат в табличный документ
	    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	    ПроцессорВывода.УстановитьДокумент(таб1);    
	    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);    	 
		
		таб1.Записать("c:\temp\выловая_прибыль.xls",ТипФайлаТабличногоДокумента.XLS);

таб1=новый ТабличныйДокумент();

СКД=Отчеты.ОценкаВаловойПрибыли.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

Настройки=СКД.НастройкиПоУмолчанию;

ПераметрыСКД=Настройки.ПараметрыДанных.Элементы;

прскд=ПераметрыСКД.Найти("Период");

пер=Новый СтандартныйПериод;

пер.ДатаНачала=НачалоМесяца(ТекущаяДата());

пер.ДатаОкончания=КонецДня(ТекущаяДата());

прскд=пер;

ЭлементОтбора=Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;

ЭлементОтбора.ЛевоеЗначение=Новый ПолеКомпоновкиДанных("Магазин");//поле отбора

ЭлементОтбора.ПравоеЗначение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");

ЭлементОтбора.Использование=Истина;

ЭлементОтбора.ИдентификаторПользовательскойНастройки=Новый УникальныйИдентификатор();//добавляет отбор в состав пользовательских настроек

Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);

ВнешниеПараметры = Новый Структура;

//Выполним компоновку с помощью процессора компоновки

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);

//Выводим результат в табличный документ

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(таб1);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);

таб1.Записать("c:\temp\выловая_прибыль.xls",ТипФайлаТабличногоДокумента.XLS);

Оставить комментарий 1с, отбор, параметры, программный вызов, скд

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

Рубрика: 1C

Загрузка изображений в справочник номенклатуры из csv файла Розница 2.2

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

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

Не печатает чек с СН ЕНВД Розница 2.2

Программный вызов отчета СКД с параметрами и отборами. Выгрузка в файл