прямой » Поиск

Результаты по ключевому слову: прямой

Универсальный парсер RSS для 1С

На одном проекте - клиент попросил отображать в программе данные, которые выдаю специализированные сайта в формате RSS - Что делать !?

Писать парсер rss для 1С

Первым делом, взглянув на ссылки, подумал что - обычный XML, сейчас его разложу и быстренько загружу в базу, но:

Выяснилось что сайты имеют разные форматы ввода RSS и главное они не валидные(

таким образом, написав небольшой код, который получает ссылку, далее XMLФайл.Прочитать() на одном сайте проходил на ура (этот пример я описывал в статье: Чтение данных с сайта в формате XML и загрузка в 1С), а вот второй сайт, и третий тоже, при попытке прочитать() выдавали:

{ОбщийМодуль.РегЗадания.Модуль(79)}: Ошибка при вызове метода контекста (Прочитать)

Пока XMLФайл.Прочитать() Цикл

по причине:

Ошибка разбора XML: - [1,1]

Фатальная ошибка:

Extra content at the end of the document

SystemId url rss

решил попробовать на rss других известных сайтов - 80% из проверяемых выдавали ошибку

Пришлось написать прямой построчный парсер RSS:

Структура конфигурации

ИсточникиRSS - URL на RSS, ДанныеRSS - сюда записываются загруженные данные новостей

Код получился таким(в принципе код универсальный, но возможно что-то придется подпилить):

Код 1C v 8.3

 

// RSS

Процедура ПрочитатьRSS(ИсточникRSS)

	url = ИсточникRSS.UrlRSS;

	

	// Получим Сервер

	Если Найти(url,".ru")>0 Тогда urlСервер = Лев(url,Найти(url,".ru")+2);	

	ИначеЕсли Найти(url,".com")>0 Тогда urlСервер = Лев(url,Найти(url,".com")+3);

	ИначеЕсли Найти(url,".org")>0 Тогда urlСервер = Лев(url,Найти(url,".org")+3);

	ИначеЕсли Найти(url,".info")>0 Тогда urlСервер = Лев(url,Найти(url,".info")+4);

	ИначеЕсли Найти(url,".pro")>0 Тогда urlСервер = Лев(url,Найти(url,".pro")+3);

	КонецЕсли;	 		

		

	//Определим тип соединения

	Если Лев(url,5)="https" Тогда

		//ssl = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows(), Новый СертификатыУдостоверяющихЦентровWindows());   

		ssl = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено );

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"https://",""); 

		Соединение = Новый HTTPСоединение(Сервер,,,,,

		5, // таймаут в секундах

		ssl // защищенное HTTPS соединение

		);

	Иначе //Обычный HTTP 		

		ТекАдрес = СтрЗаменить(url,urlСервер,""); Сервер = СтрЗаменить(urlСервер,"http://","");

		Соединение = Новый HTTPСоединение(Сервер);

	КонецЕсли;





	Заголовки = Новый Соответствие;

	Заголовки.Вставить("host", Сервер);  

	Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);

	Ответ =Соединение.Получить(Запрос);

	Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их

		Содержимое= Ответ.ПолучитьТелоКакСтроку();

		//Преобразуем содержимое

		Содержимое = СтрЗаменить(Содержимое,"<br/>","|"); 

		Содержимое = СтрЗаменить(Содержимое,"<![CDATA[",""); Содержимое = СтрЗаменить(Содержимое,"]]>","");  

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

		Содержимое = СтрЗаменить(Содержимое,Символы.ВТаб,""); Содержимое = СтрЗаменить(Содержимое,Символы.Таб,""); 

		Содержимое = СтрЗаменить(Содержимое,"><",">"+Символы.ПС+"<"); 

		

		RegExp = Новый COMОбъект("VBScript.RegExp"); //Регулярка

		RegExp.IgnoreCase = Ложь; 

		RegExp.Global = Истина;    

		RegExp.MultiLine = Истина;   		

		RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML   

		

		//Разберем полученный текст в таблицу

		ЭтоЗапись=Ложь;

		Для н=1 По СтрЧислоСтрок(Содержимое)Цикл

			обрТекст=СтрПолучитьСтроку(Содержимое,н);

			

			Если обрТекст = "<item>" Тогда //Началась запись 

				ЗаписьСтр = Новый Структура(); ЭтоЗапись=Истина; Продолжить;  

			ИначеЕсли обрТекст = "</item>" Тогда //Закончилась запись 

				

				/////////////// ЗАПИСЬ Закончилась //////////////

				/// теперь запишем ее в базу - Справочник ДанныеRSS

				// сначала ПОИСК ДУБЛЕЙ - вдруг уже загружен 				

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

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

				"ВЫБРАТЬ

				|	ДанныеRSS.Ссылка

				|ИЗ

				|	Справочник.ДанныеRSS КАК ДанныеRSS

				|ГДЕ

				|	ДанныеRSS.ИсточникRSS =ИсточникRSS

				|	И ДанныеRSS.link ПОДОБНОlink";

				

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

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

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

				Если РезультатЗапроса.Следующий() Тогда

					// Такая запись уже есть, пока ничего не делаем

				Иначе

					//СОЗДАЕМ Новый

					НовЭлем  = Справочники.ДанныеRSS.СоздатьЭлемент();

					ЗаполнитьЗначенияСвойств(НовЭлем,ЗаписьСтр);

					НовЭлем.ИсточникRSS = ИсточникRSS;

					НовЭлем.Записать(); 					

				КонецЕсли; 				

				/////////////////////// *** /////////////////////

				

				ЭтоЗапись=Ложь; Продолжить; 

			КонецЕсли; //Данные записи

			

			Если ЭтоЗапись Тогда	

				Если Найти(обрТекст,"title>")>0 и Найти(обрТекст,"/title>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"title",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("Наименование",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"link>")>0 и Найти(обрТекст,"/link>")>0 Тогда				

					обрТекст = СтрЗаменить(обрТекст,"link",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("link",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"description>")>0 и Найти(обрТекст,"/description>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"description",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					обрТекст=RegExp.Replace(обрТекст, ""); //Удалим все теги

					ЗаписьСтр.Вставить("desc",СокрЛП(обрТекст));

				КонецЕсли;

				

				Если Найти(обрТекст,"pubDate>")>0 и Найти(обрТекст,"/pubDate>")>0 Тогда			

					обрТекст = СтрЗаменить(обрТекст,"pubDate",""); обрТекст = СтрЗаменить(обрТекст,"<>",""); обрТекст = СтрЗаменить(обрТекст,"</>","");

					ЗаписьСтр.Вставить("pubDate",ПреобразоватьRFC822КДате0(СокрЛП(обрТекст)));

				КонецЕсли;

				

				Если Найти(обрТекст,"enclosure")>0 Тогда					 

					обрТекст = СтрЗаменить(обрТекст,"""",""); обрТекст = СтрЗаменить(обрТекст,"<enclosure url=","");

					обрТекст = СтрЗаменить(обрТекст,"<enclosure url=",""); обрТекст = СтрЗаменить(обрТекст,"type=image/png length=/>","");

					ЗаписьСтр.Вставить("img",СокрЛП(обрТекст));

				КонецЕсли;

			КонецЕсли;	

							

		КонецЦикла;

		

	КонецЕсли;

	

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









Процедура ПроверкаRSS() Экспорт

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

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

	"ВЫБРАТЬ

	|	ИсточникиRSS.Ссылка КАК Ссылка

	|ИЗ

	|	Справочник.ИсточникиRSS КАК ИсточникиRSS

	|ГДЕ

	|	ИсточникиRSS.Использовать

	|	И ДОБАВИТЬКДАТЕ(ИсточникиRSS.ДатаПоследнегоОбновления, СЕКУНДА, ИсточникиRSS.ПериодОбновленияВСекундах) <ТекДата"; 	

	Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());

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

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

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		ПрочитатьRSS(ВыборкаДетальныеЗаписи.Ссылка);

		// Запишем дату последнего обновления

		ТекОб = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

		ТекОб.ДатаПоследнегоОбновления = ТекущаяДата();

		ТекОб.Записать();

	КонецЦикла;

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



Функция ПреобразоватьRFC822КДате0(ДатаВФорматеRFC822) Экспорт

    КопияСтроки = ДатаВФорматеRFC822;

    СтруктураДаты = Новый Структура("Год,Месяц,День,Час,Минута,Секунда",  "","","","","","");

    Месяцы = Новый Структура("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",  "01","02","03","04","05","06","07","08","09","10","11","12");

    Для каждого КлючИЗначение Из Месяцы Цикл

        Позиция = Найти(КопияСтроки,КлючИЗначение.Ключ);

        Если Позиция > 0  Тогда

             СтруктураДаты.Месяц = КлючИЗначение.Значение;

            Прервать;

        КонецЕсли;

    КонецЦикла; 

	Состояние = 0;

	КопияСтроки = СтрЗаменить(КопияСтроки,", 1 ",", 01 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 2 ",", 02 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 3 ",", 03 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 4 ",", 04 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 5 ",", 05 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 6 ",", 06 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 7 ",", 07 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 8 ",", 08 ");

	КопияСтроки = СтрЗаменить(КопияСтроки,", 9 ",", 09 ");

	Для ш=0 По СтрДлина(КопияСтроки) Цикл

        ТекущийСимвол = Сред(КопияСтроки,ш,1); //ПолучитьСимвол(КопияСтроки, ш);

        ТекСимволЦифра= ЭтоЦифра(ТекущийСимвол);

        Если ТекСимволЦифра И Состояние = 0  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 1; //начало день

        ИначеЕсли ТекСимволЦифра И Состояние = 1  Тогда

            СтруктураДаты.День = СтруктураДаты.День + ТекущийСимвол;

            Состояние = 2; //ждем год

        ИначеЕсли ТекСимволЦифра И Состояние = 2  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

            Состояние = 3; //продолжаем год

        ИначеЕсли ТекСимволЦифра И Состояние = 3  Тогда

            СтруктураДаты.Год = СтруктураДаты.Год + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 3 Тогда

               Состояние = 4; //дальше час    

        ИначеЕсли ТекСимволЦифра И Состояние = 4  Тогда

            СтруктураДаты.Час = СтруктураДаты.Час + ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 4  Тогда

            Состояние = 5; //дальше минута

        ИначеЕсли ТекСимволЦифра И Состояние = 5  Тогда

            СтруктураДаты.Минута = СтруктураДаты.Минута +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = ":" И Состояние = 5  Тогда

            Состояние = 6; //дальше секунда

        ИначеЕсли ТекСимволЦифра И Состояние = 6  Тогда

            СтруктураДаты.Секунда = СтруктураДаты.Секунда +  ТекущийСимвол;

        ИначеЕсли ТекущийСимвол = " " И Состояние = 6 Тогда

            Прервать;

        КонецЕсли;

    КонецЦикла;

    Попытка

        Результат = Дата(СтруктураДаты.Год+СтруктураДаты.Месяц+СтруктураДаты.День

                        +СтруктураДаты.Час+СтруктураДаты.Минута+СтруктураДаты.Секунда);

    Исключение

        Результат = Неопределено;    

    КонецПопытки;

    Возврат Результат;

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



Функция ЭтоЦифра(Символ) Экспорт

     Если (КодСимвола(Символ)>=48) И (КодСимвола(Символ)<=57) Тогда Возврат Истина; Иначе Возврат ложь; КонецЕсли;

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



Функция ПолучитьСимвол(КопияСтроки, ш)

	Возврат Сред(КопияСтроки,ш,1);

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

Результат загрузки новостей RSS HelpF.pro

Кстати, как позже выяснилось, здесь уже есть статья с примером через IE и DOM: Получения новостей с RSS-канала сайта buh.ru

Категория: Работа с Интернет, Почтой (Mail), FTP

Получение уникального идентификатора ссылки в СКД

Как известно, с помощью языка запросов 1С получить уникальный идентификатор объекта ссылочного типа на данный момент нельзя. Но используя возможность СКД обращаться к внешним функциям можно получить строковое представление уникального идентификатора ссылки. Для этого необходимо использовать глобальную функцию XMLСтрока в вычисляемых полях в макете схемы компоновки.

Далее проведем эксперимент по быстродействию получения результата через запрос с последующей обработкой выборки и вариантов с использованием СКД.

Рассмотрим два случая - вывод в табличный документ и формирование текстового документа.

Так же в случае с СКД мы можем создать схему компоновки программно или использовать готовую. Результат работы СКД так же можно обойти в цикле, либо вывести в таблицу значений с последующей обработкой. Для экспериментов будет использоваться платформа 8.3, конфигурация УТ11 (файловая), справочник "КлассификаторБанковРФ", более 4000 элементов.

Схему компоновки и макет можно посмотреть, скачав обработку (ссылка в конце).

Код 1C v 8.2 УП

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

Функция ПолучитьТекстЗапроса()





 Возврат "ВЫБРАТЬ

         | КлассификаторБанковРФ.Ссылка,

         | КлассификаторБанковРФ.Наименование

         |ИЗ

         | Справочник.КлассификаторБанковРФ КАК КлассификаторБанковРФ";





КонецФункции // ПолучитьТекстЗапроса()





&НаСервере

Функция ПолучитьСхемуОбработки()

 

 Возврат РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Макет");

 

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





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

Функция ПолучитьСхемуКомпоновки()

 

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

 

 ИсточникДанных = Схема.ИсточникиДанных.Добавить();

 ИсточникДанных.Имя = "Источник";

 ИсточникДанных.ТипИсточникаДанных = "Local";

 

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

 НаборДанных.Имя = "НаборДанных";

 НаборДанных.ИсточникДанных = "Источник";

 НаборДанных.Запрос = ПолучитьТекстЗапроса();

 

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

 НаборСсылка.Поле = "Ссылка";

 НаборСсылка.ПутьКДанным = "Ссылка";

 НаборНаименование= НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));

 НаборНаименование.Поле = "Наименование";

 НаборНаименование.ПутьКДанным = "Наименование";

 

 ПолеИД = Схема.ВычисляемыеПоля.Добавить();

 ПолеИД.Выражение = "XMLСтрока(Ссылка)";

 ПолеИД.Заголовок = "ИД";

 ПолеИД.ПутьКДанным = "ИД";

 

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

 СтрокаТЗ.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));

 

 ЭлементыВыбора = Схема.НастройкиПоУмолчанию.Выбор.Элементы;

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

 ПолеСсылка.Поле = Новый ПолеКомпоновкиДанных("Ссылка");

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

 ПолеНаименование.Поле = Новый ПолеКомпоновкиДанных("Наименование");

 ПолеИД = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));

 ПолеИД.Поле = Новый ПолеКомпоновкиДанных("ИД");

 

 Возврат Схема;

 

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





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

Функция ЗаполнитьПоКомпоновкеПрямойОбход(Схема)





 Док = Новый ТекстовыйДокумент;

 

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

 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 

 

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

 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);

 

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

 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);

 ПроцессорВывода.НачатьВывод();

 

 Пока Истина Цикл

  

  ЭлементКомпоновки = ПроцессорКомпоновки.Следующий();

  Если ЭлементКомпоновки = Неопределено Тогда

   Прервать;

  КонецЕсли;

  

  ПроцессорВывода.ВывестиЭлемент(ЭлементКомпоновки);

  Если ЭлементКомпоновки.Макет = "Макет2" И ЭлементКомпоновки.ТипЭлемента = ТипЭлементаРезультатаКомпоновкиДанных.НачалоИКонец Тогда

   Док.ДобавитьСтроку(ЭлементКомпоновки.ЗначенияПараметров.П2.Значение + ";" + ЭлементКомпоновки.ЗначенияПараметров.П3.Значение);

  КонецЕсли;

  

 КонецЦикла;

 

 ТЗ = ПроцессорВывода.ЗакончитьВывод();

 

 Возврат Док;





КонецФункции // ЗаполнитьПоКомпоновкеПрямойОбход()





&НаСервере

Функция ЗаполнитьОбходТЗ(ИспользоватьСхемуОбработки)





 Если ИспользоватьСхемуОбработки Тогда

  Схема = ПолучитьСхемуОбработки();

 Иначе

  Схема = ПолучитьСхемуКомпоновки();

 КонецЕсли;

 

 Возврат ЗаполнитьПоКомпоновкеОбходТЗ(Схема);





 //Возврат ЗаполнитьПоКомпоновкеОбходТЗ(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));

 

КонецФункции // ЗаполнитьОбходТЗ()





&НаСервере

Функция ЗаполнитьПрямойОбход(ИспользоватьСхемуОбработки)





 Если ИспользоватьСхемуОбработки Тогда

  Схема = ПолучитьСхемуОбработки();

 Иначе

  Схема = ПолучитьСхемуКомпоновки();

 КонецЕсли;

 

 Возврат ЗаполнитьПоКомпоновкеПрямойОбход(Схема);

 //Возврат ЗаполнитьПоКомпоновкеПрямойОбход(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));





КонецФункции // ЗаполнитьОбходТЗ()





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

Функция ЗаполнитьПоКомпоновкеОбходТЗ(Схема)





 Док = Новый ТекстовыйДокумент;

 

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

 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 

 

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

 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);

 

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

 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);

 ТЗ = ПроцессорВывода.Вывести(ПроцессорКомпоновки);

 

 Для Каждого СтрокаТЗ Из ТЗ Цикл

  Док.ДобавитьСтроку(СтрокаТЗ.Наименование + ";" + СтрокаТЗ.ИД);

 КонецЦикла;

 

 Возврат Док;





КонецФункции // ЗаполнитьПоКомпоновкеОбходТЗ()





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

Функция ЗаполнитьПоЗапросу()





 Док = Новый ТекстовыйДокумент;

 

 Запрос = Новый Запрос(ПолучитьТекстЗапроса());

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

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

  Док.ДобавитьСтроку(Результат.Наименование + ";" + XMLСтрока(Результат.Ссылка));

 КонецЦикла;

 

 Возврат Док;





КонецФункции // ЗаполнитьПоЗапросу()





&НаСервере

Процедура ЗаполнитьТабДокСхема(ИспользоватьСхемуОбработки)





 Если ИспользоватьСхемуОбработки Тогда

  Схема = ПолучитьСхемуОбработки();

  ТабДок = ТабДок1;

 Иначе

  Схема = ПолучитьСхемуКомпоновки();

  ТабДок = ТабДок2;

 КонецЕсли;

 

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

 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию); 

 

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

 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);

 

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

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

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





КонецПроцедуры // ЗаполнитьТабДокСхема()





&НаСервере

Процедура ЗаполнитьТабДокЗапрос()

 

 Макет = РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Отчет");

 ОбластьСтрока = Макет.ПолучитьОбласть("Строка");

 

 Запрос = Новый Запрос(ПолучитьТекстЗапроса());

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

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

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

  ОбластьСтрока.Параметры.ИД = XMLСтрока(Результат.Ссылка);

  ТабДок3.Вывести(ОбластьСтрока);

 КонецЦикла;

 

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





&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

 

 ЗаполнитьТабДокСхема(Истина);

 ЗаполнитьТабДокСхема(Ложь);

 ЗаполнитьТабДокЗапрос();

 

 Т1 = ЗаполнитьПоЗапросу(); 

 Т2 = ЗаполнитьОбходТЗ(Ложь);

 Т3 = ЗаполнитьОбходТЗ(Истина);

 Т4 = ЗаполнитьПрямойОбход(Ложь);

 Т5 = ЗаполнитьПрямойОбход(Истина);

 

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

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

В тоже время вывод результатов в текстовый документ отрабатывает быстрее для запроса.

Программное создание схемы компоновки отработало быстрее, чем получение макета схемы.

Источник

Категория: Схема Компоновки Данных

Горячие клавиши 1С

Конфигуратор 1С

Конфигурация
1 Alt + К + Enter Открыть конфигурацию
2 Alt + К + Т Поиск во всех текстах
3 Alt + К + О Объединение конфигураций
4 Alt + K + З Загрузить измененную конфигурацию
5 Alt + К + Е Конвертирование данных

Администрирование
6 Alt + А + П Пользователи
7 Alt + А + Х Сохранить данные
88 Alt + А + В Восстановить данные
9 Alt + А + Ы Выгрузить данные
10 Alt + А + Г Загрузить данные
11 Alt + А + Н Настройка журнала регистрации
12 Alt + А + Р Распределенная ИБ
13 Alt + А + Р + У Управление
14 Alt + А + Р + А Автообмен

Действия
15 Alt + Д + Т Открыть в отладчике
16 Alt + Д + К Синтаксический контроль запросов
17 Alt + Д + И Синтаксический контроль
18 Alt + Д + Р Процедуры и функции модуля

Файл
19 Ctrl + N Новый
20 Ctrl + O Открыть
21 Ctrl + S Сохранить
22 Ctrl + P Печать
23 Alt + Ф + Р Сравнить файлы
24 Alt + Ф + З Закрыть
25 Alt + Ф + Р + Р + Enter Просмотр
26 Alt + Ф + М Параметры страницы

Работа с закладками
27 Shift + F2 Предыдущая закладка
28 Alt + F2 Закладка
29 F2 Следующая закладка

Работа с блоком
30 Ctrl + Shift +F Форматировать
31 Tab Сдвинуть вправо
32 Shift + Tab Сдвинуть влево
33 Ctrl + Num Добавить комментарий
34 Ctrl + Shift + Num Удалить комментарий

Окна
35 Ctrl + F4 Закрыть окно
36 Ctrl + Shift + F6 Следующее окно
37 Ctrl + F6 Предыдущее окно
38 Alt + О + К Каскадом
39 Ctrl + Shift + Z Закрыть окно сообщений
40 Ctrl + Alt + F Следующая страница
41 Ctrl + Alt + B Предыдущая страница
42 Alt + О + Р Разделить окно

Поиск и замена
43 Ctrl + Shift + F3 Заменить
44 Ctrl + F3 Искать
45 F3 Повторить поиск
46 Alt + F3 Искать назад
47 Shift + F3 Искать вперед
48 Ctrl + Shift + L Переход к строке

Сервис
49 Ctrl + F2 Калькулятор
50 Alt + С + С Синтаксис помощник
51 Alt + С + Н Настройка шаблонов
52 Alt + С + В Временная блокировка
53 F11 Запуск предприятия
54 F12 Запуск отладчика

Помощь
55 F1 Помощь
56 Shift + F1 Содержание
57 Ctrl + F1 Поиск в Синтакс-Помощнике
58 Alt + П + О О программе

Общие
59 Alt + Enter Свойства
60 Alt + F4 Выход

1С Предприятие

Документ
1 Ctrl + Enter Кнопка по умолчанию
2 F4 Выбор поля (альтернатива мыши)
3 Tab Прямой обход полей
4 Shift + Tab Обратный обход полей

Справочник/Действия
5 Ins Новый элемент
6 Ctrl + F9 Новая группа
7 Shift + Enter Изменить элемент
8 Alt + Д + Р Просмотр элемента или группы
9 F9 Копировать элемент или группу
10 Del Пометить элемент/Снять пометку
11 F5 История значения
12 Alt + Д + А Найти в дереве
13 Ctrl + F5 Перенести в другую группу
14 Alt + Д + Ч Подчиненный справочник

Сортировка
15 Ctrl + 1 Сортировка справочника по коду
16 Ctrl + 2 Сортировка справочника по наименованию
17 Ctrl + 3 Сортировка справочника по реквизиту
18 Ctrl + стрелка вверх На уровень вверх
19 Ctrl + стрелка вниз На уровень вниз

Категория: 1С Общие вопросы - Обычные формы

Скрипт переустанавливает Платформу 1С и прописывает нужные базы, ярлыки!

Круглов Дмитрий дмитриевич:
Скрипт определяет наличие предыдущих платформ и деинсталлирует их..
далее устанавливает последнююю версию, прописывает нужные базы и прямые ярлыки

Код VBS

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

	If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	'Иногда папка остается в каталоге installer после удаления - исправим это

	UdalitFolder ProductCod

	End If

	

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

	If Ustanovlena(ProductCod) Then 

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

	If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If	



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function

Рябко Михаил Евгеньевич:
При установке файла 1CEnterprise 8.2.msi через GPO платформа ставилась, но потом ее не могли удалить (после выключения из групповых политик установки). Никакой unistaller ee не брал. Потом почистили реестр, вроде победили.
Более того, инсталлер не прописывал ярлыки в каталог %SystemRoot%\Installer\{8150646B-4F88-4415-AF2A-F96199E3DA37},из за этого все ярлыки были без картинок.

Даже если бы все работало, этот способ не очень понравился, т.к. для 8.2 через те же GPO нельзя прописать базы. А смысл тогда?
Далее пробовали через скрипт. Такое же непредсказуемое поведение по деинсталляции платформы. Кроме этого появлялось 2 ярлыка после установки. Один - который прописан в скрипте, другой - после работы инсталлятора. Ну ладно, написал файл трансформации, чтобы лишний ярлык не создавал, но проблема ошибки при выполнения скрипта ("Требуется объект") и деинсталляции осталась.
Точно также проблема деинсталляции и с ярлыками остается при прямой установке 1CEnterprise 8.2.msi (без трансформации, запуском из проводника), разве что из списка программ удаляется, а все файлы остаются.
В итоге пришли к решению в лоб. Раз уж запуск 1cestart.exe на расшаренной папке дает более-менее положительный результат вручную, то нужно и идти по этому пути. Написал скрипт установки. Вроде работает. Правда, чтобы ограничится установкой без запуска, пришлось создать базу-пустышку и намеренно внести ошибку в параметр запуска. Далее по комментариям все должно быть понятно.

А так есть подозрение, что причина в кривом файле 1CEnterprise 8.2.msi (ярлыки то хотя бы он должен создавать нормально?). То ли дело установка через Setip.exe - тут все в шоколаде и работает.

Итак, альтернативный скрипт (сохранить с расширением *.vbs)

Код VBS

 Option Explicit



'Этот скрипт выполняет установку 1С 8.2 с помощью операций типа

'copy \\Server\Adm_1C_8_2\Null-Base\Zero_dblist.v8i %AppData%\1C\1CEStart\ibases.v8i

'\\Server\Adm_1C_8_2\Kadry_Zarplata_Buh\1cestart.exe Enterprise /F \\Server\d$\Adm_1C_8_2\Null-Base



'***** Необходимо изменить на реальный каталог установки,

'***** где лежат папки с дистрибутивами типа 8.2.10.77

Const DistrFolder="\\Server\Adm_1C_8_2\"

'Если тонкого клиента ставить не собираетесь из папки setuptc, то лучше ее удалите, т.к. инсталлер

'бывает путается, что ему ставить, и несмотря на все параметры начинает ставить тонкого клиента, когда его

'об этом не просят.



'***** Для каждго набора баз (отдела) свой подкаталог, в котором располагаются 1CESCmn, 1cestart.exe,

'***** common_dblist.v8i и этот скрипт Setup 1C8_2.vbs

Const DistrFolderOtdel="Kadry_Zarplata_Buh\"



'Т.к. отключить запуск 1С при выполнении 1CEStart нельзя (а нам нужна только установка), то кроме этого скрипта должна быть

'создана пустая база в каталоге \\Server\Adm_1C_8_2\Null-Base.

'Для надежности в модуле управляемого приложения базы можно прописать процедуру

'

'Процедура ПередНачаломРаботыСистемы(Отказ)

' // Вставить содержимое обработчика.

' ЗавершитьРаботуСистемы(Ложь);

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



'В эту же папку положить файл-пустышку общих баз Zero_dblist.v8i



Const myBase = "\\Server\Adm_1C_8_2\Null-Base"



Dim shortcutTarget : shortcutTarget = DistrFolder & DistrFolderOtdel & "1cestart.exe"

Dim WshShell

Dim strAppData

Dim objFSO

Dim strFolder1C, strFolder1CEStart, strFullFolderName, strFullFileName



'Сначала получим каталог пользователя

Set WshShell = WScript.CreateObject("WScript.Shell")

strAppData = WSHShell.SpecialFolders("AppData")



Set objFSO = CreateObject("Scripting.FileSystemObject")



'Проверим наличие папок у пользователя и при необходимости создадим

strFolder1C = "1C"

strFolder1CEStart = "1CEStart"

strFullFolderName =  objFSO.BuildPath(strAppData, strFolder1C)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



strFullFolderName =  objFSO.BuildPath(strAppData & "\" &strFolder1C, strFolder1CEStart)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



'Если файл со списокм баз уже есть, то затирать его не будем

strFullFileName = objFSO.BuildPath(strFullFolderName, "ibases.v8i")

If Not objFSO.FileExists(strFullFileName) Then

'Скопируем пустой список общих баз из папки с пустой базой,

'чтобы при запуске не задавались рядовому пользователю вопросы типа "Скопировать список баз из 8.1?"

objFSO.CopyFile  myBase & "\" & "Zero_dblist.v8i", strAppData & "\1C\1CEStart\ibases.v8i", True

Set objFSO = Nothing

End If



'Теперь установка

'Указан параметр nterprise вместо Enterprise, чтобы подавить запуск самой 1С из-за ошибки параметра

'т.к. нужна только инсталляция. Вот такая хитрость.

WshShell.run(shortcutTarget & " nterprise /F " & myBase)

Set WshShell = Nothing

Категория: Администрирование

Прямой SQL запрос к базе 7.7 из базы 8.x

Код 1C v 8.х

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

    Connection = Новый COMОбъект("ADODB.Connection");

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

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

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;

Категория: COM-объекты, WMI, WSH

Работа с журналом расчетов в 1С7.7 из 1С 8.1 через Com соединение

Недавно делал перенос справочников и документов из 1С 7.7 "Зарплата и кадры" в 1С 8.1 "Управление торговым предприятием" через Com соединение. Во время переноса столкнулся с некоторыми проблемами. Одна из них - это при выполнении запроса очень важно правильно указать синтаксис передаваемых значений, особенно даты, иначе запрос не будет выполняться. Как правильно написать запрос? Смотрим:

Код 1C v 8.х

 //Создадим Com объект для подключения к 1С 77

  База77  = Новый COMObject("V77.Application");

  

  //Устанавливаем соединение  

  Открыта = База77.Initialize(База77.RMTrade,"/d" + ПутьКБазе77,"NO_SPLASH_SHOW");

 

  Если Открыта Тогда

    Предупреждение("Ошибка открытия информационной базы!");

  Иначе

    Сообщить("БАЗА ОТКРЫТА УСПЕШНО!");

  Конецесли;

 

  //Определим дату из периода за который 

  //необходимо выбрать данные

  ДатаПериода = ТекущаяДата();

  

  //Подключимся к журналу расчетов

  Зрп = База77.CreateObject("ЖурналРасчетов.Зарплата");

  

  //Получим период журнала расчета по нашей дате

  //переведем в формат без времени

  НТП = Формат(Зрп.НачалоПериодаПоДате(ДатаПериода),"ДЛФ=Д");

  КТП = Формат(Зрп.КонецПериодаПоДате(ДатаПериода),"ДЛФ=Д");

  

  //Напишем текст запроса

  //обратите внимание на установку периода в запросе

  //Если неправильно написать, будет вылазить ошибка

  ТекстЗапр =  "//{{ЗАПРОС(ВидыРасч)

  |Период с '" + НТП + "' по '" + КТП + "';

  |Вир = ЖурналРасчетов.Зарплата.ВидРасч;

  |Рез = ЖурналРасчетов.Зарплата.Результат;

  |Дни = ЖурналРасчетов.Зарплата.Дни;   

  |ДатаНачала   = ЖурналРасчетов.Зарплата.ДатаНачала;

  |ДатаОкончания   = ЖурналРасчетов.Зарплата.ДатаОкончания;  

  |Часы = ЖурналРасчетов.Зарплата.Часы;   

  |Субконто = ЖурналРасчетов.Зарплата.Субконто;  

  |Сот = ЖурналРасчетов.Зарплата.Объект;

  |КодОбъекта = ЖурналРасчетов.Зарплата.Объект.Код;

  |Функция РезСумма = Сумма(Рез);

  |Группировка Сот;

  |Группировка Вир;

  |"//}}ЗАПРОС

  ;

  

  //Создаем объект типа запрос

  Запр = База77.CreateObject("Запрос");

  

  //Выполним запрос, если успешно делаем выборку

  Если Запр.Выполнить(ТекстЗапр) <> 0 Тогда

    Пока Запр.Группировка("Сот") = 1 Цикл

      Пока Запр.Группировка("Вир") = 1 Цикл                

        //...................

        //Здесь пишем код выборки и обработки полученных данных

      Конеццикла;  

    Конеццикла;  

  Конецесли;

Если нам необходимо установить отбор в журнале, например по сотруднику, то сделать это можно следующим образом:

Код 1C v 8.х

  //в перечне полей добавляем поле код объекта (можно наименование)

"|КодОбъекта = ЖурналРасчетов.Зарплата.Объект.Код;"

//строка условия будет следующей

"|Условие(КодОбъекта = " + Сотр.код + ");"

Из журнала расчетов можно выбрать записи без запроса, методом прямой выборки. В некоторых ситуациях этот способ может быть даже удобней чем через запрос. В данном случае синтаксис будет довольно простым:

Код 1C v 7.x

  Запр = База77.CreateObject("ЖурналРасчетов.Зарплата");

Запр.ВыбратьЗаписиПоОбъекту(Сотр,НТП,КТП);

Пока Запр.ПолучитьЗапись() = 1 Цикл

//Делаем обработку выборки

Конеццикла;

Написал Валецкий Станислав

Категория: Журналы расчетов

Как получить выборку запросом из таблиц базы MySql

Код 1C v 8.х

 //п_Текст - ТекстЗапроса... вернётся соответственно ТЗ

Функция Прямой_запрос_к_jabber(п_Текст) Экспорт

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

    л_число_попыток = 0;

    л_Запрос_выполнен = Ложь;

    Пока (л_Запрос_выполнен = Ложь) И (л_число_попыток <= 3) Цикл

        Если (гл_Соединение_jb.State = 0) Или (гл_Соединение_jb.DefaultDatabase <> "log_1c") Тогда

            гл_Соединение_jb = "";

            л_Параметры_соединения = "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=BAZADANNIH_IMYA;PWD=PAROLLLLL;PORT=3306;SERVER=ip_adres_servera;UID=admin";

            гл_Соединение_jb = Новый COMОбъект("ADODB.Connection");

            Попытка

                гл_Соединение_jb.Open(л_Параметры_соединения);

            Исключение

            КонецПопытки;

        КонецЕсли;

        

        л_Команда = Новый COMОбъект("ADODB.Command");

        л_Команда.ActiveConnection = гл_Соединение_jb;

        л_Команда.CommandText = п_Текст;

        л_Команда.CommandType = 1;

        

        л_Набор_записей = Новый COMОбъект("ADODB.Recordset");

        л_Набор_записей.CursorType = 3;

        л_число_попыток = л_число_попыток + 1;

        Попытка

            л_Набор_записей = л_Команда.Execute();

            л_Запрос_выполнен = Истина;

        Исключение

        КонецПопытки;

    КонецЦикла;

    Если (л_Запрос_выполнен = Ложь) Тогда

        Сообщить(ОписаниеОшибки());

        Возврат(л_ТЗ);

    Иначе

        л_Число_колонок = л_Набор_записей.Fields.Count - 1;

        Если (л_Число_колонок > -1) Тогда

            Для Ф = 0 По л_Число_колонок Цикл

                л_Колонка_добавлена = Ложь;

                л_Префикс = "";

                л_сч = 0;

                Пока (л_Колонка_добавлена = Ложь) Цикл

                    Попытка

                        л_ТЗ.Колонки.Добавить(л_Префикс + л_Набор_записей.Fields(Ф).Name);

                        л_Колонка_добавлена = Истина;

                    Исключение

                        л_Префикс = ?(л_сч = 0, "_", "_" + л_сч + "_");

                        л_сч = л_сч + 1;

                    КонецПопытки;

                КонецЦикла;

            КонецЦикла;

            Если (л_Набор_записей.EOF() = Истина) И (л_Набор_записей.BOF() = Истина) Тогда

            Иначе

                л_Набор_записей.MoveFirst();

                Пока (л_Набор_записей.EOF() = 0) Цикл

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

                    Для Ф = 0 По л_Число_колонок Цикл

                        л_стр[Ф] = л_Набор_записей.Fields(Ф).Value;

                    КонецЦикла;

                    л_Набор_записей.MoveNext();

                КонецЦикла;

            КонецЕсли;

        КонецЕсли;

        Попытка

            л_Набор_записей.Close();

        Исключение

        КонецПопытки;

        Возврат(л_ТЗ)

    КонецЕсли;

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

Немного кривое решение... но как шаблон вполне
Megas

Категория: COM-объекты, WMI, WSH

Выгрузка результата запроса в Таблицу и Дерево значений

Результат запроса может быть выгружен в таблицу значений или дерево значений с помощью метода Выгрузить. Затем над ними могут быть произведены другие операции: сортировка, свертка, перебор строк и другие действия.

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

Код 1C v 8.х

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

СпособОбхода = ОбходРезультатаЗапроса.Прямой;

ТабЗнач = Результат.Выгрузить(СпособОбхода);

Если используется иерархический обход результата запроса или обход по группировкам, тогда удобнее выгрузить не в таблицу значений, а в дерево значений, как делается в следующем примере:

Код 1C v 8.х

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

СпособОбхода = ОбходРезультатаЗапроса.ПоГруппировкамСИерархией;

Дерево = Результат.Выгрузить(СпособОбхода);

Категория: Запросы

Функции для работы с датами через запрос (Разность, Добавление, Граница)

Код 1C v 8.х

 // Получает разность календарных дат указанного вида. В случае ошибки возвращает -1

Функция ПолучитьРазностьДат(рНачДата,рКонДата,рВидРазности="ДЕНЬ") Экспорт

Если не ЗначениеЗаполнено(рНачДата) или не ЗначениеЗаполнено(рКонДата) Тогда Возврат -1 КонецЕсли;

Если рНачДата=рКонДата Тогда Возврат 0 КонецЕсли;

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидРазности)=0 Тогда рВидРазности="ДЕНЬ" КонецЕсли;

тз="ВЫБРАТЬ РАЗНОСТЬДАТ(&НачДата,&КонДата,"+СокрЛП(рВидРазности)+")+1 КАК ПериодовВремени";

з=Новый Запрос(тз);

Если рВидРазности="СЕКУНДА" или рВидРазности="МИНУТА" или рВидРазности="ЧАС" Тогда

      // ставим, как есть, с учётом времени

      Если рНачДата>рКонДата Тогда // всё наоборот

            рПервая=рКонДата; рВторая=рНачДата; коэф=-1;

      Иначе

            рПервая=рНачДата; рВторая=рКонДата; коэф=1;

      КонецЕсли;       

Иначе

      // ставим от начала дня

      Если рНачДата>рКонДата Тогда // всё наоборот

            рПервая=НачалоДня(рКонДата); рВторая=НачалоДня(рНачДата); коэф=-1;

      Иначе

            рПервая=НачалоДня(рНачДата); рВторая=НачалоДня(рКонДата); коэф=1;

      КонецЕсли;       

КонецЕсли;



Попытка

      з.УстановитьПараметр("НачДата",рПервая);

      з.УстановитьПараметр("КонДата",рВторая);

      рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).ПериодовВремени;

      Если ТипЗнч(рРезультат)<>Тип("Число") Тогда Возврат -1 Иначе Возврат коэф*рРезультат КонецЕсли;

Исключение

      Возврат -1

КонецПопытки;

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





Функция ДобавитьКДате(рДата,рРазность,рВидРазности="ДЕНЬ") Экспорт

Если рРазность=0 Тогда Возврат рДата КонецЕсли;

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидРазности)=0 Тогда рВидРазности="ДЕНЬ" КонецЕсли;



тз="ВЫБРАТЬ ДОБАВИТЬКДАТЕ(&УслДата,"+СокрЛП(рВидРазности)+",&УслРазность) КАК РезДата";

з=Новый Запрос(тз);

з.УстановитьПараметр("УслДата",рДата);

з.УстановитьПараметр("УслРазность",рРазность);

рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).РезДата;

Если ТипЗнч(рРезультат)<>Тип("Дата") Тогда Возврат Дата(1,1,1) Иначе Возврат рРезультат КонецЕсли;

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





Функция ГраницаПериода(рДата,рВидПериода="ДЕНЬ",рВидГраницы) Экспорт

строСтандПер="СЕКУНДА МИНУТА ЧАС ДЕНЬ НЕДЕЛЯ ДЕКАДА МЕСЯЦ КВАРТАЛ ГОД";

Если Найти(строСтандПер,рВидПериода)=0 Тогда рВидПериода="ДЕНЬ" КонецЕсли;

Если Найти(ВРег(рВидГраницы),"НАЧ")<>0 Тогда

      рГраница="НАЧАЛОПЕРИОДА";

ИначеЕсли Найти(ВРег(рВидГраницы),"КОН")<>0 Тогда

      рГраница="КОНЕЦПЕРИОДА";

Иначе

      Возврат рДата;

КонецЕсли;

тз="ВЫБРАТЬ "+рГраница+"(&УслДата,"+СокрЛП(рВидПериода)+") КАК РезДата";



з=Новый Запрос(тз);

з.УстановитьПараметр("УслДата",рДата);

рРезультат=з.Выполнить().Выгрузить(ОбходРезультатаЗапроса.Прямой).Получить(0).РезДата;



Если ТипЗнч(рРезультат)<>Тип("Дата") Тогда Возврат Дата(1,1,1) Иначе Возврат рРезультат КонецЕсли;

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

Категория: Работа с Датами (Временем)

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

Код 1C v 8.х

 

//Вых - ЭлементыФормы.РезультатТабличныйДокумент,

//ТЗЗ - Результат выполнения запроса

Процедура ПечатьРезвТаб(Вых,ТЗЗ) Экспорт

	КоличествоКолонок = ТЗЗ.Колонки.Количество();

	Выборка = ТЗЗ.Выбрать(ОбходРезультатаЗапроса.Прямой);

	ДетальнаяСтрока = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьОбщихИтогов = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьОбщихИтогов.Область().Шрифт = Новый Шрифт(ОбластьОбщихИтогов.Область().Шрифт, , , Истина, , ,);

	ОбластьИерархическихЗаписей = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьИерархическихЗаписей.Область().Шрифт = Новый Шрифт(ОбластьИерархическихЗаписей.Область().Шрифт, , , Истина, , ,);

	ОбластьГрупповыхЗаписей = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьГрупповыхЗаписей.Область().Шрифт = Новый Шрифт(ОбластьГрупповыхЗаписей.Область().Шрифт, , , Истина, , ,);

	ОбластьЗаголовка = Вых.ПолучитьОбласть(1, , 1, );

	

	Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл

		Область = ОбластьЗаголовка.Область(1, ТекущееПоле + 1);

		Область.Текст = ТЗЗ.Колонки[ТекущееПоле].Имя;

		Область.ШиринаКолонки = ?(ТЗЗ.Колонки[ТекущееПоле].Ширина<3,3,ТЗЗ.Колонки[ТекущееПоле].Ширина);

	КонецЦикла;

	Вых.Вывести(ОбластьЗаголовка);

	ОбластьЗаголовка = Вых.Область(1, 1, 1, КоличествоКолонок);

	

	ОбластьЗаголовка.Шрифт = Новый Шрифт(ОбластьЗаголовка.Шрифт, , , Истина, , ,);

	ОбластьЗаголовка.ЦветФона = Новый Цвет(234, 234, 234);

	ОбластьЗаголовка.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);

	

	Вых.НачатьАвтогруппировкуСтрок();

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

		ОбработкаПрерыванияПользователя();

		Если Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоГруппировке Тогда 

			ИсходнаяСтрока = ОбластьГрупповыхЗаписей;

		ИначеЕсли Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда 

			ИсходнаяСтрока = ОбластьИерархическихЗаписей;

		ИначеЕсли Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ОбщийИтог Тогда 

			ИсходнаяСтрока = ОбластьОбщихИтогов;

		Иначе

			ИсходнаяСтрока = ДетальнаяСтрока;

		КонецЕсли;

		

		Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл

			Область = ИсходнаяСтрока.Область(1, ТекущееПоле + 1);

			Область.Текст = Выборка[ТекущееПоле];

		КонецЦикла;

		Вых.Вывести(ИсходнаяСтрока, Выборка.Уровень());

	КонецЦикла;

	Вых.ЗакончитьАвтогруппировкуСтрок();

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

Категория: Табличный документ