Сбор данных о программных лицензиях

01.04.24

База данных - Инструменты администратора БД

Сохранение в базе информации о программных клиентских лицензиях.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Сбор данных о программных лицензиях: .cfe 15,39Kb 6	6	2 500 руб. Купить	1 SM Скачать

Поступила задача навести порядок в учёте клиентских лицензий у заказчика.

(Лицензии активированы на рабочих местах, т.к. открываются несколько баз. Это контраргумент к возможным "переактивируй на сервер и забудь как страшный сон".)

В самой разработке очень много допущений и умолчаний, но она и не претендует на всеобъемлющую.

- Рассматриваются только Windows-клиенты

- Рассматривается только каталог "C:\ProgramData\"

- Расширение имеет режим совместимости 8.3.14 (увы, у заказчика так. А это накладывает ограничения. Например, нельзя использовать константы.)

- Используется общий модуль из БСП.

Решение.

- Перехватить запуск клиента

- Искать файлы в папке

- Хранить содержимое в базе

- После иметь возможность восстановить файлы для анализа.

Дерево конфигурации расширения

Листинг заимствованного СтандартныеПодсистемыКлиент

&Перед("ПриНачалеРаботыСистемы")
Процедура АлгСДОПР_ПриНачалеРаботыСистемы(Знач ОповещениеЗавершения, НепрерывноеВыполнение)
	#Если ТолстыйКлиент ИЛИ ТонкийКлиент Тогда
		КаталогЛицензий = Новый Файл("C:\ProgramData\1C\licenses");
		Если КаталогЛицензий.Существует() Тогда
			ФайлыЛицензий = НайтиФайлы(КаталогЛицензий.ПолноеИмя, "*.lic");
			Для й = 0 По ФайлыЛицензий.ВГраница() Цикл
				ИмяФайла = ФайлыЛицензий[й].Имя;
				ПолноеИмяФайла = ФайлыЛицензий[й].ПолноеИмя;
				Текст = Новый ЧтениеТекста(ПолноеИмяФайла, КодировкаТекста.UTF8);
				Содержимое = Текст.Прочитать();
				АлгСДОПЛ_ОбщийМодульСерверВызовСервера.АлгСДОПЛ_ДобавитьЗаписьОЛицензииСервер(ИмяФайла, Содержимое, ИмяКомпьютера());
			КонецЦикла;
		КонецЕсли;
	#КонецЕсли
КонецПроцедуры

Листинг АлгСДОПЛ_ОбщийМодульСерверВызовСервера

Процедура АлгСДОПЛ_ДобавитьЗаписьОЛицензииСервер(ИмяФайла, Содержимое, ИмяКомпьютера) Экспорт
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	АлгСДОПЛ_ДанныеОЛицензиях.Содержимое КАК Содержимое
	|ИЗ
	|	РегистрСведений.АлгСДОПЛ_ДанныеОЛицензиях КАК АлгСДОПЛ_ДанныеОЛицензиях
	|ГДЕ
	|	АлгСДОПЛ_ДанныеОЛицензиях.Компьютер = &Компьютер
	|	И АлгСДОПЛ_ДанныеОЛицензиях.ИмяФайла = &ИмяФайла";	
	Запрос.УстановитьПараметр("ИмяФайла", ИмяФайла);
	Запрос.УстановитьПараметр("Компьютер", ИмяКомпьютера);	
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	ЗаписыватьРезультат = ИСТИНА;
	Если ВыборкаДетальныеЗаписи.Следующий() Тогда
		Если ВыборкаДетальныеЗаписи.Содержимое = Содержимое Тогда
			ЗаписыватьРезультат = ЛОЖЬ;
		КонецЕсли;
	КонецЕсли;
	Если ЗаписыватьРезультат Тогда
		МенеджерЗаписи = РегистрыСведений.АлгСДОПЛ_ДанныеОЛицензиях.СоздатьМенеджерЗаписи();
		МенеджерЗаписи.ИмяФайла = ИмяФайла;
		МенеджерЗаписи.Содержимое = Содержимое;
		МенеджерЗаписи.Компьютер = ИмяКомпьютера;
		МенеджерЗаписи.Обновлено = ТекущаяДата();
		МенеджерЗаписи.Записать(ИСТИНА);
	КонецЕсли;
КонецПроцедуры

Листинг модуля формы списка РС АлгСДОПЛ_ДанныеОЛицензиях (для кнопки сохранения файлов)

&НаКлиенте
Процедура СохранитьФайлы(Команда)
	ПослеВыбораКаталога = Новый ОписаниеОповещения("ПослеВыбораКаталога", ЭтаФорма);
	ФайловаяСистемаКлиент.ВыбратьКаталог(ПослеВыбораКаталога, "Выберите каталог для сохранения файлов");
КонецПроцедуры

&НаКлиенте
Процедура ПослеВыбораКаталога(Результат, ДополнительныеПараметры) Экспорт
	Если Результат = Неопределено Тогда
		Возврат;
	КонецЕсли;
	РезультатСтруктура = ПолучитьДанныеПоФайлам();
	Для Каждого КлючИЗначение Из РезультатСтруктура Цикл
		Текст = Новый ТекстовыйДокумент;
		Текст.УстановитьТекст(КлючИЗначение.Значение.Содержимое);
		Текст.Записать(Результат + "\" + КлючИЗначение.Значение.Компьютер + "_" + КлючИЗначение.Значение.ИмяФайла, КодировкаТекста.UTF8);
	КонецЦикла;
КонецПроцедуры

Функция ПолучитьДанныеПоФайлам()
	Результат = Новый Структура;
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	АлгСДОПЛ_ДанныеОЛицензиях.Компьютер КАК Компьютер,
	|	АлгСДОПЛ_ДанныеОЛицензиях.ИмяФайла КАК ИмяФайла,
	|	АлгСДОПЛ_ДанныеОЛицензиях.Содержимое КАК Содержимое
	|ИЗ
	|	РегистрСведений.АлгСДОПЛ_ДанныеОЛицензиях КАК АлгСДОПЛ_ДанныеОЛицензиях";	
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	й = 0;
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		й = й + 1;
		ТекДанные = Новый Структура("Компьютер, ИмяФайла, Содержимое");
		ЗаполнитьЗначенияСвойств(ТекДанные, ВыборкаДетальныеЗаписи);
		Результат.Вставить("Файл" + Формат(й, "ЧГ="), ТекДанные);
	КонецЦикла;
	Возврат Результат;
КонецФункции

Тестировалось на Рознице 3 и УТ 11.4. Версия платформы от 8.3.14 и выше.

Вступайте в нашу телеграмм-группу Инфостарт

Программные лицензии сбор информации

+7 –

См. также

Database Compression Tool: Инструмент для свертки и сжатия баз данных 1С

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

24900 руб.

20.08.2024 59506 317 160

287

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С:УТ11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права Системный администратор Программист Пользователь 1С 8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 17.06.2025, версия 1.3

20740 руб.

06.12.2023 20898 73 10

106

Infostart DataFormWizard: Управление данными и формами в 1С 8.3

Инструменты администратора БД Инструментарий разработчика Роли и права Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

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

17000 руб.

10.11.2023 23466 84 42

Ускоренное проведение документов в 1С (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14640 руб.

29.04.2020 42492 129 158

Сравнение документов между базами 1С: найдите расхождения за пару кликов

Поиск данных Инструменты администратора БД Корректировка данных Программист Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

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

6100 руб.

14.11.2025 2718 11 4

SALE! %

PowerTools

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Бизнес-аналитик 1С:Предприятие 8 1С 8.3 1С 8.5 1C:ERP 1С:УТ 1С:ДО 1С:Бухгалтерия 3.0 1С:ERP. Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Россия Платные (руб)

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

~~6000~~ 4780 руб.

14.01.2013 208839 1218 0

959

Брандмауэр для сервера 1С - внешнее управление сеансами

Инструменты администратора БД Системный администратор Программист 1С:Предприятие 8 1C:Бухгалтерия Платные (руб)

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

12200 руб.

06.02.2017 35177 149 18

Автоматическое резервное копирование любой клиент-серверной базы 1С в формате DT с удалением сеансов, архивацией, изменением расширения (8.3.14+, расширение)

Архивирование (backup) Инструменты администратора БД 1С:Предприятие 8 1C:Бухгалтерия 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Данная разработка позволит решить вопрос с резервным копированием Ваших баз в автоматическом режиме, расположенных на сервере 1С. Система умеет ставить блокировки на вход, блокировать фоновые задания, принудительно отключать сеансы пользователей. И все это система делает в автоматически при создании бэкапа (или через команду). Выгрузка происходит в родной формат 1С - .dt. Так же система умеет архивировать данные выгрузки с установкой пароля. Умеет менять расширение файла zip или dt на любое указанное вами, что позволит сохранить выгрузки от шифровальщика. Может удалять старые копии выгрузок, оставляя указанное количество резервных копий, начиная с самой поздней. Только для WINDOWS!

6100 руб.

06.11.2012 78129 633 45