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

"Мне надо Вывести все подразделения и заполнить сколько по Факту вакансий.

ПИшу код:

Процедура Сформировать()    

Перем Запрос,Подразд,Таб,ТЗ;

Подразд=СоздатьОбъект("Справочник.ШтатноеРасписание");

ТЗ=СоздатьОбъект("ТаблицаЗначений");

ТЗ.НоваяКолонка("Подр","Справочник.Подразделения");

ТЗ.НоваяКолонка("Всего","Число",18,2,"Всего");

Таб=СоздатьОбъект("Таблица");

Таб.ВывестиСекцию("Отчет");

Таб.ВывестиСекцию("Шапка");

Подразд.ВыбратьЭлементы();

Пока Подразд.ПолучитьЭлемент()=1 Цикл

ТЗ.ВыбратьСтроки();

Если ТЗ.КоличествоСтрок()=0 Тогда

ТЗ.НоваяСтрока();

ТЗ.Подр=Подразд.ТекущийЭлемент();

ТЗ.Всего=Подразд.СтавокВсего;

КонецЕсли;  

Пока ТЗ.ПолучитьСтроку()=1 Цикл

Если ТЗ.Подр=Подразд.ТекущийЭлемент() Тогда

ТЗ.Всего=ТЗ.Всего+Подразд.СтавокВсего;

Иначе

ТЗ.НоваяСтрока();

ТЗ.Подр=Подразд.ТекущийЭлемент();

ТЗ.Всего=Подразд.СтавокВсего;

КонецЕсли;

КонецЦикла;

КонецЦикла;

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку()=1 Цикл

ПечПодр=ТЗ.Подр ;

Всего=ТЗ.Всего;

Таб.ВывестиСекцию("Запрос");

КонецЦикла;

Таб.ТолькоПросмотр(1);

Таб.Опции(0,0,4,0);

Таб.Показать("Список товаров по каталогу","""");

КонецПроцедуры

В чем у меня проблема выдает везде нули, а подразделения так и вообще не выводит."

"Эк, ты навертел!

Попробуй так:

Процедура Сформировать()

ШР  = СоздатьОбъект("Справочник.ШтатноеРасписание");

Тз  = СоздатьОбъект("ТаблицаЗначений");

Таб = СоздатьОбъект("Таблица");



Тз.НоваяКолонка("Подр","Справочник.Подразделения");

ТЗ.НоваяКолонка("Всего","Число",18);



ШР.ВыбратьЭлементы();

Пока ШР.ПолучитьЭлемент() = 1 Цикл

Тз.НоваяСтрока();

Тз.Подр = ШР.Подразделение;

Тз.Всего = ШР.СтавокВсего.Получить(ТекущаяДата());//СтавокВсего - Периодический

КонецЦикла;                                                    



Тз.Свернуть("Подр","Всего");//Вместо счетчика



Тз.ВыбратьСтроки();

Пока Тз.ПолучитьСтроку() = 1 Цикл

ПечПодр = Тз.Подр;

ПечВсего = Тз.Всего;

Таб.ВывестиСекцию("Запрос");

КонецЦикла;



Таб.Показать(,)



КонецПроцедуры"