Декабрь 2020 - Страница 2 из 2

Быстрая обработка файла эксель средствами 1С

07.12.2020 Павел Грибов Из жизни

С недавних пор (относительно) 1С умеет загружать файлы эксель в табличный документ. Причём листы раскидывает на области. Обработка идет на удивление быстро, по сравнению со «старым» способом, через COM соединение с Excel.

Вот пример обработки файла:

1.Выбираем файл на «клиенте» и передаем его на «сервер»:

&НаКлиенте
Процедура ЗагрузкаПрайса(Команда)
		Режим = РежимДиалогаВыбораФайла.Открытие;
	    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
	    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
	    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xlsx)|*.xlsx";
	    ДиалогОткрытияФайла.Фильтр = Фильтр;
	    ДиалогОткрытияФайла.МножественныйВыбор = Истина;
	    ДиалогОткрытияФайла.Заголовок = "Выберите файл(ы)";
	    Если ДиалогОткрытияФайла.Выбрать() Тогда
	        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
	        Для Каждого ИмяФайла Из МассивФайлов Цикл
	            ВыбФайл = Новый Файл(ИмяФайла);
	            Сообщить(ИмяФайла+ НСтр("ru = '; Размер = '; en = '; Size = '")+ ВыбФайл.Размер());			
				АдресВременногоХранилища = "";
     			ПоместитьФайл(АдресВременногоХранилища, ИмяФайла, , Ложь, ЭтаФорма.УникальныйИдентификатор);   
				ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища);
			 конеццикла;
		конецесли;	   					
	
КонецПроцедуры

&НаКлиенте

Процедура ЗагрузкаПрайса(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xlsx)|*.xlsx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = Истина;

ДиалогОткрытияФайла.Заголовок = "Выберите файл(ы)";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

Для Каждого ИмяФайла Из МассивФайлов Цикл

ВыбФайл = Новый Файл(ИмяФайла);

Сообщить(ИмяФайла+ НСтр("ru = '; Размер = '; en = '; Size = '")+ ВыбФайл.Размер());

АдресВременногоХранилища = "";

ПоместитьФайл(АдресВременногоХранилища, ИмяФайла, , Ложь, ЭтаФорма.УникальныйИдентификатор);

ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища);

конеццикла;

конецесли;

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

2. Обрабатываем файл на «Сервере»:

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

	сообщить(ИмяВременногоФайла);
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.Прочитать(ИмяВременногоФайла,СпособЧтенияЗначенийТабличногоДокумента.Значение);

	//листаем все листы
	Для Каждого ОбластьТД ИЗ ТабличныйДокумент.Области Цикл			
			ОбластьФайла = ТабличныйДокумент.ПолучитьОбласть(ОбластьТД.Имя);
			КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();
			КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();
			Сообщить("Строк:"+КолВоСтрокФайла);
			Сообщить("Колонок:"+КолВоКолонокФайла);			
			имялиста=ОбластьТД.Имя;
			Сообщить("Лист:"+имялиста);			
					МассивИменКолонок=Новый Массив();
					// читаем шапку листа
					Для ит=1 ПО КолВоКолонокФайла Цикл
						нКолонка = СтрЗаменить(ит, Символы.НПП, "");
						ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R1" + "C"+нКолонка).ТекущаяОбласть.Текст;
						сообщить("- колонка: "+ИмяКолонки);
						МассивИменКолонок.Добавить(ИмяКолонки);
					конеццикла;	
					НачСтрока=0;КонСтрока=0;
					НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);
					КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);
					//перебираем все строки без первой строки			
					Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл
						нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");
						СодержимоеСтроки=Новый Массив();
						Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл
							нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");
							Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);
							ТекущаяОбласть = Область.ТекущаяОбласть;
							ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);
							СодержимоеСтроки.Добавить(ЗначениеЯчейки);					
						конеццикла;			
						// ОбработатьСписокЗначений в "СодержимоеСтроки"
					конеццикла;							
	конеццикла;			
КонецПроцедуры

&НаСервере

Процедура ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища)

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

ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");

ДвоичныеДанные.Записать(ИмяВременногоФайла);

сообщить(ИмяВременногоФайла);

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

ТабличныйДокумент.Прочитать(ИмяВременногоФайла,СпособЧтенияЗначенийТабличногоДокумента.Значение);

//листаем все листы

Для Каждого ОбластьТД ИЗ ТабличныйДокумент.Области Цикл

ОбластьФайла = ТабличныйДокумент.ПолучитьОбласть(ОбластьТД.Имя);

КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();

КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();

Сообщить("Строк:"+КолВоСтрокФайла);

Сообщить("Колонок:"+КолВоКолонокФайла);

имялиста=ОбластьТД.Имя;

Сообщить("Лист:"+имялиста);

МассивИменКолонок=Новый Массив();

// читаем шапку листа

Для ит=1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(ит, Символы.НПП, "");

ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R1" + "C"+нКолонка).ТекущаяОбласть.Текст;

сообщить("- колонка: "+ИмяКолонки);

МассивИменКолонок.Добавить(ИмяКолонки);

конеццикла;

НачСтрока=0;КонСтрока=0;

НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);

//перебираем все строки без первой строки

Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл

нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");

СодержимоеСтроки=Новый Массив();

Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");

Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);

ТекущаяОбласть = Область.ТекущаяОбласть;

ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);

СодержимоеСтроки.Добавить(ЗначениеЯчейки);

конеццикла;

// ОбработатьСписокЗначений в "СодержимоеСтроки"

конеццикла;

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

Оставить комментарий 1с, загрузка, обработка xls, табличный документ, файл эксель

Откуда мы пошли..

07.12.2020 Павел Грибов Из жизни

Фамилия Грибов восходит к нарицательному «гриб», которое в старину имело значение «губы». Слово «гриб» могло быть связанои с диалектным глаголом «грибиться» в любом из двух значений: 1) “морщиниться, хмуриться, дуться, сердиться”; 2) “гримасничать, корчить рожи”. Скорее всего, «Грибом» называли угрюмого недовольного человека или, напротив, балагура

Оставить комментарий грибов, фамилия

УТ 11.3 не формируется файл offers.xml

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

Для того чтобы он начал формироваться, в УТ нужно пройти следующий квест:

1) Поставить галочки в константах «Использовать типовые тоглашения с клиентами» и «Использовать типовые и индивидуальные тоглашения с клиентами»

2) НСИ и Администрирование -> ПРодажи -> Оптовые продажи поставить «Использовать соглашения с клиентами» -> Типовые

2) Создать типовое соглашение через «Продажи» -> Индивидуальные соглашения с клиентами. Не забыть поставить галочку «Доступно для обмена с сайтом»

Оставить комментарий 1с, выгрузка на сайт, УТ 11.3

1с УТ несоответствие фасету maxlength 1000

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

Такая ошибка случилась при штатном обмене с сайтом в УТ 11.3 Почему? А один из реквизитов для выгрузки у меня более чем 1000 символов. 1С видимо думает что такие длинные реквизиты зло. Может оно и право, но заказчику нужны нормальные тексты, а не обрезанные до 1000 символов.

Решение: правим схему XDTO CML208, а именно у типа значений ЗначениеТип, ставим нужную длинну.

Оставить комментарий

Пн	Вт	Ср	Чт	Пт	Сб	Вс
	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