Внешняя Обработка в 1с

&НаСервере
Процедура ПолучитьДанныеНаСервере(ЗначениеСравнения)  
	
СтрокаЗапроса = ПолучитьТекстЗапроса(ЗначениеСравнения);	


Запрос = Новый Запрос;   
Запрос.Текст = СтрокаЗапроса;
Запрос.Параметры.Вставить("ДатаПоиска",ДатаПоиска);   

РезультатЗапроса = Запрос.Выполнить().Выгрузить();

ТаблицаРезультат.Очистить();
Для каждого СтрокаЭлемент из РезультатЗапроса Цикл
   	СтрокаТаблицы = ТаблицаРезультат.Добавить();
	
	СтрокаТаблицы.ТипДокумента = СтрокаЭлемент.ТипДокумента;  
	СтрокаТаблицы.Количество = СтрокаЭлемент.Количество;
	
КонецЦикла




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


&НаКлиенте
Процедура ПолучитьДанные(Команда)    
	
	ЗначениеСтрока = Элементы.СписокСравнений.ТекстРедактирования;
	ПолучитьДанныеНаСервере(ЗначениеСтрока); 
	
	

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


&НаСервере
Функция ПолучитьТекстЗапроса(ЗначениеСравнения)
лТекстЗапроса    = "";	
	лПервыйЗапрос    = Истина;
	Для Каждого лТипДокумента Из Метаданные.Документы Цикл
			
        Если Не лПервыйЗапрос Тогда 
            лТекстЗапроса    = лТекстЗапроса + "
            |    
            |    ОБЪЕДИНИТЬ ВСЕ
            |";
        КонецЕсли;
		
		лТекстЗапроса = лТекстЗапроса + "
            |ВЫБРАТЬ
            |    """ +СтрЗаменить(лТипДокумента,"""","'")+ """             КАК ТипДокумента,
            |    Количество(РАЗЛИЧНЫЕ Документ.Ссылка)     КАК Количество

            |ИЗ
            |    Документ." + СтрЗаменить(СтрЗаменить(лТипДокумента.Имя," ",""),"/","") + " КАК Документ

            |ГДЕ
            |   // Документ.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания И
            |    
			|    ЕСТЬNULL(Документ.Дата, ДАТАВРЕМЯ(1, 1, 1, 1, 1, 1)) " + ЗначениеСравнения + " &ДатаПоиска
            |СГРУППИРОВАТЬ ПО
            |     """ +СтрЗаменить(лТипДокумента,"""","'")+ """   
            |
            |";     
			лПервыйЗапрос = Ложь; 
		
	КонецЦикла;
		 Возврат лТекстЗапроса;

	 КонецФункции