wss » Поиск » HelpF.pro

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

Использование Web-сервисов для синхронизации баз данных в режиме online 1с 8.х

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

Я предлагаю использовать Web-сервисы 1с.
В чем необходимость обмена: Обмен данными между базами требуется для исключения дублирующих вводов одних и тех же данных в различных учетных системах.
В чем необходимость обмена в режиме online: Обмен в онлайн режиме требуется когда функции учета комплекса учетных систем выполняются в разных учетных системах.
1. Например компания использует: CRM систему учета, для ведения учета взаимоотношений с клиентами; БП 2.0 для ведения взаиморасчетов с клиентами в разрезе счетов; Счета выставляемые клиентам создаются в торговой базе, а оформление заказов поставщикам исходя из потребности клиентов в базе ориентированной на работу с пайсами поставщиков. При таком разделенном построении учета, для выставления счета в одной из баз к примеру требуется завести карточку клиента в другой базе с тем чтобы данные о контрагенте так же были доступны в базе со счетами.
2. Помимо синхронизации первичных данных, может возникнуть необходимость построения сводного отчета по данным из нескольких баз, что тоже потребует обращения к внешним данным в online режиме.
Вариант автоматизации данного процесса с использованием файлов обмена, потребует подключения обработчика ожиданий, что сможет обеспечить обмен данными только с установленной задержкой времени обмена, кроме того любая обработка ожидания будет не эффективно использовать машинное время.
Обращение к Web сервисам, возможно при возникновении любых событий (ПриЗаписи, ПриПроведении, при нажатии кнопки и т.д.). при этом не возникнет ни какой задержки реакции информационной базы к которой происходит обращение, (в отличие от запуска еще одного приложения 1с в качестве com объекта).
Итак рассмотрим вариант реализации синхронизации элементов справочников, начнем с наиболее простого со справочника "Товары" в базах "Продажи" и "Закупки". Синхронизация для начала будет односторонней, предположим что перечень товаров заводится в базе "Продажи", а в "Закупки" он передается.

Что нам потребуется для того чтобы задача возникла и могла быть решена.
1. Сервер 1с, с установленной web компонентой;
2. веб-сервер (например IIS 6.0);
3. Две или более конфигурации учетных систем.

Что нам потребуется для решения задачи.
1. Создадим в базе "Закупки" Web-сервис "Синхронизация", и добавим ему Операцию "СинхронизироватьТовар", со строковыми параметрами.
1. "GuidТовара" - сюда будем передавать уникальный идентификатор товара присвоенный в базе Продаж.
2. "GuidРодителя" - уникальный идентификатор родителя данного товара.
3. "стрСтруктураРеквизитов" - Структура реквизитов товара в виде примитивных типов (число,строка,дата,булево) преобразованная в строку.
4. "этоГруппа" - реквизит котрый позволит нам не раскрывая всей структуры реквизитов товара узнатья явлется ли товар группой и соответственно его обработать.
5. "стрТаблицаЕденицИзмерения" - Таблица содержащая описание доступных единиц измерения для товара
title

Далее потребуется опубликовать данный сервис на веб сервере. для этого нужно будет создать текстовый файл "wssinhron.1cws", в каталоге сайта опубликованном на веб сервере. Библиотека wsisapi.dll, должна быть подключена. Проще всего корректную настройку работы веб сервера с 1с можно провести опубликовав веб приложение через конфигуратор Администрирование->"Публикация на веб сервере". Единственным минусом является, то что в версии 8.2 файлы веб сервисов *.1cws, сами не создаются. Возможно просто мне не хватает знаний по этому вопросу но для публикации веб сервисов я пользуюсь блокнотом.
Также следует учесть что на серверах 64x следует использовать wsisapi.dll из поставки 1с 64x, даже если сам сервер 1с у вас 86x.
Итак создаем файл "wssinhron.1cws" с текстом.

{Название вашего сервера 1с}";Ref="{Назваение базы. у нас это "Market"}";"/>

Далее перейдем в модуль обработки нашего Сервиса, для наглядности я приведу пример кода своей разработки

Код 1C v 8.2 УП

 //стрТаблицаЕдиницИзмерения - таблица в строке с колонками.

//GUIDЕдиницы

//Базовая - булево

//Коэффициент

//ЕдиницаИзмерения - код классификатора Единиц измерения.

//Утверждено - булево

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

//ТаблицаГабаритов С колонками

//ВидУпаковки (строковое значение)

//Длина

//ширина

//высота

//объем

//ОбъемныйВес

//Вес

//ФормаОснования

//ВесБрутто

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



//стрСтруктураРеквизитов - структура с праметрами

//Наименование

//код

//ПометкаУдаления

//ВидТовара - идентификатор перечисления

//GUIDПроизводителя - GUID производителя

//СтавкаНДС - число ставка

//Жив - булево

Функция СинхронизироватьТовар(GUIDтовара, GUIDродителя, этоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения,стрТаблицаТНВЭД)

	Попытка

		СтруктураРеквизитов = ЗначениеИзСтрокиВнутр(стрСтруктураРеквизитов);

		ТоварСсылка = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDтовара));

		Если СокрЛП(GUIDродителя)<>"" тогда

			ТоварРодитель = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDродителя));

		иначе

			ТоварРодитель = Справочники.Товары.ПустаяСсылка();

		КонецЕсли;

		

		Если ТоварРодитель.Пустая() и Уровень<>"0" тогда

			Если СтруктураРеквизитов.ПометкаУдаления тогда

				Возврат "ОК";

			КонецЕсли;

			возврат "0 Не найден родитель товара";

		КонецЕсли;

		Если СокрЛП(GUIDтовара) = "" тогда

			возврат "0 Не верный ГУИД товара";

		КонецЕсли;

		//заполним реквизиты

		Если ТоварСсылка.Пустая() тогда

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

		КонецЕсли;

		Если ТоварСсылка.Пустая() тогда

			

			Если этоГруппа="1" тогда 

				ТоварОбъект = Справочники.Товары.СоздатьГруппу();

			иначе

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

			КонецЕсли;

			ТоварОбъект.GUIDтовара = GUIDтовара;

		иначе

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

			ТоварОбъект.GUIDтовара = GUIDтовара;

		КонецЕсли;

		ТоварОбъект.Родитель = ТоварРодитель;

		

		ТоварОбъект.Наименование = СтруктураРеквизитов.Наименование;

		

		ТоварОбъект.Код = СтруктураРеквизитов.Код;

		.....................

		Если этоГруппа="1" тогда 

		иначе

			Если СтруктураРеквизитов.менеджер <> "" тогда

				......................

			КонецЕсли;

			//

			Если ТоварОбъект.Производитель.Пустая() тогда

				Если СтруктураРеквизитов.Производитель<>"" тогда

					ТекПроизводитель = справочники.Производители.НайтиПоНаименованию(СтруктураРеквизитов.Производитель);

					Если ТекПроизводитель.Пустая() тогда

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

					иначе

						НовПроизводитель = ТекПроизводитель.ПолучитьОбъект();

					КонецЕсли;

					НовПроизводитель.GUID = СтруктураРеквизитов.GUIDПроизводителя;

					НовПроизводитель.Наименование = СтруктураРеквизитов.Производитель;

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

					ТоварОбъект.Производитель = НовПроизводитель.ссылка;

				КонецЕсли;

			КонецЕсли;

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

			

		КонецЕсли;

		

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

		ТоварОбъект.УстановитьПометкуУдаления(СтруктураРеквизитов.ПометкаУдаления,Ложь);

		ТоварСсылка = ТоварОбъект.Ссылка;

		ТоварОбъект = Null;

		

		//Синхронизируем Единицы измерения

		ТаблицаЕдиниц = ЗначениеИзСтрокиВнутр(стрТаблицаЕдиницИзмерения);

		Для каждого строка из ТаблицаЕдиниц цикл

			ЕдиницаСсылка = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("GUIDЕдиницы",строка.GUIDЕдиницы);

			Если не ЕдиницаСсылка.Пустая() тогда

				ЕдиницаОбъект = ЕдиницаСсылка.ПолучитьОбъект();

				ЕдиницаОбъект.УстановитьПометкуУдаления(строка.ПометкаУдаления,Ложь);

			иначе

				Если строка.ПометкаУдаления тогда

					продолжить; 

				КонецЕсли;

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

				ЕдиницаОбъект.GUIDЕдиницы = строка.GUIDЕдиницы;

			КонецЕсли;

			

			ЕдиницаОбъект.Код = строка.Код; 

			ЕдиницаОбъект.Наименование = строка.Наименование; 

			....................

			

			ЕдиницаОбъект.Габариты.Очистить();

			ТаблицаГабаритов = ЗначениеИзСтрокиВнутр(строка.ТаблицаГабаритов);

			Для каждого строкаГабаритов из ТаблицаГабаритов цикл

				НовСтрока = ЕдиницаОбъект.Габариты.Добавить();

				............................

				НовСтрока.Примечание = строкаГабаритов.Примечание;

			КонецЦикла;

			ЕдиницаОбъект.Записать();

			Если строка.Базовая тогда

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

				ТоварОбъект.БазоваяЕдиницаИзмерения = ЕдиницаОбъект.Ссылка;

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

			КонецЕсли;

		КонецЦикла;

		

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

		ТоварОбъект.ВремяСинхронизации = ТекущаяДата();

		ТоварОбъект.Синхронизирован = истина;

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

	исключение

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

		Возврат ОписаниеОшибки();

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

	//Если все прошло успешно сообщим методу вызвашему веб сервис об успешном выполнении.

	Возврат "ОК";

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

Теперь, как вызвать веб сервис не зациклив при этом систему.
в нашем справонике "Товары" в базах "Продажи" и "Закупки" нам потребуются служебные реквизиты.
1. "GUIDтовара" - строковый реквизит (50)
2. "ВремяСинхронизации" - Реквизит с типом Дата и Время
3. "Синхронизирован" - тип булево.

В модуль объекта Справочника добавим предопределенные обработчики событий "ПередЗаписью()", "ПриЗаписи()" функцию "Синхронизация()" и общую переменную "передавать", и под текстом модуля присвоим этой переменной значение Истина.
Перем передавать Экспорт;
Процедура ПередЗаписью(Отказ)
Процедура ПриЗаписи(Отказ)
Функция Синхронизация()
передавать = истина;
Таким образом получится что при любой инициализации модуля наша переменная всегда имеет значение истина.
Рассмотрим наши процедуры:

Код 1C v 8.2 УП

 Процедура ПередЗаписью(Отказ)

	#Если не ВнешнееСоединение тогда                          

		//На случай двустороннего обмена данными, необходимо ограничить возможность вызова процедур синхронизации при записи спарвника из режима внешнего соединения.

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

			Синхронизирован = Ложь; 

		КонецЕсли;

	#КонецЕсли

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



Процедура ПриЗаписи(Отказ)

	#Если не ВнешнееСоединение тогда

		Если Константы.СинхронизироватьБазы.Получить() и передавать тогда

			Синхронизация();

		КонецЕсли;

	#КонецЕсли

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



Функция Синхронизация()

	GUIDтовара = СокрЛП(ссылка.УникальныйИдентификатор());

	Если ссылка.Уровень()>0 тогда

		GUIDродителя = СокрЛП(ссылка.Родитель.УникальныйИдентификатор());

		Уровень = ссылка.Уровень()

	иначе

		GUIDродителя = "";

		Уровень = "0";

	КонецЕсли;

	Если ЭтоГруппа тогда

		СтрэтоГруппа = "1";

	иначе

		СтрэтоГруппа = "0";

	КонецЕсли;

	СтруктураРеквизитов = Новый Структура;

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

	

	СтруктураРеквизитов.Вставить("Наименование",Наименование);

	СтруктураРеквизитов.Вставить("код",код);

	....................

	Если не ЭтоГруппа тогда

		Если ОсновнойПоставщик.Пустая() тогда

			......................

		иначе

			.....................

		КонецЕсли;

		

	КонецЕсли;

	

	стрСтруктураРеквизитов = ЗначениеВСтрокуВнутр(СтруктураРеквизитов);

	

	ТаблицаЕдиницИзмерения = Новый ТаблицаЗначений;

	//GUIDЕдиницы

	//Базовая - булево

	//Коэффициент

	//ЕдиницаИзмерения - код классификатора Единиц измерения.

	//Утверждено - булево

	//ТаблицаГабаритов

	

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Наименование");

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Код");

	....................................

	Выборка = Справочники.ЕдиницыИзмерения.Выбрать(,ссылка);

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

		НовСтрока = ТаблицаЕдиницИзмерения.Добавить();

		НовСтрока.Наименование = Выборка.Наименование;

		НовСтрока.Код = Выборка.Код;

		..........................

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

		Для каждого колонка из Выборка.Габариты.Выгрузить().Колонки цикл

			ТаблицаГабаритов.Колонки.Добавить(колонка.Имя);

		КонецЦикла;

		Для каждого строка из Выборка.Габариты цикл

			НовСтрока1 = ТаблицаГабаритов.Добавить();

			Для каждого колонка из ТаблицаГабаритов.Колонки цикл

				НовСтрока1[колонка.Имя] = строка[колонка.Имя];

			КонецЦикла;

		КонецЦикла;

		

		НовСтрока.ТаблицаГабаритов = ЗначениеВСтрокуВнутр(ТаблицаГабаритов);

	КонецЦикла; 

	// т.к. наш вебсервис принимает в себя только строковые параметры, преобразуем наши таблицы в строки.

	стрТаблицаЕдиницИзмерения = ЗначениеВСтрокуВнутр(ТаблицаЕдиницИзмерения);

	

	есть = Ложь;

	колПопыток = 0;

	Пока не Есть и колПопытокцикл

		Попытка

			Определение = Новый WSОпределения(Константы.WebАдресМаркетинга.Получить()+"wssinhron.1cws"+"?wsdl",ПараметрыСеанса.Пользователь.Код,ПараметрыСеанса.Пользователь.ПарольЗакупок);

			Прокси = Новый WSПрокси(Определение, "www.market-sinhron.gor", "Синхронизация", "СинхронизацияSoap");

			Прокси.Пароль = ПараметрыСеанса.Пользователь.ПарольЗакупок;

			Прокси.Пользователь = ПараметрыСеанса.Пользователь.Код;

			Результат = Прокси.СинхронизироватьТовар(GUIDтовара, GUIDродителя, СтрЭтоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения, стрТаблицаТНВЭД);

			Определение = Null;

			Прокси = Null;

			есть = Истина;

		исключение

			колПопыток = колПопыток+1;

			Определение = Null;

			Прокси = Null;

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

	КонецЦикла;

	Если колПопыток=100 тогда

		#Если Клиент тогда

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

			Предупреждение("Ошибка синхронизации. отсутствует подключение.");

		#КонецЕсли

	КонецЕсли;

	передавать = ложь;

	сообщить(Результат);

	Если Лев(Результат,2)="ОК" тогда

		Синхронизирован = Истина;

		ВремяСинхронизации = ТекущаяДата();

		Записать();

	КонецЕсли;

	

	Если СокрЛП(Результат)="0 Не найден родитель товара" тогда

		#Если Клиент тогда

			Сообщить("вызов синхронизации родителя");

		#КонецЕсли

		ОбъектРодитель = родитель.ПолучитьОбъект();

		ОбъектРодитель.Записать();

		Записать();

	КонецЕсли;

	

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

Таким образом остается добавить в событие формы элемента "ПриЗаписи()"

Код 1C v 8.2 УП

 передавать = истина;

Синхронизация();

И мы сможем записывать наш элемент сколько угодно раз не вызывая зацикливания.
Для варианта двусторонней синхронизации, (когда элемент справочника может редактироваться в обоих базах) нам потребуется скопировать наш веб сервис из базы закупок в базу продаж переименовав имя файла публикации и URI пространство имен и внести соответствующие изменения в вызов веб сервиса из базы продаж в базу закупок и опубликовать его.
Важно: При успешном срабатывание вызванного сервиса из базы "Продажи", в качестве результата работы должен быть возвращен уникальный идентификатор элемента справочника из базы "Продажи". Данный результат необходимо будет присвоить соответсвующиму реквизиту справочника из базы закупок.
Аналогично приведенному примеру можно синхронизировать данные любого справочника или документа.
Построение сводных отчетов
Для получения сводного отчета нам также потребуется вызов веб сервиса из какой - либо базы. Данный веб сервис должен будет возвращать преобразованною в строку, таблицу с данными которые мы хотим использовать в нашем отчете (Например таблицу содержащую "Код товара" и "Актуальную цену поставщика на данный товар"). Далее можно преобразовать эту строку в таблицу и использовать в качестве вложенной временной таблицы любом запросе к базе "Продажи" с соединением по Коду. Исключением является использование данной таблицы в Построителе отчетов, для случая построителя нам понадобится создание, дополнительного справочника с предопределенным элементом и табличной частью, с реквизитами соответствующими полям таблицы.
Автор: allert73

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

Как отразить в ЗУП Военные Сборы?

1. Создаем начисление со способом расчета: По среднему Заработку
title

2. на второй закладке Вид времени: Неотработанные полные смены
в классификатор добавляем: Невыходы на время исполнения ГосОбязонностей
title

и выбираем его
title

3 . Далее рассчитываем через документ Оплата по среднему выбрав только что созданный вид начисления

Категория: 1С Зарплата и Управление Персоналом 2.5

Вывод картинки в строках отчета на СКД

В этом примере показан метод вывода в строку отчета картинки, вид которой завист от значения другого поля.

Ради примера, в отчет выведем справоник «Банки» - реквизит «Ссылка» и картинку возле этого реквизита. Вид картинки зависит от значения реквизита «ЭтоГруппа»

Создаем новый отчет - Основная схема компоновки данных:
title

В Вычисляемые поля добавлено поле «ПолеКартинка». В выражение добавлено значение «%Картинка%», поэтому выражению будем искать область ячеек куда необходимо вставить нашу картинку:
title

В это поле будет выводится картинка.

В настройках указываем:
title

В модуле объекта пишем код:

Код 1C v 8.х

  Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

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



	ДокументРезультат.Очистить();

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

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

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

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

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

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

	//ПроцессорВывода.Вывести(ДокументРезультат);

	

	ПолеПоКоторомуНеобходимоПолучитьЗначение = "Ссылка";

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

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

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

		

		Если ЭлементРезультата = Неопределено Тогда

			прервать;

		КонецЕсли;	

		ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);

		Если ЭлементРезультата.ЗначенияПараметров.Количество() > 0 Тогда

			ЗначениеВыводимыхДанных = Неопределено;

			Для каждого ЗначениеПараметра из ЭлементРезультата.ЗначенияПараметров Цикл

				Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

					ПоляРасшифровки = ДанныеРасшифровки.Элементы[ЗначениеПараметра.Значение].ПолучитьПоля();

					Для Каждого ПолеРасшифровки из ПоляРасшифровки Цикл

						Если ПолеРасшифровки.Поле = ПолеПоКоторомуНеобходимоПолучитьЗначение Тогда

							ЗначениеВыводимыхДанных = ПолеРасшифровки.Значение;

							Прервать;

						КонецЕсли;	

					КонецЦикла;	

				КонецЕсли;	

			КонецЦикла;	

			Если ЗначениеЗаполнено(ЗначениеВыводимыхДанных) Тогда

				Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);

				Рис.РазмерКартинки = РазмерКартинки.РеальныйРазмер;

				Индекс = ДокументРезультат.Рисунки.Индекс(Рис);

				Если ЗначениеВыводимыхДанных.ЭтоГруппа Тогда

					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.ГруппаИЭлемент;

				Иначе

					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.Сформировать;

				КонецЕсли;	

				ВысотаТабДок = ДокументРезультат.ВысотаТаблицы;

				ОбластьДляКартинки = ДокументРезультат.НайтиТекст("%Картинка%");

				Если ОбластьДляКартинки <> Неопределено Тогда

					ДокументРезультат.Рисунки[Индекс].Расположить(ОбластьДляКартинки);	

					ОбластьДляКартинки.Текст = "%КартинкаДобавлена%"

				КонецЕсли;

			КонецЕсли;	

		КонецЕсли;	

	КонецЦикла;

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

	

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

В результате:
title

Скачать пример этого отчета(Работает в любой конфишурации где есть справочник Банки): Скачивать файлы может только зарегистрированный пользователь!

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

Как получить путь к Рабочему столу Пользователя?

Код 1C v 8.х

 Ctrl = Новый COMОбъект("MSScriptControl.ScriptControl");

Ctrl.Language = "vbscript";

Ctrl.AddCode("

|Function SpecialFolder()

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

|    SpecialFolder = Shell.RegRead(""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"")

|End Function");

ПолноеИмя = Ctrl.Run("SpecialFolder");

Код 1C v 8.х

 //%userprofile%\desktop для английской версии и "%userprofile%\рабочий стол" в русской

WSH=Новый COMobject("wscript.shell");

ИмяПути = "" + WSH.ExpandEnvironmentStrings("%HomePath%")) + "\Desktop";

// или

WSS=Новый COMОбъект("WScript.Shell");

Сообщить(WSS.SpecialFolders().Item("Desktop"));

Пример определения системных каталогов пользователя ( Shell Application Namespace )

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

Маркировка ключей защиты 1С:Предприятия

Для 1С 8 в настоящий момент используется 4 типа ключей:
title

- Однопользовательский. Это HASP HL Basic. Ключ синего цвета, не имеет внутренней памяти и персонального номера.
title

- Сетевой. HASP HL Net. Ключ красного цвета, имеет персональный номер и внутреннюю память в которой записано количество лицензий.
title

- Ключ на 32х битный сервер 1С:Предприятие. HASP HL Pro.У ключа есть маркировка ENSR8 Ключ фиолетового цвета, с внутренней памятью (фактически не используется) и уникальным идентификатором.
title

- Ключ на 64х битный сервер 1С:Предприятие. HASP HL Max. Ключ зеленого цвета. У ключа есть маркировка EN8SA, при этом данный ключи поддерживает 32-битный сервер (если у клиента есть лицензия на 64-битный сервер, он может, не меняя ключа, использовать также и 32-битную версию). C внутренней памятью (фактически не используется) и уникальным идентификатором.

Разобрались с цветами, попытаемся понять буковки:
В первой строчке ключа его тип и максимальное количество лицензий.
Hasp4 или Н4 - тип ключа.
М1 - локальный с памятью 112 байт
NetXX - сетевой, где ХХ - количество лицензий.
Других 1С пока не использует.
Во второй строчке первые пять знаков - код разработчика (заказчика) ключа.
В приложении к 1С - это назначение ключа.
ORGL8 - пользовательский от восьмерки.
ENSR8 - сервер предприятия восьмерки 32x.
EN8SA - сервер предприятия восьмерки 64x.
Остальные знаки никакого интереса не представляют.

Подробнее:
Серверные ключи:
1С:Предприятие 8.0 (8.1, 8.2) Лицензия на сервер (х32) маркируется "H4 M1 Pro ENSR8" (фиолетовый цвет ключа)
1С:Предприятие 8.0 (8.1, 8.2) Лицензия на сервер (x64) маркируется "H4 M1 Max EN8SA" (зеленый цвет ключа)

Однопользовательские ключи: (синий цвет ключа)
Ключи для всех версий программ маркируются "H4 M1 ORGL8"
Сетевые (многопользовательские) ключи: (красный цвет ключа)

Ключи маркируются в зависимости от числа клиентских лицензий:
Программы группы "1С:Бухгалтерия 8" маркируются "H4 NET5 ORGL8"
Ключи на 5 пользователей маркируются "H4 NET5 ORGL8"
Ключи на 10 пользователей маркируются "H4 NET10 ORGL8"
Ключи на 20 пользователей маркируются "H4 NET20 ORGL8"
Ключи на 50 пользователей маркируются "H4 NET50 ORGL8"
Ключи на 100 пользователей маркируются "H4 NET100 ORGL8"
Ключи на 300 пользователей маркируются "NET250+ ORG8A"
Ключи на 500 пользователей маркируются "NET250+ ORG8B"

Комплекты ключей:
Комплект из 2 ключей "1С:Предприятие 8 Управление производственным предприятием" на 10 пользователй + сервер, а так же комплект из 2 ключей "1С:Предприятие 8 Комплексная автоматизация" на 10 пользователей + сервер, ключи маркируются "H4 NET10 ORGL8" и "H4 M1 ENSR8"
Комплект из 2 ключей "1С:Предприятие 8 Учебный комлект" на 20 пользователей + сервер, ключи маркируются "H4 NET20 ORGL8" и "H4 M1 ENSR8"

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

Для установки многопользовательского ключа защиты требуется определить, какая из машин в сети будет являться сервером. Далее нужно установить на этот компьютер драйвер ключа защиты (HASP4_driver_setup.zip) и службу ключа защиты (HASP_LM_setup.zip), после чего вставить ключ защиты в порт.

Для 1С 7
Сетевые ключи - Красные
Локальные - Серые
+ на ключе шла расшифровка ACC- Бухгалтерия, TRD- Торговля, SAL - Зарплата

Программы однопользовательской группы:
Программы группы "1С:Бухгалтерия 7.7" маркируются "H4 M1 ACCNT"
Программы группы "1С:Зарплата и кадры 7.7" маркируются "H4 M1 QXDXD"
Программы группы "1С:Торговля и склад 7.7" маркируются "H4 M1 WRBQB"
Программы группы "1С:Предприятие 7.7 Комплексная" маркируются "H4 M1 WRBQB"

Программы сетевой (многопользовательской) группы:
Программы группы "1С:Предприятие 7.7 Бухгалтерский учет" маркируются "H4 Net5 ACCNT"
Программы группы "1С:Предприятие 7.7 Зарплата + Кадры" маркируются "H4 Net5 QXDXD"
Программы группы "1С:Предприятие 7.7 Торговля + Склад" маркируются "H4 Net5 WRBQB"
Программы группы "1С:Предприятие 7.7 Комплексная поставка" маркируются "H4 Net5 WRBQB"
Программы группы "1С:Предприятие 7.7 Налогоплательщик" маркируются "H4 Net5 TAXPR"
Программы группы "1С:Предприятие 7.7 Небольшая фирма" маркируются "ACCNT" / "WRBQB" / "QXDXD"
Программы группы "1С:Предприятие 7.7 Управление распределенными информационными базами" маркируются "H4 Net5 DISTR"
Программы группы "1С:Предприятие 7.7 Web-расширение" маркируются "H4 Net5 W31CK"

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