новітьПараметр («Посилання», Лінк);
Запрос.УстановитьПараметр(«Момент»,МоментВремени());
Результат=Запрос.Виполніть ();
ВиборкаДетальниеЗапісі=Результат.Вибрать ();
Поки ВыборкаДетальныеЗаписи.Следующий () Цикл
ДвіженіяПоОстаткам ();
Якщо ВыборкаДетальныеЗаписи.КоличествоОстаток<ВыборкаДетальныеЗаписи.Количество тоді
Відмова=Істина;
Повідомлення=новий СообщеніеПользователю;
Нехватка=ВыборкаДетальныеЗаписи.Количество-ВыборкаДетальныеЗаписи.КоличествоОстаток;
Сообщеніе.Текст=«На складі не вистачає» + Брак + « одиниць товару » + ВыборкаДетальныеЗаписи.Номенклатура + Сімволи.ПС +
«Сформувати індивідуальне замовлення?»;
Сообщеніе.Сообщіть ();
КонецЕсли;
КонецЦікла;
/ / регістр ЗаказЗапчастей
Рух=Движения.ЗаказЗапчастей.Добавить ();
Двіженіе.Період=Дата;
Двіженіе.Сумма=СуммаПоДокументу;
КонецПроцедури
Процедура ДвіженіяПоОстаткам ()
/ / регістр ОстаткіНоменклатури Витрата
Движения.ОстаткиНоменклатуры.Записывать=Істина;
Для Кожного ТекСтрокаЗапчасті З Запчастини Цикл
Рух=Движения.ОстаткиНоменклатуры.Добавить ();
Двіженіе.ВідДвіженія=ВидДвиженияНакопления.Расход;
Двіженіе.Період=Дата;
Двіженіе.Номенклатура=ТекСтрокаЗапчасти.Номенклатура;
Двіженіе.Склад=Склад;
Двіженіе.Колічество=ТекСтрокаЗапчасти.Количество;
КонецЦікла;
КонецПроцедури
Процедура ПередЗапісью (Відмова, РежімЗапісі, РежімПроведенія)
СуммаПоДокументу=Запчасті.Ітог («Сума»);
КонецПроцедури
Додаток Б
Модуль об'єкта Документа Замовлення наряд
Процедура ПередЗапісью (Відмова, РежімЗапісі, РежімПроведенія)
СтоимостьЗаказа=Работы.Итог(«СуммаПоДокументу»)+Запчасти.Итог(«СуммаПоДокументу»);
СуммаКОплате=СтоимостьЗаказа*Скидка/100+СтоимостьЗаказа;
КонецПроцедури
Процедура ЗаполнітьТЧ () Експорт
Работи.Очістіть ();
Якщо ЗначениеЗаполнено(Документы.РасходнаяНакладнаяНаРаботы.НайтиПоРеквизиту(«ЗаказНаряд»,Ссылка)) тоді
Запит=Новий Запит;
Запрос.Текст=
" ВИБРАТИ
ВыполненныеРаботыСрезПоследних.НомерСтроки,
ВыполненныеРаботыСрезПоследних.Регистратор,
ВыполненныеРаботыСрезПоследних.Сумма
ІЗ
РегистрСведений.ВыполненныеРаботы.СрезПоследних ЯК ВыполненныеРаботыСрезПоследних
ДЕ
ВыполненныеРаботыСрезПоследних.Регистратор.Проведен
І ВыполненныеРаботыСрезПоследних.Регистратор.Ссылка=& ДокументСсилка" ;
Запрос.УстановітьПараметр («ДокументСсилка», Лінк);
Результат=Запрос.Виполніть (). Вивантажити ();
Работи.Загрузіть (Результат);
КонецЕсли;
КонецПроцедури
Додаток В
Модуль форми Документа Індивідуальне замовлення на запчастини
& НаКліенте
Процедура ЗапчастиНоменклатураПриИзменении (Елемент)
Стор=Элементы.Запчасти.ТекущиеДанные;
Стр.ЕдІзм=ОпределеніеЕдІзмеренія (Стр.Номенклатура);
Стр.Цена=подстановкаЦены.ПолучениеЦены(Объект.Дата,Стр.Номенклатура);
ЗапчастиКоличествоПриИзменении (Елемент);
ДокументыФорма.РассчитатьС...
