Как узнать пустая ли ТаблицаЗначений для Кадры и Зарплата

"Мне надо Вывести все подразделения и заполнить сколько по Факту вакансий.<br><br>ПИшу код:<br><br>Процедура Сформировать()     <br><br> Перем Запрос,Подразд,Таб,ТЗ;<br><br> Подразд=СоздатьОбъект("Справочник.ШтатноеРасписание");<br><br> ТЗ=СоздатьОбъект("ТаблицаЗначений");<br><br> ТЗ.НоваяКолонка("Подр","Справочник.Подразделения");<br><br> ТЗ.НоваяКолонка("Всего","Число",18,2,"Всего");<br><br> Таб=СоздатьОбъект("Таблица");<br><br> Таб.ВывестиСекцию("Отчет");<br><br> Таб.ВывестиСекцию("Шапка");<br><br> Подразд.ВыбратьЭлементы();<br><br> Пока Подразд.ПолучитьЭлемент()=1 Цикл<br><br> ТЗ.ВыбратьСтроки();<br><br> Если ТЗ.КоличествоСтрок()=0 Тогда <br><br>ТЗ.НоваяСтрока();<br><br>ТЗ.Подр=Подразд.ТекущийЭлемент();<br><br>ТЗ.Всего=Подразд.СтавокВсего;<br><br>КонецЕсли;   <br><br> Пока ТЗ.ПолучитьСтроку()=1 Цикл<br><br> Если ТЗ.Подр=Подразд.ТекущийЭлемент() Тогда<br><br>ТЗ.Всего=ТЗ.Всего+Подразд.СтавокВсего;<br><br> Иначе<br><br>ТЗ.НоваяСтрока();<br><br>ТЗ.Подр=Подразд.ТекущийЭлемент();<br><br>ТЗ.Всего=Подразд.СтавокВсего;<br><br>КонецЕсли; <br><br>КонецЦикла;<br><br>КонецЦикла;<br><br>ТЗ.ВыбратьСтроки();<br><br>Пока ТЗ.ПолучитьСтроку()=1 Цикл<br><br>ПечПодр=ТЗ.Подр ;<br><br> Всего=ТЗ.Всего;<br><br> Таб.ВывестиСекцию("Запрос");<br><br> КонецЦикла;<br><br>Таб.ТолькоПросмотр(1);<br><br>Таб.Опции(0,0,4,0);<br><br>Таб.Показать("Список товаров по каталогу","""");<br><br>КонецПроцедуры<br><br>В чем у меня проблема выдает везде нули, а подразделения так и вообще не выводит."

"Эк, ты навертел!<br><br>Попробуй так:<br><br>Процедура Сформировать()<br><br> ШР  = СоздатьОбъект("Справочник.ШтатноеРасписание");<br><br> Тз  = СоздатьОбъект("ТаблицаЗначений");<br><br> Таб = СоздатьОбъект("Таблица");<br><br> <br><br> Тз.НоваяКолонка("Подр","Справочник.Подразделения");<br><br> ТЗ.НоваяКолонка("Всего","Число",18);<br><br> <br><br> ШР.ВыбратьЭлементы();<br><br> Пока ШР.ПолучитьЭлемент() = 1 Цикл<br><br> Тз.НоваяСтрока();<br><br> Тз.Подр = ШР.Подразделение;<br><br> Тз.Всего = ШР.СтавокВсего.Получить(ТекущаяДата());//СтавокВсего - Периодический<br><br> КонецЦикла;                                                    <br><br> <br><br> Тз.Свернуть("Подр","Всего");//Вместо счетчика<br><br> <br><br> Тз.ВыбратьСтроки();<br><br> Пока Тз.ПолучитьСтроку() = 1 Цикл<br><br> ПечПодр = Тз.Подр;<br><br> ПечВсего = Тз.Всего;<br><br> Таб.ВывестиСекцию("Запрос");<br><br> КонецЦикла;<br><br> <br><br> Таб.Показать(,)<br><br> <br><br>КонецПроцедуры"