Анализ неликвидов!Невыводит цену и сумму по складам!

"Посмотрите и подскажите,почему не выводит сумму и цену в табл часть,если мы перебираем 1 из складов?<br>Что возможно сделать в этой ситуации?Заранее спасибо!<br><br>//*******************************************<br>Процедура Сформировать()<br><br><br>Перем Заг, СписокСчетов, Ит;<br>Перем НачДолг,КонДолг,СуммаНеликвидов;<br>перем ЦенаНеликвида, СуммаНеликвида;<br>//Создание объекта типа Запрос<br>Заг="На дату: "+Строка(ДатаКонца)+". За "+Строка(КолДней)+" дней";// Заголовок дата на 270 дней<br><br>Таб = СоздатьОбъект("Таблица");//Создание объекта Таблица<br>Таб.ИсходнаяТаблица("Неликвиды");//Исход Таб Неликвиды<br>Ит = СоздатьОбъект("БухгалтерскиеИтоги");// Объект БИ<br>СписокСчетов=СоздатьОбъект("СписокЗначений");// Объект СписокЗначений<br>СуммаНеликвидов=0;<br><br>Если ВыбВидОтчета=1 Тогда //выбор вида отчета(список счетов)<br><br>Заг="По товарам. Счета:";<br>СписокСчетов.ДобавитьЗначение(СчетПоКоду("41.1")); // добавляем счет 41.1<br>СписокСчетов.ДобавитьЗначение(СчетПоКоду("41.7"));<br>СписокСчетов.ДобавитьЗначение(СчетПоКоду("41.8"));<br>Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ВыбТовар, 1); //выбираем товар из ВидСубконто Номенклатура<br><br>Если ПустоеЗначение(ВыбСклад)=0 Тогда /// если склад не выбран                                     <br>Заг=Заг+". По складу "+ВыбСклад.Наименование+".";<br> Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВыбСклад, 2);// выбор склада<br>КонецЕсли;                         ///<br>ИначеЕсли ВыбВидОтчета=2 Тогда //выбор вида отчета(список счетов) <br><br><br>Если ВыбСч10_1=1 Тогда //выбран счет 10.1<br> СписокСчетов.ДобавитьЗначение(СчетПоКоду("10.1"));//добаляем знчение счета 10.1<br>КонецЕсли;<br>Если ВыбСч10_5=1 Тогда //выбран счет 10.5<br> СписокСчетов.ДобавитьЗначение(СчетПоКоду("10.5")); //добаляем знчение счета 10.5<br>КонецЕсли; <br><br>Ит.ИспользоватьСубконто(ВидыСубконто.Материалы, ВыбТовар, 1);<br>Если ПустоеЗначение(ВыбСклад)=0 Тогда //<br>Заг=Заг+". По складу "+ВыбСклад.Наименование+".";//<br> Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВыбСклад, 2); //<br>КонецЕсли;<br>КонецЕсли;<br>Ит.ВыполнитьЗапрос(ДатаКонца-КолДней, ДатаКонца, СписокСчетов,,, 3, 1, 5);<br>Таб.ВывестиСекцию("Шапка");<br>Ит.ВыбратьСубконто(); <br>Пока Ит.ПолучитьСубконто() = 1 Цикл<br>Если ВыбВидОтчета=1 Тогда<br>Товар=Ит.Субконто(ВидыСубконто.Номенклатура); <br>ИначеЕсли ВыбВидОтчета=2 Тогда<br>Товар=Ит.Субконто(ВидыСубконто.Материалы);<br>КонецЕсли;<br>Ит.ВыполнитьЗапрос();<br><br>Если (Ит.СНД("К")>0) И (Ит.СКД("К")>0) Тогда<br>Ит.ВыбратьКорСчета();<br>Расход = 0;<br> КолНеликвида = 0;<br>ЦенаНеликвида = 0;<br>СуммаНеликвида = 0;<br>Пока Ит.ПолучитьКорСчет()=1 Цикл<br> Если Ит.КорСчет=СчетПоКоду("10") Тогда<br>Продолжить;<br>КонецЕсли;<br>Расход=Расход+Ит.КорКО("К");<br>КонецЦикла;<br>Если Расход<Ит.СКД("К") Тогда<br> КолНеликвида = Ит.СКД("К")-Расход;<br>ЦенаНеликвида = Ит.СКД("K")/Ит.СКД("К");<br>СуммаНеликвида = ЦенаНеликвида*КолНеликвида;<br>КонецЕсли;<br>Если КолНеликвида<=0 Тогда<br> Продолжить;<br>КонецЕсли;<br>СуммаНеликвидов=СуммаНеликвидов+СуммаНеликвида;<br>Таб.ВывестиСекцию("Товар");       <br>Если (ПоказатьСчет=1) И (ВыбВидОтчета=1) Тогда<br> Док = СоздатьОбъект("Документ.Счет");<br>Док.ОбратныйПорядок(1);<br>Док.ВыбратьДокументы(,ДатаКонца);<br>ЕстьТовар = 0;<br>Пока Док.ПолучитьДокумент()=1 Цикл<br> Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку()=1 Цикл<br>Если Док.Товар=Товар Тогда<br> ЕстьТовар = 1;<br>Прервать;<br>КонецЕсли;<br>КонецЦикла;<br>Если ЕстьТовар=1 Тогда<br>Прервать;<br>КонецЕсли; <br>КонецЦикла;<br>Если ЕстьТовар=1 Тогда<br>Таб.ВывестиСекцию("Счет");<br>КонецЕсли; <br>КонецЕсли;<br>КонецЕсли;<br>КонецЦикла;<br><br>Таб.ВывестиСекцию("Итоги");<br>Таб.Опции(0,0,4,,"Неликвиды","ОкноНеликвиды",0);<br>Таб.ТолькоПросмотр(1);<br>Таб.Показать("Анализ неликвидов товаров (материалов)","""");<br>КонецПроцедуры<br>//}}БУХГАЛТЕРСКИЙ ЗАПРОС <br><br>Процедура ПриОткрытии()<br>ВыбСклад = глЗначениеПоУмолчанию("ОсновнойСклад");<br>ВыбСч10_1=1;<br>ВыбСч10_5=1;<br>ВыбВидОтчета=2;<br>ДатаКонца = ТекущаяДата();<br>КолДней = 270;<br>КонецПроцедуры<br><br><br>Процедура ОбработкаПодбора(ЗначПодбора)<br>Если (ЗначПодбора.Вид()="Номенклатура") ИЛИ (ЗначПодбора.Вид()="Материалы") Тогда<br>Если ВыбТовар.НайтиЗначение(ЗначПодбора)=0 Тогда<br> ВыбТовар.ДобавитьЗначение(ЗначПодбора);<br>ВыбТовар.ТекущаяСтрока(ВыбТовар.РазмерСписка()); <br>КонецЕсли;<br>КонецЕсли;<br>КонецПроцедуры<br>//******************************************************************************<br><br>Процедура ВыбратьТовар(Реж)<br>Перем Фрм;<br>Перем Тек;<br><br>Если ВыбТовар.РазмерСписка()>0 Тогда<br>Тек=ВыбТовар.ПолучитьЗначение(ВыбТовар.ТекущаяСтрока());<br>КонецЕсли;<br>Если ВыбВидОтчета=1 Тогда <br>ОткрытьПодбор("Справочник.Номенклатура",,Фрм,Реж,Тек);<br>Фрм.ВыборГруппы(1);<br>ИначеЕсли ВыбВидОтчета=2 Тогда<br>ОткрытьПодбор("Справочник.Материалы",,Фрм,Реж,Тек);<br>Фрм.ВыборГруппы(1);<br>КонецЕсли;<br>КонецПроцедуры "