storage » Поиск

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

Ошибка программного лицензирования. Ошибка привязки программной лицензии к компьютеру

Устанавливаем на сервер лицензию на 20 раб. мест, проходит все этапы и пишет что лицензия получена.

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

Точно ни кто и ничего не менял в компьютере, пробовал удалять лицензию и делать восстановление - опять просит лицензию

Подробное описание ошибки:

Не найдена лицензия. Не обнаружен ключ защиты программы или полученная программная лицензия!
по причине:
Поиск лицензии на клиенте:
локальный ключ недоступен: Status=-10, ORGL8 Локальный, не установлен
Ошибка программного лицензирования. Файл программной лицензии не предусматривает возможность запуска клиентских приложений 1С:Предприятия или внешних соединений: file://C:/ProgramData/1C/licenses/20170928112353.lic
Ошибка программного лицензирования. Ошибка привязки программной лицензии к компьютеру: file://C:/ProgramData/1C/licenses/20180305020153.lic
После получения лицензии удалены:
DISK_2: SYNOLOGY iSCSI Storage SCSI Disk Device, SCSI\DISK&VEN_SYNOLOGY&PROD_ISCSI_STORAGE\1&1C121344&0&000100, 512, 63, 110307, 255, 28128285, 1772081955, 907305960960
DISK_0: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000600, 512, 63, 29180, 255, 7440900, 468776700, 240013670400
BIOS_0: HP, 20171002000000.000000+000, U23, 2, 8
NET_10: [00000011] HPE Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:00
NET_9: [00000010] HPE Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:01
В текущей конфигурации компьютера имеются:
DISK_0: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000600, 512, 63, 21884, 255, 5580420, 351566460, 180002027520
DISK_3: SYNOLOGY iSCSI Storage SCSI Disk Device, SCSI\DISK&VEN_SYNOLOGY&PROD_ISCSI_STORAGE\1&1C121344&0&000000, 512, 63, 248029, 255, 63247395, 3984585885, 2040107973120
DISK_2: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000400, 512, 63, 26107, 255, 6657285, 419408955, 214737384960
DISK_1: HP LOGICAL VOLUME SCSI Disk Device, SCSI\DISK&VEN_HP&PROD_LOGICAL_VOLUME\5&13B98741&0&000500, 512, 63, 95489, 255, 24349695, 1534030785, 785423761920
NET_10: [00000011] HP Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:00
NET_9: [00000010] HP Ethernet 1Gb 2-port 332i Adapter, 94:18:82:33:49:01
BIOS_0: HP, 20170117000000.000000+000, U23, 2, 8
локальный ключ недоступен: Status=-10, ORG8A Локальный, не установлен
локальный ключ недоступен: Status=-10, ORG8B Локальный, не установлен
nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORGL8 Сетевой, не установлен
nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORG8A Сетевой, не установлен
nethasp.ini: C:/Program Files/1cv8/conf/nethasp.ini, прочитан успешно, ошибка соединения с менеджером лицензий: Net Status=0, System Error=0, Warning=15, ORG8B Сетевой, не установлен
Поиск лицензии на сервере:
локальный ключ недоступен: Status=-100, ORGL8 Локальный, не установлен

Решение:

Удалите на компьютере все файлы 1cv8conn.pfl

Если после этого лицензия не найдена - восстановите ее по активному пин-коду.

После удачного входа, увидеть лицензию можно здесь:

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

Прямые запросы к SQL серверу.

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

Подключение к SQL в общем то широко описано:

Код 1C v 8.х

 	Функция Подключение(Сервер,БД)

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

		cnn.ConnectionTimeOut	= 0;

		cnn.CommandTimeOut	= 0; 

		cnn.connectionString    = "SERVER="+Сервер+"; Database="+БД+"; DRIVER=SQL Server; UID=sa; PWD=*****;";  

		cnn.Open();   

		if cnn.State()=0 then

			Сообщить("Не удалось соединиться с сервером");

			cnn = 0;

			Возврат Ложь;

		endif;	

		cnn.Execute("SET NOCOUNT ON");

		Возврат cnn;

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

Сервер и БД можно получить и программно, но муторно. Эти данные можно взять из свойств БД на сервере 1С.

Название таблицы и полей в SQL можно получить с помощью команды 1С:

Цитата

Глобальный контекст
ПолучитьСтруктуруХраненияБазыДанных (GetDBStorageStructureInfo)
Синтаксис:
ПолучитьСтруктуруХраненияБазыДанных(<Объекты метаданных>, <Имена базы данных>)
Параметры:
<Объекты метаданных> (необязательный)
Тип: Массив. Массив имен объектов метаданных или массив объектов метаданных, для которых требуется получить структуру таблиц базы данных.
<Имена базы данных> (необязательный)
Тип: Булево. Определяет, в каких терминах выдается информация о структуре хранения.
Истина - в терминах СУБД
Ложь - в терминах SDBL.
Значение по умолчанию: Ложь
Возвращаемое значение:
Тип: ТаблицаЗначений. Возвращает таблицу значений с описаниями структуры таблиц, индексов и полей базы данных в терминах SDBL или используемой СУБД, в зависимости от значения параметра "Имена базы данных".
Если параметр не используется, то возвращаемая таблица значений содержит информацию о структуре таблиц базы данных всех объектов метаданных.
Таблица значений включает следующие колонки:
ИмяТаблицыХранения(StorageTableName) – имя таблицы SDBL или базы данных;
ИмяТаблицы(TableName) – имя таблицы в терминах языка запросов (для тех у кого оно есть);
Метаданные(Metadata) – полное имя объекта метаданных;
...

Дальше нам нужно новый элемент справочника все ж таки записать, ну например :

Код 1C v 8.х

 

Попытка

	спр.Записать();

Исключение

	Сообщить("Не уникальный код "+стр.Код+" у элемента "+стр.Наименование);

	Спр.УстановитьНовыйКод();

	Спр.Записать();

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

Все, делаем подмену.

Код 1C v 8.х

 	подключение=Подключение(Сервер,База);

	ТекстЗапроса="UPDATE Номенклатура

	|SET Номенклатура._Code="+Формат(КодНужный,"ЧГ=0")+"

	|FROM _Reference57 AS Номенклатура 

	|WHERE	(CAST(Номенклатура._Folder AS int)=1)

	|AND (Номенклатура._Code="+Формат(Спр.Код,"ЧГ=0")+")

	|"; 

	подключение.Execute(ТекстЗапроса);

	Сообщить("Код "+КодБыл+" подменен на "+КодНужный);

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