Как правильно обрабатывать «Ошибка 5. Движения добавляются даже после обнаружени

[Odineski]

Разбираю «Ошибка 5. Движения добавляются даже после обнаружения нехватки других товаров» из твоего предыдущего сообщения.
А если написать не
Если Отказ Тогда
Возврат;
КонецЕсли;

А написать
Если Отказ Тогда
Продолжить;
КонецЕсли;

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

Продолжить и Возврат работают по-разному.

## Если написать Возврат

1С (Код)

Если Отказ Тогда Возврат; КонецЕсли;

1 2 3

Если Отказ Тогда     Возврат; КонецЕсли;

процедура проведения немедленно завершится.

Если этот код находится после цикла проверки:

1С (Код)

Пока Выборка.Следующий() Цикл Если Выборка.Количество > Выборка.КоличествоОстаток Тогда Отказ = Истина; КонецЕсли; КонецЦикла; Если Отказ Тогда Возврат; КонецЕсли;

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

Пока Выборка.Следующий() Цикл       Если Выборка.Количество >         Выборка.КоличествоОстаток Тогда           Отказ = Истина;       КонецЕсли;   КонецЦикла;   Если Отказ Тогда     Возврат; КонецЕсли;

то результат такой:

1. Проверены все строки.
2. Если хотя бы по одной строке нехватка, установлен Отказ = Истина.
3. После завершения цикла процедура завершилась.
4. Формирование движений не выполняется.

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

## Если написать Продолжить

1С (Код)

Если Отказ Тогда Продолжить; КонецЕсли;

1 2 3

Если Отказ Тогда     Продолжить; КонецЕсли;

Продолжить не завершает процедуру. Он только пропускает текущую итерацию цикла и переходит к следующей строке.

Например:

1С (Код)

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

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

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

Здесь получится следующая логика:

1С (Код)

Товар 1: остатка хватает, движение добавлено Товар 2: остатка не хватает, движение не добавлено Товар 3: остатка хватает, движение добавлено

1 2 3

Товар 1: остатка хватает, движение добавлено Товар 2: остатка не хватает, движение не добавлено Товар 3: остатка хватает, движение добавлено

То есть Продолжить пропустит только товар с нехваткой. Для следующих товаров цикл продолжится.

## Но при Отказ = Истина документ все равно не проведется

В типовой процедуре проведения, если в конце остается:

1С (Код)

Отказ = Истина;

1	Отказ = Истина;

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

Поэтому при таком коде:

1С (Код)

Если Выборка.Количество > Выборка.КоличествоОстаток Тогда Отказ = Истина; Продолжить; КонецЕсли; Движение = Движения.ОстаткиНоменклатуры.Добавить();

1 2 3 4 5 6 7 8 9

Если Выборка.Количество >     Выборка.КоличествоОстаток Тогда       Отказ = Истина;     Продолжить;   КонецЕсли;   Движение = Движения.ОстаткиНоменклатуры.Добавить();

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

Однако это не означает, что такой вариант лучше.

## В чем проблема подхода с Продолжить

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

Получится промежуточное состояние:

1С (Код)

Отказ = Истина В Движения добавлены движения по некоторым товарам Документ не проведен

1 2 3

Отказ = Истина В Движения добавлены движения по некоторым товарам Документ не проведен

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

1С (Код)

Движения.Записать();

1	Движения.Записать();

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

Главный принцип:

> Сначала полностью проверить документ, и только если ошибок нет, формировать движения.

## Правильный вариант: два цикла

Лучше разделить проверку остатков и формирование движений.

### Первый цикл, только проверка

1С (Код)

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

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

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

### Если есть ошибка, завершить процедуру

1С (Код)

Если Отказ Тогда Возврат; КонецЕсли;

1 2 3

Если Отказ Тогда     Возврат; КонецЕсли;

### Второй цикл, только формирование движений

1С (Код)

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

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

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

Это наиболее прозрачная схема:

1С (Код)

получить остатки проверить все товары при ошибке завершить проведение если ошибок нет, создать все движения

1 2 3 4

получить остатки проверить все товары при ошибке завершить проведение если ошибок нет, создать все движения

## Когда Продолжить действительно уместен

Продолжить уместен, если вы сознательно хотите пропускать отдельные строки и обрабатывать остальные:

1С (Код)

Для каждого Строка Из ТаблицаТоваров Цикл Если Строка.Номенклатура.ПомеченНаУдаление Тогда Продолжить; КонецЕсли; // обработка остальных строк КонецЦикла;

1 2 3 4 5 6 7 8 9

Для каждого Строка Из ТаблицаТоваров Цикл       Если Строка.Номенклатура.ПомеченНаУдаление Тогда         Продолжить;     КонецЕсли;       // обработка остальных строк   КонецЦикла;

Например:

— пропустить пустую строку;
— пропустить товар определенного вида;
— не формировать движение по строкам, не участвующим в операции;
— собрать ошибки по всем строкам и продолжить проверку.

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

1С (Код)

Если Отказ Тогда Возврат; КонецЕсли;

1 2 3

Если Отказ Тогда     Возврат; КонецЕсли;

## Вариант с одним циклом

Если не хочется делать два цикла, можно проверять все строки, но движения не формировать сразу:

1С (Код)

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

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

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

Но после этого потребуется снова пройти результат запроса для формирования движений. Поэтому практически удобнее:

1С (Код)

РезультатЗапроса.Выгрузить()

1	РезультатЗапроса.Выгрузить()

и два прохода по таблице значений.

## Кратко по различиям

1С (Код)

Продолжить;

1	Продолжить;

означает:

1С (Код)

пропустить текущую строку и перейти к следующей строке цикла

1	пропустить текущую строку и перейти к следующей строке цикла

1С (Код)

Возврат;

1

Возврат;

означает:

1С (Код)

немедленно выйти из процедуры

1	немедленно выйти из процедуры

В вашем случае:

1С (Код)

Если Отказ Тогда Продолжить; КонецЕсли;

1 2 3

Если Отказ Тогда     Продолжить; КонецЕсли;

не прекращает обработку документа. Он позволяет продолжить цикл, и движения по следующим товарам будут добавляться.

Для полного запрета проведения при нехватке хотя бы одного товара лучше использовать такую схему:

1С (Код)

Сначала проверить все строки. Если найдена нехватка: Отказ = Истина. После цикла: Если Отказ Тогда Возврат; КонецЕсли; И только после этого: сформировать движения.

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

Сначала проверить все строки.   Если найдена нехватка:     Отказ = Истина.   После цикла:     Если Отказ Тогда         Возврат;     КонецЕсли;   И только после этого:     сформировать движения.

[Автор]

Записи