> Попередження ("Не заповнено поле: Магазин");
СтатусВозврата (0);
Повернення;
КонецЕсли;
Якщо ПустоеЗначеніе (Склад) = 1 Тоді
Повідомити ("Не заповнено поле: Склад");
СтатусВозврата (0);
Повернення;
КонецЕсли;
ВибратьСтрокі ();
Поки ПолучітьСтроку () = 1 Цикл
Операція.НоваяПроводка ();
Операція.дебет.Магазін = Магазин;
Операція.дебет.Товар = наменклатура;
Операція.Кредіт.Склад = Склад;
Операція.Кредіт.Товар = наменклатура;
Операція.Колічество = Кількість;
Операція.Сумма = Сума;
Операція.Содержаніе = "Відвантаження товару";
Операція.Запісать ();
КонецЦікла;
Витрата ();
Прихід ();
КонецПроцедури
Документ В«ОстаткіНаСкладахМагазінахВ» модуль форми:
Процедура Вивести ()
замкну = СоздатьОб'ект ("Запит");
ТекстЗапр = "
| Товар = Регистр.ОстаткиСклада.Товар;
| Склад = Регистр.ОстаткиСклада.Склад;
| Кількість = Регистр.ОстаткиСклада.Количество;
| Функція Кількість = КонОст (Кількість);
| Угруповання Товар;
| Угруповання Склад;
| ";
ЗапрМаг = СоздатьОб'ект ("Запит");
ТекстЗапрМаг = "
| ТоварМаг = Регистр.ОстаткиМагазина.Товар;
| Магазин = Регистр.ОстаткиМагазина.Магазин;
| Кількість = Регистр.ОстаткиМагазина.Количество;
| Функція Кількість = КонОст (Кількість);
| Угруповання ТоварМаг;
| Угруповання Магазин;
| ";
Якщо Запр.Виполніть (ТекстЗапр) = 0 Тоді
Повернення;
КонецЕсли;
Якщо ЗапрМаг.Виполніть (ТекстЗапрМаг) = 0 Тоді
Повернення;
КонецЕсли;
Т = СоздатьОб'ект ("Таблиця");
Т.ІсходнаяТабліца ("Залишки");
Т.ВивестіСекцію ("Шапка");
Поки Запр.Группіровка ("Товар") = 1 Цикл
Поки Запр.Группіровка ("Склад") = 1 Цикл
Т.ВивестіСекцію ("ДанниеСклад");
КонецЦікла;
