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

01.04.24

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

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Сбор данных о программных лицензиях: .cfe 15,39Kb 5	5	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

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

Решение.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

+6 –

См. также

SALE! 15%

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

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

~~8400~~ 7140 руб.

20.08.2024 7765 55 22

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

Инструменты администратора БД Роли и права Системный администратор Программист Пользователь 8.3.14 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, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 18.09.2024, версия 1.2

16800 руб.

06.12.2023 8841 42 5

SALE! 15%

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

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

~~10000~~ 8500 руб.

10.11.2023 10412 36 20

SALE! 35%

PowerTools: Инструменты администратора 1С 8.3

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

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

~~4800~~ 3120 руб.

14.01.2013 187971 1138 0

912

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

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

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

14400 руб.

29.04.2020 32666 106 152

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Системный администратор Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015 62814 94 59

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

Архивирование (backup) Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

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

6000 руб.

06.11.2012 72787 625 45

Сжатие (уменьшение) картинок в базе 1С и приведение их к одинаковой ширине

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

Многие сталкиваются с проблемой когда изображения, находящиеся в базе разные по объему и размерам. Менеджеры могут добавить файлы в очень высоком разрешении, объемом свыше 20 Мегабайт. База данных становится слишком большой, выгрузка на сайт идёт медленно и требуется много место на хостинге. Как сжать картинки и уменьшить размер базы 1С? Это можно сделать с помощью данной обработки. Существует возможность выбрать различные варианты для того чтобы уменьшить картинки: в разы, в процентах от первоначального объема, а также сделать картинки одинаковой ширины. В результате размер базы 1С значительно сократится (в зависимости от количества и размера картинок), а изображения станут небольшого объема, равными по ширине, почти без потери качества. Работает на управляемых формах для УТ 11, КА, ERP.

3000 руб.

21.07.2022 9831 7 4