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

"Посмотрите и подскажите,почему не выводит сумму и цену в табл часть,если мы перебираем 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>КонецПроцедуры <br>"