Ошибка в номенклатуре нет на складе

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

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

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

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

1
2
3
4
5
6

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

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

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

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

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

1
2
3
4
5
6

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

1

Запрос.Установитьпараметр("&СсылкаНаДокумент", Ссылка);