Как списывать только товары, если в документах две части: товары и услуги?

[Odineski]

А если в расходной накладной две табличные части — товары и услуги? Как нам списывать только товары?

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

Если в расходной накладной есть две отдельные табличные части:

— Товары
— Услуги

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

Табличную часть Услуги при списании складских остатков обрабатывать не нужно.

## Простой вариант без FIFO

1С (Код)

Процедура ОбработкаПроведения(Отказ, Режим) Движения.ОстаткиНоменклатуры.Записывать = Истина; Для Каждого ТекСтрокаТовары Из Товары Цикл Если ТекСтрокаТовары.Количество <= 0 Тогда Продолжить; КонецЕсли; Движение = Движения.ОстаткиНоменклатуры.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Период = Дата; Движение.Номенклатура = ТекСтрокаТовары.Номенклатура; Движение.Количество = ТекСтрокаТовары.Количество; // Партия и стоимость здесь должны быть определены // алгоритмом списания, например FIFO. Движение.Партия = ТекСтрокаТовары.Партия; Движение.Стоимость = ТекСтрокаТовары.Стоимость; КонецЦикла; // Табличную часть Услуги здесь не обрабатываем. // Услуги не уменьшают складской остаток. КонецПроцедуры

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

Процедура ОбработкаПроведения(Отказ, Режим)   Движения.ОстаткиНоменклатуры.Записывать = Истина;   Для Каждого ТекСтрокаТовары Из Товары Цикл   Если ТекСтрокаТовары.Количество <= 0 Тогда Продолжить; КонецЕсли;   Движение = Движения.ОстаткиНоменклатуры.Добавить();   Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Период = Дата; Движение.Номенклатура = ТекСтрокаТовары.Номенклатура; Движение.Количество = ТекСтрокаТовары.Количество;   // Партия и стоимость здесь должны быть определены // алгоритмом списания, например FIFO. Движение.Партия = ТекСтрокаТовары.Партия; Движение.Стоимость = ТекСтрокаТовары.Стоимость;   КонецЦикла;   // Табличную часть Услуги здесь не обрабатываем. // Услуги не уменьшают складской остаток.   КонецПроцедуры

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

## Вариант с FIFO

Для каждой строки из табличной части Товары нужно:

1. получить остатки по номенклатуре;
2. выбрать партии в порядке FIFO;
3. списать нужное количество начиная с самой ранней партии;
4. сформировать одно или несколько расходных движений;
5. табличную часть Услуги не обрабатывать.

Пример основной логики:

1С (Код)

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

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

В данном запросе каждая строка также оформлена с символом |, как требуется для текста запроса 1С.

## Что произойдет с услугами

Допустим, документ содержит:

### Табличная часть Товары

| Номенклатура | Количество |
|—|—:|
| Ручка | 1 |

### Табличная часть Услуги

| Номенклатура | Количество |
|—|—:|
| Доставка | 1 |

При проведении:

— по ручке создается движение Расход в регистре ОстаткиНоменклатуры;
— по услуге движение в регистре складских остатков не создается.

Услуга может отражаться отдельно:

— в регистре затрат;
— в бухгалтерском регистре;
— в документе поступления услуг;
— в составе дополнительных расходов.

Но складской остаток услуги уменьшать не нужно.

## Если регистр содержит склад

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

1С (Код)

Движение.Склад = Склад;

1	Движение.Склад = Склад;

И это условие нужно добавить в запрос остатков. Например:

1С (Код)

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

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

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

И параметр:

1С (Код)

Запрос.УстановитьПараметр("Склад", Склад);

1	Запрос.УстановитьПараметр("Склад", Склад);

## Если в табличной части Товары могут находиться услуги

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

1С (Код)

Если ТекСтрокаТовары.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда Продолжить; КонецЕсли;

1 2 3 4 5 6

Если ТекСтрокаТовары.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Услуга Тогда   Продолжить;   КонецЕсли;

Но если у вас действительно две отдельные табличные части, проверка не нужна. Достаточно обходить только:

1С (Код)

Для Каждого ТекСтрокаТовары Из Товары Цикл

1	Для Каждого ТекСтрокаТовары Из Товары Цикл

и вообще не обращаться к табличной части Услуги.

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

[Автор]

Записи