lign="justify"> Операція.СуммаОпераціі = Підсумок ("Сума");
Операція.Запісать ();
Поки ПолучітьСтроку () = 1 Цикл
Регистр.ОстаткиСклада.Товар = Найменування;
Регистр.ОстаткиСклада.Поставщик = Постачальник;
Регистр.ОстаткиСклада.Склад = Склад;
КонецЦікла;
Спр = СоздатьОб'ект ("Справочнік.Наменклатура");
Поки ПолучітьСтроку () = 1 Цикл
Спр.ЦенаПокупкіЗаЕдініцу = Число (ЦенаПокупкіЗаЕдініцу);
Спр.ОтпускнаяЦена = Число (ОтпускнаяЦена);
Спр.ЦенаВДолларах = Число (ЦенаПокупкіЗаЕдініцу)/3000;
Спр.ІспользоватьДату (ТекущаяДата ());
Спр.Запісать ();
КонецЦікла;
КонецПроцедури
Документ В«ОтгрузкаНаРеалізаціюВ» модуль форми:
Процедура Розрахунок ()
Сума = ЦенаЗаЕдініцу * Кількість;
КонецПроцедури
Процедура Ціна ()
Спр = СоздатьОб'ект ("Справочнік.Наменклатура");
ЦенаЗаедініцу = Спр.ОтпускнаяЦена;
КонецПроцедури
Процедура ПріЗапісі ()
Якщо Проведено () = 0 Тоді
ВибратьСтрокі ();
Поки ПолучітьСтроку () = 1 Цикл
Якщо Ост <Кількість Тоді
Попередження ("Немає стільки товару" + наменклатура + Регистр.ОстаткиСклада.Товар + ". В наявності тільки" + Ост);
СтатусВозврата (0);
КонецЕсли;
КонецЦікла;
КонецЕсли;
КонецПроцедури
Документ В«ОтгрузкаНаРеалізаціюВ» модуль документа:
Процедура Витрата ();
Поки ПолучітьСтроку () = 1 Цикл
Регистр.ОстаткиСклада.Товар = наменклатура;
Регистр.ОстаткиСклада.Склад = Склад;
Регистр.ОстаткиСклада.Количество = Кількість;
КонецЦікла;
КонецПроцедури
Процедура Прихід ();
Поки ПолучітьСтроку () = 1 Цикл
Регистр.ОстаткиМагазина.Товар = наменклатура;
Регистр.ОстаткиМагазина.Магазин = Магазин;
Регистр.ОстаткиМагазина.Количество = Кількість;
КонецЦікла;
КонецПроцедури
Процедура ОбработкаПроведенія ()
Якщо ПустоеЗначеніе (Магазин) = 1 Тоді
