Планирование закупок

[Crime]

Здравствуйте, у меня большая большая проблема:(
Я знаю, что решение не трудно, но сам пока что плохо разбираюсь в 1с программировании.
В общем, суть в том, что в модуле "ПланированиеЗакупок" формируется документ "перемещение со склада на магазин", но иногда бывают такие случаи, что товар, который попадает в документ, отсутствует на складе, можно как-либо сделать, чтобы он сверял то, что он запланировал, с тем что есть на складе, и убирал из документа отсутствующие позиции? Заранее благодарен. Код модуля прилагаю.

[Алексей++]

ссылки нерабочие. Прикрепи архив к посту

[Crime]

Извиняюсь, не правильно поставил вопрос...
В результате работы модуля создается документ "заказПоставщику" ,  и мне нужно совместить этот документ с тем, что есть на складе, и убрать позиции, которых нет в наличии в отдельный документ.
Это трудно сделать? Подскажите, что смотреть?

[Kivals]

На первый взгляд в коде предусмотрен учет остатков. Почему это не работает - надо долго разбираться, а это не входит в задачи форума.
Пиши что ты понял и задавай конкретные вопросы - тогда постараюсь помочь.

[Crime]

Пиши что ты понял и задавай конкретные вопросы - тогда постараюсь помочь.

в результате выше описанной процедуры формируется отчет. как от этого отчета
отнять результаты этого запроса
ЗапросОстатки = СоздатьОбъект("Запрос");
      
      ТекстЗапросаОстатки =
      "//{{ЗАПРОС(Сформировать)
      |Период с ПериодЗапроса по ПериодЗапроса;
      |Номенклатура   = Регистр.ОстаткиТМЦ.Номенклатура,
      |                 Регистр.ПартииОтданные.Номенклатура;
      |Фирма          = Регистр.ОстаткиТМЦ.Фирма,
      |                 Регистр.ПартииОтданные.Фирма;
      |ЮрЛицо         = Регистр.ОстаткиТМЦ.Фирма.ЮрЛицо,
      |                 Регистр.ПартииОтданные.Фирма.ЮрЛицо;
      |УпрАналитика   = Регистр.ОстаткиТМЦ.Фирма.УпрАналитика,
      |                 Регистр.ПартииОтданные.Фирма.УпрАналитика;
      |КолОстатки     = Регистр.ОстаткиТМЦ.Количество,
      |                 Регистр.ПартииОтданные.Количество;";

[Kivals]

От "отчета" отнять ничего нельзя, даже от "таблицы отчета" отнять нельзя - можно только от "результата запроса для отчета".
А где результат? покажи...

[Crime]

   //Создание объекта типа Запрос
      ЗапросЗаявкиЗаказы = СоздатьОбъект("Запрос");
      
      ТекстЗапросаЗаявкиЗаказы =
      "//{{ЗАПРОС(Сформировать)
      |Период с ДатаКонца по ДатаКонца;
      |Номенклатура = Регистр.Заказы.        Номенклатура,
      |               Регистр.Заявки.        Номенклатура,
      |               Регистр.ОстаткиТМЦ.    Номенклатура,
      |               Регистр.ПартииОтданные.Номенклатура;
      |Фирма        = Регистр.Заказы.        Фирма,
      |               Регистр.Заявки.        Фирма,
      |               Регистр.ОстаткиТМЦ.    Фирма,
      |               Регистр.ПартииОтданные.Фирма;
      |ЮрЛицо       = Регистр.Заказы.        Фирма.ЮрЛицо,
      |               Регистр.Заявки.        Фирма.ЮрЛицо,
      |               Регистр.ОстаткиТМЦ.    Фирма.ЮрЛицо,
      |               Регистр.ПартииОтданные.Фирма.ЮрЛицо;
      |УпрАналитика = Регистр.Заказы.        Фирма.УпрАналитика,
      |               Регистр.Заявки.        Фирма.УпрАналитика,
      |               Регистр.ОстаткиТМЦ.    Фирма.УпрАналитика,
      |               Регистр.ПартииОтданные.Фирма.УпрАналитика;
      |ДатаПоступления = Регистр.Заказы.ЗаказПоставщику. ДатаОтгрузки;
      |ДатаОтгрузки    = Регистр.Заявки.ЗаявкаПокупателя.ДатаОтгрузки;
      |КолЗаказа    = Регистр.Заказы.КоличествоПриход;
      |КолЗаявки    = Регистр.Заявки.КоличествоРасход;
      |КолОстатки   = Регистр.ОстаткиТМЦ.    Количество,
      |               Регистр.ПартииОтданные.Количество;";
      
      Если ЕстьАвтор=1 Тогда
         ТекстЗапросаЗаявкиЗаказы = ТекстЗапросаЗаявкиЗаказы +
         "
         |Автор      = Регистр.Заказы.ТекущийДокумент.Автор,
         |             Регистр.Заявки.ТекущийДокумент.Автор,
         |             Регистр.ОстаткиТМЦ.ТекущийДокумент.Автор,
         |             Регистр.ПартииОтданные.ТекущийДокумент.Автор;";
      КонецЕсли;     
      
      Если ЕстьПроект=1 Тогда
         ТекстЗапросаЗаявкиЗаказы = ТекстЗапросаЗаявкиЗаказы +
         "
         |Проект  = Регистр.Заказы.ТекущийДокумент.Проект;
         |          Регистр.Заявки.ТекущийДокумент.Проект,
         |          Регистр.ОстаткиТМЦ.ТекущийДокумент.Проект,
         |          Регистр.ПартииОтданные.ТекущийДокумент.Проект;";
      КонецЕсли;

      ТекстЗапросаЗаявкиЗаказы = ТекстЗапросаЗаявкиЗаказы +
      "
      |Функция КонОст       = КонОст(КолОстатки);
      |Функция КонОстЗаказ  = КонОст(КолЗаказа) Когда (ДатаПоступления <= ДатаНачалаЗак);
      |Функция КонОстЗаявка = КонОст(КолЗаявки) Когда (ДатаОтгрузки    <= ДатаНачалаЗак);
      |Группировка Номенклатура без групп;
      |"//}}ЗАПРОС
      ;
      
      НетОш = 1; // нет ошибок при наложении фильтров
      Если ВидРазделителя = 1 Тогда
         НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Фирма",        ВыбРазделитель1, "ВыбРазделитель1", ТекстЗапросаЗаявкиЗаказы,"");
      ИначеЕсли ВидРазделителя = 2 Тогда                                                   
         НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "ЮрЛицо",       ВыбРазделитель2, "ВыбРазделитель2", ТекстЗапросаЗаявкиЗаказы,"");
      ИначеЕсли ВидРазделителя = 3 Тогда                                                   
         НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "УпрАналитика", ВыбРазделитель3, "ВыбРазделитель3", ТекстЗапросаЗаявкиЗаказы,"");
      КонецЕсли;
      НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Номенклатура", ВыбТМЦ, "ВыбТМЦ", ТекстЗапросаЗаявкиЗаказы, "", "СвойстваНоменклатуры");
      НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Автор",              ,         , ТекстЗапросаЗаявкиЗаказы, "", "Автор");
      НетОш = НетОш * глФильтрПоПеременнойЗапроса(ТаблицаМФ, "Проект",             ,         , ТекстЗапросаЗаявкиЗаказы, "", "Проект");
      
      Если НетОш = 0 Тогда
         Возврат;
      КонецЕсли;
      
      // Если ошибка в запросе, то выход из процедуры
      Если ЗапросЗаявкиЗаказы.Выполнить(ТекстЗапросаЗаявкиЗаказы) = 0 Тогда
         Возврат;
      КонецЕсли;

   КонецЕсли; // установлено получение итогов из остатков

Ну вот  этот запрос судя повсему