Старая и новая методики контроля остатков 1С

Правило выбора методики контроля остатков:

• новая - если для заполнения набора записей данные регистра не нужны (все данные берутся из проводимого документа);
• старая - если для заполнения набора записей нужны данные не только проводимого документа, но и регистра (выполняется сначала чтение из регистра, а потом запись в этот же регистр).

Если новая методика и приходная операция – то контроль не нужен.

Старая методика контроля остатков

Алгоритм "старой" методики контроля остатков 1С:

1. Программное удаление существующих движений документа путем записи «пустого набора»
   Код

   1С (Код)

   // 1. Очистка движений документа путем записи пустог8о набора Движения.ОстаткиНоменклатуры.Записать();

   1 2	// 1. Очистка движений документа путем записи пустог8о набора Движения.ОстаткиНоменклатуры.Записать();

   [свернуть]
2. Установка управляемых блокировок на записи тех таблиц информационной базы, к данным которых внутри транзакции будут применены операции и чтения, и записи (найти в Синтакс-помощнике "Блокировка данных", скопировать пример, вставить в процедуру "Обработка проведения" и временно закомментировать).
   Код

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

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

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

   [свернуть]
3. Получение необходимых данных для формирования набора записей в регистр:
   • на основании данных проводимого документа:
     1. при использовании табличной части документа - ставим условие по ссылке (вкладка "Условия");
     2. ставим дополнительные условия (по задаче, например, по виду номенклатуры) (вкладка "Условия");
     3. ставим группировки (например, если табличная часть может содержать несколько строк с одинаковой номенклатурой - их надо свернуть: поле группировки - номенклатура, суммируемое поле - количество) (вкладка "Группировка");
     4. если данные из документа далее используются в нескольких местах (например, при соединении таблиц и получении остатков), то их необходимо поместить во временную таблицу (вкладка "Дополнительно");
   • на основании данных других объектов конфигурации (за исключением данных записываемого регистра);
   • на основании данных записываемого регистра:
     1. если данные регистра числовые - обязательно использовать функцию ЕСТЬNULL(<регистр.данные>, 0).
4. Контроль полученных данных (в первую очередь – остатков по регистру):
   • выбор регистра, из которого получаем информацию (при этом, например, если нужны только остатки, то выбор регистра ОстаткиИОбороты вместо Остатки будет ошибкой):
     1. если данные регистра числовые - обязательно использовать функцию ЕСТЬNULL(<регистр.данные>, 0).
   • установка параметров виртуальной таблицы (Период, Условие - если значение выбора из регистра ограничено, например, табличной частью документа)
     Пример условия

     1С (Запрос)

     Номенклатура В (ВЫБРАТЬ ДанныеТЧ.Номенклатура КАК Номенклатура ИЗ ДанныеТЧ КАК ДанныеТЧ) И Склад = &Склад // Номенклатура выбирается из списка табличной части документа // Склад имеет конкретное значение, которое передается в параметр

     1 2 3 4 5 6 7

     Номенклатура В (ВЫБРАТЬ                  ДанныеТЧ.Номенклатура КАК Номенклатура                  ИЗ                  ДанныеТЧ КАК ДанныеТЧ) И Склад = &Склад   // Номенклатура выбирается из списка табличной части документа // Склад имеет конкретное значение, которое передается в параметр

     [свернуть]
   • задать условия связи;
   • если необходимо выдать пользователю сообщение, то в сообщение передавать не ссылку на объект, а представление.
     Пример запроса

     1С (Запрос)

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

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

     [свернуть]
   • установить параметры, использованные в запросе;
     Код, сформированный кoнструктором запроса с oбработкой результата

     1С (Код)

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

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

     [свернуть]
   • выполнить контроль остатков внутри выборки, сформировать сообщение пользователю (например, в случае нехватки номенклатуры) и разрешить/запретить проведение документа;
     Код

     1С (Код)

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

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

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

     [свернуть]
   • если контроль пройден успешно, то сформировать набор записей регистров (при этом предусмотреть проверку деления на "0" в коде или через проверку заполнения поля);
     Код

     1С (Код)

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

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

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

     [свернуть]
   • записать движения;
     Код

     1С (Код)

     Движения.ОстаткиНоменклатуры.Записывать = Истина;

     1	Движения.ОстаткиНоменклатуры.Записывать = Истина;

     [свернуть]
5. Перейти в пользовательский режим 1С, ввести нужную информацию (номенклатуру, виды номенклатуры, приход и расход, и т.д.) и проверить правильность контроля остатков и проведения документа.
6. Отредактировать код блокировок (см. п. 2), устанавливаемых на записи тех таблиц информационной базы, к данным которых внутри транзакции будут применены операции и чтения, и записи (в соответствии с решаемой задачей).
   Код

   1С (Код)

   // 2. Установка управляемых блокировок на записи тех таблиц информационной базы, // к данным которых внутри транзакции будут применены операции и чтения, и записи. Блокировка = Новый БлокировкаДанных; // указываем регистр ЭлементБлокировки = Блокировка.Добавить("РегистрНакопления.ОстаткиНоменклатуры"); // указываем элемент отбора виртуальной таблицы ЭлементБлокировки.УстановитьЗначение("Склад", Склад); ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный; // указываем источник данных (табличная часть в примере) ЭлементБлокировки.ИсточникДанных = СписокНоменклатуры; ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура"); Блокировка.Заблокировать();

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

   // 2. Установка управляемых блокировок на записи тех таблиц информационной базы, //      к данным которых внутри транзакции будут применены операции и чтения, и записи. Блокировка = Новый БлокировкаДанных; // указываем регистр ЭлементБлокировки = Блокировка.Добавить("РегистрНакопления.ОстаткиНоменклатуры"); // указываем элемент отбора виртуальной таблицы ЭлементБлокировки.УстановитьЗначение("Склад", Склад); ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный; // указываем источник данных (табличная часть в примере) ЭлементБлокировки.ИсточникДанных = СписокНоменклатуры; ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура");   Блокировка.Заблокировать();

   [свернуть]

Новая методика контроля остатков

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

Алгоритм "новой" методики контроля остатков 1С:

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

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

     [свернуть]
2. Формирование набора записей регистра.
   Код

   1С (Код)

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

   1 2 3 4 5 6 7 8 9

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

   [свернуть]
3. Запись всех модифицированных наборов.
   Код

   1С (Код)

   // блокирует для исключения одновременной записи другим регистратором, // игнорируя значение разделителя итогов регистра Движения.ОстаткиНоменклатуры.БлокироватьДляИзменения = Истина; Движения.ОстаткиНоменклатуры.Записывать = Истина; Движения.Записать();

   1 2 3 4 5 6

   // блокирует для исключения одновременной записи другим регистратором, // игнорируя значение разделителя итогов регистра Движения.ОстаткиНоменклатуры.БлокироватьДляИзменения = Истина;   Движения.ОстаткиНоменклатуры.Записывать = Истина; Движения.Записать();

   [свернуть]
4. Контроль данных, используемых при заполнении набора записей (в первую очередь – остатков по регистру):
   • формирование запроса к регистру, в который были записаны движения, для получения остатков, при этом:
     1. в тексте запроса определить параметры виртуальной таблицы остатков и условие: остатки меньше 0; 
     2. в коде установить границу момента времени, на которую получаем остатки и список товаров, подлежащих контролю (выбираются из табличной части либо по объектной модели - как в коде ниже, либо с использованием временной таблицы - как в примере по "старой" методике);
        Код

        1С (Код)

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

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

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

        [свернуть]
   • если контроль не пройден (остатки меньше 0), то отменяем проведение.