Код

ТекстЗапроса = "
	|SELECT
	|	DISTINCT
	|	$Рег.Аккаунт as Аккаунт
	|FROM
	|   $Регистр.Лицензии as Рег
	|WHERE
	|   $Рег.Клиент IN (SELECT Val FROM #СписокОрг)
	|   AND ($Рег.ДатаОкончания >= :ДатаЗапроса)
	|	AND ($Рег.ДатаНачала <= :ДатаЗапроса)
	|ORDER BY
	|	$Рег.Аккаунт
	|";

Запрос = СоздатьОбъект("ПрямойЗапрос");
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьТекстовыйПараметр("ДатаЗапроса",ДатаЗапроса);
Запрос.УложитьСписокОбъектов(СЗКлиентов, "#СписокОрг");
Запрос.РежимОтладки = 1;
СЗ = Запрос.Выполнить("СписокЗначений");