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

Если общий модуль доступен только для чтения, то вы не можете напрямую изменять его код. Однако есть несколько подходов, которые могут помочь вам обойти это ограничение:

1. **Создание нового общего модуля**: Вы можете создать новый общий модуль, в котором реализуете свою процедуру или функцию. Затем в этом новом модуле вы можете вызывать функции из общего модуля, доступного только для чтения.

2. **Использование расширений**: Если ваша конфигурация поддерживает механизм расширений, вы можете создать расширение, которое добавляет необходимую функциональность. В расширении вы можете переопределить или дополнить существующие процедуры и функции.

3. **Создание внешней обработки**: Вы можете создать внешнюю обработку, в которой реализуете свою логику. Затем вы можете вызывать эту обработку из других модулей, включая общий модуль, доступный только для чтения.

4. **Использование механизмов событий**: Если общий модуль поддерживает события, вы можете подписаться на эти события и добавить свою логику в обработчики событий.

5. **Обращение к разработчикам**: Если у вас есть возможность, вы можете обратиться к разработчикам конфигурации с просьбой внести необходимые изменения в общий модуль.

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

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

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

1. **Проблемы с кэшем**: Иногда кэш 1С может быть поврежден или переполнен, что приводит к зависаниям. Попробуйте очистить кэш, используя параметр запуска /ClearCache.

2. **Конфликт с антивирусом**: Некоторые антивирусные программы могут блокировать или замедлять запуск 1С. Рекомендуется добавить исключения для файлов 1С в настройки антивируса.

3. **Проблемы с правами доступа**: Убедитесь, что у пользователя есть необходимые права доступа к папкам и файлам 1С.

4. **Ошибки в конфигурации**: Если конфигурация была изменена или повреждена, это может вызвать зависания. Попробуйте запустить 1С в режиме конфигуратора и проверить наличие ошибок.

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

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

7. **Проблемы с драйверами**: Устаревшие или несовместимые драйвера видеокарты могут вызывать проблемы с отображением интерфейса 1С.

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

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

1. **Подготовка к установке**:
— Убедитесь, что Windows Server 2024 обновлен до последней версии.
— Установите Microsoft Visual C++ Redistributable, если он не установлен (необходим для работы 1С).
— Отключите IPv6, если он не нужен, для избежания проблем с подключением.

2. **Скачивание необходимых дистрибутивов**:
— Скачайте дистрибутив PostgreSQL с официального сайта или с сайта 1С (пропатченная версия).
— Скачайте дистрибутив 1С:Предприятия (серверная версия) с официального сайта 1С.

3. **Установка PostgreSQL**:
— Запустите установщик PostgreSQL.
— Выберите путь установки и путь для хранения баз данных (рекомендуется не на системном диске).
— Установите пароль для пользователя postgres.
— После завершения установки откройте pgAdmin и проверьте, что сервер работает.

4. **Настройка PostgreSQL**:
— Откройте файл pg_hba.conf (обычно находится в C:Program FilesPostgreSQLdata).
— Измените строку local all postgres peer на local all postgres md5 для использования пароля.
— Убедитесь, что listen_addresses в postgresql.conf установлен на ’*’ для доступа с других машин.
— Перезапустите службу PostgreSQL через services.msc.

5. **Установка сервера 1С**:
— Запустите установщик 1С:Предприятия.
— Выберите необходимые компоненты для установки (Сервер 1С, Администрирование и т.д.).
— При установке выберите опцию «Установить сервер 1С как службу Windows» и создайте пользователя для службы (например, USR1CV8).
— Убедитесь, что служба установлена и запущена.

6. **Создание базы данных в PostgreSQL**:
— Запустите «Администрирование серверов 1С:Предприятия».
— Создайте новую информационную базу, указав параметры подключения к PostgreSQL (имя сервера, имя базы данных, пользователь и пароль).

7. **Настройка прав доступа**:
— Убедитесь, что созданный пользователь PostgreSQL имеет необходимые права на базу данных.
— Проверьте настройки брандмауэра Windows, чтобы разрешить доступ к портам PostgreSQL и 1С.

8. **Тестирование**:
— Подключитесь к базе данных через клиент 1С и проверьте, что все работает корректно.
— Проверьте логи на наличие ошибок.

9. **Автозапуск служб**:
— Убедитесь, что службы PostgreSQL и 1С настроены на автоматический запуск при загрузке системы.

На этом установка завершена. Теперь вы можете использовать сервер 1С на базе PostgreSQL на Windows Server 2024.

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

Привет, Jenya! Вот пошаговая инструкция по установке серверной 1С на базе PostgreSQL на Linux:

### Шаг 1: Подготовка системы
1. **Обновите систему:**

1С (Код)

bash sudo apt update && sudo apt upgrade -y

1 2	bash    sudo apt update && sudo apt upgrade -y

2. **Установите необходимые пакеты:**

1С (Код)

bash sudo apt install -y wget curl vim

1 2	bash    sudo apt install -y wget curl vim

### Шаг 2: Установка PostgreSQL
1. **Добавьте репозиторий PostgreSQL:**

1С (Код)

bash sudo sh -c 'echo "deb http://apt.postgresql.org/pub/repos/apt/ $(lsb_release -cs)-pgdg main" > /etc/apt/sources.list.d/pgdg.list' wget --quiet -O - https://www.postgresql.org/media/keys/ACCC4CF8.asc | sudo apt-key add - sudo apt update

1 2 3 4

bash    sudo sh -c 'echo "deb http://apt.postgresql.org/pub/repos/apt/ $(lsb_release -cs)-pgdg main" > /etc/apt/sources.list.d/pgdg.list'    wget --quiet -O - https://www.postgresql.org/media/keys/ACCC4CF8.asc | sudo apt-key add -    sudo apt update

2. **Установите PostgreSQL:**

1С (Код)

bash sudo apt install -y postgresql postgresql-contrib

1 2	bash    sudo apt install -y postgresql postgresql-contrib

3. **Запустите и настройте PostgreSQL:**

1С (Код)

bash sudo systemctl start postgresql sudo systemctl enable postgresql

1 2 3

bash    sudo systemctl start postgresql    sudo systemctl enable postgresql

4. **Настройте пользователя PostgreSQL:**

1С (Код)

bash sudo -u postgres psql ALTER USER postgres PASSWORD 'your_password'; q

1 2 3 4

bash    sudo -u postgres psql    ALTER USER postgres PASSWORD 'your_password';    q

5. **Настройте файл pg_hba.conf:**
Откройте файл:

1С (Код)

bash sudo vim /etc/postgresql/12/main/pg_hba.conf

1 2	bash    sudo vim /etc/postgresql/12/main/pg_hba.conf

Измените строку:

1С (Код)

local all postgres peer

1	local   all             postgres                                peer

на:

1С (Код)

local all postgres md5

1	local   all             postgres                                md5

6. **Перезапустите PostgreSQL:**

1С (Код)

bash sudo systemctl restart postgresql

1 2	bash    sudo systemctl restart postgresql

### Шаг 3: Установка сервера 1С
1. **Скачайте дистрибутив 1С:**
Скачайте необходимые пакеты с официального сайта 1С.

2. **Установите необходимые зависимости:**

1С (Код)

bash sudo apt install -y imagemagick unixodbc ttf-mscorefonts-installer

1 2	bash    sudo apt install -y imagemagick unixodbc ttf-mscorefonts-installer

3. **Установите сервер 1С:**
Перейдите в директорию с дистрибутивами и выполните:

1С (Код)

bash sudo dpkg -i 1c-enterprise83-common_*.deb sudo dpkg -i 1c-enterprise83-server_*.deb

1 2 3

bash    sudo dpkg -i 1c-enterprise83-common_*.deb    sudo dpkg -i 1c-enterprise83-server_*.deb

4. **Запустите сервер 1С:**

1С (Код)

bash sudo service srv1cv83 start

1 2	bash    sudo service srv1cv83 start

5. **Проверьте статус сервера 1С:**

1С (Код)

bash sudo service srv1cv83 status

1 2	bash    sudo service srv1cv83 status

### Шаг 4: Создание базы данных
1. **Запустите администрирование серверов 1С:**
Используйте утилиту администрирования для создания новой базы данных.

2. **Заполните необходимые поля:**
— Имя базы данных
— Сервер базы данных: localhost
— Тип СУБД: PostgreSQL
— Пользователь и пароль: postgres и ваш пароль

3. **Создайте базу данных:**
Убедитесь, что опция «Создавать базу данных в случае ее отсутствия» включена.

### Шаг 5: Настройка и оптимизация
1. **Настройте параметры PostgreSQL:**
Откройте файл postgresql.conf и настройте параметры, такие как shared_buffers, work_mem, и другие в зависимости от объема оперативной памяти.

2. **Перезапустите PostgreSQL для применения изменений:**

1С (Код)

bash sudo systemctl restart postgresql

1 2	bash    sudo systemctl restart postgresql

### Заключение
Теперь сервер 1С должен быть установлен и готов к работе с PostgreSQL. Вы можете подключаться к базе данных и начинать работу.

Рекомендую посмотреть здесь: [Инструкция по установке 1С на Linux](https://infostart.ru/1c/articles/19246/)

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

Привет, Aza!

Для автоматизации заполнения операции по остаткам на счетах 3387 и 1210 в 1С:Бухгалтерия, можно использовать механизм обработки, который будет выполнять следующие шаги:

1. **Определение даты операции**: Установите дату, на которую будет производиться списание. Это может быть последняя дата месяца.

2. **Получение остатков по счетам**: Используйте запрос к регистрам бухгалтерии для получения остатков по счетам 3387 и 1210 на указанную дату. Это можно сделать с помощью запроса к регистру «Остатки по счетам».

3. **Формирование проводок**:
— Для каждой записи, полученной по счету 3387, создайте проводку с дебетом на 3387 и кредитом на соответствующий счет (3387 или 1210) с указанием контрагента.
— Убедитесь, что контрагент для дебета всегда будет «Продамус ООО».

4. **Заполнение табличной части документа**: Создайте табличную часть документа, где будут указаны все сформированные проводки. Каждая проводка должна содержать:
— Дебет: 3387 (всегда)
— Кредит: 3387 или 1210 (в зависимости от остатка)
— Контрагент: «Продамус ООО»
— Сумма: остаток по соответствующему счету

5. **Автоматизация через обработку**: Создайте обработку, которая будет запускаться в конце месяца и автоматически заполнять документ на основании остатков. В обработке можно использовать алгоритмы для автоматического формирования проводок.

Пример кода для запроса остатков и формирования проводок может выглядеть следующим образом:

1С (Код)

1C Процедура ЗаполнитьОперацию() ДатаОперации = КонецМесяца(ТекущаяДата()); // Получаем остатки по счетам Запрос = Новый Запрос; Запрос.Текст = " ВЫБРАТЬ Счет, СУММА(Сумма) КАК Остаток ИЗ РегистрыБухгалтерии.ОстаткиПоСчетам ГДЕ Счет В (&Счета) И Дата <= &Дата GROUP BY Счет"; Запрос.УстановитьПараметр("Счета", Новый Массив(3387, 1210)); Запрос.УстановитьПараметр("Дата", ДатаОперации); Результат = Запрос.Выполнить(); // Создаем документ Документ = Документы.ЗаписьОперации.СоздатьДокумент(); Пока Результат.Выбрать().Следующий() Цикл Счет = Результат.Получить("Счет"); Остаток = Результат.Получить("Остаток"); // Заполняем табличную часть НоваяСтрока = Документ.ТабличнаяЧасть.Добавить(); НоваяСтрока.Дебет = 3387; НоваяСтрока.Кредит = Счет; НоваяСтрока.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("Продамус ООО"); НоваяСтрока.Сумма = Остаток; КонецЦикла; // Сохраняем документ Документ.Записать(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

1C Процедура ЗаполнитьОперацию()     ДатаОперации = КонецМесяца(ТекущаяДата());          // Получаем остатки по счетам     Запрос = Новый Запрос;     Запрос.Текст = "         ВЫБРАТЬ             Счет,             СУММА(Сумма) КАК Остаток         ИЗ             РегистрыБухгалтерии.ОстаткиПоСчетам         ГДЕ             Счет В (&Счета)             И Дата <= &Дата         GROUP BY             Счет";          Запрос.УстановитьПараметр("Счета", Новый Массив(3387, 1210));     Запрос.УстановитьПараметр("Дата", ДатаОперации);          Результат = Запрос.Выполнить();          // Создаем документ     Документ = Документы.ЗаписьОперации.СоздатьДокумент();          Пока Результат.Выбрать().Следующий() Цикл         Счет = Результат.Получить("Счет");         Остаток = Результат.Получить("Остаток");                  // Заполняем табличную часть         НоваяСтрока = Документ.ТабличнаяЧасть.Добавить();         НоваяСтрока.Дебет = 3387;         НоваяСтрока.Кредит = Счет;         НоваяСтрока.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("Продамус ООО");         НоваяСтрока.Сумма = Остаток;     КонецЦикла;          // Сохраняем документ     Документ.Записать(); КонецПроцедуры

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

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/183489/

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

Для создания справочника, который будет использоваться для хранения файлов, необходимо выполнить следующие шаги в конфигураторе 1С. В этом примере мы создадим справочник «ПрисоединенныеФайлы», который будет связан с документом «НовыйДокумент».

### Шаги по созданию справочника:

1. **Создание справочника**:
— Откройте конфигуратор 1С.
— Перейдите в раздел «Справочники».
— Создайте новый справочник и назовите его «ПрисоединенныеФайлы».
— Установите необходимые свойства, такие как длина кода и наименования.

2. **Добавление реквизитов**:
— В справочнике добавьте следующие реквизиты:
— **Файл** (Тип: Двоичные данные) — для хранения файла.
— **Документ** (Тип: Ссылка на «НовыйДокумент») — для связи с документом, к которому будет прикреплен файл.
— **Комментарий** (Тип: Строка) — для хранения дополнительной информации о файле.

3. **Настройка прав доступа**:
— Убедитесь, что у справочника установлены права доступа, аналогичные правам документа «НовыйДокумент».

4. **Создание формы**:
— Создайте форму для справочника «ПрисоединенныеФайлы».
— Добавьте элементы управления для загрузки файла и ввода комментария.

5. **Связь с документом**:
— В документе «НовыйДокумент» добавьте обработку для создания и сохранения записей в справочнике «ПрисоединенныеФайлы».
— Пример кода для добавления файла в справочник:

1С (Код)

1C &НаСервере Процедура ДобавитьФайл(Файл, Комментарий) ПрисоединенныйФайл = Справочники.ПрисоединенныеФайлы.СоздатьЭлемент(); ПрисоединенныйФайл.Файл = Файл; ПрисоединенныйФайл.Документ = ЭтотОбъект.Ссылка; ПрисоединенныйФайл.Комментарий = Комментарий; ПрисоединенныйФайл.Записать(); КонецПроцедуры

1 2 3 4 5 6 7 8 9

1C &НаСервере Процедура ДобавитьФайл(Файл, Комментарий)     ПрисоединенныйФайл = Справочники.ПрисоединенныеФайлы.СоздатьЭлемент();     ПрисоединенныйФайл.Файл = Файл;     ПрисоединенныйФайл.Документ = ЭтотОбъект.Ссылка;     ПрисоединенныйФайл.Комментарий = Комментарий;     ПрисоединенныйФайл.Записать(); КонецПроцедуры

6. **Отображение прикрепленных файлов**:
— В форме документа «НовыйДокумент» добавьте элемент управления для отображения списка прикрепленных файлов, используя запрос к справочнику «ПрисоединенныеФайлы».

### Пример запроса для отображения файлов:

1С (Код)

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

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

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

### Заключение
Теперь у вас есть справочник «ПрисоединенныеФайлы», который связан с документом «НовыйДокумент» и позволяет хранить файлы. Вы можете расширять функциональность, добавляя дополнительные реквизиты или методы по мере необходимости.

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

Привет, ОлегАтор!

Ошибка подключения к приложению с кодом -2147221005 (0x800401F3) указывает на проблему с COM-объектом, который не может быть найден или зарегистрирован. Сообщение «Недопустимая строка с указанием класса» означает, что строка, используемая для идентификации COM-класса, некорректна или не соответствует зарегистрированному классу в системе.

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

1. **Неправильная регистрация COM-объекта**: Возможно, COM-объект, к которому вы пытаетесь подключиться, не зарегистрирован в системе. Это может произойти, если приложение не было установлено корректно или если произошла ошибка в процессе регистрации.

2. **Ошибки в строке класса**: Строка, указывающая на класс, может быть написана с ошибками или содержать недопустимые символы. Убедитесь, что строка указана правильно.

3. **Несоответствие архитектуры**: Если вы пытаетесь использовать 32-битный COM-объект в 64-битной среде (или наоборот), это может привести к ошибке. Убедитесь, что вы используете правильную версию приложения и COM-объекта.

4. **Проблемы с правами доступа**: Убедитесь, что у пользователя, под которым выполняется приложение, есть необходимые права для доступа к COM-объекту.

5. **Отсутствие необходимых библиотек**: Возможно, для работы COM-объекта требуются дополнительные библиотеки, которые не установлены на вашем компьютере.

Для решения проблемы попробуйте следующие шаги:

— Проверьте, зарегистрирован ли COM-объект с помощью утилиты regsvr32.
— Убедитесь, что строка класса указана правильно.
— Проверьте, что вы используете правильную версию приложения (32-бит или 64-бит).
— Проверьте права доступа для пользователя, под которым запускается приложение.

Если проблема не решается, рекомендуется обратиться к документации по конкретному COM-объекту или к технической поддержке.

Рекомендую посмотреть здесь: https://infostart.ru/public/97085/

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

1С (Код)

sql DECLARE @DBName NVARCHAR(256) DECLARE @SQL NVARCHAR(MAX) DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE state_desc = 'ONLINE' AND database_id > 4 -- Исключаем системные базы OPEN db_cursor FETCH NEXT FROM db_cursor INTO @DBName WHILE @@FETCH_STATUS = 0 BEGIN SET @SQL = 'USE [' + @DBName + ']; ' + 'DECLARE @FileName NVARCHAR(256); ' + 'DECLARE @FreeSpaceMB DECIMAL(12,2); ' + 'DECLARE @CurrentSizeMB DECIMAL(12,2); ' + 'DECLARE @StopSizeMB INT = 0; ' + -- Устанавливаем порог для остановки 'DECLARE file_cursor CURSOR FOR ' + 'SELECT name FROM sys.master_files WHERE database_id = DB_ID(); ' + 'OPEN file_cursor; ' + 'FETCH NEXT FROM file_cursor INTO @FileName; ' + 'WHILE @@FETCH_STATUS = 0 ' + 'BEGIN ' + 'SET @FreeSpaceMB = (SELECT CAST((size * 8) / 1024 AS DECIMAL(12,2)) - CAST(FILEPROPERTY(@FileName, ''SpaceUsed'') AS DECIMAL(12,2)) / 128 AS DECIMAL(12,2)); ' + 'SET @CurrentSizeMB = (SELECT CAST(size * 8 / 1024 AS DECIMAL(12,2)) FROM sys.master_files WHERE name = @FileName AND database_id = DB_ID()); ' + 'IF @FreeSpaceMB > @StopSizeMB ' + 'BEGIN ' + 'PRINT ''Shrinking file: '' + @FileName + '' from '' + CAST(@CurrentSizeMB AS NVARCHAR(10)) + '' MB to '' + CAST(@CurrentSizeMB - @FreeSpaceMB AS NVARCHAR(10)) + '' MB''; ' + 'DBCC SHRINKFILE(@FileName, @CurrentSizeMB - @FreeSpaceMB); ' + 'END; ' + 'FETCH NEXT FROM file_cursor INTO @FileName; ' + 'END; ' + 'CLOSE file_cursor; ' + 'DEALLOCATE file_cursor;' EXEC sp_executesql @SQL FETCH NEXT FROM db_cursor INTO @DBName END CLOSE db_cursor DEALLOCATE db_cursor

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

sql DECLARE @DBName NVARCHAR(256) DECLARE @SQL NVARCHAR(MAX)   DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE state_desc = 'ONLINE' AND database_id > 4 -- Исключаем системные базы   OPEN db_cursor FETCH NEXT FROM db_cursor INTO @DBName   WHILE @@FETCH_STATUS = 0 BEGIN     SET @SQL = 'USE [' + @DBName + ']; ' +                 'DECLARE @FileName NVARCHAR(256); ' +                 'DECLARE @FreeSpaceMB DECIMAL(12,2); ' +                 'DECLARE @CurrentSizeMB DECIMAL(12,2); ' +                 'DECLARE @StopSizeMB INT = 0; ' + -- Устанавливаем порог для остановки                 'DECLARE file_cursor CURSOR FOR ' +                 'SELECT name FROM sys.master_files WHERE database_id = DB_ID(); ' +                 'OPEN file_cursor; ' +                 'FETCH NEXT FROM file_cursor INTO @FileName; ' +                 'WHILE @@FETCH_STATUS = 0 ' +                 'BEGIN ' +                 'SET @FreeSpaceMB = (SELECT CAST((size * 8) / 1024 AS DECIMAL(12,2)) - CAST(FILEPROPERTY(@FileName, ''SpaceUsed'') AS DECIMAL(12,2)) / 128 AS DECIMAL(12,2)); ' +                 'SET @CurrentSizeMB = (SELECT CAST(size * 8 / 1024 AS DECIMAL(12,2)) FROM sys.master_files WHERE name = @FileName AND database_id = DB_ID()); ' +                 'IF @FreeSpaceMB > @StopSizeMB ' +                 'BEGIN ' +                 'PRINT ''Shrinking file: '' + @FileName + '' from '' + CAST(@CurrentSizeMB AS NVARCHAR(10)) + '' MB to '' + CAST(@CurrentSizeMB - @FreeSpaceMB AS NVARCHAR(10)) + '' MB''; ' +                 'DBCC SHRINKFILE(@FileName, @CurrentSizeMB - @FreeSpaceMB); ' +                 'END; ' +                 'FETCH NEXT FROM file_cursor INTO @FileName; ' +                 'END; ' +                 'CLOSE file_cursor; ' +                 'DEALLOCATE file_cursor;'       EXEC sp_executesql @SQL     FETCH NEXT FROM db_cursor INTO @DBName END   CLOSE db_cursor DEALLOCATE db_cursor

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

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

1С (Код)

sql DECLARE @dbName NVARCHAR(256) DECLARE @sql NVARCHAR(MAX) DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE database_id > 4 -- Исключаем системные базы (master, tempdb, model, msdb) OPEN db_cursor FETCH NEXT FROM db_cursor INTO @dbName WHILE @@FETCH_STATUS = 0 BEGIN SET @sql = 'USE [' + @dbName + ']; ' + 'DBCC SHRINKDATABASE ([' + @dbName + '], 10);' -- Сжимаем базу до 10% свободного места EXEC sp_executesql @sql FETCH NEXT FROM db_cursor INTO @dbName END CLOSE db_cursor DEALLOCATE db_cursor

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

sql DECLARE @dbName NVARCHAR(256) DECLARE @sql NVARCHAR(MAX)   DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE database_id > 4 -- Исключаем системные базы (master, tempdb, model, msdb)   OPEN db_cursor FETCH NEXT FROM db_cursor INTO @dbName   WHILE @@FETCH_STATUS = 0 BEGIN     SET @sql = 'USE [' + @dbName + ']; ' +                 'DBCC SHRINKDATABASE ([' + @dbName + '], 10);' -- Сжимаем базу до 10% свободного места       EXEC sp_executesql @sql       FETCH NEXT FROM db_cursor INTO @dbName END   CLOSE db_cursor DEALLOCATE db_cursor

Этот скрипт проходит по всем базам данных на сервере, исключая системные, и выполняет команду DBCC SHRINKDATABASE, которая сжимает базу данных, оставляя 10% свободного места. Вы можете изменить процент, если это необходимо.

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

Привет, web!

Скрипт выглядит довольно хорошо, но есть несколько моментов, которые можно улучшить:

1. **Переменная DATA**: Убедитесь, что переменная DATA инициализирована перед использованием. В противном случае, скрипт может завершиться с ошибкой.

2. **Проверка на существование директории**: Перед созданием директории для бэкапа, можно добавить проверку, существует ли она уже, чтобы избежать лишних операций.

3. **Логирование**: Логирование можно улучшить, добавив временные метки к записям в лог-файле. Это поможет лучше отслеживать, когда происходили определенные действия.

4. **Обработка ошибок**: В случае ошибки при остановке сервиса или создании бэкапа, можно добавить более детальную обработку ошибок, чтобы скрипт не завершался сразу, а продолжал выполнять другие операции.

5. **Использование set -e**: Добавление set -e в начале скрипта позволит автоматически завершать выполнение скрипта при возникновении любой ошибки, что может быть полезно для предотвращения дальнейших действий в случае сбоя.

6. **Улучшение читаемости**: Можно добавить комментарии к ключевым частям кода, чтобы улучшить его читаемость для других разработчиков.

Вот пример улучшенного кода с учетом вышеуказанных замечаний:

1С (Код)

bash #!/bin/bash # Email для уведомлений email="указать вашь адрес электроной почты" DATA=$(date +%Y-%m-%d) # Инициализация переменной DATA # Создаём директорию для бэкапа BACKUP_DIR="/home/backup/day/$DATA" mkdir -p "$BACKUP_DIR" PG_DIR="/opt/pgpro/1c-15/bin/" # Список баз данных DB_BASE="$($PG_DIR/psql -qAt -c 'SELECT * FROM pg_database;' | cut -d"|" -f2 | grep -v 'template' | grep -v 'postgres')" # Определяем сервис SERVICE=$(systemctl list-units --type=service --all | grep "srv1cv8" | grep ".service" | awk '{print $1}') # Удаляем старые бэкапы старше 21 дня /usr/bin/find /home/backup/day -mtime +21 -delete # Проверяем, найден ли сервис if [ -n "$SERVICE" ]; then echo "$(date) Найден сервис: $SERVICE" >> "$BACKUP_DIR"/backup.log # Останавливаем сервис if ! sudo /bin/systemctl stop "$SERVICE"; then echo "$(date) Ошибка при остановке сервиса: $SERVICE" >> "$BACKUP_DIR"/backup.log exit 1 fi else echo "$(date) Сервис не найден!" >> "$BACKUP_DIR"/backup.log fi # Цикл по базам данных for DB_NAME in $DB_BASE; do echo "$(date) Начало backup базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log if ! "$PG_DIR/pg_dump" -Fc "${DB_NAME}" > "${BACKUP_DIR}/${DB_NAME}_${DATA}.dump"; then echo "$(date) Ошибка завершения backup для базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log echo "Postgres ${DB_NAME} failed $DATA for $(hostname)" | /usr/bin/mail -s "Postgres ${DB_NAME} failed" $email exit 1 else echo "$(date) Успешное завершение backup для базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log fi echo "--------------------------------------------------------------------" >> "$BACKUP_DIR"/backup.log done # Запускаем сервис обратно, если он был остановлен if [ -n "$SERVICE" ]; then echo "$(date) Запускаем сервис: $SERVICE" >> "$BACKUP_DIR"/backup.log sudo /bin/systemctl start "$SERVICE" else echo "$(date) Сервис не найден для запуска!" >> "$BACKUP_DIR"/backup.log fi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

bash #!/bin/bash   # Email для уведомлений email="указать вашь адрес электроной почты" DATA=$(date +%Y-%m-%d)  # Инициализация переменной DATA # Создаём директорию для бэкапа BACKUP_DIR="/home/backup/day/$DATA" mkdir -p "$BACKUP_DIR" PG_DIR="/opt/pgpro/1c-15/bin/"   # Список баз данных DB_BASE="$($PG_DIR/psql -qAt -c 'SELECT * FROM pg_database;' | cut -d"|" -f2 | grep -v 'template' | grep -v 'postgres')"   # Определяем сервис SERVICE=$(systemctl list-units --type=service --all | grep "srv1cv8" | grep ".service" | awk '{print $1}')   # Удаляем старые бэкапы старше 21 дня /usr/bin/find /home/backup/day -mtime +21 -delete   # Проверяем, найден ли сервис if [ -n "$SERVICE" ]; then     echo "$(date) Найден сервис: $SERVICE" >> "$BACKUP_DIR"/backup.log     # Останавливаем сервис     if ! sudo /bin/systemctl stop "$SERVICE"; then         echo "$(date) Ошибка при остановке сервиса: $SERVICE" >> "$BACKUP_DIR"/backup.log         exit 1     fi else     echo "$(date) Сервис не найден!" >> "$BACKUP_DIR"/backup.log fi   # Цикл по базам данных for DB_NAME in $DB_BASE; do     echo "$(date) Начало backup базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log     if ! "$PG_DIR/pg_dump" -Fc "${DB_NAME}" > "${BACKUP_DIR}/${DB_NAME}_${DATA}.dump"; then         echo "$(date) Ошибка завершения backup для базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log         echo "Postgres ${DB_NAME} failed $DATA for $(hostname)" | /usr/bin/mail -s "Postgres ${DB_NAME} failed" $email         exit 1     else         echo "$(date) Успешное завершение backup для базы ${DB_NAME}" | tee -a "$BACKUP_DIR"/backup.log     fi     echo "--------------------------------------------------------------------" >> "$BACKUP_DIR"/backup.log done   # Запускаем сервис обратно, если он был остановлен if [ -n "$SERVICE" ]; then     echo "$(date) Запускаем сервис: $SERVICE" >> "$BACKUP_DIR"/backup.log     sudo /bin/systemctl start "$SERVICE" else     echo "$(date) Сервис не найден для запуска!" >> "$BACKUP_DIR"/backup.log fi

Эти изменения помогут сделать скрипт более надежным и удобным для использования.

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

Привет, Программист 1С!

Защита VDS серверов и баз 1С от взлома и вирусных атак, таких как шифровальщики, требует комплексного подхода. Вот несколько ключевых шагов, которые помогут повысить уровень безопасности:

1. **Обновление ПО**:
— Регулярно обновляйте операционную систему и все установленные приложения, включая 1С и серверные компоненты. Убедитесь, что установлены все критические обновления безопасности.

2. **Настройка брандмауэра**:
— Настройте брандмауэр для ограничения доступа к серверу. Закройте все ненужные порты и оставьте открытыми только те, которые необходимы для работы (например, порты для 1С и RDP).

3. **Использование VPN**:
— Настройте VPN для удаленного доступа к серверу. Это добавит дополнительный уровень защиты, шифруя трафик и ограничивая доступ только авторизованным пользователям.

4. **Защита от вирусов**:
— Установите и регулярно обновляйте антивирусное ПО. Настройте автоматическое сканирование и мониторинг системы на наличие вредоносных программ.

5. **Резервное копирование**:
— Регулярно создавайте резервные копии баз 1С и храните их на внешних носителях или в облаке. Убедитесь, что резервные копии недоступны из сети, чтобы предотвратить их шифрование в случае атаки.

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

7. **Мониторинг и аудит**:
— Внедрите системы мониторинга для отслеживания подозрительной активности на сервере. Регулярно проводите аудит безопасности, чтобы выявлять и устранять уязвимости.

8. **Обучение пользователей**:
— Проведите обучение для сотрудников по вопросам безопасности, включая распознавание фишинговых атак и безопасное использование паролей.

9. **Использование SSL/TLS**:
— Настройте защищенные соединения (SSL/TLS) для передачи данных между клиентами и сервером 1С, чтобы предотвратить перехват данных.

10. **Отключение ненужных служб**:
— Отключите все ненужные службы и протоколы, такие как SMBv1, которые могут быть уязвимы для атак.

Следуя этим рекомендациям, вы сможете значительно повысить уровень безопасности ваших VDS серверов и баз 1С.

Рекомендую посмотреть здесь: https://kuharbogdan.com/stati-po-1s/zashhita-bazyi-1s-ot-shifrovalshhikov/

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

Привет, Sergey!

Для создания запроса об истории изменения цен в периодическом регистре сведений «Цены» с периодичностью в пределах дня, можно использовать следующий код на языке 1С:

1С (Код)

1C // Параметры для запроса ДатаЗаписи = '2025-04-01'; // Задайте нужную дату ТекНоменклатура = Справочники.Номенклатура.НайтиПоКоду("12345"); // Замените на нужный код номенклатуры // Создание набора записей для чтения из регистра сведений НаборЗаписей = РегистрыСведений.Цены.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Номенклатура.Установить(ТекНоменклатура); НаборЗаписей.Отбор.Период.Установить(ДатаЗаписи); НаборЗаписей.Прочитать(); // Вывод истории изменения цен Для Каждого Запись Из НаборЗаписей Цикл Сообщить("Дата: " + Строка(Запись.Период) + ", Цена: " + Строка(Запись.Цена)); КонецЦикла;

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

1C // Параметры для запроса ДатаЗаписи = '2025-04-01'; // Задайте нужную дату ТекНоменклатура = Справочники.Номенклатура.НайтиПоКоду("12345"); // Замените на нужный код номенклатуры   // Создание набора записей для чтения из регистра сведений НаборЗаписей = РегистрыСведений.Цены.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Номенклатура.Установить(ТекНоменклатура); НаборЗаписей.Отбор.Период.Установить(ДатаЗаписи); НаборЗаписей.Прочитать();   // Вывод истории изменения цен Для Каждого Запись Из НаборЗаписей Цикл     Сообщить("Дата: " + Строка(Запись.Период) + ", Цена: " + Строка(Запись.Цена)); КонецЦикла;

В этом коде мы создаем набор записей для чтения из регистра сведений «Цены», устанавливаем отбор по номенклатуре и дате, а затем выводим историю изменения цен на заданную дату.

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

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

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

Привет, Дмитрий!

Если система не позволяет заблокировать период при закрытии месяца, это может быть связано с несколькими причинами:

1. **Настройки блокировки**: Убедитесь, что в настройках блокировки периода установлены правильные даты. Проверьте, что дата запрета изменений не превышает текущую дату.

2. **Открытые документы**: Если в закрываемом месяце есть открытые документы, система может не позволить заблокировать период. Убедитесь, что все документы, относящиеся к этому месяцу, закрыты или проведены.

3. **Права доступа**: Проверьте, есть ли у вас достаточные права для выполнения операции блокировки. Возможно, ваша учетная запись не имеет необходимых прав для изменения настроек блокировки.

4. **Ошибки в конфигурации**: Иногда проблемы могут возникать из-за ошибок в конфигурации. Проверьте, нет ли ошибок в коде или настройках конфигурации, которые могут мешать блокировке.

5. **Технические сбои**: Если система работает нестабильно, это может быть связано с техническими сбоями. Попробуйте перезапустить систему или обратиться к администратору.

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

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/2035093/

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

ПакетОтображаемыхДокументов — это объект в 1С:Предприятие, который используется для работы с набором документов, которые должны быть отображены в интерфейсе пользователя. Он позволяет группировать документы для удобного отображения и управления ими в различных формах, таких как списки, таблицы и отчеты.

Основные характеристики и функции ПакетаОтображаемыхДокументов:

1. **Группировка документов**: Позволяет объединять несколько документов в один пакет, что упрощает их обработку и отображение.

2. **Управление состоянием**: Позволяет отслеживать состояние документов (например, проведены или нет) и управлять ими в рамках одного пакета.

3. **Интерфейс пользователя**: Используется для отображения документов в пользовательском интерфейсе, что позволяет пользователям легко находить и работать с необходимыми документами.

4. **Функциональность**: Может включать методы для добавления, удаления и изменения документов в пакете, а также для выполнения операций над ними, таких как проведение или отмена проведения.

ПакетОтображаемыхДокументов является важным инструментом для разработчиков и пользователей 1С, так как он упрощает работу с документами и улучшает пользовательский опыт.

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

Привет, Богдан! Последняя версия платформы 1С на 10 апреля 2025 года — это 8.3.27.1508, которая вышла 8 апреля 2025 года.

[Автор]

Сообщения