сотаТабліци (), 0);
Спр.ВибратьЕлементи ();
Поки Спр.ПолучітьЕлемент () = 1 Цикл
Якщо Спр.ЕтоГруппа () = 1 Тоді
Таб.ВивестіСекцію ("Група");
Інакше
Таб.ВивестіСекцію ("Рядок");
КонецЕсли;
КонецЦікла;
Таб.ВивестіСекцію ("Підвал");
Таб.ТолькоПросмотр (1);
Таб.Показать ("Друк Товар", "");
КонецПроцедури
//}} ПРОЦЕДУРА_ПЕЧАТІ
Модуль форми списку В«ДляПодбораВ» довідника В«ТоварВ»
Процедура Залишки ()
Параметр = глВзятьКонтекст (Контекст);
ФормаТабліциОстатков = Параметр;// через параметр повертається контекст відкритої форми обробки
КонецПроцедури// Залишки ()
Модуль документа "Прихід"
Процедура ОбработкаПроведенія ()
ВибратьСтрокі ();
Поки ПолучітьСтроку () = 1 Цикл
Регистр.ОстаткиТоваров.Товар = Товар;
Регистр.ОстаткиТоваров.Магазин = Магазин;
КонецЦікла;
КонецПроцедури
Модуль форми документа В«ВитратаВ»
Процедура Підбір ()
Параметри = СоздатьОб'ект ("СпісокЗначеній");
Параметры.ДобавитьЗначение (Магазин, "Магазин");
Якщо Вибрано () = 0 Тоді
Параметры.ДобавитьЗначение ("Дата", "ТіпГраніци");
Параметры.ДобавитьЗначение (ДатаДок, "ЗначеніеГраніци");
Інакше
Параметры.ДобавитьЗначение ("Позиція", "ТіпГраніци");
КонецЕсли;
Параметры.ДобавитьЗначение ("Підбір номенклатури в документ" + ПредставленіеВіда () + "№" + НомерДок, "Тема");
глПодбор (Контекст, Параметри);
КонецПроцедури// Підбір ()
Процедура ОбработкаПодбора (ВибрТов, Конт)
Кількість = 1;
Цената = 0;
Якщо ВвестіЧісло (Кол, "Введіть кількість товару", 14, 0) = 0 Тоді
Повернення;
ІначеЕслі Кількість = 0 Тоді
Повернення;
КонецЕсли;
НоваяСтрока ();
Товар = ВибрТов;
Кількість = Кількість;
АктівізіроватьСтроку ();
КонецПроцедури
Модуль документа...
