Архивы xml

Чтение данных из файла docx средствами 1С

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

Задача: спарсить данные из таблицы, которая находится в файле формата docx средствами 1С

Решение: по сути своей файл формата docx является zip архивом, в котором находятся файлы формата xml и внешние ресурсы, типа картинок, стилей и т.п. Текстовое же содержимое находится непосредственно в файле document.xml. Его нужно лишь прочитать, найти в нём таблицу и распарсить данные.

Для начала загрузим файл на сервер, переименуем его в zip, и откроем его при помощи метода 1С «ЧтениеZipФайла», а найденный в архиве файл document.xml извлекем для дальнейшей обработки:

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

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

	Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);
	ИмяВременногоФайлаXML = ПолучитьИмяВременногоФайла("xml");
	Для Каждого Элемент Из Архив.Элементы Цикл	
		если  Элемент.Имя="document.xml" тогда			
			Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);			
		конецесли;
	Конеццикла;	
	Архив.Закрыть();
....

&НаКлиенте

Процедура ВыбратьФайлыИСделатьХорошо(Команда)

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

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

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

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

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

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

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

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

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

ФайлСМС="";

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

ФайлСМС=ИмяФайла;

конеццикла;

если ФайлСМС<>"" тогда

АдресХранилищаФайла = "";

Состояние("Перемещаю файл на сервер");

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

Состояние("Обрабатывается файл "+ФайлСМС);

таблицы=ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла);

иначе

сообщить("Файл не выбран");

конецесли;

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

&НаСервере

Функция ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла)

ТЗ=Новый ТаблицаЗначений();

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

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

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

Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);

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

Для Каждого Элемент Из Архив.Элементы Цикл

если Элемент.Имя="document.xml" тогда

Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);

конецесли;

Конеццикла;

Архив.Закрыть();

....

Далее файл documnet.xml необходимо загрузить как XML и распарсить в структуру при помощи построителя DOM. После чего останется только найти таблицу по имени узла w:tbl и поместить содержимое в таблицу значений:

ФайлXML = Новый ЧтениеXML;
    ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");
		ПостроительDOMXML=Новый ПостроительDOM;
		ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);
		ПрочитаноСтрок=0;		
		для каждого document из ДокументДом.ДочерниеУзлы цикл
			для каждого body из document.ДочерниеУзлы цикл
				для каждого el из body.ДочерниеУзлы цикл
					если el.ИмяУзла="w:tbl" тогда
							для каждого tab_el из el.ДочерниеУзлы цикл							
								если tab_el.ИмяУзла="w:tr" тогда
									если ПрочитаноСтрок=0 тогда
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));
									иначе	                 
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда 
											прервать;
										КонецЕсли;           
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда
											если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда
												нс=ТЗ.Добавить();
												нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;
												нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;
												нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;
												нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;
												нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;
													нс[4]=СтрЗаменить(нс[4],",",".");
													нс[4]=СтрЗаменить(нс[4]," ","");
													если нс[4]="" тогда нс[4]="0";конецесли;
													нс[4]=Число(Формат(нс[4],"ЧГ=0"));												
												нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;
												нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;
												нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;
													нс[7]=СтрЗаменить(нс[7],",",".");
													нс[7]=СтрЗаменить(нс[7]," ","");
													если нс[7]="" тогда нс[7]="0";конецесли;
													нс[7]=Число(Формат(нс[7],"ЧГ=0"));												
												
											конецесли;
										конецесли;
									конецесли;	
									ПрочитаноСтрок=ПрочитаноСтрок+1;
								конецесли;
							конеццикла;
							если ПрочитаноСтрок>0 тогда прервать;конецесли;
						конецесли;
						если ПрочитаноСтрок>0 тогда прервать;конецесли;
					конеццикла;
					если ПрочитаноСтрок>0 тогда прервать;конецесли;
				конеццикла;
				если ПрочитаноСтрок>0 тогда прервать;конецесли;
		конеццикла;	
	ФайлXML.Закрыть();
	Возврат ТЗ;

ФайлXML = Новый ЧтениеXML;

ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");

ПостроительDOMXML=Новый ПостроительDOM;

ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);

ПрочитаноСтрок=0;

для каждого document из ДокументДом.ДочерниеУзлы цикл

для каждого body из document.ДочерниеУзлы цикл

для каждого el из body.ДочерниеУзлы цикл

если el.ИмяУзла="w:tbl" тогда

для каждого tab_el из el.ДочерниеУзлы цикл

если tab_el.ИмяУзла="w:tr" тогда

если ПрочитаноСтрок=0 тогда

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));

иначе

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда

прервать;

КонецЕсли;

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда

если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда

нс=ТЗ.Добавить();

нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;

нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;

нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;

нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;

нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;

нс[4]=СтрЗаменить(нс[4],",",".");

нс[4]=СтрЗаменить(нс[4]," ","");

если нс[4]="" тогда нс[4]="0";конецесли;

нс[4]=Число(Формат(нс[4],"ЧГ=0"));

нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;

нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;

нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;

нс[7]=СтрЗаменить(нс[7],",",".");

нс[7]=СтрЗаменить(нс[7]," ","");

если нс[7]="" тогда нс[7]="0";конецесли;

нс[7]=Число(Формат(нс[7],"ЧГ=0"));

конецесли;

ПрочитаноСтрок=ПрочитаноСтрок+1;

конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конецесли;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

ФайлXML.Закрыть();

Возврат ТЗ;

Оставить комментарий 1с, xml, извлечение таблицы, чтение docx

Еще один вариант выгрузки остатков товаров из 1С Розница 2.2 в файл XML.

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

Данную обработку можно использовать как основу для выгрузки списка товаров в интернет магазин. У меня и выгрузка из 1С и загрузка на сайт самописные, потому всё просто и понятно получается. Обработку можно скачать тут

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


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

&НаКлиенте
Процедура КатегорииТовараОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
	 СтандартнаяОбработка = Ложь;
     ИтоговаяТаблицаОбработкаВыбораНаСервере(ВыбранноеЗначение);
КонецПроцедуры


 &НаСервере
  Процедура ЗаполнитьПриСтартеНаСервере()
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1127       "));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001342"));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1161       "));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1434       "));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1078       "));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001392"));
	нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001239"));
	объект.Склад=Справочники.Склады.НайтиПоНаименованию("Вологда Торговля");
	объект.ФайлВыгрузки="c:\temp\export.xml";
  КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	// заполняем при старте
	ЗаполнитьПриСтартеНаСервере();
КонецПроцедуры

&НаСервере
Функция СведенияПоНоменклатуре(ЗаписьXML,Номенклатура);
 		Запрос = Новый Запрос;
 		Запрос.Текст = 			
		"ВЫБРАТЬ
		|	НоменклатураДополнительныеРеквизиты.Значение КАК Значение,
		|	НоменклатураДополнительныеРеквизиты.Ссылка.Ссылка КАК Ссылка,
		|	НоменклатураДополнительныеРеквизиты.Свойство.Наименование КАК СвойствоНаименование,
		|	НоменклатураДополнительныеРеквизиты.Свойство.Заголовок КАК СвойствоЗаголовок
		|ИЗ
		|	Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты
		|ГДЕ
		|	НоменклатураДополнительныеРеквизиты.Ссылка = &Ссылка";		
		Запрос.УстановитьПараметр("Ссылка", Номенклатура);
		Результат = Запрос.Выполнить().Выбрать();
		пока  Результат.Следующий() цикл
			ЗаписьXML.ЗаписатьНачалоЭлемента("meaning");
			 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.СвойствоЗаголовок+"</name>"+Символы.ПС);			
			 ЗаписьXML.ЗаписатьБезОбработки("<value>"+Результат.Значение+"</value>"+Символы.ПС);			
			ЗаписьXML.ЗаписатьКонецЭлемента();							
		конеццикла;

	КонецФункции	
	
	
&НаСервере
Функция СведенияПоЦенамНоменклатуры(ЗаписьXML,Номенклатура);
 		Запрос = Новый Запрос;
 		Запрос.Текст = 			
		"ВЫБРАТЬ
		|	ЦеныНоменклатурыСрезПоследних.ВидЦены КАК ВидЦены,
		|	ЦеныНоменклатурыСрезПоследних.Цена КАК Цена
		|ИЗ
		|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
		|ГДЕ
		|	ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";		
		Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
		Результат = Запрос.Выполнить().Выбрать();
		пока  Результат.Следующий() цикл
			ЗаписьXML.ЗаписатьНачалоЭлемента("price");
			 ЗаписьXML.ЗаписатьБезОбработки("<type>"+Результат.ВидЦены+"</type>"+Символы.ПС);			
			 ЗаписьXML.ЗаписатьБезОбработки("<cost>"+Формат(Результат.Цена,"ЧГ=")+"</cost>"+Символы.ПС);			
			ЗаписьXML.ЗаписатьКонецЭлемента();							
		конеццикла;

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

&НаСервере
Функция СведенияПоКомплектующим(ЗаписьXML,Номенклатура);
 		Запрос = Новый Запрос;
 		Запрос.Текст = 			
		"ВЫБРАТЬ
		|	КомплектующиеНоменклатуры.Комплектующая.Наименование КАК КомплектующаяНаименование,
		|	КомплектующиеНоменклатуры.Комплектующая.Код КАК КомплектующаяКод
		|ИЗ
		|	РегистрСведений.КомплектующиеНоменклатуры КАК КомплектующиеНоменклатуры
		|ГДЕ
		|	КомплектующиеНоменклатуры.Номенклатура = &Номенклатура";		
		Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
		Результат = Запрос.Выполнить().Выбрать();
		пока  Результат.Следующий() цикл
			ЗаписьXML.ЗаписатьНачалоЭлемента("order");
			 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.КомплектующаяНаименование+"</name>"+Символы.ПС);			
			 ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.КомплектующаяКод+"</code>"+Символы.ПС);			
			ЗаписьXML.ЗаписатьКонецЭлемента();							
		конеццикла;

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

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

	
&НаСервере
	
Функция ЗаменитьСпецСимволы(_стр)
	стр=СтрЗаменить(_стр, "&", "&amp;");
	стр=СтрЗаменить(стр, """", "&quot;"); 
	стр=СтрЗаменить(стр, "<", "&lt;");
	стр=СтрЗаменить(стр, ">", "&gt;");
	стр=СтрЗаменить(стр, "‘", "'");
Возврат стр;

КонецФункции	
&НаСервере
Функция СоздатьXMLНаСервере()
	ЗаписьXML = Новый ЗаписьXML;
	ЗаписьXML.ОткрытьФайл(объект.ФайлВыгрузки,"UTF-8");
	ЗаписьXML.ЗаписатьОбъявлениеXML();
		ЗаписьXML.ЗаписатьНачалоЭлемента("export");	
		
		для каждого ГруппаНоменклатуры из объект.КатегорииТовара цикл
 		Запрос = Новый Запрос;
 		Запрос.Текст = 		
			"ВЫБРАТЬ
			|	ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток КАК КоличествоКонечныйОстаток,
			|	ТоварыНаСкладахОстаткиИОбороты.КоличествоОборот КАК КоличествоОборот,
			|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура,
			|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Родитель.Ссылка КАК НоменклатураРодитель,
			|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ПометкаУдаления КАК НоменклатураПометкаУдаления,
			|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Описание КАК НоменклатураОписание,
			|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Марка.Наименование КАК НоменклатураМаркаНаименование
			|ИЗ
			|	РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты КАК ТоварыНаСкладахОстаткиИОбороты
			|ГДЕ
			|	ТоварыНаСкладахОстаткиИОбороты.Склад = &Склад
			|	И ТоварыНаСкладахОстаткиИОбороты.Номенклатура В ИЕРАРХИИ(&Номенклатура)
			|	И ТоварыНаСкладахОстаткиИОбороты.КоличествоОборот > 0
			|	И ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ЭтоГруппа = ЛОЖЬ";
			Запрос.УстановитьПараметр("Склад", объект.Склад);
			Запрос.УстановитьПараметр("Номенклатура", Справочники.Номенклатура.НайтиПоНаименованию(ГруппаНоменклатуры));
			Результат = Запрос.Выполнить().Выбрать();  
			
			пока  Результат.Следующий() цикл
				
					ЗаписьXML.ЗаписатьНачалоЭлемента("goods");
					ЗаписьXML.ЗаписатьБезОбработки("<good_cat>"+ГруппаНоменклатуры+"</good_cat>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<good_name>"+Результат.Номенклатура.Наименование+"</good_name>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<good_code>"+Результат.Номенклатура.Код+"</good_code>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<good_art>"+Результат.Номенклатура.Артикул+"</good_art>"+Символы.ПС);
					
					описание=ЗаменитьСпецСимволы(Результат.НоменклатураОписание);
				
					ЗаписьXML.ЗаписатьБезОбработки("<good_comment>"+описание+"</good_comment>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<is_delete>"+Результат.НоменклатураПометкаУдаления+"</is_delete>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<good_parent_name>"+Результат.НоменклатураРодитель.Наименование+"</good_parent_name>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<good_parent_code>"+Результат.НоменклатураРодитель.Код+"</good_parent_code>"+Символы.ПС);
					ЗаписьXML.ЗаписатьБезОбработки("<count>"+Результат.КоличествоКонечныйОстаток+"</count>"+Символы.ПС);
					
						ЗаписьXML.ЗаписатьНачалоЭлемента("prices");
							СведенияПоЦенамНоменклатуры(ЗаписьXML,Результат.Номенклатура);
						ЗаписьXML.ЗаписатьКонецЭлемента();							
					
						ЗаписьXML.ЗаписатьНачалоЭлемента("propety");
							СведенияПоНоменклатуре(ЗаписьXML,Результат.Номенклатура);
						ЗаписьXML.ЗаписатьКонецЭлемента();							
				
						ЗаписьXML.ЗаписатьНачалоЭлемента("soorders");
							СведенияПоКомплектующим(ЗаписьXML,Результат.Номенклатура);
						ЗаписьXML.ЗаписатьКонецЭлемента();							

						ЗаписьXML.ЗаписатьНачалоЭлемента("photos");
							Фотографии(ЗаписьXML,Результат.Номенклатура);
						ЗаписьXML.ЗаписатьКонецЭлемента();							
						
						
					ЗаписьXML.ЗаписатьКонецЭлемента();
			конеццикла;	

		конеццикла;
		
		ЗаписьXML.ЗаписатьКонецЭлемента();
	

	//возврат ЗаписьXML;
КонецФункции


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

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

&НаКлиенте

Процедура КатегорииТовараНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

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

ПараметрыПодбора.Вставить("ЗакрыватьПриВыборе", Истина);

ПараметрыПодбора.Вставить("МножественныйВыбор", Истина);

ПараметрыПодбора.Вставить("ВыборГруппИЭлементов", ИспользованиеГруппИЭлементов.ГруппыИЭлементы);

ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора", ПараметрыПодбора, Элементы.КатегорииТовара);

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

&НаСервере

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

Для Каждого вЗнч Из ВыбранноеЗначение Цикл

нстр=объект.КатегорииТовара.Добавить(вЗнч);

КонецЦикла;

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

&НаКлиенте

Процедура КатегорииТовараОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

ИтоговаяТаблицаОбработкаВыбораНаСервере(ВыбранноеЗначение);

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

&НаСервере

Процедура ЗаполнитьПриСтартеНаСервере()

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1127 "));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001342"));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1161 "));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1434 "));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("1078 "));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001392"));

нстр=объект.КатегорииТовара.Добавить(Справочники.Номенклатура.НайтиПоКоду("00-00001239"));

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

объект.ФайлВыгрузки="c:\temp\export.xml";

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

// заполняем при старте

ЗаполнитьПриСтартеНаСервере();

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

&НаСервере

Функция СведенияПоНоменклатуре(ЗаписьXML,Номенклатура);

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

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

"ВЫБРАТЬ

| НоменклатураДополнительныеРеквизиты.Значение КАК Значение,

| НоменклатураДополнительныеРеквизиты.Ссылка.Ссылка КАК Ссылка,

| НоменклатураДополнительныеРеквизиты.Свойство.Наименование КАК СвойствоНаименование,

| НоменклатураДополнительныеРеквизиты.Свойство.Заголовок КАК СвойствоЗаголовок

|ИЗ

| Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты

|ГДЕ

| НоменклатураДополнительныеРеквизиты.Ссылка = &Ссылка";

Запрос.УстановитьПараметр("Ссылка", Номенклатура);

Результат = Запрос.Выполнить().Выбрать();

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("meaning");

ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.СвойствоЗаголовок+"</name>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<value>"+Результат.Значение+"</value>"+Символы.ПС);

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

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

&НаСервере

Функция СведенияПоЦенамНоменклатуры(ЗаписьXML,Номенклатура);

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

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

"ВЫБРАТЬ

| ЦеныНоменклатурыСрезПоследних.ВидЦены КАК ВидЦены,

| ЦеныНоменклатурыСрезПоследних.Цена КАК Цена

|ИЗ

| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних

|ГДЕ

| ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";

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

Результат = Запрос.Выполнить().Выбрать();

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("price");

ЗаписьXML.ЗаписатьБезОбработки("<type>"+Результат.ВидЦены+"</type>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<cost>"+Формат(Результат.Цена,"ЧГ=")+"</cost>"+Символы.ПС);

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

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

&НаСервере

Функция СведенияПоКомплектующим(ЗаписьXML,Номенклатура);

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

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

"ВЫБРАТЬ

| КомплектующиеНоменклатуры.Комплектующая.Наименование КАК КомплектующаяНаименование,

| КомплектующиеНоменклатуры.Комплектующая.Код КАК КомплектующаяКод

|ИЗ

| РегистрСведений.КомплектующиеНоменклатуры КАК КомплектующиеНоменклатуры

|ГДЕ

| КомплектующиеНоменклатуры.Номенклатура = &Номенклатура";

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

Результат = Запрос.Выполнить().Выбрать();

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("order");

ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.КомплектующаяНаименование+"</name>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.КомплектующаяКод+"</code>"+Символы.ПС);

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

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

&НаСервере

Функция Фотографии(ЗаписьXML,Номенклатура);

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

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

"ВЫБРАТЬ

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

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

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

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

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

|ИЗ

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

|ГДЕ

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

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

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

n=0;

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

ЗаписьXML.ЗаписатьБезОбработки("<name>"+файлы.ПутьКФайлу+"</name>"+Символы.ПС);

конеццикла;

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

&НаСервере

Функция ЗаменитьСпецСимволы(_стр)

стр=СтрЗаменить(_стр, "&", "&");

стр=СтрЗаменить(стр, """", """);

стр=СтрЗаменить(стр, "<", "<");

стр=СтрЗаменить(стр, ">", ">");

стр=СтрЗаменить(стр, "‘", "'");

Возврат стр;

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

&НаСервере

Функция СоздатьXMLНаСервере()

ЗаписьXML = Новый ЗаписьXML;

ЗаписьXML.ОткрытьФайл(объект.ФайлВыгрузки,"UTF-8");

ЗаписьXML.ЗаписатьОбъявлениеXML();

ЗаписьXML.ЗаписатьНачалоЭлемента("export");

для каждого ГруппаНоменклатуры из объект.КатегорииТовара цикл

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

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

"ВЫБРАТЬ

| ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток КАК КоличествоКонечныйОстаток,

| ТоварыНаСкладахОстаткиИОбороты.КоличествоОборот КАК КоличествоОборот,

| ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура,

| ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Родитель.Ссылка КАК НоменклатураРодитель,

| ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ПометкаУдаления КАК НоменклатураПометкаУдаления,

| ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Описание КАК НоменклатураОписание,

| ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Марка.Наименование КАК НоменклатураМаркаНаименование

|ИЗ

| РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты КАК ТоварыНаСкладахОстаткиИОбороты

|ГДЕ

| ТоварыНаСкладахОстаткиИОбороты.Склад = &Склад

| И ТоварыНаСкладахОстаткиИОбороты.Номенклатура В ИЕРАРХИИ(&Номенклатура)

| И ТоварыНаСкладахОстаткиИОбороты.КоличествоОборот > 0

| И ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ЭтоГруппа = ЛОЖЬ";

Запрос.УстановитьПараметр("Склад", объект.Склад);

Запрос.УстановитьПараметр("Номенклатура", Справочники.Номенклатура.НайтиПоНаименованию(ГруппаНоменклатуры));

Результат = Запрос.Выполнить().Выбрать();

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("goods");

ЗаписьXML.ЗаписатьБезОбработки("<good_cat>"+ГруппаНоменклатуры+"</good_cat>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<good_name>"+Результат.Номенклатура.Наименование+"</good_name>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<good_code>"+Результат.Номенклатура.Код+"</good_code>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<good_art>"+Результат.Номенклатура.Артикул+"</good_art>"+Символы.ПС);

описание=ЗаменитьСпецСимволы(Результат.НоменклатураОписание);

ЗаписьXML.ЗаписатьБезОбработки("<good_comment>"+описание+"</good_comment>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<is_delete>"+Результат.НоменклатураПометкаУдаления+"</is_delete>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<good_parent_name>"+Результат.НоменклатураРодитель.Наименование+"</good_parent_name>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<good_parent_code>"+Результат.НоменклатураРодитель.Код+"</good_parent_code>"+Символы.ПС);

ЗаписьXML.ЗаписатьБезОбработки("<count>"+Результат.КоличествоКонечныйОстаток+"</count>"+Символы.ПС);

ЗаписьXML.ЗаписатьНачалоЭлемента("prices");

СведенияПоЦенамНоменклатуры(ЗаписьXML,Результат.Номенклатура);

ЗаписьXML.ЗаписатьКонецЭлемента();

ЗаписьXML.ЗаписатьНачалоЭлемента("propety");

СведенияПоНоменклатуре(ЗаписьXML,Результат.Номенклатура);

ЗаписьXML.ЗаписатьКонецЭлемента();

ЗаписьXML.ЗаписатьНачалоЭлемента("soorders");

СведенияПоКомплектующим(ЗаписьXML,Результат.Номенклатура);

ЗаписьXML.ЗаписатьКонецЭлемента();

ЗаписьXML.ЗаписатьНачалоЭлемента("photos");

Фотографии(ЗаписьXML,Результат.Номенклатура);

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

ЗаписьXML.ЗаписатьКонецЭлемента();

//возврат ЗаписьXML;

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

&НаКлиенте

Процедура СоздатьXML(Команда)

СоздатьXMLНаСервере();

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

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

Форматирование xml файла из коммандной строки

06.02.2017 Павел Грибов Linux

Задача: отформатировать удобочитаемый формат не форматированный xml громадного размера

Решение:

cat dump.xml | xmllint --format - > ff.xml

1	cat dump.xml \| xmllint --format - > ff.xml

Оставить комментарий big, format, xml, большой размер

Берем погоду у Яндекса в xml формате

10.09.2015 Павел Грибов PHP

Задача: получить погоду на сегодня и на завтра.

Решение: воспользуемся сервисом pogoda.yandex.ru

1. Найдем свой код города по справочнику https://pogoda.yandex.ru/static/cities.xml

2. По ссылке вида http://export.yandex.ru/weather-ng/forecasts/код_города.xml, мы имеем погоду в формате xml. Распарсим её например так:

<?php

$xml = file_get_contents(‘http://export.yandex.ru/weather-ng/forecasts/27037.xml’);

$wz = new SimpleXMLElement($xml);

$cn=0;

foreach ($wz->day as $value) {

$cnt=0;

foreach ($value->hour as $hr) {

if (($cnt==2) or ($cnt==12) or ($cnt==18)) {

$t=$hr->temperature;

$weather_condition=$hr->weather_condition[«code»];

echo «$t;$weather_condition</br>»;

};

$cnt++;

};

$cn++;

if ($cn==2) {die();};

}

2 комментария php, xml, yandex, погода

Выгрузка списка контрагентов в XML (1C 8.2)

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

Достаточно простой код, используя обьект 1С ЗаписьXML:

 Запрос = Новый Запрос;
 Запрос.Текст = 
 "ВЫБРАТЬ
	|	Контрагенты.Наименование как имя,
	|	Контрагенты.НаименованиеПолное как полноеимя,
	|	Контрагенты.Код как код,
	|	Контрагенты.ИНН как инн,
	|	Контрагенты.КПП как кпп,
	|	Контрагенты.Ссылка,
	|	Контрагенты.Покупатель как покупатель,
	|	Контрагенты.Поставщик как поставщик
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты";
	
  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();

  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");
	 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");
	 ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");
	 ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");
	 ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();

  конеццикла;
  ЗаписьXML.ЗаписатьКонецЭлемента();

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

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

"ВЫБРАТЬ

| Контрагенты.Наименование как имя,

| Контрагенты.НаименованиеПолное как полноеимя,

| Контрагенты.Код как код,

| Контрагенты.ИНН как инн,

| Контрагенты.КПП как кпп,

| Контрагенты.Ссылка,

| Контрагенты.Покупатель как покупатель,

| Контрагенты.Поставщик как поставщик

|ИЗ

| Справочник.Контрагенты КАК Контрагенты";

Результат = Запрос.Выполнить().Выбрать();

ЗаписьXML = Новый ЗаписьXML;

ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");

ЗаписьXML.ЗаписатьОбъявлениеXML();

ЗаписьXML.ЗаписатьНачалоЭлемента("export");

пока Результат.Следующий() цикл

ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");

ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");

ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");

ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");

ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");

ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");

ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");

ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");

ЗаписьXML.ЗаписатьКонецЭлемента();

конеццикла;

ЗаписьXML.ЗаписатьКонецЭлемента();

Оставить комментарий 1c, 1c 8.2, xml, выгрузка xml

1 2 »

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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