1С 7.x : Выгрузка используемых видов расчетов в таблицу значений

 ТЗВидыРасчётов = Новый ТаблицаЗначений;

ТЗВидыРасчётов.Колонки.Добавить("ВидРасчёта");

		

ЖРЗарплата = v7.CreateObject("ЖурналРасчетов.Зарплата");

ЖРЗарплата.ВыбратьЗаписи(НачДата,КонДата);

Пока ЖРЗарплата.ПолучитьЗапись() = 1 Цикл

	СтрВидыРасчётов = ТЗВидыРасчётов.Добавить();

	СтрВидыРасчётов.ВидРасчёта = ЖРЗарплата.ВидРасч.Наименование;

КонецЦикла;



ЖРДополнительный = v7.CreateObject("ЖурналРасчетов.Дополнительный");

ЖРДополнительный.ВыбратьЗаписи(НачДата,КонДата);

Пока ЖРДополнительный.ПолучитьЗапись() = 1 Цикл

	СтрВидыРасчётов = ТЗВидыРасчётов.Добавить();

	СтрВидыРасчётов.ВидРасчёта = ЖРДополнительный.ВидРасч.Наименование;

КонецЦикла;



ЖРНалогиСФОТ = v7.CreateObject("ЖурналРасчетов.НалогиСФОТ");

ЖРНалогиСФОТ.ВыбратьЗаписи(НачДата,КонДата);

Пока ЖРНалогиСФОТ.ПолучитьЗапись() = 1 Цикл

	СтрВидыРасчётов = ТЗВидыРасчётов.Добавить();

	СтрВидыРасчётов.ВидРасчёта = ЖРНалогиСФОТ.ВидРасч.Наименование;

КонецЦикла;



ЖРСтраховыеВзносы = v7.CreateObject("ЖурналРасчетов.СтраховыеВзносы");

ЖРСтраховыеВзносы.ВыбратьЗаписи(НачДата,КонДата);

Пока ЖРСтраховыеВзносы.ПолучитьЗапись() = 1 Цикл

	СтрВидыРасчётов = ТЗВидыРасчётов.Добавить();

	СтрВидыРасчётов.ВидРасчёта = ЖРСтраховыеВзносы.ВидРасч.Наименование;

КонецЦикла;