Корректировка движений регистра (Проведение без Проведения)

03.03.12

Разработка - Механизмы платформы 1С

Вариант проведения документов по одному выбранному Регистру (для конфигураций 1с 8.1/8.2)

Исходная задача состояла в том, что надо было ввести остатки на начало года по "партиям НДС" в конфигурации "Комплексная автоматизация" и провести все документы по этому регистру. Сложность была в том, что остатки вводились с опозданием и несколько периодов были уже закрыты. Поэтому напрямую перепроводить документы было уже нельзя (из-за возможных изменений сумм себестоимости и т.д.)

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

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

Не претендуя на оригинальность самой идеи отменять транзакцию, тем не менее хочу представить работающий алгоритм (для конфигураций 1С 8.1/8.2). Возможно, кому-то пригодится в работе. Мне он помогал ещё в нескольких случаях.

В примере приводится проведение по регистру накопления "Размещение". Это регистр был добавлен в конфигурацию и не относится к типовым. Алгоритм легко переделать на другой (другие) нужный регистр. Как с любыми операциями с регистрами, и этой операцией тоже следует пользоваться аккуратно )

Текст самих процедур (8.1/8.2)

Процедура ПерепровестиДокументыПоРегистру()

   
//отбираем все проведенные документы, которые могут делать движения по нужному нам
    //регистру (РегистрыНакопления.Размещение)
    //за указанный период с Дата1 по Дата2

   
ИмяРегистра = "Размещение";

   
ТекстЗапроса = "ВЫБРАТЬ Документы.Ссылка ИЗ (";
    Для Каждого
Документ Из Метаданные.Документы Цикл
        Если Не
Документ.Движения.Содержит(Метаданные.РегистрыНакопления[ИмяРегистра]) Тогда
            Продолжить;
        КонецЕсли;
       
ТекстЗапроса = ТекстЗапроса + "ВЫБРАТЬ " + Документ.Имя + ".Ссылка КАК Ссылка, " +
       
Документ.Имя + ".Дата КАК Дата  ИЗ Документ." + Документ.Имя + " КАК " + Документ.Имя +
       
" ГДЕ " + Документ.Имя + ".Дата МЕЖДУ &НачПериода И &КонПериода И "
       
+ Документ.Имя + ".Проведен ОБЪЕДИНИТЬ ВСЕ ";
    КонецЦикла;
   
ТекстЗапроса = ТекстЗапроса + "ВЫБРАТЬ NULL, NULL ) КАК Документы ГДЕ НЕ Документы.Ссылка ЕСТЬ NULL УПОРЯДОЧИТЬ ПО Документы.Дата";
   
Запрос = Новый Запрос(ТекстЗапроса);

   
Запрос.УстановитьПараметр("НачПериода", НачалоДня(Дата1));
   
Запрос.УстановитьПараметр("КонПериода", КонецДня(Дата2));

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

Процедура
ПровестиПоРегистру(ДокСсылка, ИмяРегистра)
   
ДокОбъект = ДокСсылка.ПолучитьОбъект();

   
НачатьТранзакцию();

   
ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
   
ДокОбъект.Движения[ИмяРегистра].Прочитать();
   
ТаблицаДвиженийРегистра = ДокОбъект.Движения[ИмяРегистра].Выгрузить();

   
//здесь отменяем проведение документа, чтобы ничего не изменилось
    //в прошлых периодах (по другим регистрам)
   
ОтменитьТранзакцию();

   
НаборЗаписей = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
   
НаборЗаписей.Отбор.Регистратор.Установить(ДокСсылка);
   
НаборЗаписей.Загрузить(ТаблицаДвиженийРегистра);
   
НаборЗаписей.Записать();
КонецПроцедуры

 

Решение похожей задачи (но другим способом) для платформы 7.7 описано в статье "Технологическое перепроведение документов

 

ps. (03/03/2012)

Забавно - сегодня обнаружил полный аналог этого алгоритма, описанный ранее на "Инфостарт" -  "Перепроведение документов только по выбранным регистрам" .... Похожие идеи витают в воздухе :)

См. также

Исправление в 1С:ЗУП/ЗКГУ ошибок по НДФЛ и взаиморасчетам с сотрудниками на начало расчетного года.

Корректировка данных Зарплата Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Обработка исправляет технические ошибки по НДФЛ, взаиморасчетам с сотрудниками в 1С:ЗУП (1С:ЗКГУ) на начало года. Фактически все ошибки, которые проявляются в ведомостях на выплату, расчетных листках, при заполнении ведомостей на выплату и отчетах 6-НДФЛ и т.д. нужно начинать исправлять с начала расчетного года. Это позволит быть уверенными, что после завершения расчетов предыдущего года, начали работать с «чистого листа» без ошибочных остатков.

4800 руб.

06.10.2023    2334    28    15    

33

Тестирование и исправление ключей аналитики ERP, УТ11, КА

Корректировка данных Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Незаменимая обработка для сопровождения конфигураций: ERP, УТ, КА. Позволяет вычистить многие ошибки в ключах аналитики, в ключевых справочниках конфигурации.

3600 руб.

10.02.2017    106837    634    173    

676

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27414    79    146    

60

Исправление ошибки закрытия месяца "Обнаружены ненулевые остатки по суммам при нулевом остатке по количеству в регистре себестоимости по организации". УТ 11.4,УТ 11.5, КА 2.4,КА 2.5, ERP 2.4, ERP 2.5, КА 2 Казахстан, Управление торговлей 3 для Казахстана

Закрытие периода Корректировка данных Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Закрытие месяца - важный процесс в современных конфигурациях, таких как УТ 11.4, УТ 11.5, КА 2.4, КА 2.5 ERP 2.4,ERP 2.5, КА 2 Казахстан, УТ 3 Казахстан регламентные операции влияют на расчет себестоимости, и ошибки в данном расчете не дают картины деятельности организации.

2400 руб.

27.10.2021    22337    299    35    

71

SALE! 20%

Заполнение документа "Корректировка регистров" произвольными данными

Закрытие периода Корректировка данных Платформа 1С v8.3 Система компоновки данных 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Внешняя обработка, позволяющая произвольным образом заполнять документ "Корректировка регистров" Предназначена для использования в конфигурациях "Управление торговлей 11", "Управление небольшой фирмой", "ERP Управление предприятием", а также в других конфигурациях, в состав которых входит библиотека стандартных подсистем (БСП) версии 2.2+ и указанный выше документ.

2400 1920 руб.

13.07.2015    50171    171    29    

121
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. DrAku1a 1679 18.12.11 13:45 Сейчас в теме
2. Pavel777777 68 21.12.11 14:32 Сейчас в теме
Спасибо всем за поддержку моей первой статьи на "Инфостарт"
3. Lizi60 21.12.11 16:50 Сейчас в теме
Да, идея хорошая. Обязательно пригодится.
4. Boroda 90 21.12.11 20:33 Сейчас в теме
Хотя ЗУП в перечне и не указан, но, думаю, принцип можно использовать и при работе в этой конфигурации. Спасибо.
5. irishka77 22.12.11 10:52 Сейчас в теме
Спасибо!Очень актально
6. Mshaydurov 2 23.12.11 10:51 Сейчас в теме
Boroda пишет:

Хотя ЗУП в перечне и не указан, но, думаю, принцип можно использовать и при работе в этой конфигурации. Спасибо.


По моему использовать можно абсолютно в любой конфигурации. Даже в нетиповой самописной. Автору респект и уважуха =)
7. Модератор раздела 23.12.11 16:14 Сейчас в теме
Давно известный баян, конечно :)
8. Модератор раздела 23.12.11 16:22 Сейчас в теме
(0) 1. Запрос не оптимален :(
Зачем путать оптимизатор запросов вложенностью и ограничением по "ГДЕ НЕ Документы.Ссылка ЕСТЬ NULL"
Проще из текста выпилить последнее "Объединить все"
2.ИМХО Отдельная транзакция на каждый документ в сабжевой задаче не имеет смысла.
Представь, проведение валится на середине, у тебя часть записей по регистру изменилась, а часть нет.
Это неверно.
Проще и правильнее юзать одну общую транзакцию на все документы
или другими способами гарантировать общее изменение или неизменение всех меняемых записей.
12. Pavel777777 68 29.01.12 12:18 Сейчас в теме
(8) Спасибо за конструктивную критику )
С п.1 и 3, конечно, согласен ... а вот п.4 (и 2) требуют проверки всё-таки.... особенно п.2, поскольку основная "фишка" алгоритма именно в отмене транзакции каждого проведения и одновременном изменении движений.

В любом случае - представленный код проверен на реальных данных, а оптимизировать всегда есть куда
9. Модератор раздела 23.12.11 16:24 Сейчас в теме
(0) 3. Да и сам код как-то совсем не разобран.
Пишешь
ДокСсылка=Выборка.Ссылка;

а далее все-таки юзаешь Выборка.Ссылка вместо ДокСсылка :(
Сообщить(" "+СокрЛП(Выборка.Ссылка));
ПровестиПоРегистру(Выборка.Ссылка,ИмяРегистра);
10. Модератор раздела 23.12.11 16:29 Сейчас в теме
(0) 4. ИМХО весь твой код по загрузке данных можно слегка поправить
вместо
ДокОбъект.Движения[ИмяРегистра].Прочитать();
    ТаблицаДвиженийРегистра = ДокОбъект.Движения[ИмяРегистра].Выгрузить();

    ОтменитьТранзакцию();

    НаборЗаписей = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(ДокСсылка);
    НаборЗаписей.Загрузить(ТаблицаДвиженийРегистра);
    НаборЗаписей.Записать();
Показать

Можно написать
    НаборЗаписей = ДокОбъект.Движения[ИмяРегистра];
    НаборЗаписей.Прочитать();
    ТаблицаДвиженийРегистра = НаборЗаписей.Выгрузить();

    ОтменитьТранзакцию(); // как я уже говорил, лучше перенести транзакцию на более верхний уровень

    НаборЗаписей.Загрузить(ТаблицаДвиженийРегистра);
    НаборЗаписей.Записать();

Правда, не проверял, но зная, как работают объекты 1С, уверен почти на 100% :)
А еще можно попытаться избавиться от выгрузки и загрузки ТаблицаДвиженийРегистра, т.к. данные из набора при отмене транзакции не меняются :) - это же обычный объект/коллекция
11. ir_en 27.12.11 03:02 Сейчас в теме
13. lsp71 10.02.12 12:37 Сейчас в теме
14. Boroda 90 04.03.12 23:15 Сейчас в теме
Интересно, чем редакция [03.03.2012 11:13] отличается от предыдущей? Что-нибудь добавлено, кроме p/s? Или новая дата появилась только для поднятия публикации?
15. Pavel777777 68 05.03.12 08:18 Сейчас в теме
(14) Новая дата появилась автоматически после того, как я добавил ps. А дополнение это я считаю важным, поэтому его и добавил.... Поскольку перед размещением статьи я ничего похожего на сайте Инфостарт не нашёл .... Так что это скорее поднятие публикации-ссылки из примечания.
16. AlexO 135 27.08.12 10:33 Сейчас в теме
Pavel777777,
Забавно - сегодня обнаружил полный аналог этого алгоритма, описанный ранее на "Инфостарт"

аналог кода или аналог последовательности действий?
18. Pavel777777 68 10.09.12 10:46 Сейчас в теме
(16) Аналог последовательности действий) .. в написании кода то по-любому будут отличия

(17) Вообще предполагалось, что перепроводиться будут ТОЛЬКО документы, которые уже делают движения по выбранному регистру. Поскольку используется алгоритм проведения документа, уже предусмотренный конфигурацией.
А поэтому - дополнительно в конфигурации только для этого перепроведения ничего менять не надо.
17. AlexO 135 27.08.12 10:38 Сейчас в теме
(0)
вот из-за этого
Если Не Документ.Движения.Содержит(Метаданные.РегистрыНакопления[ИмяРегистра])

нужно курочить Движения в свойствах всех документов, учавствующих в доп-проведении - а это изменение конфы существенное.
И тут - очередная "удивительная" недоработка регистров РН у 1С: ну вот зачем писать новый регистр в Движения всех отобранных видов документов, если все равно - доп-проведение через наборЗаписей напрямую, без задействования объекта "Движения":
 НаборЗаписей = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();

А без прописки в Движения отбор в набор записей по регистратору не сработает...
19. lsp71 04.04.13 13:43 Сейчас в теме
Использовал изложенную идею для создания движений по новому (нестандартному) РН. Надо было перепровести документы, начиная с 2007 года. Выяснилось:
1. Конфа с тех времен существенно изменилась и проведение некоторых документов по всем РН невозможно из-за изменения реквизитов этих документов и процедур проведения по РН (проще говоря, текущая обработка проведения не соответствует старым данным).
2. Проведение (а реально это перепроведение, т.е. проведение с предварительным удалением движений по РН) а потом отмена транзакции происходит очень медленно. А еще заодно запускаются процедуры модуля объекта ПередЗаписью и ПриЗаписи. Документов много, месяц деятельности "переваривался" таким алгоритмом около суток.
Мое решение (дополняющее идею статьи): некоторые типы документов обрабатывать не описанным в статье алгоритмом, а своим, который будет:
1. учитывать изменения конфы (т.е. очень старые и более свежие документы можно обрабатывать вообще разными алгоритмами)
2. не будет проводить документ по всем РН, а только по одному, мне интересному
3. не будут работать процедуры ПередЗаписью и ПриЗаписи
В принципе, нам ведь все равно каким образом получена ТаблицаДвиженийРегистра, если она содержит правильные данные. Я написал "свои" обработки, формирующие ТаблицаДвиженийРегистра, для 3-х из 16 документов-регистраторов. Свои в кавычках из-за того, что их основой все равно были алгоритмы проведения из конфы, я лишь убрал ненужные проверки и сделал чтобы это работало не из модуля объекта, а из внешней процедуры.
Скорость работы выросла в десятки раз (примерно в 22 раза) и ушли ошибки проведения.
20. Dansur 261 11.04.16 23:28 Сейчас в теме
21. Alexey_A 8 30.10.16 22:59 Сейчас в теме
Спасибо! гениальная и в то же время простая идея! я уж расстроился, думал писать целый обработчик по выправлению регистра и вспомнил, что уже когда-то пользовался этой статьей и нашел ее. огроменное человеческое спасибище!
22. kpp1c 4 18.02.19 19:50 Сейчас в теме
23. glorry 03.02.20 18:48 Сейчас в теме
(0) На дворе 2020 год но публикация до сих пор актуальна! Процедуру "ПровестиПоРегистру" использовал практически без изменений.
Использовал для исправления небольшого количества документов.
Спасибо! Ты мне помог вот этим советом
Оставьте свое сообщение