Код

Процедура Сформировать()
	Перем Запрос, ТекстЗапроса;
	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса =
	"//{{ЗАПРОС(Сформировать)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|ОбрабатыватьДокументы все;
	|ТекущийДокумент = Документ.Счет.ТекущийДокумент;
	|Группировка ТекущийДокумент;
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;

	ИТЗ = СоздатьОбъект("ИндексированнаяТаблица");

	ИТЗ.ЗагрузитьЗапрос(Запрос);

	ИТЗ.Выгрузить(СписокНаФорме,,"ТекущийДокумент");

	Сообщить(СписокНаФорме.РазмерСписка());

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