Как правильно разносить подаванов

Скачал с инфостарта обработку по перепроведению документов с очисткой видов запасов.

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

Учитесь, как правильно разносить подаванов.

Код юного новичка-подавана, поэтому обработка вызывает
недоверие.

Кто так пишет? Ужасно некрасивый код.

Есть ошибка с отбором по организации в обработке с отбором
по организации.

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

Пришлось переписать так (на скорую руку):

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

ТекстЗапроса = ?(ЗначениеЗаполнено(ТекстЗапроса), ТекстЗапроса
+ «
|
|ОБЪЕДИНИТЬ ВСЕ
|
|», «»);

Если ЕстьОрганизация И Не Организация.Пустая() Тогда
ТекстЗапросаТек = ТекстЗапросаТек
+ СтрЗаменить(ТекстЗапроса,
«И Док.ПометкаУдаления = ЛОЖЬ»,
«И Док.ПометкаУдаления = ЛОЖЬ И Док.Организация = &Организация»);
КонецЕсли;

ТекстЗапроса = ТекстЗапроса + ТекстЗапросаТек;

ЕстьОтмеченныеЭлементы = Истина;
КонецЦикла;

Как видите, построение текста запроса ужасное. Зачем стрзаменять кусок кода, если можно стрзаменять параметр, например &УсловиеПоОрганизацие? Это что такое? Молодежь-молодежь!

Ну и если уж делаете красивую обработку, неужели трудно проверить состав плана обмена по метаданным? К чему эти попытки исключения?

Попытка
Если ПланыОбмена.ИзменениеЗарегистрировано(ВыборкаУзлов.Ссылка, Ссылка) Тогда
МассивУзлов.Добавить(ВыборкаУзлов);
КонецЕсли;
Исключение;
КонецПопытки;

Из плюсов могу ответить эстиматор, показывающий прогресс.

Самое главное — выводится список всех документов. А смысл? Мне нужно было только по регистру ТоварыОрганизаций, я доработал, без этого бесполезная приблуда:

&НаСервере
Процедура ПерезаполнитьВидыДокументов()
СписокВидов.Очистить();
Для Каждого ВидДокумента Из Метаданные.Документы Цикл
Если ТолькоПоДвижениямТоваровОрганизаций И ВидДокумента.Движения.Содержит(Метаданные.РегистрыНакопления.ТоварыОрганизаций)
ИЛИ НЕ ТолькоПоДвижениямТоваровОрганизаций
Тогда
СписокВидов.Добавить(ВидДокумента.Имя, ?(ЗначениеЗаполнено(ВидДокумента.Синоним), ВидДокумента.Синоним, ВидДокумента.Имя), Истина);
КонецЕсли;
КонецЦикла;
КонецПроцедуры

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

И кстати, в УТ11.4 есть такая шняга, которая включает очистку запасов, рекомендую, она быстрее работает чем распроведение. Тем более что распроведение у тебя опасное, без транзакции, может быть потеряно состояние проведенности документа.

Док.ДополнительныеСвойства.Вставить(«ПерезаполнитьВидыЗапасов», Истина);
Док.Записать(РежимЗаписиДокумента.Проведение);

Но в принципе, очистки видов запасов достаточно. Но у тебя опять же лишний Записать есть после очистки ТЧ, а надо совмещать с проведением, это массовая обработка, тут скорость важна. Я доделал, сделал доп опцию «Проводить с перезаполнением запасов (УТ 11.4)»:

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

На фоне всех этих замечаний меня совсем не удивило, что в
модуле обработки нет сведений об обработке, т.е. добавить ее пользователям
сразу нельзя. Беда-беда…

Автор, напиши на fixin*mail.ru, скину версию обработки чтобы обновил. Сейчас обработка на троечку.