7.
Светлана Иванова
(Cvetic)
303
25.03.13 13:56
Сейчас в теме
() Теперь поняла, что Вы имеете в виду. Я для этих целей создала кнопку «заполнить» в документе ТребованиеНакладная. И соответствующую ей процедуру
Процедура Заполнить()
Если Выбран() = 0 Тогда
Предупреждение("Перед заполнением документ необходимо записать!", 10);
Возврат;
КонецЕсли;
Если КоличествоСтрок() > 0 Тогда
Если
Вопрос("Таблица будет очищена, а существующие строки удалены.
|Продолжить?","Да+Нет") <> "Да" Тогда
Возврат;
КонецЕсли;
УдалитьСтроки();
КонецЕсли;
СписокСчетов = СоздатьОбъект("СписокЗначений");
СписокСчетов.ДобавитьЗначение("10.1");
СписокСчетов.ДобавитьЗначение("10.2");
СписокСчетов.ДобавитьЗначение("10.3");
СписокСчетов.ДобавитьЗначение("10.4");
СписокСчетов.ДобавитьЗначение("10.5");
СписокСчетов.ДобавитьЗначение("10.6");
СписокСчетов.ДобавитьЗначение("10.8");
СписокСчетов.ДобавитьЗначение("10.9");
Для н = 1 по СписокСчетов.РазмерСписка() цикл
Сч = СписокСчетов.ПолучитьЗначение(н);
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,МестоХранения, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1);
Ит.ВыполнитьЗапрос(ТекущийДокумент(), ТекущийДокумент(), Сч,,, 1,, "К");
Ит.ВыбратьСубконто(ВидыСубконто.Материалы);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл
НоваяСтрока();
Материал = ИТ.Субконто(ВидыСубконто.Материалы);
КоличествоЗатребовано = Ит.СКД(3);
КоличествоОтпущено = Ит.СКД(3);
КонецЦикла;
КонецЦикла;
КонецПроцедуры // Заполнить()
Но здесь не по поступлению за период, а по остаткам на складе.