Имя: Пароль:
1C
1С v8
Период не может быть пустым
0 Life_gold
 
23.08.15
16:16
При создании расходного документа пишет, ОШИБКА не установлен отбор по ресгистру(Регистр Накопления:Остатки Номенклатуры)


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


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

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

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

Подскажите люди добрые чё это))
1 shuhard_серый
 
23.08.15
16:44
(0) добрым людям нужна ошибка полностью
2 Life_gold
 
23.08.15
16:45
Все вопрос закрыт всем спасибо все свободны=))) просто в процедуру не все запихнул.