Как разместить весь код проведения документа в процедуре «обработка проведения»?

[Odineski]

А весь этот код мне можно написаться прямо в процедуре «обработка проведения»?

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

Да. Вся логика проведения документа может находиться в процедуре объекта документа:

1С (Код)

Процедура ОбработкаПроведения(Отказ, РежимПроведения) // Здесь: // 1. Получаем остатки партий. // 2. Определяем порядок FIFO или LIFO. // 3. Списываем количество по партиям. // 4. Формируем движения регистра. // 5. Проверяем, хватило ли товара. КонецПроцедуры

1 2 3 4 5 6 7 8 9 10

Процедура ОбработкаПроведения(Отказ, РежимПроведения)       // Здесь:     // 1. Получаем остатки партий.     // 2. Определяем порядок FIFO или LIFO.     // 3. Списываем количество по партиям.     // 4. Формируем движения регистра.     // 5. Проверяем, хватило ли товара.   КонецПроцедуры

Для экзамена это нормальный вариант. Главное, чтобы код находился в модуле объекта документа, а не в модуле формы.

## Минимальный каркас процедуры

Например, документ называется РасходнаяНакладная, а регистр накопления называется ТоварыНаСкладах.

1С (Код)

Процедура ОбработкаПроведения(Отказ, РежимПроведения) Движения.ТоварыНаСкладах.Записывать = Истина; МетодСписания = Константы.МетодСписания.Получить(); Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда НаправлениеСписания = "ВОЗР"; ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда НаправлениеСписания = "УБЫВ"; Иначе Сообщить("Не указан метод списания товаров"); Отказ = Истина; Возврат; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Остатки.Номенклатура, | Остатки.Склад, | Остатки.Партия, | Остатки.КоличествоОстаток |ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки( | &Момент, | Номенклатура В | (ВЫБРАТЬ | Товары.Номенклатура | ИЗ | Документ.РасходнаяНакладная.Товары КАК Товары | ГДЕ | Товары.Ссылка = &Ссылка) | И Склад = &Склад | ) КАК Остатки |ГДЕ | Остатки.КоличествоОстаток > 0 |УПОРЯДОЧИТЬ ПО | Остатки.Партия.Дата " + НаправлениеСписания + ", | Остатки.Партия " + НаправлениеСписания; Запрос.УстановитьПараметр("Момент", Дата); Запрос.УстановитьПараметр("Ссылка", Ссылка); Запрос.УстановитьПараметр("Склад", Склад); РезультатЗапроса = Запрос.Выполнить(); // Дальше выполняется списание по строкам документа // и подбор партий в нужном порядке. КонецПроцедуры

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

Процедура ОбработкаПроведения(Отказ, РежимПроведения)       Движения.ТоварыНаСкладах.Записывать = Истина;       МетодСписания = Константы.МетодСписания.Получить();       Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда         НаправлениеСписания = "ВОЗР";     ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда         НаправлениеСписания = "УБЫВ";     Иначе         Сообщить("Не указан метод списания товаров");         Отказ = Истина;         Возврат;     КонецЕсли;       Запрос = Новый Запрос;       Запрос.Текст =     "ВЫБРАТЬ     |    Остатки.Номенклатура,     |    Остатки.Склад,     |    Остатки.Партия,     |    Остатки.КоличествоОстаток     |ИЗ     |    РегистрНакопления.ТоварыНаСкладах.Остатки(     |        &Момент,     |        Номенклатура В     |            (ВЫБРАТЬ     |                Товары.Номенклатура     |             ИЗ     |                Документ.РасходнаяНакладная.Товары КАК Товары     |             ГДЕ     |                Товары.Ссылка = &Ссылка)     |        И Склад = &Склад     |    ) КАК Остатки     |ГДЕ     |    Остатки.КоличествоОстаток > 0     |УПОРЯДОЧИТЬ ПО     |    Остатки.Партия.Дата " + НаправлениеСписания + ",     |    Остатки.Партия " + НаправлениеСписания;       Запрос.УстановитьПараметр("Момент", Дата);     Запрос.УстановитьПараметр("Ссылка", Ссылка);     Запрос.УстановитьПараметр("Склад", Склад);       РезультатЗапроса = Запрос.Выполнить();       // Дальше выполняется списание по строкам документа     // и подбор партий в нужном порядке.   КонецПроцедуры

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

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

1С (Код)

|УПОРЯДОЧИТЬ ПО | Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ, | Остатки.Партия НАПРАВЛЕНИЕ_СПИСАНИЯ

1 2 3

|УПОРЯДОЧИТЬ ПО |    Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ, |    Остатки.Партия НАПРАВЛЕНИЕ_СПИСАНИЯ

Если в регистре есть отдельный реквизит ДатаПартии, лучше сортировать по нему:

1С (Код)

|УПОРЯДОЧИТЬ ПО | Остатки.ДатаПартии НАПРАВЛЕНИЕ_СПИСАНИЯ, | Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ

1 2 3

|УПОРЯДОЧИТЬ ПО |    Остатки.ДатаПартии НАПРАВЛЕНИЕ_СПИСАНИЯ, |    Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ

## Как правильно реализовать замену направления

Я бы не заменял в запросе все вхождения "УБЫВ". Лучше использовать отдельный маркер:

1С (Код)

Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда НаправлениеСписания = "ВОЗР"; ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда НаправлениеСписания = "УБЫВ"; КонецЕсли; Запрос.Текст = СтрЗаменить( Запрос.Текст, "НАПРАВЛЕНИЕ_СПИСАНИЯ", НаправлениеСписания );

1 2 3 4 5 6 7 8 9 10 11

Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда     НаправлениеСписания = "ВОЗР"; ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда     НаправлениеСписания = "УБЫВ"; КонецЕсли;   Запрос.Текст = СтрЗаменить(     Запрос.Текст,     "НАПРАВЛЕНИЕ_СПИСАНИЯ",     НаправлениеСписания );

Сам запрос:

1С (Код)

Запрос.Текст = "ВЫБРАТЬ | Остатки.Номенклатура, | Остатки.Партия, | Остатки.КоличествоОстаток |ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки( | &Момент, | Номенклатура = &Номенклатура | И Склад = &Склад | ) КАК Остатки |ГДЕ | Остатки.КоличествоОстаток > 0 |УПОРЯДОЧИТЬ ПО | Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ, | Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ";

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

Запрос.Текст = "ВЫБРАТЬ |    Остатки.Номенклатура, |    Остатки.Партия, |    Остатки.КоличествоОстаток |ИЗ |    РегистрНакопления.ТоварыНаСкладах.Остатки( |        &Момент, |        Номенклатура = &Номенклатура |        И Склад = &Склад |    ) КАК Остатки |ГДЕ |    Остатки.КоличествоОстаток > 0 |УПОРЯДОЧИТЬ ПО |    Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ, |    Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ";

После этого:

1С (Код)

Запрос.Текст = СтрЗаменить( Запрос.Текст, "НАПРАВЛЕНИЕ_СПИСАНИЯ", НаправлениеСписания );

1 2 3 4 5

Запрос.Текст = СтрЗаменить(     Запрос.Текст,     "НАПРАВЛЕНИЕ_СПИСАНИЯ",     НаправлениеСписания );

## Но одного запроса недостаточно

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

Упрощенный пример:

1С (Код)

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

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

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

Обычно этот код помещают внутрь цикла по табличной части документа:

1С (Код)

Для Каждого СтрокаТовара Из Товары Цикл // Здесь запрос остатков по конкретной номенклатуре. // Здесь выбор партий FIFO или LIFO. // Здесь формирование движений расхода. КонецЦикла;

1 2 3 4 5 6 7

Для Каждого СтрокаТовара Из Товары Цикл       // Здесь запрос остатков по конкретной номенклатуре.     // Здесь выбор партий FIFO или LIFO.     // Здесь формирование движений расхода.   КонецЦикла;

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

## Вариант структуры процедуры для экзамена

Практически процедура может выглядеть так:

1С (Код)

Процедура ОбработкаПроведения(Отказ, РежимПроведения) Движения.ТоварыНаСкладах.Записывать = Истина; МетодСписания = Константы.МетодСписания.Получить(); Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда НаправлениеСписания = "ВОЗР"; ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда НаправлениеСписания = "УБЫВ"; Иначе Отказ = Истина; Сообщить("Не выбран метод списания"); Возврат; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Остатки.Номенклатура, | Остатки.Склад, | Остатки.Партия, | Остатки.КоличествоОстаток |ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки( | &Момент, | Склад = &Склад | ) КАК Остатки |ГДЕ | Остатки.КоличествоОстаток > 0 |УПОРЯДОЧИТЬ ПО | Остатки.Номенклатура, | Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ, | Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ"; Запрос.Текст = СтрЗаменить( Запрос.Текст, "НАПРАВЛЕНИЕ_СПИСАНИЯ", НаправлениеСписания ); Запрос.УстановитьПараметр("Момент", Дата); Запрос.УстановитьПараметр("Склад", Склад); РезультатЗапроса = Запрос.Выполнить(); ВыборкаНоменклатура = РезультатЗапроса.Выбрать( ОбходРезультатаЗапроса.ПоГруппировкам, "Номенклатура" ); Для Каждого СтрокаТовара Из Товары Цикл ВыборкаНоменклатура.Сбросить(); Пока ВыборкаНоменклатура.Следующий() Цикл Если ВыборкаНоменклатура.Номенклатура <> СтрокаТовара.Номенклатура Тогда Продолжить; КонецЕсли; ОсталосьСписать = СтрокаТовара.Количество; ВыборкаПартии = ВыборкаНоменклатура.Выбрать(); Пока ВыборкаПартии.Следующий() И ОсталосьСписать > 0 Цикл КоличествоИзПартии = Мин( ОсталосьСписать, ВыборкаПартии.КоличествоОстаток ); Движение = Движения.ТоварыНаСкладах.Добавить(); Движение.Период = Дата; Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Номенклатура = СтрокаТовара.Номенклатура; Движение.Склад = Склад; Движение.Партия = ВыборкаПартии.Партия; Движение.Количество = КоличествоИзПартии; ОсталосьСписать = ОсталосьСписать - КоличествоИзПартии; КонецЦикла; Если ОсталосьСписать > 0 Тогда Сообщить( "Недостаточно товара: " + СтрокаТовара.Номенклатура ); Отказ = Истина; Возврат; КонецЕсли; Прервать; КонецЦикла; КонецЦикла; КонецПроцедуры

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 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108

Процедура ОбработкаПроведения(Отказ, РежимПроведения)       Движения.ТоварыНаСкладах.Записывать = Истина;       МетодСписания = Константы.МетодСписания.Получить();       Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда         НаправлениеСписания = "ВОЗР";     ИначеЕсли МетодСписания = Перечисления.МетодыСписания.ЛИФО Тогда         НаправлениеСписания = "УБЫВ";     Иначе         Отказ = Истина;         Сообщить("Не выбран метод списания");         Возврат;     КонецЕсли;       Запрос = Новый Запрос;       Запрос.Текст =     "ВЫБРАТЬ     |    Остатки.Номенклатура,     |    Остатки.Склад,     |    Остатки.Партия,     |    Остатки.КоличествоОстаток     |ИЗ     |    РегистрНакопления.ТоварыНаСкладах.Остатки(     |        &Момент,     |        Склад = &Склад     |    ) КАК Остатки     |ГДЕ     |    Остатки.КоличествоОстаток > 0     |УПОРЯДОЧИТЬ ПО     |    Остатки.Номенклатура,     |    Остатки.Партия.Дата НАПРАВЛЕНИЕ_СПИСАНИЯ,     |    Остатки.Регистратор НАПРАВЛЕНИЕ_СПИСАНИЯ";       Запрос.Текст = СтрЗаменить(         Запрос.Текст,         "НАПРАВЛЕНИЕ_СПИСАНИЯ",         НаправлениеСписания     );       Запрос.УстановитьПараметр("Момент", Дата);     Запрос.УстановитьПараметр("Склад", Склад);       РезультатЗапроса = Запрос.Выполнить();       ВыборкаНоменклатура =         РезультатЗапроса.Выбрать(             ОбходРезультатаЗапроса.ПоГруппировкам,             "Номенклатура"         );       Для Каждого СтрокаТовара Из Товары Цикл           ВыборкаНоменклатура.Сбросить();           Пока ВыборкаНоменклатура.Следующий() Цикл               Если ВыборкаНоменклатура.Номенклатура                 <> СтрокаТовара.Номенклатура Тогда                 Продолжить;             КонецЕсли;               ОсталосьСписать = СтрокаТовара.Количество;               ВыборкаПартии = ВыборкаНоменклатура.Выбрать();               Пока ВыборкаПартии.Следующий()                 И ОсталосьСписать > 0 Цикл                   КоличествоИзПартии = Мин(                     ОсталосьСписать,                     ВыборкаПартии.КоличествоОстаток                 );                   Движение = Движения.ТоварыНаСкладах.Добавить();                 Движение.Период = Дата;                 Движение.ВидДвижения =                     ВидДвиженияНакопления.Расход;                 Движение.Номенклатура =                     СтрокаТовара.Номенклатура;                 Движение.Склад = Склад;                 Движение.Партия = ВыборкаПартии.Партия;                 Движение.Количество = КоличествоИзПартии;                   ОсталосьСписать =                     ОсталосьСписать - КоличествоИзПартии;               КонецЦикла;               Если ОсталосьСписать > 0 Тогда                 Сообщить(                     "Недостаточно товара: "                     + СтрокаТовара.Номенклатура                 );                   Отказ = Истина;                 Возврат;             КонецЕсли;               Прервать;           КонецЦикла;       КонецЦикла;   КонецПроцедуры

Этот код показывает идею, но точный вариант зависит от структуры вашего регистра и документа.

## Что обязательно помнить на экзамене

### 1. Процедура должна быть в модуле объекта

Правильно:

1С (Код)

Документ → Модуль объекта → ОбработкаПроведения

1	Документ → Модуль объекта → ОбработкаПроведения

Неправильно размещать эту логику в:

— модуле формы;
— обработчике команды формы;
— процедуре ПриЗаписи формы;
— клиентском коде.

Проведение и движения должны формироваться на сервере в модуле объекта документа.

### 2. Не нужно вручную запускать транзакцию

В ОбработкаПроведения обычно не пишут:

1С (Код)

НачатьТранзакцию(); ЗафиксироватьТранзакцию();

1 2	НачатьТранзакцию(); ЗафиксироватьТранзакцию();

Проведение документа выполняется платформой в своей транзакции. Если установить:

1С (Код)

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

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

движения документа записаны не будут.

### 3. Движения регистра должны быть включены

Перед добавлением движений:

1С (Код)

Движения.ТоварыНаСкладах.Записывать = Истина;

1	Движения.ТоварыНаСкладах.Записывать = Истина;

Если этого не сделать, движения могут не записаться.

### 4. Проверяйте остаток после цикла

Недостаточно просто списать доступные остатки. Обязательно нужно проверить:

1С (Код)

Если ОсталосьСписать > 0 Тогда Отказ = Истина; Возврат; КонецЕсли;

1 2 3 4

Если ОсталосьСписать > 0 Тогда     Отказ = Истина;     Возврат; КонецЕсли;

Иначе документ может провести частичное списание.

### 5. FIFO и LIFO меняют только порядок партий

Вот эта часть действительно может отличаться буквально на одну переменную:

1С (Код)

Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда НаправлениеСписания = "ВОЗР"; Иначе НаправлениеСписания = "УБЫВ"; КонецЕсли;

1 2 3 4 5

Если МетодСписания = Перечисления.МетодыСписания.ФИФО Тогда     НаправлениеСписания = "ВОЗР"; Иначе     НаправлениеСписания = "УБЫВ"; КонецЕсли;

Но весь остальной алгоритм должен быть общим:

1С (Код)

получить остатки → отсортировать партии → списать по очереди → проверить остаток

1	получить остатки → отсортировать партии → списать по очереди → проверить остаток

На экзамене это как раз хороший подход: не делать две копии алгоритма, а менять только направление сортировки.

[Автор]

Записи