Как заполнить дерево значений (на сервере)?

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

Как добавить строку (на клиенте)?

&НаКлиенте
Процедура ДобавитьСтрокуНаКлиенте(Команда)
	ИдентификаторСтроки = Элементы.Дерево.ТекущаяСтрока;
	ТекущаяСтрока       = Дерево.НайтиПоИдентификатору(ИдентификаторСтроки);
	НоваяСтрокаДерева   = ТекущаяСтрока.ПолучитьЭлементы().Добавить();
КонецПроцедуры
 

Как удалить текущую строку (на клиенте)?

&НаКлиенте
Процедура УдалитьТекущуюСтрокуНаКлиенте(Команда)
	ИдентификаторСтроки = Элементы.Дерево.ТекущаяСтрока;
	ТекущаяСтрока       = Дерево.НайтиПоИдентификатору(ИдентификаторСтроки);
	СтрокаРодитель      = ТекущаяСтрока.ПолучитьРодителя();
	
	Если СтрокаРодитель = Неопределено Тогда
		Дерево.ПолучитьЭлементы().Удалить(ТекущаяСтрока);
	Иначе
		СтрокаРодитель.ПолучитьЭлементы().Удалить(ТекущаяСтрока);
	КонецЕсли;
КонецПроцедуры
 

Как очистить дерево (на клиенте)?

&НаКлиенте
Процедура ОчиститьДерево(Команда)
	
	Дерево.ПолучитьЭлементы().Очистить();
	
КонецПроцедуры
 

Как очистить дерево (на сервере)?

&НаСервере
Процедура ОчиститьДерево(Команда)
	ДЗ = РеквизитФормыВЗначение("Дерево");
	ДЗ.Строки.Очистить();
	ЗначениеВРеквизитФормы(ДЗ, "Дерево");
КонецПроцедуры
 

Как перебрать дерево рекурсивно (на клиенте)?

&НаКлиенте
Процедура ОбойтиДеревоРекурсивно(Команда)
    ОбойтиРекурсивноСтрокиДереваНаКлиенте(Дерево.ПолучитьЭлементы());
КонецПроцедуры

&НаКлиенте
Процедура ОбойтиРекурсивноСтрокиДереваНаКлиенте(Строки)
    Для Каждого СтрокаДерева Из Строки Цикл
        Сообщить(СтрокаДерева.Номенклатура);
         
        ПодчиненныеСтроки  = СтрокаДерева.ПолучитьЭлементы();
         
        Если ПодчиненныеСтроки.Количество() > 0 Тогда
            ОбойтиРекурсивноСтрокиДереваНаКлиенте(ПодчиненныеСтроки);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
 

Как перебрать дерево рекурсивно (на сервере)?

&НаСервере
Процедура ОбойтиДеревоРекурсивноНаСервере()
	 ДеревоЗначений  = РеквизитФормыВЗначение("Дерево");
     ОбойтиДеревоРекурсивноСтрокиДереваНаСервере(ДеревоЗначений);
КонецПроцедуры

&НаСервере
Процедура ОбойтиДеревоРекурсивноСтрокиДереваНаСервере(ДеревоЗначений)
	Для Каждого СтрокаДерева Из ДеревоЗначений.Строки Цикл
        Сообщить(СтрокаДерева.Номенклатура);
         
        Если СтрокаДерева.Строки.Количество() > 0 Тогда
           ОбойтиДеревоРекурсивноСтрокиДереваНаСервере(СтрокаДерева);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Все обработки можно загрузить из репозитория https://gitlab1c.buh-lnr.ru/gitpublic/inf_reg_dublicates

Инструкция по свертке неуникальных записей:

1. Открыть обработку.
2. Выбрать регистр сведений, в котором появились неуникальные записи.
3. Отметить измерения которые будут удалены при обновлении.
4. Нажать “Свернуть дубли”.

Обработка найдет дублирующиеся строки и свернет их в одну строку. После этого обновление конфигурации пройдет корректно.

Также можно просто проверить наличие дублей без изменения данных

При обновлении конфигурации периодически может возникать ошибка Записи регистра сведений стали неуникальными или Имеются записи с одинаковыми измерениями

Сперва создаем ts_nvme2 или любое другое название, затем

DO $$

DECLARE

    cmd text;

BEGIN

    FOR cmd IN

        SELECT format('ALTER INDEX %I.%I SET TABLESPACE ts_nvme2;', n.nspname, c.relname)

        FROM pg_class c

        JOIN pg_namespace n ON n.oid = c.relnamespace

        WHERE c.relkind = 'i'

          AND n.nspname NOT IN ('pg_catalog', 'information_schema')

          AND n.nspname !~ '^pg_toast'

    LOOP

        BEGIN

            EXECUTE cmd;

            RAISE NOTICE 'OK: %', cmd;

        EXCEPTION WHEN OTHERS THEN

            RAISE WARNING 'ERROR: % — %', cmd, SQLERRM;

        END;

    END LOOP;

END $$;



// - нужно еще на скоростной диск перенести WAL

// -- не на скоростной, а на высокоресурсный

C:\Windows\System32>mklink /D "C:\PG_DATA\pg_wal" "W:\PG_DATA\pg_wal"

символическая ссылка создана для C:\PG_DATA\pg_wal\ <<===>> W:\PG_DATA\pg_wal

SELECT 

  datname AS "Название базы данных", 

  pg_size_pretty(pg_database_size(datname)) AS "Размер"

FROM 

  pg_database

ORDER BY 

  pg_database_size(datname) DESC;

SELECT nspname || ‘.’ || relname AS “relation”, pg_size_pretty(pg_relation_size(C.oid)) AS “size” FROM pg_class C LEFT JOIN pg_namespace N ON (N.oid = C.relnamespace) WHERE nspname NOT IN (‘pg_catalog’, ‘information_schema’) ORDER BY pg_relation_size(C.oid) DESC LIMIT 20;

Ключи защиты 1С.

Какими они бывают?

Существует 4 типа ключей: 

1. Однопользовательский. Модель: HASP HL Basic. Цвет: синий или фиолетовый. Не имеет внутренней памяти. Устанавливается на том компьютере где запускается 1С.

2.Сетевой. Модель: HASP HL Net. Цвет: красный. Имеет персональный номер и внутреннюю память в которой записано количество лицензий.

3. Серверный подразделяется для 32-х битных и 64-х битных серверов.

32-х битный ключ. Модель: HASP HL Pro. Цвет: фиолетовый. Имеет персональный номер и внутреннюю память.

64-х битный ключ. Модель: HASP HL Max. Цвет: зеленый. Имеет персональный номер и внутреннюю память.

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

Существуют следующие возможные обозначения:

Н4 – это тип ключа. 
М1 – означает что он локальный на одного пользователя.
NetXX – сетевой, где ХХ – количество лицензий. Но здесь указываются лицензии до 100, для остальных указывается 250+ и буква возле маркировки “ORGL8″(читайте ниже).

Ниже указана маркировка назначения ключа:
ORGL8 – пользовательский до 100, ORGL8A – пользовательский до 300, ORGL8B – пользовательский до 500. 
ENSR8 – серверный 32-битный.
EN8SA – сервеный 64-битный, но можно использовать и для 32-битных.

Другие символы для нас значения не имеют.

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

Как определить для чего нужен HASP?

При установленном Sentinel LDK License Manager, запустить  http://localhost:1947/_int_/devices.html

Столбец “Vendor”:

Список вендоров:

В 1С:Предприятие мутабельные и немутабельные значения относятся к различным типам данных. Мутабельные значения могут изменяться после их создания, в то время как немутабельные значения не могут быть изменены.

Чтобы перевести мутабельное значение в немутабельное, вы можете использовать функцию Копировать, которая создает копию объекта, но при этом делает его немутабельным. Например, если у вас есть мутабельный массив, вы можете создать его копию, которая будет немутабельной.

Вот пример кода:

// Создаем мутабельный массив
МассивМутабельный = Новый Массив;
МассивМутабельный.Добавить(1);
МассивМутабельный.Добавить(2);

// Переводим в немутабельный массив
МассивНемутабельный = Копировать(МассивМутабельный);

// Теперь МассивНемутабельный является немутабельным

Таким образом, вы можете использовать функцию Копировать для преобразования мутабельных значений в немутабельные.