[Odin – Одинэсник]

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

1. **Создание роли**:
– Создайте новую роль, например, “ЗапретСозданияГрупп”, если она еще не создана.

2. **Настройка прав доступа**:
– Перейдите в настройки прав доступа для справочника “Номенклатура”.
– Убедитесь, что для роли “ЗапретСозданияГрупп” установлены права на “Чтение” и “Запись”, но не на “Создание”.

3. **Обработка события формы**:
– В форме справочника “Номенклатура” добавьте обработчик события “ПередОткрытием” или “ПередЗаписью” для проверки прав пользователя.
– В обработчике добавьте следующий код:

1С (Код)

1C Процедура ПередОткрытием(Отказ) Если РольДоступна("ЗапретСозданияГрупп") Тогда Если ЭтаФорма.Элемент.Тип = Тип("Группа") Тогда Отказ = Истина; Сообщить("У вас нет прав на создание групп в справочнике Номенклатура."); КонецЕсли; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9

1C Процедура ПередОткрытием(Отказ)     Если РольДоступна("ЗапретСозданияГрупп") Тогда         Если ЭтаФорма.Элемент.Тип = Тип("Группа") Тогда             Отказ = Истина;             Сообщить("У вас нет прав на создание групп в справочнике Номенклатура.");         КонецЕсли;     КонецЕсли; КонецПроцедуры

4. **Проверка прав в коде**:
– В обработчике события “ПередЗаписью” можно также добавить проверку, чтобы предотвратить запись группы, если у пользователя нет соответствующих прав.

1С (Код)

1C Процедура ПередЗаписью(Отказ) Если РольДоступна("ЗапретСозданияГрупп") Тогда Если ЭтотОбъект.Тип = Тип("Группа") Тогда Отказ = Истина; Сообщить("У вас нет прав на создание групп в справочнике Номенклатура."); КонецЕсли; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9

1C Процедура ПередЗаписью(Отказ)     Если РольДоступна("ЗапретСозданияГрупп") Тогда         Если ЭтотОбъект.Тип = Тип("Группа") Тогда             Отказ = Истина;             Сообщить("У вас нет прав на создание групп в справочнике Номенклатура.");         КонецЕсли;     КонецЕсли; КонецПроцедуры

5. **Тестирование**:
– Проверьте, что пользователи с ролью “ЗапретСозданияГрупп” не могут создавать новые группы в справочнике “Номенклатура”.

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

[Odin – Одинэсник]

Для того чтобы запретить пользователю изменять родителя элемента справочника в 1С, можно использовать обработчик события формы, который будет проверять, изменяется ли поле “Родитель”. Если оно изменяется, то можно вернуть его к предыдущему значению.

Вот пример кода, который можно использовать в обработчике события “ПередЗаписью” формы:

1С (Код)

1C Процедура ПередЗаписью(Отказ) // Сохраняем текущее значение родителя ТекущийРодитель = ЭтотОбъект.Родитель; // Проверяем, изменилось ли значение родителя Если ЭтотОбъект.Родитель ТекущийРодитель Тогда // Если изменилось, то возвращаем к предыдущему значению ЭтотОбъект.Родитель = ТекущийРодитель; Сообщить("Изменение родителя запрещено."); Отказ = Истина; // Отменяем запись КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13

1C Процедура ПередЗаписью(Отказ)     // Сохраняем текущее значение родителя     ТекущийРодитель = ЭтотОбъект.Родитель;          // Проверяем, изменилось ли значение родителя     Если ЭтотОбъект.Родитель  ТекущийРодитель Тогда         // Если изменилось, то возвращаем к предыдущему значению         ЭтотОбъект.Родитель = ТекущийРодитель;         Сообщить("Изменение родителя запрещено.");         Отказ = Истина; // Отменяем запись     КонецЕсли; КонецПроцедуры

Также можно использовать событие “ПриИзменении” для поля “Родитель”, чтобы сразу возвращать его к предыдущему значению:

1С (Код)

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

1 2 3 4 5 6

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

Не забудьте инициализировать переменную ТекущийРодитель в событии “ПриОткрытии” формы, чтобы она содержала текущее значение родителя при открытии формы:

1С (Код)

1C Процедура ПриОткрытии() ТекущийРодитель = ЭтотОбъект.Родитель; КонецПроцедуры

1 2 3 4

1C Процедура ПриОткрытии()     ТекущийРодитель = ЭтотОбъект.Родитель; КонецПроцедуры

Таким образом, пользователь сможет изменять все остальные поля, кроме поля “Родитель”.

[Odin – Одинэсник]

Привет, Богдан! На сегодня последняя актуальная и стабильная версия платформы 1С:Предприятие — 8.3.25.1445, которая вышла 15 октября 2024 года.

[Odin – Одинэсник]

Для 1000 пользователей в PostgreSQL рекомендуется устанавливать параметр shared_buffers на уровне 32 ГБ. Это значение составляет примерно 25% от общей оперативной памяти сервера, что является хорошей практикой для обеспечения производительности.

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

[Odin – Одинэсник]

Вот пример скрипта для бэкапа баз данных в PostgreSQL:

1С (Код)

sql -- Установите необходимые параметры DO $$ DECLARE db_name TEXT; backup_path TEXT := '/path/to/backup/'; backup_file TEXT; BEGIN -- Получаем список баз данных FOR db_name IN SELECT datname FROM pg_database WHERE datistemplate = false LOOP -- Формируем имя файла для бэкапа backup_file := backup_path || db_name || '_' || to_char(current_timestamp, 'YYYYMMDD_HH24MISS') || '.sql'; -- Выполняем бэкап EXECUTE format('pg_dump %I > %L', db_name, backup_file); END LOOP; END $$;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sql -- Установите необходимые параметры DO $$ DECLARE     db_name TEXT;     backup_path TEXT := '/path/to/backup/';     backup_file TEXT; BEGIN     -- Получаем список баз данных     FOR db_name IN SELECT datname FROM pg_database WHERE datistemplate = false LOOP         -- Формируем имя файла для бэкапа         backup_file := backup_path || db_name || '_' || to_char(current_timestamp, 'YYYYMMDD_HH24MISS') || '.sql';                  -- Выполняем бэкап         EXECUTE format('pg_dump %I > %L', db_name, backup_file);     END LOOP; END $$;

### Объяснение:
1. **Параметры**: Установите путь к папке, где будут храниться бэкапы.
2. **Цикл**: Скрипт проходит по всем базам данных, исключая шаблоны.
3. **Форматирование имени файла**: Имя файла включает имя базы и текущую дату/время.
4. **Выполнение бэкапа**: Используется команда pg_dump для создания бэкапа каждой базы.

Не забудьте заменить ’/path/to/backup/’ на актуальный путь на вашем сервере.

[Odin – Одинэсник]

Привет, Богдан!

Вот пример запроса в 1С к справочнику Номенклатура, который выбирает все наименования номенклатуры:

1С (Код)

1C &НаСервере Процедура ЗаполнитьНаСервере() НашЗапрос = Новый Запрос; НашЗапрос.Текст = "ВЫБРАТЬ | Номенклатура.Наименование КАК Наименование |ИЗ | Справочник.Номенклатура КАК Номенклатура"; Результат = НашЗапрос.Выполнить().Выбрать(); Пока Результат.Следующий() Цикл Сообщить(Результат.Наименование); КонецЦикла КонецПроцедуры &НаКлиенте Процедура Заполнить(Команда) ЗаполнитьНаСервере(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

1C &НаСервере Процедура ЗаполнитьНаСервере()     НашЗапрос = Новый Запрос;     НашЗапрос.Текст =     "ВЫБРАТЬ     |   Номенклатура.Наименование КАК Наименование     |ИЗ     |   Справочник.Номенклатура КАК Номенклатура";         Результат = НашЗапрос.Выполнить().Выбрать();          Пока Результат.Следующий() Цикл         Сообщить(Результат.Наименование);     КонецЦикла КонецПроцедуры   &НаКлиенте Процедура Заполнить(Команда)     ЗаполнитьНаСервере(); КонецПроцедуры

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

Если у вас есть дополнительные вопросы или нужна помощь с чем-то еще, дайте знать!

[Автор]

Сообщения