найдем » Поиск

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

Как программно создать нового пользователя или скопировать настройки существующего?

Часто встречаю вопросы касаемые программного создания и настройки прав пользователей.

В этот статье я приведу примеры для Обычного и Управляемого приложений, которые программно создают пользователя в конфигураторе и в режиме Предприятие (справочник пользователи) и установку Групп пользователей.

В приложении к статье обработки, код которых приведен ниже: Скачать обработки

Обработки были написаны под УТ, но, при необходимости, вы можете их легко доработать под другие конфигурации.

Управляемое приложение:

В конфигурациях на управляемом интерфейсе (Такси) изменили подход к ведению пользователей. Если вы добавляете не программно, то добавлять нужно из режима Предприятия - тогда пользователь ИБ у вас сам создатся. И если раньше, в обычном приложении, достаточно будет добавить польз в конфигураторе - и при заходе в Предприятие, этот польз сам создавался в спр Пользователи, то с управляемым приложением такой фокус не прокатит - система не даст зайти под пользователем ИБ, которого нет в справочнике Пользователи.

! В типовых конфигурациях для работы с пользователями активно используется БСП !

В общем модуле Пользователи используется программный интерфейс процедур и функций НовоеОписаниеПользователяИБ, ПрочитатьПользователяИБ, ЗаписатьПользователяИБ иУдалитьПользователяИБ.

Код создания нового пользователя с использованием БСП:

Код 1C v 8.3

 &НаСервере

Функция КопированиеВсехНастроек(ПользовательСсылка,ПользовательПриемник)

	

	Пользователь = Обработки.НастройкиПользователей.ИмяПользователяИБ(ПользовательСсылка);

	

	Приемники = Новый Массив;

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

	ТаблицаПользователей.Колонки.Добавить("Пользователь");

	ТаблицаПользователей = Обработки.НастройкиПользователей.ПользователиДляКопирования(ПользовательСсылка, ТаблицаПользователей, 

	ТипЗнч(ПользовательСсылка) = Тип("СправочникСсылка.ВнешниеПользователи"));

	

	Для Каждого СтрокаТаблицы Из ТаблицаПользователей Цикл

		Приемники.Добавить(ПользовательПриемник);

	КонецЦикла;

	

	КопируемыеНастройки = Новый Массив;

	КопируемыеНастройки.Добавить("НастройкиОтчетов");

	КопируемыеНастройки.Добавить("НастройкиВнешнегоВида");

	КопируемыеНастройки.Добавить("ПерсональныеНастройки");

	КопируемыеНастройки.Добавить("Избранное");

	КопируемыеНастройки.Добавить("НастройкиПечати");

	КопируемыеНастройки.Добавить("ПрочиеПользовательскиеНастройки");

	

	НастройкиСкопированы = Обработки.НастройкиПользователей.

	КопированиеНастроекПользователей(ПользовательСсылка, Приемники, КопируемыеНастройки);

		

	Возврат НастройкиСкопированы;

	

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





Функция СоздатьНовыйУровеньДоступа(ФИО)

	

	 Рез = Справочники.CRM_УровниДоступа.НайтиПоНаименованию(ФИО);

	 Если Рез = Неопределено ИЛИ Рез = Справочники.CRM_УровниДоступа.ПустаяСсылка() Тогда

		 НовыйОбъект = Справочники.CRM_УровниДоступа.СоздатьЭлемент();

		 НовыйОбъект.Наименование = ФИО;

		 НовыйОбъект.Записать();

		 возврат НовыйОбъект.Ссылка;

	 КонецЕсли;	 

		 

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





Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)

	

	Если ПользовательНастроек = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(Объект.ФИОСоздаваемогоПользователя);

	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда

		

	Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Наименование));





	ОписаниеПользователяИБ            = Пользователи.НовоеОписаниеПользователяИБ();

	ПользовательИБСуществует          = Ложь;

	ДоступКИнформационнойБазеРазрешен = Ложь;

	

	// Заполнение начальных значений свойств пользователяИБ.

	Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда

		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора = Ложь;

	Иначе

		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора =

			НЕ Константы.ИспользоватьВнешнихПользователей.Получить();

	КонецЕсли;

	ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;

	ОписаниеПользователяИБ.Роли = Новый Массив;

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

	Если Пользователи.ПрочитатьПользователяИБ(

		         ПользовательНастроек.ИдентификаторПользователяИБ,ПрочитанныеСвойства

		         ) Тогда

			

			// Установка связи пользователем ИБ.

			//ДоступКИнформационнойБазеРазрешен = Истина;

			

			// Копирование свойств и ролей пользователяИБ.

			ЗаполнитьЗначенияСвойств(

				ОписаниеПользователяИБ,

				ПрочитанныеСвойства,

				"АутентификацияOpenID,

				|АутентификацияСтандартная,

				|ЗапрещеноИзменятьПароль,

				|ПоказыватьВСпискеВыбора,

				|АутентификацияОС,

				|РежимЗапуска,

				|Язык,

				|Роли");

	КонецЕсли;

	

	ОписаниеПользователяИБ.Вставить("Действие", "Записать");

	ОписаниеПользователяИБ.Вставить("Имя", Объект.ФИОСоздаваемогоПользователя);

	





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

		НовыйПользователь.Наименование 					= Объект.ФИОСоздаваемогоПользователя;

		НовыйПользователь.ТекущееПодразделение			= ПользовательНастроек.ТекущееПодразделение;

		НовыйПользователь.CRM_УровеньДоступа			= СоздатьНовыйУровеньДоступа(Объект.ФИОСоздаваемогоПользователя);

		НовыйПользователь.Недействителен				= ложь;





		НовыйПользователь.ДополнительныеСвойства.Вставить(

			"ОписаниеПользователяИБ", ОписаниеПользователяИБ);

			

		НовыйПользователь.Записать();

				

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

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

		"ВЫБРАТЬ

		|	ГруппыПользователейПользователиГруппы.Ссылка

		|ИЗ

		|	Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейПользователиГруппы

		|ГДЕ

		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыПользователейПользователиГруппы.Ссылка";

		

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

		

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

		

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

		

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

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

			НоваяСтрока = объ.Состав.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

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

		КонецЦикла;

		

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

		"ВЫБРАТЬ

		|	ГруппыДоступаПользователи.Ссылка

		|ИЗ

		|	Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи

		|ГДЕ

		|	ГруппыДоступаПользователи.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыДоступаПользователи.Ссылка";

		

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

		

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

		

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

		

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

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

			НоваяСтрока = объ.Пользователи.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

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

		КонецЦикла;





		КопированиеВсехНастроек(ПользовательНастроек,НовыйПользователь.Ссылка);

		

	Иначе

		сообщить("Указанное ФИО Пользователя уже используется !!! ");

	КонецЕсли;

		

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





&НаКлиенте

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

	СоздатьПользователяНаСервере();

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





&НаСервере

Процедура СоздатьПользователяНаСервере()

	

	Если НЕ ЗначениеЗаполнено(Объект.ШаблонПользователяДляСозданияНового) Тогда

		Возврат;

	КонецЕсли;





	// настройки устанавливаются на форму

	ОбновитьДанныеПользователяИБ(Объект.ШаблонПользователяДляСозданияНового, Ложь);

	

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





&НаСервере

Процедура СкопироватьНастройкиНаСервере(ИзменяемыйПользователь,ШаблонПользователяДляКопирования)

	//Копируем роли пользователя

	тИзменяемыйПользователь = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ИзменяемыйПользователь.Наименование));

	тШаблонПользователяДляКопирования = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ШаблонПользователяДляКопирования.Наименование));

	

	//Очищаем роли

	тИзменяемыйПользователь.Роли.Очистить();

	// Копируем

	СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;  	

	Для Каждого мРоль Из Метаданные.Роли Цикл

		СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();

		СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();

		СтрокаСписокаДоступныхРолей.Значение = мРоль;

	КонецЦикла; 

	

	Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл

		Если тШаблонПользователяДляКопирования.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда

			тИзменяемыйПользователь.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		

		КонецЕсли;	

	КонецЦикла; 

	тИзменяемыйПользователь.Записать();





	//Копируем настройки БСП

	КопированиеВсехНастроек(ШаблонПользователяДляКопирования,ИзменяемыйПользователь);  

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





&НаКлиенте

Процедура СкопироватьНастройки(Команда)

	СкопироватьНастройкиНаСервере(Объект.ИзменяемыйПользователь, Объект.ШаблонПользователяДляКопирования);

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

Обычное приложение:

В обычном все проще:

Код 1C v 8.х

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



	Если НЕ ЗначениеЗаполнено(ШаблонПользователяДляСозданияНового) Тогда

		Возврат;

	КонецЕсли;



	// настройки устанавливаются на форму

	ОбновитьДанныеПользователяИБ(ШаблонПользователяДляСозданияНового, Ложь);

	

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



Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)

	

	Если ПользовательНастроек = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(ФИОСоздаваемогоПользователя);

	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда

		

		Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Код));

		

		ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

		ПользовательИБ.Имя = ФИОСоздаваемогоПользователя;

		ПользовательИБ.АутентификацияСтандартная = Истина;

		ПользовательИБ.Пароль = ПарольСоздаваемогоПользователя;

		ПользовательИБ.ПолноеИмя =  ФИОСоздаваемогоПользователя;

		ПользовательИБ.ПоказыватьВСпискеВыбора = Истина;

		ПользовательИБ.ОсновнойИнтерфейс = Пользователь_Шаблон.ОсновнойИнтерфейс;

		ПользовательИБ.Язык = Пользователь_Шаблон.Язык;

		

		

		СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;

		

		Для Каждого мРоль Из Метаданные.Роли Цикл

			СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();

			СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();

			СтрокаСписокаДоступныхРолей.Значение = мРоль;

		КонецЦикла; 

		

		Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл

			Если Пользователь_Шаблон.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда

				ПользовательИБ.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		

			КонецЕсли;	

		КонецЦикла; 

		

		ПользовательИБ.Записать();

		

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

		//НовыйПользователь.ИдентификаторПользователяИБ 	= ПользовательИБ.УникальныйИдентификатор;

		НовыйПользователь.Код 							= ФИОСоздаваемогоПользователя;

		НовыйПользователь.Наименование 					= ФИОСоздаваемогоПользователя;

		НовыйПользователь.Родитель						= ПользовательНастроек.Родитель;

		

		НовыйПользователь.Подразделение					= ПользовательНастроек.Подразделение;

		НовыйПользователь.Категория						= ПользовательНастроек.Категория;

		НовыйПользователь.Руководитель					= ПользовательНастроек.Руководитель;

		НовыйПользователь.Действует						= ПользовательНастроек.Действует;

		НовыйПользователь.Записать();

		

		

		НаборПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();

		НаборПользователя.Отбор.Пользователь.Установить(ПользовательНастроек);

		НаборПользователя.Прочитать();

		

		НаборНовогоПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();

		НаборНовогоПользователя.Отбор.Пользователь.Установить(НовыйПользователь.Ссылка);

		

		

		Для Каждого СтрокаНастроек из НаборПользователя Цикл

			НоваяСтрокаНастроек = НаборНовогоПользователя.Добавить();

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

			НоваяСтрокаНастроек.Пользователь = НовыйПользователь.Ссылка;

			Если Найти(СтрокаНастроек.Настройка.Наименование,"Основной ответственный") Тогда

				НоваяСтрокаНастроек.Значение = НовыйПользователь.Ссылка;

			КонецЕсли;	

		КонецЦикла;	

		

		Если НаборНовогоПользователя.Количество()>0 Тогда

			НаборНовогоПользователя.Записать();

		КонецЕсли;	

		сообщить("Создан пользователь "+ФИОСоздаваемогоПользователя);

		

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

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

		"ВЫБРАТЬ

		|	ГруппыПользователейПользователиГруппы.Ссылка

		|ИЗ

		|	Справочник.ГруппыПользователей.ПользователиГруппы КАК ГруппыПользователейПользователиГруппы

		|ГДЕ

		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыПользователейПользователиГруппы.Ссылка";

		

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

		

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

		

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

		

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

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

			НоваяСтрока = объ.ПользователиГруппы.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

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

		КонецЦикла;

		

	Иначе

		сообщить("Указанное ФИО Пользователя уже используется !!! ");

	КонецЕсли;

	

	

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

еще пример:

Код 1C v 8.х

 Функция ДобавитьПользователя(ИмяПользователя, ДоменноеИмя, ПользовательАктивен, АутентификацияОС, Авторизация1СПредприятия, МассивРолей) Экспорт

    // Попробуем найти сотрудника

    Пользователь = ПользователиИнформационнойБазы.НайтиПоИмени(ИмяПользователя);





    // Теперь попробум найти сотрудника по пользователю ос

   Если Пользователь = Неопределено Тогда

        Для Каждого ТекущийПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл

            Если ТекущийПользователь.ПользовательОС = ДоменноеИмя Тогда

                Пользователь = ТекущийПользователь;

                Прервать;

            Конецесли;

        КонецЦикла;

    КонецЕсли;

    //                            





    // Если мы не нашли сотрудника, то создадим его

    Если Пользователь = Неопределено Тогда

        Пользователь = ПользователиИнформационнойБазы.СоздатьПользователя();

    КонецЕсли;

    //





    // Записываем свойства

    Пользователь.АутентификацияОС = АутентификацияОС;

    Пользователь.АутентификацияСтандартная = Авторизация1СПредприятия;

    Пользователь.ЗапрещеноИзменятьПароль = Истина;

    Пользователь.Имя = ИмяПользователя;

    Пользователь.ПолноеИмя = ИмяПользователя;

    Пользователь.ПоказыватьВСпискеВыбора = Ложь;

    Пользователь.ПользовательОС = ДоменноеИмя;

    

    // Сначала очистим все текущие роли

    Пользователь.Роли.Очистить();

    

    //  Теперь найдем переданный массив ролей в справочнике профилей 

    // и добавим все роли указанные в профиле. Все очень сложно, да

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

    Для Каждого Роль Из МассивРолей.Role Цикл

        МассивИменРолей.Добавить(Роль);    

    КонецЦикла;

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ПрофилиГруппДоступаРоли.Роль.Имя КАК Имя

                   |ИЗ

                   |    Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли

                   |ГДЕ

                   |    ПрофилиГруппДоступаРоли.Ссылка.Наименование В(&МассивИменРолей)";

    Запрос = Новый Запрос(ТекстЗапроса);

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

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

    Для Каждого Роль Из Результат Цикл

        НайденнаяРоль = Метаданные.Роли.Найти(Роль.Имя);

        Если НайденнаяРоль <> Неопределено Тогда

            Пользователь.Роли.Добавить(НайденнаяРоль);

        КонецЕсли;

    КонецЦикла;



    // Записываем!

    Пользователь.Записать();



    // Теперь посмотрим нужно ли деактивировать пользователя

    Если Не ПользовательАктивен Тогда

        ДективироватьПользователя(Пользователь);    

    КонецЕсли;



    // Запишем еще и справочник пользователя

    ЗаполнитьСправочникПользователя(Пользователь);

  

    Возврат Истина;

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





// Процедура заполняет помимо прочего справочник пользователя

Процедура ЗаполнитьСправочникПользователя(ПользовательИБ) Экспорт

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ИСТИНА КАК ЕстьПользователь,

                   |    Пользователи.Ссылка КАК Пользователь

                   |ИЗ

                   |    Справочник.Пользователи КАК Пользователи

                   |ГДЕ

                   |    Пользователи.ИдентификаторПользователяИБ =ИдентификаторПользователяИБ

                   |

                   |ОБЪЕДИНИТЬ ВСЕ

                   |

                   |ВЫБРАТЬ

                   |    ЛОЖЬ,

                   |    NULL";

    Запрос = Новый Запрос(ТекстЗапроса);

    Запрос.УстановитьПараметр("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);

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

    ОписаниеПользователя = Пользователи.НовоеОписаниеПользователяИБ();

    Если Результат.ЕстьПользователь Тогда

        ПользовательОбъект = Результат.Пользователь.ПолучитьОбъект();

    Иначе            

        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 

        ПользовательОбъект.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;

        ПользовательОбъект.Наименование = ПользовательИБ.Имя;

        ОписаниеПользователя.Вставить("Действие", "Записать");

        ПользовательОбъект.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователя);

    КонецЕсли;

    ЗаполнитьЗначенияСвойств(ОписаниеПользователя, ПользовательИБ);

    Для Каждого Элемент Из ОписаниеПользователя Цикл

        ПользовательОбъект.ДополнительныеСвойства.Вставить(Элемент.Ключ, Элемент.Значение);        

    КонецЦикла;        

    ПользовательОбъект.ДополнительныеСвойства.Удалить("Роли");

    ПользовательОбъект.Записать();

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

Категория: Пользователь, роль доступа, интерфейс

Полнотекстовый поиск в 1С (что это и пример использования)

Полнотекстовый поиск - позволит найти текстовую информацию, размещенную практически в любом месте используемой конфигурации. При этом искать нужные данные можно либо по всей конфигурации в целом, либо сузив область поиска до нескольких объектов (например, определенных видов документов или справочников). Сами критерии поиска могут варьироваться в довольно широком диапазоне. То есть найти нужные данные можно, даже не помня точно, где они хранятся в конфигурации и как именно записаны.

Полнотекстовый поиск предоставляет следующие возможности:

Есть поддержка транслитерации (написание русских слов символами латиницы в соответствии с ГОСТ 7.79-2000). Пример: "русская фраза" = "russkaya fraza".
Есть поддержка замещения (написание части символов в русских словах одноклавишными латинскими символами). Пример: "руссrfz фраpf" (окончания каждого слова набраны латиницей, допустим, в результате ошибки оператора).
Есть возможность нечеткого поиска (буквы в найденных словах могут отличаться) с указанием порога нечеткости. Пример: указав в строке поиска слово "привет" и нечеткость 17 %, найдем все аналогичные слова с ошибками и без: "привет", "превет", "привед".
Есть возможность указать область выполнения поиска по выбранным объектам метаданных.
Полнотекстовое индексирование названий стандартных полей ("Код", "Наименование" и т. д.) производится на всех языках конфигурации.
Поиск выполняется с учетом синонимов русского, английского и украинского языков.
Морфологический словарь русского языка содержит ряд специфических слов, относящихся к областям деятельности, автоматизируемым с помощью системы программ "1С:Предприятие".
Стандартно в состав поставляемых словарей включены словарные базы и словари тезауруса и синонимов русского, украинского и английского языков, которые предоставлены компанией "Информатик".
Поиск можно осуществлять с использованием подстановочных символов ("*"), а также с указанием поисковых операторов ("И", "ИЛИ", "НЕ", "РЯДОМ") и спецсимволов.

Полнотекстовый поиск можно осуществлять в любой конфигурации на платформе 1С:Предприятие 8

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

Обычное приложение - пункт меню Операции - Управление полнотекстовым поиском.

Управляемое приложение - пункт меню Главное меню - Все функции - Стандартные - Управление полнотекстовым поиском.

Обновить индекс – Создание индекса/Обновление индекса;
Очистить индекс – обнуление индекса(рекомендуется после обновления всех данных);
пункт Разрешить слияние индексов – отвечает за слияние основного и дополнительного индекса.

Полнотекстовый поиск осуществляется при помощи полнотекстового индекса. При отсутствии индекса полнотекстовый поиск как таковой не возможен. Для того чтобы поиск имел результат, все необходимые данные должны быть включены в полнотекстовый индекс. Если пользователем введены в базу новые данные, их следует включить в рассматриваемый индекс, иначе они не будут участвовать в поиске. Чтобы этого избежать, необходимо обновлять полнотекстовый индекс. При обновлении система анализирует только определенные типы данных: Строка, Данные ссылочного типа (ссылки на документы, справочники),Число, Дата, ХранилищеЗначения. Если пользователь не имеет прав доступа к определенной информации, то он не сможет увидеть ее в результатах поиска. Следует также помнить и о том, что в свойствах объектов, по которым будет происходить поиск должно быть установлено значение Полнотекстовый Поиск – Использовать, которое задано по умолчанию.

Как вы можете заметить свойство Использовать установлено для всего справочника Контрагенты, но сделать это можно и для каждого его реквизита соответствующего типа.

Рассмотрим более подробно полнотекстовый индекс, который состоит из двух частей (индексов): основного индекса и дополнительного. Высокая скорость поиска данных обеспечивается за счет основного индекса, но обновление его происходит относительно медленно, в зависимости от объема данных. Дополнительный индекс ему противоположен. Данные добавляются в него намного быстрее, но поиск осуществляется медленнее. Система осуществляет поиск одновременно в обоих индексах. Большая часть данных находится в основном индексе, а данные добавляемые в систему попадают в дополнительный индекс. Пока объем данных в дополнительном индексе небольшой, поиск по нему происходит относительно быстро. В тот момент, когда нагрузка на систему невелика, происходит операция слияния индексов, в результате чего дополнительный индекс очищается, а все данные помещаются в основной индекс. Слияние индексов предпочтительнее выполнять в тот момент времени, когда нагрузка на систему минимальна. С этой целью можно создавать регламентированные задания и задания по расписанию.

Специальные операторы, допустимые при задании поискового выражения

Механизм полнотекстового поиска допускает написание части символов русского слова одноклавишными латинскими символами. Результат поиска при этом не измениться.

Два оператора РЯДОМ

упрощенный. На расстоянии 8 слов друг от друга
РЯДОМ/[+/-]n – поиск данных в одном реквизите на расстоянии n-1 слов между ними.

Знак указывает в каком направлении от первого слова будет поиск второго. (+ - после, - до)

Групповой символ «*» может использоваться только в качестве замены конца слова

Оператор нечеткости «#». Если неизвестно точное написание названия, имени.

Программными средствами и средствами 1с: программирование.

Оператор синонимов «!». Позволяет найти слово и его синонимы

Как программно обновить индекс полнотекстового поиска?

Код 1C v 8.х

 Процедура ОбновлениеИндексы() Экспорт

ПолнотекстовыйПоиск.ОбновитьИндекс();

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

Пример полнотекстового поиска данных

Определение переменной СписокПоиска

Код 1C v 8.х

 Перем СписокПоиска;

Кроме этого в процедуре обработки события ПриОткрыии формы определим, что эта переменная будет содержать список полнотекстового поиска, с помощью которого мы и будем осуществлять поиск в данных

Код 1C v 8.х

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

СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок();

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

Теперь для события нажатия на кнопку Найти напишем код, который позволит нам выполнять поиск в соответствии с тем выражением, которое задано в поле ПоисковоеВыражение

Код 1C v 8.х

 Процедура НайтиНажатие(Элемент)

СписокПоиска.СтрокаПоиска = ПоисковоеВыражение;

Попытка

СписокПоиска.ПерваяЧасть();

Исключение

Предупреждение(ОписаниеОшибки());

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

Если СписокПоиска.ПолноеКоличество() = 0 Тогда

ЭлементыФормы.СообщениеОРезультате.Значение = "Не найдено";

ЭлементыФормы.РезультатПоиска.УстановитьТекст("");

Иначе

ВывестиРезультатПоиска();

КонецЕсли;

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

Сначала в этой процедуре мы устанавливаем поисковое выражение, введенное пользователем, в качестве строки поиска для полнотекстового поиска. Затем выполняем метод ПерваяЧасть(), который собственно запускает полнотекстовый поиск и возвращает первую порцию результатов. По умолчанию порция содержит 20 элементов. После этого мы анализируем количество элементов в списке поиска. Если он не содержит ни одного элемента, то мы выводим в форму соответствующее сообщение. В противном случае вызывается процедура ВывестиРезультатПоиска(), которая отображает полученные результаты пользователю.

Создадим в модуле формы процедуру с таким именем и напишем в ней код,

Код 1C v 8.х

 Процедура ВывестиРезультатПоиска()

ЭлементыФормы.СообщениеОРезультате.Значение = "Показаны " + Строка(СписокПоиска.НачальнаяПозиция() + 1) + " - " + Строка(СписокПоиска.НачальнаяПозиция() +СписокПоиска.Количество()) + " из " + СписокПоиска.ПолноеКоличество();

Результат = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст);

ЭлементыФормы.РезультатПоиска.УстановитьТекст(Результат);

ДоступностьКнопок();

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

Действия, выполняемые в этой процедуре, просты. Сначала мы формируем сообщение о том, какие элементы отображены и сколько всего элементов найдено. Затем получаем результат полнотекстового поиска в виде HTML-текста и выводим этот текст в поле HTML-документа, расположенное в форме.

В заключение передаем управление в процедуру ДоступностьКнопок() для того, чтобы сделать доступными или, наоборот, запретить доступ к кнопкам Предыдущая порция и Следующая порция (в зависимости от того, какая порция полученных результатов отображена). Текст этой процедуры представлен в Коде

Код 1C v 8.х

 Процедура ДоступностьКнопок()

ЭлементыФормы.СледующаяПорция.Доступность = (СписокПоиска.ПолноеКоличество() - СписокПоиска.НачальнаяПозиция()) > СписокПоиска.Количество();

ЭлементыФормы.ПредыдущаяПорция.Доступность = (СписокПоиска.НачальнаяПозиция() > 0);

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

Теперь необходимо создать обработчики событий нажатия на кнопки ПредыдущаяПорция() и СледующаяПорция().

Код 1C v 8.х

 Процедура ПредыдущаяПорцияНажатие(Элемент)

СписокПоиска.ПредыдущаяЧасть();

ВывестиРезультатПоиска();

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

Процедура СледующаяПорцияНажатие(Элемент)

СписокПоиска.СледующаяЧасть();

ВывестиРезультатПоиска();

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

Заключительным «штрихом» будет создание обработчика события onclick поля HTML-документа, расположенного в форме. Дело в том, что результат полнотекстового поиска, представленный в виде HTML-текста, содержит гиперссылки на номера элементов списка поиска. И нам хотелось бы, чтобы при переходе пользователя на эту ссылку система открывала бы форму того объекта, который содержится в этом элементе списка. Для этого мы будем перехватывать событие onclick HTML-документа, содержащегося в поле HTML-документа, получать номер элемента списка из гиперссылки и открывать форму соответствующего объекта. Текст обработчика события onclick поля HTML-документа представлен в коде

Код 1C v 8.х

 Процедура РезультатПоискаonclick(Элемент, pEvtObj)

htmlElement = pEvtObj.srcElement;

// Проверить идентификатор элемента

Если (htmlElement.id = "FullTextSearchListItem") Тогда

// Получить имя файла (номер строки списка поиска),

// содержащегося в гиперссылке

НомерВСписке = Число(htmlElement.nameProp);

// Получить строку списка поиска по номеру

ВыбраннаяСтрока = СписокПоиска[НомерВСписке];

// Открыть форму найденного объекта

ОткрытьЗначение(ВыбраннаяСтрока.Значение);

pEvtObj.returnValue = Ложь;

КонецЕсли;

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

Категория: Встроенные Функции

Управляем 1С со стороны используя web-сервис

Передача команд 1С на выполнение через ссылки в письме.
web-сервисы помогают интегрировать 1С с различными программами, делая её более гибкой. Статей в интеренете достаточно можно, но в основном там описывается выгрузка из 1С, обмен между двумя 1С или 1С и каким-то мощным программным продуктом написанным на C или других языках.
Для меня же была поставлена задача возможности управление 1С через браузер. Как пример: обрабатывать завершение задачи БП в 1С по ссылке в письме (примерно такого типа http://site.ru/?user=000000001&bp=000000555, т.е. отсюда видно, что пользователь 000000001 хочет закрыть задачу 000000555), т.е. пользователь со своего смартфона не имеющего доступа к 1С как таковому, должен получить возможность управлять ею извне. Собственно, более сложной задачей можно поставить написание собственных web-форм, более легких и компактных, с произвольным дизайном для управления 1С.
Задача с точки зрения написания кода 1С очень легкая. Основная сложность заключалась в освоении HTML и JavaScript для управления извне. Начальные знаний по этому вопросу я подчерпнул из статьи Примеры пользования web сервисов 1С из браузера.

Настройка 1С
Для возможности использовать 1С в вебе необходимо:
1. Установить модуль расширения веб-сервера;
title

2. Настроить Windows: доустановить компоненты IIS и настроить проверку подлинности. Всё это можно прочитать в статье Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS.

Программирование 1С
Теперь можно приступить к конфигурированию.
title

1. Создадим Web-сервис Input:
1.1. Input имеет операцию InputData которая принимает два параметра: User и Command, и возвращает параметр типа "boolean (http://www.w3.org/2001/XMLSchema)". Текст функции InputData:

Код 1C v 8.х

 Функция InputData(User, Command)



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



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



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

1.2. Устанавливаем для Input URI пространства имен = "http://infostart.ru". Здесь может быть любое уникальное имя, обычно это ссылка на сайт.
1.3. Устанавливаем для Input имя файла публикации = "input.1cws". Это имя web-сервиса к которому будем устанавливать соединение.
2. Для наглядности примера создадим справочник Данные, все параметры оставим по умолчанию.
3. Публикуем нашу конфигурацию и web-сервис: Администрирование -> Публикация на веб сервере...
title

На этом конфигурирование заканчивается, всё остальное сделает за нас 1С.

Разработка HTML страницы
Эта часть далась для меня тяжело, т.к. я ещё только делаю первые шаги в этой теме. Буду рад замачаниям и советам. А так, я постараюсь объяснить всё на пальцах тем, кто как и я знаком по большей части с 1С.
После установки ISS (я уже давал ссылку в начале статьи) на диске C появится каталог C:\inetpub\wwwroot, в этом каталоге располагается сайт. Для локальной машины (на которой установили ISS) он виден так http://localhost/, ну а для пользователей извне, как-то так http://infostart.ru (по правде там немного сложнее, но не суть, мы сейчас не про это). Заглавная страница сайта будет грузиться из файла index.htm каталога C:\inetpub\wwwroot
title

Исходники файлов можно скачать здесь: Скачивать файлы может только зарегистрированный пользователь!

Код файла index.htm попытаюсь объяснить как могу, т.к. сам некоторые моменты не понимаю:

Код

[html xmlns="http://www.w3.org/1999/xhtml"] // Неважно. Используется в XHTML для объявления пространства имен.
[head] // Предназначен для хранения других элементов, цель которых — помочь браузеру в работе с данными.

[meta http-equiv="Content-Type" content="text/html; charset=utf-8" /] // Неважно. Мета-теги используются для указания описания.

[title]Тест веб сервиса 1С[/title] // Неважно. Определяет заголовок документа, то что видит пользователь как текст вкладки.

[script type="text/javascript" src="../js/connect1c.js"] [/script] // Важно. Подключение JavaScript библиотек. В моём случае это мой модуль соединения с 1С.
[script type="text/javascript" src="../js/parameters.js"] [/script] // Важно. А это модуль обработки параметров строки браузера.

[/head]

[body] // Предназначен для хранения содержания веб-страницы (контента), отображаемого в окне браузера.
[p id="response1C"][/p] // Важно. Метка response1C, куда вернёться ответ запроса 1С.
[/body]

[script type="text/javascript"] // Важно. Начало основного скрипта, который выдёргивает из строки браузера всё что идёт дальше знака вопроса,
а дальше парсит по определенному алгоритму. В нашем случае будут искаться ключевые слова "user=" и "command=".

user = GetParameter("user"); // Важно. Находим значение user. Сам метод GetParameter находится в библиотеке parameters.js, о которой поговорим чуть позже.
command = GetParameter("command"); // Важно. Находим значение command.

Inquiry1C(user, command); // Важно. Запрос к 1С с найденными параметрами. Сам метод Inquiry1C находится в библиотеке connect1c.js

[/script]

[/html]

Заменил < на [, а > - ], замените перед использованием обратно.
Рассмотрим библиотеку parameters.js, которая находится в папке C:\inetpub\wwwroot\js
f

Код

unction GetParameter(pName) { // Сам метод я нашёл на просторах интернета.

search = window.location.search; // window.location - это по сути URL, метод search этого объекта возвращает часть адреса после символа "?", включая символ "?".

begin = search.indexOf(pName) + pName.length + 1; // Вычисляем позицию начала строки значения параметра для вырезания. +1 - в нашем случае это знак "=".
Итого, для search = "?user=007" мы найдём позицию начала равной 6 (нумерация с нуля).
end = search.indexOf('&', begin); // Находим позицию конца выражения. В нашем случае, разделение параметров осуществляется знаком "&", и если мы его не найдём,
то позицией конца будет последний символ строки search (смотри дальше код).

if (end == -1) {
end = search.length;
};

return unescape(search.substring(begin, end)); // Метод unescape возвращает строку, содержащую данные типа charString (не знаю зачем это надо,
но видимо такое приведение типа здесь необходимо). Ну а метод substring - извлекает подстроку из строки.

}
Теперь рассмотрим библиотеку connect1c.js, которая также находится в папке C:\inetpub\wwwroot\js
function Inquiry1C(pUser, pCommand) { // Основной метод этой библиотеки. Запрос к 1С.

XMLHTTP = CreateRequestObject(); // Создание XML HTTP запроса. Сам метод я узнал из википедии.

XMLHTTP.open('POST', '../TestWeb/ws/Input.1cws', true, "Admin", "1"); // Создаём соединение типа POST, где второй параметр - адрес; параметр true - значит асинхронное,
то есть браузер не будет ждать ответа сервера, а продолжит работу; далее пользователь и пароль с правами на операцию InputData (этот тот метод, который мы написали в 1С),
саму операцию можно выполнять в привилегированном режиме, чтобы не мучиться с правами для пользователя Admin.

XMLHTTP.onreadystatechange = function() {WhenAnswering1C(XMLHTTP)}; // Когда 1С отработает, автоматически сработает метод WhenAnswering (о нём чуть ниже по тексту этой библиотеки).

XMLHTTP.send(''
+ ' '
+ ' '
+ ''
+ pUser + ' '
+ ''
+ pCommand + ' '
+ ' '); // Отправка XML запроса, где описывается метод к исполнению в 1С, с переданными параметрами из нашей строки URL.
// Строку запроса можно раскурить минут за 5

}

function CreateRequestObject() { // Чудо метод из википедии "Пример использования". По сути, ничего сложного.
if (typeof XMLHttpRequest === 'undefined') {
XMLHttpRequest = function() {
try { return new ActiveXObject("Msxml2.XMLHTTP.6.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP.3.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP"); }
catch(e) {}
try { return new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e) {}
throw new Error("This browser does not support XMLHttpRequest.");
};
}
return new XMLHttpRequest();
}

function WhenAnswering1C(pXMLHTTP) { // Метод, который срабатывает после обработки запроса 1С.

status = StausRequest(pXMLHTTP); // Вычисляется статус для отправки сообщения пользователю (о нём чуть ниже).
document.getElementById("response1C").appendChild(document.createTextNode(status)); // Вывод на экран в помеченную область response1C (о ней я писал в основном файле).
Метод getElementById возвращает ссылку на узел документа.
Метод appendChild добавляет нод в конце списка дочерных нодов элемента, т.е. встраивает в нашу область нужный нам текст.

}

function StausRequest(pXMLHTTP) // Определение статуса.
{
status = "";
if (pXMLHTTP.readyState == 4) { // Опять же, читая википедию можно понять, readyState - это текущее состояние объекта (0 — не инициализирован, 1 — открыт,
2 — отправка данных, 3 — получение данных и 4 — данные загружены).
if (pXMLHTTP.status != 200) { // status - HTTP-статус в виде числа (404 — «Not Found», 200 — «OK» и т. д.)
status = "Запрос завершился неудачно. Ответ сервера: " + pXMLHTTP.responseText; // responseText -текст ответа на запрос.
Если состояние не 3 или 4, возвращает пустую строку.
}
else {
if (RequestSuccessful(pXMLHTTP)) { // Проверка ответа от 1С (о нём чуть ниже).
status = "Запрос отработан.";
}
else {
status = "Запрос был отклонён.";
};

};
};

return status;
}

function RequestSuccessful(pXMLHTTP) { // Проверка ответа от 1С. Здесь мы получим возвращаемое от 1С значение (в нашем случае 1С может вернуть тип булево).

DOM = pXMLHTTP.responseXML.getElementsByTagName("return")[0]; // responseXML - Текст ответа на запрос в виде XML, который затем может быть обработан посредством DOM.
Если состояние не 4, возвращает null.
response = DOM.childNodes[0].data; // Достаём данные из ответа.

return response == "true"; // Если правда, то правда

По правде, я не смог преобразовать сроку в булево, поэтому пришлось оставить так.

}

Проверка
Открываем браузер и вводим строку "localhost/?user=007&command=hello world!":
title

После чего можно открыть 1С и убедиться что создался элемент справочника:
title

На этом пример ознакомления управления 1С извне можно считать законченным

Автор: Soloist

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Обмен данными 1Сv8 Управление Торговлей 10.1 и virtuemart

Задача: создать обмен 1с v8 управление торговлей 10.1 и virtuemart .

Что такое VM можно почитать тут www.virtuemart.ru, вкраце - это компонент интернет магазина/каталога товаров к известному CMS движку Joomla.

Код 1C v 8.х

 Процедура СнятиеФлагаПустыхГрупп(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=хххххххх;";



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

Connection.Open(СтрПодключения);



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

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

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

Command.ActiveConnection = Connection;





Сообщить (Строка (ТекущаяДата()) + " обновляем флаг пустых групп");



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

ЗАпрос.Текст ="ВЫБРАТЬ РАЗЛИЧНЫЕ

| Номенклатура.ЭтоГруппа,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Код КАК Код,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

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

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И (Номенклатура.ПустойОстаток = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьWeb = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьНикогда = ИСТИНА)";

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

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

Если Выборка.ПустойОстаток ИЛИ Выборка.НеОтображатьНикогда ИЛИ Выборка.НеОтображатьWEB Тогда

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='N' WHERE category_description='"+Выборка.Код+"'" ;

Иначе

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='Y' WHERE category_description='"+Выборка.Код+"'" ;

КонецЕсли;

Command.CommandText = АпдейтГрупп;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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







КонецЦикла;



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



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

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



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

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

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

Command.ActiveConnection = Connection;

// выберем запросом все группы товаров

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

Запрос.Текст = "ВЫБРАТЬ

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

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

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И Номенклатура.Родитель = &Родитель";

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



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

Выборка= Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0;



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



н=н+1;

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT category_id

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RSIDProduct.CursorType = 3;

RSIDProduct.Open(query, Connection);



Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда

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

//пишем группы верхнего уровня

// если группа имеет признак того что-бы ее не выгружать на web то отменим публикацию // необходимо для оптимизации добавить рекурсию по родительскому каталогу

Если Выборка.НеОтображатьWeb или Выборка.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьWeb или Выборка.ПустойОстаток

Тогда

query = "ins ert into jos_vm_category (vendor_id , category_name ,category_description, category_publish , category_browsepage , products_per_row , category_flypage, list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'N', 'managed' , '1' , 'flypage.tpl', '1')";

// иначе публикуем

Иначе

query = "ins ert into jos_vm_category (

|vendor_id ,

|category_name ,

|category_description,

|category_publish ,

|category_browsepage ,

|products_per_row ,

|category_flypage,

|list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'Y', 'managed' , '1' , 'flypage.tpl', '1')";



КонецЕсли;



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

Сообщить (Выборка.Код);

Сообщить (Формат (н,"ЧГ=0"));



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



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "ins ert into jos_vm_category_xref ( `category_parent_id` , `category_child_id` )

|values ( '"+0+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

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

// Состояние("Обновляем группу товаров " + Выборка.Наименование);



КонецЕсли;



Индикатор1=н;

RSIDProduct.Close();





КонецЦикла;

Сообщить ("обновлено " + н+ " групп");

// обновим статус публикацию групп







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

Запрос.Текст = "ВЫБРАТЬ

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель.Код КАК КодРодителя,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда

|ИЗ

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

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА

| И (НЕ Номенклатура.Родитель = &Родитель)";





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



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

Выборка= Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

Сообщить ("Строим структуру...");



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

н=н+1;

// Если не Выборка.Ссылка.Уровень=0 тогда



//1 найдем айди родителя и категории в виртуамарте

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.КодРодителя+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИДРодителя = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);

Попытка

RS.MoveFirst();

Исключение

Сообщить (Выборка.Код);

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

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

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//найдем и завалим запись в категории

query = "delete fr om jos_vm_category_xref where category_child_id='"+Формат(ИДгруппы,"ЧГ=0")+"'";





Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

// добавим запись в категорию



query = "ins ert into jos_vm_category_xref ( category_parent_id , category_child_id)

|values ( '"+Формат(ИДРодителя,"ЧГ=0")+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

Индикатор1=н;

// КонецЕсли;



КонецЦикла;



Сообщить ("обновлена структура " + н+ " групп");









// RS.Close();

Connection.Close();

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



Процедура ОсновныеДействияФормыОчистьТАблицыSQL(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



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

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

Command.ActiveConnection = Connection;

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

Command.ActiveConnection = Connection;



query ="

|DELETE FR OM jos_vm_category";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_product";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

query ="

|DELETE FR OM jos_vm_product_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();





query ="

|DELETE FR OM jos_vm_product_price";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

// RS.Close();

Connection.Close();



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



Процедура ОсновныеДействияФормыОбновитьТовары(Кнопка)

Сообщить (Строка (ТекущаяДата()) + " обновляем группы товаров...");

КнопкаВыполнитьНажатие(1);



СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

Connection.Open(СтрПодключения);



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

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

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

Command.ActiveConnection = Connection;

Склад = Константы.СкладРозница.Получить();

Сообщить (Строка (ТекущаяДата()) + " распубликовываем отсутсвующие товары");

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

Запрос.Текст ="ВЫБРАТЬ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) > 0

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";



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



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

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

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



ТЗостатоков = Запрос.Выполнить().Выгрузить();

// ТЗостатоков.ВыбратьСтроку();

query = "

|SEL ECT product_sku, product_id

|FR OM jos_vm_product";

RS.Open(query, Connection);



Если (НЕ RS.EOF()) И (НЕ RS.BOF()) Тогда

RS.MoveFirst();

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

Артикул = RS.Fields("product_sku").Value;

ПродуктИД = RS.Fields("product_id").Value;

// Если Выборка.Количество()= 0 Тогда

Если ТЗостатоков.Найти(Артикул,"Артикул")= Неопределено Тогда

АпдейтВиртмарта = "UPD ATE jos_vm_product SET product_in_stock= '0',product_publish='N' WHERE product_sku='"+Артикул+"'" ;



Command.CommandText = АпдейтВиртмарта;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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

КонецЕсли;

RS.MoveNext();

КонецЦикла;

КонецЕсли;

RS.Close();



//** модуль обновление цен

Сообщить (Строка (ТекущаяДата()) + " начинаем обновление цен на сайте...");



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

Запрос.Текст = "ВЫБРАТЬ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура КАК Номенклатура,

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

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Наименование КАК Наименование,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Код КАК РодительКОД,

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

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр КАК WEbЦЕнаУПР,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 КАК WEbЦЕнаУПР2,

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

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьWeb КАК НеОтображатьWeb,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьНикогда КАК НеОтображатьНикогда,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток > 0

| И ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";

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

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

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

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

Выборка = Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

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

ЗапросКурса.Текст = "ВЫБРАТЬ

| КурсыВалютСрезПоследних.Курс

|ИЗ

| РегистрСведений.КурсыВалют.СрезПоследних(&ТекущаяДата, ) КАК КурсыВалютСрезПоследних

|ГДЕ

| КурсыВалютСрезПоследних.Валюта = &Валюта";

ЗапросКурса.УстановитьПараметр("Валюта", Константы.ВалютаУправленческогоУчетаКомпании.Получить());

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

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



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

Курс = ВыборкаКурса.Курс;



КонецЦикла;



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

н=н+1;



// Если Выборка.ДоступноеКоличество < 0 Тогда ДОступноеКоличество=0; Иначе ДОступноеКоличество=Выборка.ДоступноеКоличество; КонецЕсли;



ДОступноеКоличество=Выборка.ДоступноеКоличество;

// Сообщить (Выборка.Номенклатура.Наименование + " " + ДОступноеКоличество);

флагсуществования=Ложь;

// убираем непорядочные символы

Наименование = СтрЗаменить(Выборка.Наименование,"'"," "); //уберем символ '

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";



RSIDProduct.Open(query, Connection);





Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



// флаги отображения на сайте

//Если Выборка.НеВыводитьНаСайт или Выборка.НеОтображатьНикогда или Выборка.НеОтображатьWeb Тогда

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales,product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'N', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

Иначе

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales, product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'Y', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

КонецЕсли;

// запишем номенклатуру

// Сообщить (query);

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

флагсуществования =Ложь;

Иначе



флагсуществования=Истина;



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

//RSIDProduct.MoveFirst();

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

// ИД = RSIDProduct.Fields("product_id").Value;

// RSIDProduct.MoveNext();

//КонецЦикла;



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='N' WHERE product_sku='"+Выборка.Артикул+"'" ;

Иначе

query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='Y' WHERE product_sku='"+Выборка.Артикул+"'" ;

КонецЕсли;

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

КонецЕсли;

// Попытка записать Данные о товаре

Попытка

// запрос ID родителя товара

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.РодительКод+"' limit 1";

RS.Open(query, Connection);

RS.MoveFirst();

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

ИДгрупы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//Обновление группы

// запрос айди товара в мускуле виртуемарта

// Сообщить (Выборка.Номенклатура.Артикул);

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

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

ИД = RS.Fields("product_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

Если НЕ флагсуществования Тогда



query = "ins ert into jos_vm_product_category_xref (category_id , product_id ) values ( '"+Формат(ИДгрупы,"ЧГ=0")+"' , '"+Формат(ИД,"ЧГ=0")+"' )";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

Иначе

query = "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"'";





// "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"', product_id='"+Формат(ИД,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

// Сообщить (query);

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

КонецЕсли;





// прибьем ценник товара

query = "delete fr om jos_vm_product_price WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();







// все поля важны !



query = "I_nsert into jos_vm_product_price (

|product_id,

|product_price,

|product_currency,

|product_price_vdate,

|product_price_edate,

|cdate,

|mdate,

|shopper_group_id,

|price_quantity_start,

|price_quantity_end )

|values ( '"+Формат(ИД,"ЧГ=0")+"' , '"+Формат (Цена*Курс,"ЧГ=0")+"','RUB',0,0,1222792314,1222792314,'5',0,0 )";

// Сообщить(Формат(ИД,"ЧГ=0"));

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

Исключение

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

Сообщить (Выборка.Наименование);

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









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

// Состояние("Обновляем товары " + Выборка.Номенклатура.Наименование);

Индикатор1 = н;

КонецЦикла;

Сообщить ("Выгружено " + н + " объектов");

Сообщить(Строка (ТекущаяДата()) + " обновление завершено");

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



Процедура Автомат ()

ОсновныеДействияФормыОбновитьТовары(1);

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



Процедура ПустыеГруппы()

СнятиеФлагаПустыхГрупп(1);

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



Процедура ОсновныеДействияФормыАвтомат(Кнопка)

ЭтаФорма.ПодключитьОбработчикОжидания("автомат", 3600);

ЭтаФорма.ПодключитьОбработчикОжидания("ПустыеГруппы", 5400);



ЭтаФорма.ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Автомат.Доступность = Ложь;

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

d.snissarenko

Категория: Конвертация данных, Обмен, Перенос

Как изменить, присвоить, указать Тип Значения Ячейки табличной части?

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

Код 1C v 8.х

 //Создадим строки с разним типом значения

НовСтрока = ТабЧасть.Добавить();

НовСтрока.РеквизитПроизвольный = 12345;

НовСтрока = ТабЧасть.Добавить();

НовСтрока.РеквизитПроизвольный = "Это строка";

НовСтрока = ТабЧасть.Добавить();

НовСтрока.РеквизитПроизвольный = ТекущаяДата();

НовСтрока = ТабЧасть.Добавить();

НовСтрока.РеквизитПроизвольный = Истина;



// измененим тип значения в ячейке ТЧ

// Найдем Строку и заменим на Дату

НайденСтрока = ТабЧасть.Найти("Это строка", "РеквизитПроизвольный"); 

НайденСтрока.РеквизитПроизвольный = ТекущаяДата();

// Найдем Число и заменим на Пустую ссылку справочника Номенклатуры (полученную с Вида судконто)

Счет = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе;

НайденСтрока = ТабЧасть.Найти(12345, "РеквизитПроизвольный");

// Получим первое субконто Номенклатура

Субконото1 = Счет.ВидыСубконто[1]; 

// Присвоим тип значения

НайденСтрока.РеквизитПроизвольный = Субконото1.ВидСубконто.ТипЗначения.ПривестиЗначение();

Категория: Работа с Типами данных

Установка и настройка 1C:Предприятия 8.х в варианте “клиент-сервер”

В большинстве случаев для установки 1C:Предприятия 8.х в варианте “клиент-сервер” достаточно запуска программы установки 1С:Предприятия 8.х. При этом сервер 1С:Предприятия получает стандартные значения параметров, необходимые для его нормального функционирования.

Рассмотрим установку сервера 1С:Предприятия более детально. В процессе установки сервера 1С:Предприятия 8.х программа установки 1С:Предприятия 8.х выполняет следующие действия:

* Копирует загрузочные модули сервера 1С:Предприятия в каталог, указанный программе установки 1С:Предприятия в качестве конечной папки.
* Если в процессе установки выбрано "Создать пользователя USR1CV81", то создает пользователя USR1CV81. От имени этого пользователя работает сервер 1С:Предприятия 8.1, если он запускается как сервис. Ему доступны только те ресурсы, которые необходимы серверу 1С:Предприятия. Важно, что серверу 1С:Предприятия для работы необходимы два каталога: общий каталог с данными сервера (обычно "C:\Program Files\1cv81\server") и каталог временных файлов (обычно "C:\Documents and Settings\usr1cv81\Local Settings\Temp" или "C:\WINNT\Temp"). Пользователь USR1CV81 получает права на общий каталог с данными сервера. Каталог временных файлов обычно доступен всем пользователям.
* Если в процессе установки включено "Установить сервер 1С:Предприятия 8.1 как сервис Windows", то регистрирует в Windows сервис агента сервера 1С:Предприятия и запускает его. При первом запуске создается кластер серверов 1С:Предприятия с настройками по умолчанию. В нем один рабочий сервер и один рабочий процесс. Адрес рабочего сервера совпадает с именем компьютера, на котором выполнена установка.

Пользователь USR1CV81 или USR1CV82 и его права

Сервер 1С:Предприятия является серверным приложением работа которого не должна зависеть от того, какой пользователь вошел в серверный компьютер в интерактивном режиме, если вообще кто-нибудь вошел. Поэтому при установке сервера 1С:Предприятия желательно создать специального пользователя USR1CV81, наделенного правами, минимально необходимыми для сервера 1С:Предприятия, и не предназначенного для интерактивного входа. Сервер 1С:Предприятия представляется системе Windows пользователем USR1CV81.

Рассмотрим подробнее права, устанавливаемые пользователю USR1CV81. Сервер 1С:Предприятия использует следующие каталоги:

* Каталог загрузочных модулей находится в каталоге, заданном программе установки 1С:Предприятия в качестве конечной папки. В нем расположены загрузочные модули сервера 1С:Предприятия. Пользователь USR1CV81 необходимы права на чтение данных и запуск программ из этого каталога и его подкаталогов. Он получает эти права неявно, благодаря включению в группу Users.
* Каталог данных сервера обычно имеет имя "C:\Program Files\1cv81\server". Пользователю USR1CV81 необходимы полные права на этот каталог. Программа установки 1С:Предприятия при создании пользователя USR1CV81 наделяет его правами на этот каталог.
* Каталог временных файлов обычно имеет имя "C:\Documents and Settings\usr1cv81\Local Settings\Temp" или "C:\WINNT\Temp", которое определяется значением переменной TEMP окружения пользователя или переменной TEMP системного окружения. Посмотреть значение этой переменной можно в диалоге System Properties (Start -> Settings -> Control Panel -> System -> Advanced -> Environment Variables). Программа установки 1С:Предприятия задает пользователю USR1CV81 полные права на этот каталог. Обычно при установки Windows каталог временных файлов доступен всем пользователям посредством включения в его список доступа группы CREATOR OWNER. Однако, это доступ не полный. В частности, всем пользователям не доступна операция поиска файлов в этом каталоге. Установка пользователю USR1CV81 полных прав на каталог временных файлов позволяет серверу 1С:Предприятия выполнять все необходимые ему операции. Посмотреть список доступа можно в диалоге свойств каталога на закладке Security. Наличие группы CREATOR OWNER позволяет обращаться к каталогу любому пользователю, создающему какие-нибудь файлы в этом каталоге или владеющему какими-нибудь файлами в этом каталоге. При этом в списке доступа созданного файла вместо группы CREATOR OWNER будет записан пользователь, создавший файл. Среди пользователей, которым разрешен доступ в этот каталог, должен быть и пользователь USR1CV81, наделенный полными правами на этот каталог.
Важно иметь в виду, что каталог временных файлов определенного пользователя (в том числе и пользователя USR1CV81) определяется комбинацией переменных окружения этого пользователя и системных переменных окружения. Чтобы узнать этот каталог, программа установки 1С:Предприятия запрашивает контекст пользователя USR1CV81. В для этого в Windows 2000 пользователю, от имени которого запускается программа установки 1С:Предприятия, могут потребоваться привилегии: Act as part of the operating system и Bypass traverse checking. Проверить привилегии пользователя можно утилитой Local Sequrity Settings в ветке Local Policies -> User Rights Assignment. В процессе установки нового программного обеспечения программа установки обычно получает эти привилегии автоматически.

Регистрация сервера 1С:Предприятия как сервиса Windows

Сервер 1С:Предприятия является простым консольным Windows приложением и может быть запущен интерактивно. Однако для постоянного использования это неудобно, поскольку ставит запуск сервера 1С:Предприятия от входа итнерактивного пользователя в серверный компьютер. Чтобы исключить эту зависимость, сервер 1С:Предприятия может запускаться как сервис Windows. Для этого он должен быть зарегистрирован в менеджере сервисов Windows.

Для просмотра списка сервисов Windows и их параметров предназначена утилита Component Services (Start -> Settings -> Control Panel -> Administrative Tools -> Services). Сервер 1С:Предприятия представлен в списке сервисов сервисом "Агент сервера 1С:Предприятия 8.1". Параметры сервиса определяют запуск процесса "Агент сервера 1С:Предприятия" (ragent), пользователя, от имени которого он запускается, а также способ перезапуска в аварийных ситуациях.

В диалоге свойств сервиса "Агент сервера 1С:Предприятия 8.1" на закладке General показана строка запуска процесса ragent, который является Агентом сервера 1С:Предприятия. Обычно эта строка имеет вид:
"C:\Program Files\1cv81\bin\ragent.exe" -srvc -agent -regport 1541 -port 1540 -range 1560:1591 -d "C:\Program Files\1cv81\server"

В ней указано, что:

* процессом Агента сервера является загрузочный модуль "C:\Program Files\1cv81\bin\ragent.exe";
* процесс ragent запускается как сервис Windows и должен управляться менеджером сервисов (-srvc);
* используется как Агент сервера 1С:Предприятия (-agent);
* при первом запуске сервиса должен быть создан кластер с параметрами по умолчанию и главным IP-портом номер 1541 (-regport 1541). По этому порту клиентские приложения должны соединяться с информационными базами, зарегистрированными в кластере;
* IP-порт агента сервера должен иметь номер 1540 (-port 1540). По этому порту Консоль кластера должна соединяться с центральным сервером для выполнения административных функций;
* при запуске процессов кластера на данном сервере им будут динамически назначаться IP-порты из диапазона 1560-1591 (-range 1560:1591).
* общие данные кластера будут размещены в каталоге "C:\Program Files\1cv81\server" (-d "C:\Program Files\1cv81\server").

Сервис "Агент сервера 1С:Предприятия 8.1" может быть добавлен или удален не только при установке или удалении 1С:Предприятия программой установки 1С:Предприятия 8.1, но и вручную. Для этого можно исполнить из командной строки утилиту ragent, указав ей соответствующие параметры.

Для создания сервиса нужно указать параметр -instsrvc и параметры: -usr - имя пользователя, от имени которого должен быть запущен сервис, -pwd - пароль этого пользователя. При этом остальные параметры станут параметрами строки запуска Агента сервера 1С:Предприятия как сервиса. Например, для стандартной регистрации сервиса Агента сервера 1С:Предприятия в отладочном режиме набор параметров должен быть таким:

"C:\Program Files\1cv81\bin\ragent.exe" -instsrvc -usr .\USR1CV81 -pwd Password -regport 1541 -port 1540 -range 1560:1591 -d "C:\Program Files\1cv81\server" -debug

Для удаления сервиса нужно указать параметр -rmsrvc. Например:
"C:\Program Files\1cv81\bin\ragent.exe" -rmsrvc

Иногда бывает полено изменить строку запуска Агента сервера или другие параметры сервиса Агента, например, включить режим отладки, или создать несколько сервисов разных версий. Диалог свойств сервиса не позволяет редактировать строку запуска сервисного приложения и некоторые другие параметры, например, идентификатор сервиса. Для редактирования потребуется утилита regedit, предназначенная для просмотра и редактирования системного реестра Windows.

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

Запустите утилиту regedit (откройте Start -> Run и наберите regedit) и выберите ветку:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent

Среди ее параметров есть параметр ImagePath, значением которой является строка запуска Агента сервера 1С:Предприятия. Здесь можно добавить новые параметры строки запуска или поменять значения существующих. Полный список возможных параметров приведен в книге "1С:Предприятие 8.1 Клиент-сервер" документации.

При необходимости регистрации нескольких независимых сервисов Агента сервера 1С:Предприятия нужно указать им разные загрузочные модули, разные порты и разные каталоги данных кластера. Еще требуется зарегистрировать их с разными идентификаторами сервисов. Это можно сделать так:

* Создать первый сервис:
"C:\Program Files\1cv81\bin\ragent.exe" -srvc -agent -regport 1541 -port 1540 -range 1560:1591 -d "C:\Program Files\1cv81\server"

* При помощи утилиты regedit изменить идентификатор зарегистрированного сервиса. Для этого: выбрать ветку
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent
и изменить ее имя, например на:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent First
* Создать второй сервис:
"C:\Program Files\1cv81_10\bin\ragent.exe" -srvc -agent -regport 1641 -port 1640 -range 1660:1691 -d "C:\Program Files\1cv81_10\server"

* Быть может, его идентификатор тоже изменить. Для этого: выбрать ветку
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent
и изменить ее имя, например на:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent Second

Что не может сделать программа установки 1С:Предприятия?

Как уже говорилось, программа установки 1С:Предприятия копирует загрузочные модули 1С:Предприятия и выполняет необходимую регистрацию в COM и в менеджере сервисов Windows. Выше приведена информация, необходимая для понимания внутренних механизмов этой регистрации. Если на серверном компьютере установлен не только сервер, но и клиентская часть 1С:Предприятия, то она готова к работе сразу после установки (и подключения ключей защиты).

Чтобы сервер 1С:Предприятия был доступен с других компьютеров в локальной сети, необходимо проверить сетевые настройки на серверном и клиентском компьютере, а также для сети в целом. Для передачи данных между клиентскими приложениями и сервером 1С:Предприятия, а также между процессами кластера серверов используется TCP/IP. От правильности его настройки зависит работа 1С:Предприятия в варианте клиент-сервер.

Процессы кластера серверов 1С:Предприятия соединяются друг с другом по адресам, определенным в качестве значений свойства "Компьютер" диалога свойств рабочих серверов. Для кластера необходимо, чтобы значением свойства "Компьютер" был либо IP-адрес в точечной нотации, либо такой символический адрес, по которому может быть определен IP адрес при помощи функции gethostbyname, определенной в программном интерфейсе протокола TCP. Определение IP-адреса выполняется либо на основании локальной таблицы символических адресов (C:\WINNT\system32\drivers\etc\hosts), либо по таблицам адресов в доступных DNS серверах. Если по символическому адресу рабочего сервера его IP-адрес не определяется или определяется неправильно (например, IP-адрес не совпадает с фактическим IP-адресом данного компьютера), то кластер работать не будет. Важно, чтобы имена компьютеров и их адреса, определенные в Windows на каждом из рабочих серверов кластера, не противоречили их именам в DNS.

На каждом рабочем сервере процессы кластера используют следующие порты: IP порт рабочего сервера (обычно 1540); IP порты из диапазонов IP портов рабочего процесса (обычно 1560-1591). Кроме того, на центральном сервере кластера используется порт кластера (обычно 1541). Если в системе используются сетевые экраны, то передача данных по этим портам должна быть разрешена. Вместо разрешения портов из приведенного списка можно разрешить передачу данных процессам кластера (ragent, rmngr, rphost).

Соединение клиентского приложения 1С:Предприятия с сервером выполняется в 2 этапа. Сначала оно устанавливает соединение с менеджером кластера. При этом используется адрес центрального сервера (символический или числовой) и порт кластера (обычно 1541). Далее клиентское приложение устанавливает соединение с одним из рабочих процессов. В качестве его адреса используется значение свойства "Компьютер" соответствующего рабочего сервера и порт рабочего процесса, который выбирается из диапазона IP портов рабочего сервера. Передача данных на эти порты должна быть разрешена во всех сетевых экранах на маршруте от компьютера клиентского приложения до компьютеров кластера серверов 1С:Предприятия. Определение IP адреса серверных процессов выполняется при помощи функции gethostbyname на компьютере клиента. Важно, чтобы имена центрального и рабочих серверов и их адреса, определенные в Windows на каждом из серверов кластера, не противоречили их именам в DNS, доступном компьютеру клиента.

И последнее. Очевидно, что для успешного доступа к серверу 1С:Предприятия с других компьютеров он должен быть в сети и должны быть выполнены необходимые для этого настройки. Подключение к сети и методика настройки относятся к администрированию сетей на базе Microsoft Windows и описаны в соответствующих инструкциях.

Особенности настройки SQL-сервера

1С:Предприятие в варианте «клиент-сервер» использует для хранения данных SQL-сервер. При этом к SQL-серверу обращается только Сервер 1С:Предприятия. Клиенты 1С:Предприятия непосредственного доступа к SQL-серверу не имеют. Установка и настройка SQL-сервера подробно описана в документации по Microsoft SQL Server. Для успешной работы Сервера 1С:Предприятия с SQL-сервером необходимо обратить особое внимание на следующие настройки.

* Необходимые компоненты SQL-сервера. Для доступа к SQL-серверу со стороны Сервера 1С:Предприятия на компьютере Сервера 1С:Предприятия должны быть установлены компоненты Microsoft Data Access 2.6 или более поздний.
* Аутентификация пользователя SQL-сервером. Права доступа к базам данных SQL-сервера определяются пользователем, от имени которого происходит обращение к базам данных. С компьютера, на котором установлен SQL-сервер, запустим утилиту SQL Server Enterprise Manager, найдем узел Local (Console Root -> Microsoft SQL Servers -> SQL Server Group -> (Local)) и откроем его свойства. На закладке Sequrity можно видеть, что SQL-сервер поддерживает два способа аутентификации пользователей: SQL Server and Windows и Windows only. Аутентификация Windows позволит Серверу 1С:Предприятия обращаться к SQL-серверу только от имени пользователя USR1CV81, что не позволяет различать права доступа до различных информационных баз, обслуживаемых одним сервером 1С:Предприятия. Рекомендуется выбирать режим SQL Server and Windows. В этом случае обращение к конкретной информационной базе будет выполняться от имени пользователя, который задан в качестве пользователя SQL-сервера при создании данной информационной базы. Важно, что этот пользователь должен иметь не только полные права на базу данных информационной базы, но и права на создание баз данных в SQL-сервере и на чтение таблиц базы данных Master.
* Сетевые протоколы для доступа к SQL-серверу. Если Сервер 1С:Предприятия и SQL-сервер размещены на разных компьютерах, то необходимо выполнить настройки сетевых протоколов доступа к SQL-серверу. Это можно сделать при помощи утилиты SQL Server Client Network Utility. На закладке General можно выбрать список сетевых протоколов, используемых для доступа к SQL-серверу. Наиболее быстрым и универсальным является использование протокола TCP/IP. При использовании других протоколов необходимо иметь в виду, что некоторые из них, например Named Pipes, выполняют дополнительную аутентификацию средствами Windows при обмене данными с SQL-сервером. В этом случае для успешной работы с SQL-сервером на компьютере с SQL-сервером должен быть зарегистрирован пользователь USR1CV81, наделенный соответствующими правами. Протокол доступа к данному SQL-серверу может быть изменен на закладке Alias.

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

Как в форме списка журнала расчетов Зарплата вывести только записи, с отбор по графе Образование

Это выполняется в предопределенной процедуре ПриОткрытии модуля формы списка Журнала расчетов Зарплата.

Код 1C v 7.x

 процедура ПриОткрытии() // Предопределенная процедура

перем обр, флаг, сСотр_2, сОбр_2;

// Задаем доступные виды отбора (этот вызов может быть опущен)

ВидыОтбора("Родитель, Образование");

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

ЗакладкиОтбора("Образование");

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

// Найдем для этого сотрудника, имеющего высшее образование

сСотр_2 = СоздатьОбъект("Справочник.Сотрудники_2");

сОбр_2 = СоздатьОбъект("Справочник.Образование_2");

// Выбираем вид образования обр

флаг = сОбр_2.Выбрать("Выберите вид образования","");

если флаг = 1 тогда

обр = сОбр_2.ТекущийЭлемент();

если сСотр_2.НайтиПоРеквизиту("Образование", обр, 1) = 1 тогда

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

УстановитьПредставление(2, сСотр_2.ТекущийЭлемент());

конецЕсли;

конецЕсли;

сСотр_2 = 0;

сОбр_2 = 0;

// Для иных процедур модуля определим нтп

нтп = НачалоТекущегоПериода();

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

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

Пример разработки простого отчета - Схема Компоновки Данных

В статье описан пример создания отчета с использованием системы компоновки данных 1С:Предприятия 8.1. Схема компоновки данных - это описание отчета, при помощи которого платформа позволит вводить настройки и получать результат.

Рассмотрим пример создания отчета по взаиморасчетам с работниками (ЗУП 2.5):

1. Файл - Новый - Внешний отчет Для открытия и создания схемы компоновки нажмем кнопку "Открыть схему компоновки данных".
title

2. Система предложит создать новую схему компоновки данных. Схема компоновки данных является макетом, и будет записана в макеты. Укажите название схемы и нажмите "Готово"
title

3. Открывается окно конструктора схемы компановки данных:
title

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

В качестве набора данных может выступать:
Запрос - в этом случае получение данных описывается с помощью терминов языка запросов "1С: Предприятия 8.1" + инструкции специального расширения языка запросов для системы компоновки данных;
Объект - произвольный источник данных - например, таблица значений, сформированная и заполненная программно;
Объединение предназначено для описания наборов данных, входящих в объединение. Механизм объединения аналогичен объединению запросов средствами языка запросов;

4. Для нашего примера получим данные при помощи запроса, поэтому добавим набор данных - запрос. Для этого нажмем на кнопку "Добавить набор данных", которая расположена в командной панели на закладке "Наборы данных". В открывшемся меню выберем пункт "Добавить набор данных - запрос":
title

5. Будет создан набор данных. Теперь создадим запрос при помощи конструктора запросов, нажмем кнопку "Конструктор запроса"
title

6. Отчет, который мы создаем, будет получать данные из регистра накопления "ВзаиморасчетыСРаботникамиОрганизаций". Нас интересуют остатки, и текст запроса следующий:
title

Код 1C v 8.х

  ВЫБРАТЬ

       ВзаиморасчетыСРаботникамиОрганизацийОстатки.Организация,

       ВзаиморасчетыСРаботникамиОрганизацийОстатки.ПериодВзаиморасчетов,

       ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо,

       ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток

      ИЗ

       РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки

7. После закрытия конструктора запроса, конструктор схемы компановки Обратите внимание, что доступные поля для текущего набора данных будут сформированы системой автоматически только в том случае, если в конструкторе схемы компоновки данных стоит флаг Автозаполнение. Источником информации служит текст запроса. Система заполнила следующие поля:
title

Поле - имя поля набора данных, для которого делается описание. В нашем случае определяется именем поля в тексте запроса. Обратите внимание, по этому имени к полю нельзя будет обратиться в дальнейшем. Редактированию не подлежит
Путь - имя поля набора данных, под которым можно будет обратиться к полю в других разделах конструктора схемы компоновки данных. Может быть назначено разработчиком конфигурации самостоятельно
Заголовок - имя поля набора данных, под которым поле будет фигурировать в настройках в режиме 1С:Предприятие, а также в названии данного поля в шапке самого отчета. Может быть назначено разработчиком конфигурации самостоятельно. В качестве примера изменим Заголовок у поля Физлицо на Сотрудник
Роль - показывает, каким образом иоле будет использовано в дальнейшем в системе компоновки данных. Информация о том, что иоле является измерением, используется при расчете итогов по полям остатка.

8. Далее необходимо указать ресурсы. Ресурсы - это поля набора данных, по которым будет происходить агрегация значений.
Необходимо рассчитать суммы по полю "СуммаВзаиморасчетовОстаток". Найдем это поле в списке доступных полей и дважды щелкнем по нему. В правом табличном поле появится строка, содержащая формулу для расчета итога по полю "СуммаВзаиморасчетовОстаток". В нашем случае это "Сумма(СуммаВзаиморасчетовОстаток)". Эта формула означает, что для итоговых записей отчета значение поля "СуммаВзаиморасчетовОстаток" будет вычисляться как сумма поля "СуммаВзаиморасчетовОстаток" для всех строк участвующих в данной итоговой записи.
title

9. Этих введеных данных, нам хватит для вывода простого отчета. Перейдем на вкладку "Настройки" и откроем "Конструктор настроек"
title

10. Так как пока мы создаем простой отчет, выберем "Список", нажимая далее укажем выводимые поля:
title

11. После нажатия на "ОК" в конструкторе настроек, получаем следующее:
title

12. Закрываем схему компановки, сохраняем отчет в файл и запускаем в режиме 1С:Предприятия 8.1. Получаем:
title

Автор: Мигачев Евгений

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

Автоматическая установка ширины колонки табличного документа.

Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:

Код 1C v 8.х

 Процедура РасчетШириныКолонок(ТабличныйДокумент)

    

    Перем МаксимальноеКоличествоСтрок, МаксимальнаяШиринаКолонки;

    Перем КонечнаяСтрока, НачальнаяСтрока, ТекущаяКолонка, ТекущаяСтрока, НачалоДанных;

    Перем ОбластьШапки, ОбластьПодвала;

    Перем ШиринаКолонки, ТекстЯчейки, НомерСтрокиТекста;

    Перем КоличествоУровнейГруппировокСтрок, Отступ;

    Перем ШириныКолонок;

    

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

 

    МаксимальноеКоличествоСтрок = 50;

    // Ограничение максимальной ширины колонки

 

    МаксимальнаяШиринаКолонки = 50;

    // Массив, в который будут помещаться ширины колонок

 

    ШириныКолонок = Новый Массив;

    // Получим количество уровней группировок в отчете для учета автоматического отступа

 

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

    

    // Инициализируем начальные строки

 

    НачальнаяСтрока = 0;

    НачалоДанных = 0;

    

    // Найдем в результирующем документе область шапки таблицы

 

    ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаТаблицы");

    Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        

        // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

         НачальнаяСтрока = ОбластьШапки.Верх;

        НачалоДанных = ОбластьШапки.Низ + 1;

    Иначе

        

        // Если область шапки таблицы не найдена, найдем область шапки строк

         ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаСтрок");

        Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

            

            // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

             НачальнаяСтрока = ОбластьШапки.Верх;

            НачалоДанных = ОбластьШапки.Низ + 1;

            

        КонецЕсли;

    КонецЕсли;

    

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

 

    ОбластьПодвала = ТабличныйДокумент.Области.Найти("Подвал");

    Если ТипЗнч(ОбластьПодвала) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        // Область подвала найдена

        КонечнаяСтрока = ОбластьПодвала.Верх - 1;

        Если КонечнаяСтрока - НачальнаяСтрока > МаксимальноеКоличествоСтрок Тогда

            КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

        КонецЕсли;

    Иначе 

            // Область подвала не найдена

        КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

    КонецЕсли;

    

    // Ограничим конечную строку

    КонечнаяСтрока = Мин(КонечнаяСтрока, ТабличныйДокумент.ВысотаТаблицы);

    // Переберем все колонки отчета

    Для ТекущаяКолонка = 1 По ТабличныйДокумент.ШиринаТаблицы Цикл

        АвтоОтступ = 0;

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

        Для ТекущаяСтрока = НачальнаяСтрока По КонечнаяСтрока Цикл

            ШиринаКолонки = 0;

            // Получим область текущей ячейки

            ОбластьЯчейки = ТабличныйДокумент.Область(ТекущаяСтрока, ТекущаяКолонка);

            Если ОбластьЯчейки.Лево <> ТекущаяКолонка Или ОбластьЯчейки.Верх <> ТекущаяСтрока Тогда

                // Данная ячейка принадлежит объединенным ячейкам и не является начальной ячейкой

                Продолжить;

            КонецЕсли;

            Если КоличествоУровнейГруппировокСтрок > 0 И ТекущаяСтрока = НачалоДанных Тогда

                // Для первой строки с данными получим значение автоотступа

                АвтоОтступ = ОбластьЯчейки.АвтоОтступ;

            КонецЕсли;

            // Получим текст ячейки

            ТекстЯчейки = ОбластьЯчейки.Текст;

            // Для каждой строки из текста ячейки рассчитаем количество символов в строке

            Для НомерСтрокиТекста = 1 По СтрЧислоСтрок(ТекстЯчейки) Цикл

                ШиринаТекстаЯчейки = СтрДлина(СтрПолучитьСтроку(ТекстЯчейки, НомерСтрокиТекста));

                // Если используется автоотступ, то прибавим к ширине ячейки его величину

                Если АвтоОтступ <> Неопределено И АвтоОтступ > 0 Тогда

                    ШиринаТекстаЯчейки = ШиринаТекстаЯчейки + КоличествоУровнейГруппировокСтрок * АвтоОтступ;

                КонецЕсли;

                ШиринаКолонки = Макс(ШиринаКолонки, ШиринаТекстаЯчейки);

            КонецЦикла;



            Если ШиринаКолонки > МаксимальнаяШиринаКолонки Тогда

                // Ограничим ширину колонки

                ШиринаКолонки = МаксимальнаяШиринаКолонки;

            КонецЕсли;

            Если ШиринаКолонки <> 0 Тогда

                // Ширина колонки рассчитана

                // Определим, сколько ячеек по ширине используется в области для текущей ячейки

                КоличествоКолонок = ОбластьЯчейки.Право - ОбластьЯчейки.Лево;

                // Переберем все ячейки, расположенные в области

                 Для НомерКолонки = 0 По КоличествоКолонок Цикл

                    Если ШириныКолонок.ВГраница() > ТекущаяКолонка - 1 + НомерКолонки Тогда

                        // В массиве ширин колонок уже был элемент для текущей колонки

                        Если ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = Неопределено Тогда

                            // Значение ширины колонки еще не было установлено

                            ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = ШиринаКолонки / (КоличествоКолонок + 1);

                        Иначе

                            // Значение ширины колонки уже было установлено

                             // Вычислим максимум ширины колонки

                             ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = 

                                Макс(ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки], ШиринаКолонки / (КоличествоКолонок + 1));

                        КонецЕсли;

                    Иначе

                        // В массиве ширин колонок еще не было элемента для данной колонки

                        // Добавим элемент в массив ширин колонок

                        ШириныКолонок.Вставить(ТекущаяКолонка - 1 + НомерКолонки, ШиринаКолонки / (КоличествоКолонок + 1));

                    КонецЕсли;

                КонецЦикла;

            КонецЕсли;

        КонецЦикла;    // Конец цикла перебора строк

    КонецЦикла;    // Конец цикла перебора колонок

    

    // Переберем все элементы в массиве вычисленных ширин колонок

     Для ТекущаяКолонка = 0 По ШириныКолонок.ВГраница() Цикл

        Если ШириныКолонок[ТекущаяКолонка] <> Неопределено Тогда

            // Ширина колонок установлена

            // Установим ширину области ячеек

            ТабличныйДокумент.Область(, ТекущаяКолонка + 1, НачалоДанных, ТекущаяКолонка + 1).ШиринаКолонки = ШириныКолонок[ТекущаяКолонка] + 1;

        КонецЕсли;

    КонецЦикла;

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

Очень полезная штука при условии, что у Вас заранее невозможно определить размер итоговых колонок в печатной форме. А так, надо просто "натравить" процедуру с соответствующими параметрами на нужные ячейки таблицы, и они сами "выровняются" и приобретут необходимый размер (ширину).

Код 1C v 7.x

 //<!-- Патырило С.С. 22-04-2004 : Автоматическая установка ширины колонки

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

// в качестве параметров переменную с объектом "Таблица", координаты ячейки (группы ячеек)

// для которых нужно установить ширину столбца и ширину столбца в символах.

// При этом не обязательно передавать координаты требуемой ячейки (итоговой),

// (т.е. когда нет возможности или сложно определить позицию итоговой строки)

// достаточно указать ячейку из данного столбца (например первую).

//  Процедура установит ширину столбца выбрав максимальное из значений - 

// текущего размера (установленного в конфигураторе, или программно перед вызовом 

// функции) и переданного в качестве параметра. 

Процедура глУстШиринуЯчейки(Таб, Строка1, Столбец1, Строка2, Столбец2, ДлТекста = 0) Экспорт

	Если ДлТекста = 0 Тогда

	    врДлина	= СтрДлина(СокрЛП(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).Текст));

	Иначе

		врДлина	= ДлТекста;

	КонецЕсли;

	Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(Макс(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(), врДлина));

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

// --> Патырило С.С. 22-04-2004

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

Получения курса валют из Интернет

Код 1C v 8.х

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

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

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

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



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);

Код 1C v 8.х

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



Функция ПреобразоватьДату(дат)

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

	Для А = 1 по Список.Количество() цикл

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

				Поз = Найти(Стр,Символы.Таб);

				Если Поз = 0 Тогда

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

Код 1C v 7.x

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



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

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

// Параметры:

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



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

// кнПолучить()

//

// Параметры:

//  Нет

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

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

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

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

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

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

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

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

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



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

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

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