Document posting: records, balance control and modules

Elvin, the storekeeper, posts a “Goods sale” document. The program must do two things: reduce the stock balance and refuse to post the document if there is not enough tea. In this lesson we write the engine of posting: the ОбработкаПроведения procedure, register records and balance control.

What happens during posting

1. The platform opens a transaction and writes the document with Проведен = Истина.
2. ОбработкаПроведения(Отказ, РежимПроведения) (Posting) is called in the object module — records are filled here.
3. Record sets with Записывать = Истина are written and replace this document's old records — so re-posting never doubles the data.
4. If the code set Отказ = Истина (Cancel), the transaction is rolled back: neither the document nor the records are saved.

On the document's Движения (Register records) tab, Проведение (Posting) must be Разрешить (Allow) and the registers must be ticked. There is also the Удаление движений property: Удалять автоматически, Удалять автоматически при отмене проведения or Не удалять автоматически — it decides what happens to old records on unposting and re-posting.

Creating register records

1. 1
   Open the wizard

   On the Движения tab of ПриходТовара, tick the ОстаткиТоваров register and click Конструктор движений (Register records wizard).

2. 2
   Choose the source and expressions

   Tabular section Товары, record type Приход. Click Заполнить выражения (Fill expressions) — the wizard matches register fields with attributes of the same name; type the rest by hand.

3. 3
   Check the code

   Click ОК: ОбработкаПроведения appears in the object module. Post a document with F5 and view its records via Перейти › Остатки товаров (Go to).

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

Balance control

The РасходТовара document reduces the balance. The modern (“new”) method is: first write the Расход records, then check with one query that no balance has gone negative. Before writing, set БлокироватьДляИзменения = Истина (LockForUpdate) so that users working in parallel cannot “spend” the same stock at the same moment. If a negative balance is found — Отказ = Истина.

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

    Движения.ОстаткиТоваров.БлокироватьДляИзменения = Истина;
    Движения.ОстаткиТоваров.Записать();
    ПроверитьОстатки(Отказ);
КонецПроцедуры

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

    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        Сообщить(СтрШаблон("Товара %1 не хватает: %2", Выборка.Товар, -Выборка.Остаток));
        Отказ = Истина;
    КонецЦикла;
КонецПроцедуры

Object module, manager module and event subscriptions

An event subscription (Общие › Подписки на события) is set up with three properties: Источник (Source — which objects), Событие (Event, for example ПередЗаписью) and Обработчик (Handler) — an export procedure in a server common module. It lets you extend the behaviour of a typical configuration's objects without touching their modules.

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