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

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

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

[Автор]

Сообщения