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

Для поиска плана обмена по коду в 1С:Предприятии можно использовать метод НайтиПоКоду объекта плана обмена. Пример кода для выполнения этой операции может выглядеть следующим образом:

1С (Код)

1C Процедура НайтиПланОбменаПоКоду(КодПланаОбмена) // Получаем ссылку на план обмена ПланОбмена = ПланыОбмена.НайтиПоКоду(КодПланаОбмена); Если ПланОбмена = Неопределено Тогда Сообщить("План обмена с кодом " + КодПланаОбмена + " не найден."); Иначе Сообщить("План обмена найден: " + ПланОбмена.Наименование); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11

1C Процедура НайтиПланОбменаПоКоду(КодПланаОбмена)     // Получаем ссылку на план обмена     ПланОбмена = ПланыОбмена.НайтиПоКоду(КодПланаОбмена);          Если ПланОбмена = Неопределено Тогда         Сообщить("План обмена с кодом " + КодПланаОбмена + " не найден.");     Иначе         Сообщить("План обмена найден: " + ПланОбмена.Наименование);     КонецЕсли; КонецПроцедуры

В этом примере мы определяем процедуру НайтиПланОбменаПоКоду, которая принимает код плана обмена в качестве параметра. Затем мы используем метод НайтиПоКоду для поиска соответствующего плана обмена. Если план обмена найден, выводится его наименование, в противном случае выводится сообщение о том, что план не найден.

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

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

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

1. **Создание подписки на событие**: В модуле документа создайте подписку на событие «ПередЗаписью». Это позволит вам выполнять код перед записью документа.

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

3. **Вызов механизма регистрации**: Используйте метод МеханизмРегистрацииОбъектовПередЗаписьюДокумента, чтобы зарегистрировать документ на обмен. Этот метод принимает параметры, такие как название плана обмена и сам документ.

Пример кода для модуля документа:

1С (Код)

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

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

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

4. **Настройка правил регистрации**: Убедитесь, что у вас настроены правила регистрации для документов, которые вы хотите обменивать. Это можно сделать в конфигурации обмена.

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

Эти шаги помогут вам правильно настроить регистрацию документов на обмен данными в 1С:Предприятии.

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

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

Привет, Богдан! Скрипт для бэкапа файловой базы 1С можно скачать по следующей ссылке: [1C_SafeArchive V1.3](https://kuharbogdan.com/wp-content/uploads/2024/05/1C_SAFEARCHIVE-V1.3.zip). Этот скрипт позволяет создавать безопасные резервные копии файловых баз 1С с использованием архиватора 7-Zip и штатных механизмов завершения работы в 1С.

Также рекомендую ознакомиться с другими скриптами для бэкапа, которые можно найти в статье на сайте: [Скрипты для бэкапа файловой базы 1С](https://kuharbogdan.com/stati-po-1s/skriptyi-dlya-bekapa-faylovoy-bazyi-1s-predpriyatiya/).

Если у тебя есть дополнительные вопросы, не стесняйся спрашивать!

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

Привет, Aza!

Чтобы исправить ситуацию с учетом премий за год и за квартал в ЗУП 3.0 после переноса данных из ЗУП 2.0, вам нужно выполнить следующие шаги:

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

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

3. **Использование документа «Изменение плановых начислений»**: Воспользуйтесь документом «Изменение плановых начислений» для добавления новых начислений к сотрудникам. Это позволит вам массово обновить данные по всем сотрудникам.

4. **Корректировка расчетов**: После добавления новых начислений выполните перерасчет зарплаты для сотрудников. Это можно сделать через документ «Начисление зарплаты и взносов». Убедитесь, что новые премии учитываются в расчетах.

5. **Проверка средней зарплаты**: Убедитесь, что при расчете средней зарплаты учитываются только те премии, которые должны быть включены. Для этого проверьте настройки расчета средней зарплаты и убедитесь, что там не включены лишние начисления.

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

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

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

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

1С (Код)

vbscript On Error Resume Next Dim objWMIService, colItems, objItem Dim strComputer, strVersion strComputer = "." ' локальный компьютер Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2") ' Запрос для получения информации о процессе 1С:Университет Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv8.exe'") For Each objItem in colItems strVersion = objItem.Version WScript.Echo "Версия 1С:Университет: " & strVersion Next If colItems.Count = 0 Then WScript.Echo "1С:Университет не запущен." End If Set objWMIService = Nothing Set colItems = Nothing

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

vbscript On Error Resume Next   Dim objWMIService, colItems, objItem Dim strComputer, strVersion   strComputer = "." ' локальный компьютер Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")   ' Запрос для получения информации о процессе 1С:Университет Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv8.exe'")   For Each objItem in colItems     strVersion = objItem.Version     WScript.Echo "Версия 1С:Университет: " & strVersion Next   If colItems.Count = 0 Then     WScript.Echo "1С:Университет не запущен." End If   Set objWMIService = Nothing Set colItems = Nothing

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

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

Чтобы получить тип текущего документа в поле ДокументОснование, вам нужно использовать метод ТипЗнч() для проверки типа значения, которое хранится в этом поле. Поскольку ДокументОснование является составным типом, вы можете получить его значение и затем определить тип.

Вот пример кода, который поможет вам это сделать:

1С (Код)

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

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

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

В этом коде мы сначала проверяем, что ДокументОснование не является Неопределено. Затем мы получаем ссылку на документ и используем ТипЗнч() для определения типа этой ссылки. После этого можно вывести имя типа документа.

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

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

Для организации кластера на MySQL можно использовать MySQL Group Replication или MySQL NDB Cluster. Вот основные шаги для настройки кластера с использованием MySQL Group Replication:

### 1. Подготовка окружения
— Убедитесь, что у вас установлена MySQL версии 5.7 или выше.
— Установите MySQL на все узлы, которые будут частью кластера.

### 2. Настройка конфигурации MySQL
На каждом узле кластера отредактируйте файл конфигурации my.cnf (или my.ini на Windows) и добавьте следующие параметры:

1С (Код)

ini [mysqld] server-id=1 # Уникальный ID для каждого узла log_bin=mysql-bin # Включение бинарного логирования binlog_format=ROW # Формат бинарного лога gtid_mode=ON # Включение GTID enforce-gtid-consistency=ON # Обеспечение согласованности GTID transaction_write_set_extraction=XXHASH64 # Оптимизация для Group Replication

1 2 3 4 5 6 7 8

ini [mysqld] server-id=1  # Уникальный ID для каждого узла log_bin=mysql-bin  # Включение бинарного логирования binlog_format=ROW  # Формат бинарного лога gtid_mode=ON  # Включение GTID enforce-gtid-consistency=ON  # Обеспечение согласованности GTID transaction_write_set_extraction=XXHASH64  # Оптимизация для Group Replication

Замените server-id на уникальное значение для каждого узла (например, 1, 2, 3 и т.д.).

### 3. Инициализация базы данных
На каждом узле выполните инициализацию базы данных:

1С (Код)

bash mysqld --initialize --user=mysql

1 2	bash mysqld --initialize --user=mysql

### 4. Запуск MySQL
Запустите MySQL на каждом узле:

1С (Код)

bash systemctl start mysql

1 2	bash systemctl start mysql

### 5. Настройка пользователей и прав
Создайте пользователя для репликации на каждом узле:

1С (Код)

sql CREATE USER 'replicator'@'%' IDENTIFIED BY 'password'; GRANT REPLICATION SLAVE ON *.* TO 'replicator'@'%';

1 2 3

sql CREATE USER 'replicator'@'%' IDENTIFIED BY 'password'; GRANT REPLICATION SLAVE ON *.* TO 'replicator'@'%';

### 6. Настройка Group Replication
На каждом узле выполните следующие команды в MySQL:

1С (Код)

sql SET GLOBAL group_replication_group_name = 'aaaaaaaa-bbbb-cccc-dddd-eeeeeeeeeeee'; # Уникальное имя группы SET GLOBAL group_replication_start_on_boot = ON; SET GLOBAL group_replication_local_address = 'mysql://:33061'; # Укажите IP-адрес узла SET GLOBAL group_replication_group_seeds = 'IP1:33061,IP2:33061,IP3:33061'; # Укажите IP-адреса всех узлов START GROUP_REPLICATION;

1 2 3 4 5 6

sql SET GLOBAL group_replication_group_name = 'aaaaaaaa-bbbb-cccc-dddd-eeeeeeeeeeee';  # Уникальное имя группы SET GLOBAL group_replication_start_on_boot = ON; SET GLOBAL group_replication_local_address = 'mysql://:33061';  # Укажите IP-адрес узла SET GLOBAL group_replication_group_seeds = 'IP1:33061,IP2:33061,IP3:33061';  # Укажите IP-адреса всех узлов START GROUP_REPLICATION;

### 7. Проверка состояния кластера
На любом узле выполните:

1С (Код)

sql SELECT * FROM performance_schema.replication_group_members;

1 2	sql SELECT * FROM performance_schema.replication_group_members;

Это покажет состояние всех узлов в кластере.

### 8. Тестирование
Проверьте, что данные, добавленные на одном узле, реплицируются на другие узлы.

### Заключение
Теперь у вас есть работающий кластер MySQL с использованием Group Replication. Убедитесь, что вы настроили резервное копирование и мониторинг для вашего кластера.

Рекомендую посмотреть здесь: [MySQL Group Replication Documentation](https://dev.mysql.com/doc/refman/8.0/en/replication-group.html)

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

1С (Код)

vbscript ' Создаем объект 1С Set oneC = CreateObject("V83.Application") ' Подключаемся к базе данных 1С oneC.Connect("File=""C:PathToYourDatabase.1cv7"";Usr=""username"";Pwd=""password"";") ' Вызываем Мастер списка поступающих Set master = oneC.Обработки.МастерСпискаПоступающих ' Открываем мастер master.Открыть() ' Устанавливаем необходимые параметры для формирования списка ' Например, можно установить параметры фильтрации, если это необходимо ' master.УстановитьПараметры(...) ' Запускаем процесс формирования списка master.Запустить() ' Сохраняем результат в файл формата xls Dim filePath filePath = "C:PathToYourOutputIncomingList.xls" master.ЭкспортироватьВExcel(filePath) ' Закрываем мастер master.Закрыть() ' Освобождаем ресурсы Set master = Nothing Set oneC = Nothing MsgBox "Файл успешно сформирован: " & filePath

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

vbscript ' Создаем объект 1С Set oneC = CreateObject("V83.Application")   ' Подключаемся к базе данных 1С oneC.Connect("File=""C:PathToYourDatabase.1cv7"";Usr=""username"";Pwd=""password"";")   ' Вызываем Мастер списка поступающих Set master = oneC.Обработки.МастерСпискаПоступающих   ' Открываем мастер master.Открыть()   ' Устанавливаем необходимые параметры для формирования списка ' Например, можно установить параметры фильтрации, если это необходимо ' master.УстановитьПараметры(...)   ' Запускаем процесс формирования списка master.Запустить()   ' Сохраняем результат в файл формата xls Dim filePath filePath = "C:PathToYourOutputIncomingList.xls" master.ЭкспортироватьВExcel(filePath)   ' Закрываем мастер master.Закрыть()   ' Освобождаем ресурсы Set master = Nothing Set oneC = Nothing   MsgBox "Файл успешно сформирован: " & filePath

Обратите внимание, что вам нужно заменить »C:PathToYourDatabase.1cv7″ на путь к вашей базе данных 1С, а также указать правильные учетные данные для подключения. Также проверьте, что метод ЭкспортироватьВExcel доступен в вашем объекте мастера, так как это может зависеть от версии и конфигурации 1С.

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

Привет, Александр!

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

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

2. **Использование VBS скриптов**:
— Напишите VBS скрипт, который будет запускать 1С:Предприятие, выполнять нужный отчет и сохранять его в нужном формате (например, Excel). Пример кода для запуска отчета:

1С (Код)

vbscript Set v81 = CreateObject("V81.Application") res = v81.Connect("Srvr=Server1C;Ref=db1C;Usr=User1C;Pwd=Password1C") res = v81.ExternalDataProcessors.Create("C:1CServicerep_email.epf").ThisObject.Report() v81.Exit(false)

1 2 3 4 5

vbscript      Set v81 = CreateObject("V81.Application")      res = v81.Connect("Srvr=Server1C;Ref=db1C;Usr=User1C;Pwd=Password1C")      res = v81.ExternalDataProcessors.Create("C:1CServicerep_email.epf").ThisObject.Report()      v81.Exit(false)

3. **Настройка автоматической отправки отчетов по электронной почте**:
— В вашей внешней обработке добавьте функционал для отправки сформированного отчета по электронной почте. Используйте CDO для отправки сообщений с вложениями. Пример кода для отправки:

1С (Код)

vbscript Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Ежедневный отчет" objMessage.From = "report@domain.ru" objMessage.To = "recipient@domain.ru" objMessage.AddAttachment "C:1CServiceОтчет.xls" objMessage.Send

1 2 3 4 5 6 7

vbscript      Set objMessage = CreateObject("CDO.Message")      objMessage.Subject = "Ежедневный отчет"      objMessage.From = "report@domain.ru"      objMessage.To = "recipient@domain.ru"      objMessage.AddAttachment "C:1CServiceОтчет.xls"      objMessage.Send

4. **Планировщик задач**:
— Используйте планировщик задач Windows для автоматического запуска вашего VBS скрипта в заданное время. Это позволит вам регулярно генерировать и отправлять отчеты без ручного вмешательства.

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

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

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

Рекомендую посмотреть здесь: https://helpf.pro/faq/view/1053.html

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

Привет, Илья!

Для перевода десятичного числа в шестнадцатеричное в 1С можно использовать следующую функцию:

1С (Код)

1C // Функция переводит десятичное число в шестнадцатеричное // Параметры: _Число - Число - Десятичное число // Возвращаемое значение: Строка - Шестнадцатеричное число Функция DecToHex(Знач _Число) Экспорт База = 16; Результат = ""; Пока _Число 0 Цикл Поз = _Число % База; Результат = Сред("0123456789ABCDEF", Поз + 1, 1) + Результат; _Число = Цел(_Число / База); КонецЦикла; Возврат Результат; КонецФункции

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

1C // Функция переводит десятичное число в шестнадцатеричное // Параметры:  _Число                - Число                - Десятичное число // Возвращаемое значение:  Строка - Шестнадцатеричное число Функция DecToHex(Знач _Число) Экспорт     База = 16;     Результат = "";     Пока _Число  0 Цикл         Поз = _Число % База;         Результат = Сред("0123456789ABCDEF", Поз + 1, 1) + Результат;         _Число = Цел(_Число / База);     КонецЦикла;     Возврат Результат; КонецФункции

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

Рекомендую посмотреть здесь: https://helpf.pro/faq8/view/940.html

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

Для настройки конкретной формы справочника в 1С:ERP Управление холдингом (УХ) для всех пользователей, необходимо выполнить следующие шаги:

1. **Открытие конфигуратора**: Запустите 1С в режиме конфигуратора и откройте вашу информационную базу.

2. **Выбор справочника**: Найдите нужный справочник в дереве метаданных. Например, это может быть справочник «Контрагенты».

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

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

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

6. **Тестирование**:
— После внесения изменений, протестируйте форму, запустив 1С в режиме «1С:Предприятие» и убедитесь, что все пользователи видят изменения.

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

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

Эти шаги помогут вам настроить конкретную форму справочника для всех пользователей в 1С:ERP УХ.

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

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

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

1. **Консолидирующие счета**: В каждой подчиненной организации открываются специальные консолидирующие счета (например, 61 или 30), через которые проходят все внутренние расчеты. Это позволяет избежать дублирования операций и упрощает процесс учета.

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

3. **Аналитический учет**: Внутренние расчеты могут быть детализированы по Центрам Финансовой Ответственности (ЦФО), что позволяет отслеживать результаты работы отдельных бизнес-единиц.

4. **Автоматизация процессов**: Современные информационные системы, такие как 1С:ERP, позволяют автоматизировать учет и формирование отчетности, минимизируя ошибки и ускоряя процесс обработки данных.

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

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

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

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

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

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

Основные аспекты учета авизо включают:

1. **Регистрация авизо**: Ведение реестра полученных уведомлений от поставщиков.
2. **Сопоставление с документами**: Сравнение данных авизо с документами поступления (накладными, актами и т.д.).
3. **Контроль сроков**: Учет сроков поставки и контроль за выполнением обязательств контрагентов.
4. **Формирование отчетности**: Создание отчетов по авизо для анализа и контроля.

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

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

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

Привет, Ivanliba!

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

1. **Создание регистра**: Сначала создайте новый регистр, который будет хранить данные о проводках. Например, это может быть регистр «Проводки по кредиту».

2. **Определение структуры регистра**: Определите, какие поля будут в вашем регистре. Например, это могут быть:
— Дата
— Счет
— Сумма
— Контрагент
— Документ

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

1С (Код)

1C Запрос = Новый Запрос; Запрос.Текст = " ВЫБРАТЬ Проводки.Дата, Проводки.Счет, Проводки.Сумма, Проводки.Контрагент, Проводки.Документ ИЗ РегистрБухгалтерии.Проводки КАК Проводки ГДЕ Проводки.Счет = &Счет И Проводки.Тип = 'Кредит'"; Запрос.УстановитьПараметр("Счет", "60"); // Укажите нужный счет

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

1C    Запрос = Новый Запрос;    Запрос.Текст = "    ВЫБРАТЬ        Проводки.Дата,        Проводки.Счет,        Проводки.Сумма,        Проводки.Контрагент,        Проводки.Документ    ИЗ        РегистрБухгалтерии.Проводки КАК Проводки    ГДЕ        Проводки.Счет = &Счет        И Проводки.Тип = 'Кредит'";    Запрос.УстановитьПараметр("Счет", "60"); // Укажите нужный счет

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

1С (Код)

1C Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл НовыйЗапись = Регистры.ИмяРегистра.Добавить(); НовыйЗапись.Дата = Выборка.Дата; НовыйЗапись.Счет = Выборка.Счет; НовыйЗапись.Сумма = Выборка.Сумма; НовыйЗапись.Контрагент = Выборка.Контрагент; НовыйЗапись.Документ = Выборка.Документ; НовыйЗапись.Записать(); КонецЦикла;

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

1C    Результат = Запрос.Выполнить();    Выборка = Результат.Выбрать();       Пока Выборка.Следующий() Цикл        НовыйЗапись = Регистры.ИмяРегистра.Добавить();        НовыйЗапись.Дата = Выборка.Дата;        НовыйЗапись.Счет = Выборка.Счет;        НовыйЗапись.Сумма = Выборка.Сумма;        НовыйЗапись.Контрагент = Выборка.Контрагент;        НовыйЗапись.Документ = Выборка.Документ;        НовыйЗапись.Записать();    КонецЦикла;

5. **Проверка результата**: После выполнения кода проверьте, что данные корректно записались в новый регистр.

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

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

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

Привет, Александр!

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

Вот примерный SQL-код, который можно использовать в регламентном задании:

1С (Код)

sql DECLARE @CurrentDate DATE = GETDATE(); DECLARE @CutoffDate DATE = DATEADD(MONTH, -3, @CurrentDate); -- Перечисляем базы данных DECLARE @DatabaseName NVARCHAR(255); DECLARE @SQL NVARCHAR(MAX); DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE name IN ('Database1', 'Database2', 'Database3', 'Database4', 'Database5', 'Database6', 'Database7', 'Database8', 'Database9'); OPEN db_cursor; FETCH NEXT FROM db_cursor INTO @DatabaseName; WHILE @@FETCH_STATUS = 0 BEGIN SET @SQL = 'USE [' + @DatabaseName + ']; ' + 'DELETE FROM [ВерсииОбъектов] ' + 'WHERE [Дата] < @CutoffDate;'; EXEC sp_executesql @SQL, N'@CutoffDate DATE', @CutoffDate; FETCH NEXT FROM db_cursor INTO @DatabaseName; 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

sql DECLARE @CurrentDate DATE = GETDATE(); DECLARE @CutoffDate DATE = DATEADD(MONTH, -3, @CurrentDate);   -- Перечисляем базы данных DECLARE @DatabaseName NVARCHAR(255); DECLARE @SQL NVARCHAR(MAX);   DECLARE db_cursor CURSOR FOR SELECT name FROM sys.databases WHERE name IN ('Database1', 'Database2', 'Database3', 'Database4', 'Database5',                'Database6', 'Database7', 'Database8', 'Database9');   OPEN db_cursor; FETCH NEXT FROM db_cursor INTO @DatabaseName;   WHILE @@FETCH_STATUS = 0 BEGIN     SET @SQL = 'USE [' + @DatabaseName + ']; ' +                 'DELETE FROM [ВерсииОбъектов] ' +                 'WHERE [Дата] < @CutoffDate;';       EXEC sp_executesql @SQL, N'@CutoffDate DATE', @CutoffDate;       FETCH NEXT FROM db_cursor INTO @DatabaseName; END   CLOSE db_cursor; DEALLOCATE db_cursor;

### Объяснение кода:
1. **Определение текущей даты и даты отсечения**: Мы используем GETDATE() для получения текущей даты и DATEADD для вычисления даты, которая будет отсечением (т.е. три месяца назад).
2. **Курсор для перебора баз данных**: Мы создаем курсор, который перебирает названия баз данных, которые нужно очистить.
3. **Выполнение SQL-запроса**: Для каждой базы данных мы формируем и выполняем SQL-запрос, который удаляет записи из регистра сведений «версии объектов», где дата меньше даты отсечения.

### Важно:
— Убедитесь, что у вас есть резервные копии баз данных перед выполнением очистки.
— Проверьте, что имя таблицы [ВерсииОбъектов] соответствует фактическому имени таблицы в вашей базе данных.
— Настройте выполнение этого скрипта в SQL Server Agent как регламентное задание, чтобы оно выполнялось автоматически первого числа каждого месяца.

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

[Автор]

Сообщения