Клиент-банк, поиск плательщиков по назначению платежа

Условия задачи: В назначении платежа в произвольном месте есть номер лицевого счета, Задача состоит в том чтобы найти номер и по нему определить плательщика и его договор.

1. Назначение платежа - произвольный текст..
2. Лицевые счета - Справочник связанный через регистр сведений с договорами контрагентов. Наименование - номер лицевого счета.

Решение: Неизвестно  ГДЕ  в тексте назначения платежа располагается номер лицевого счета, но известно ЧТО имено может быть номером лицевого счета, это одно из наименований справочника Лицевые счета, Т.е. решение задачи сводиться к поиску вхождения номера в текст назначения платежа. Для этого можно использовать перебор, а можно запрос из двух таблиц с условием связи ПОДОБНО, первая таблица - Номера лицевых счетов, вторая - Назначения платежа.  

 Пример с использованием запроса в конфигурации 1С:Учет в управляющих компаниях ЖКХ, ТСЖ и ЖСК, редакция 3.0 

&НаСервере
Процедура ДляКнопкиРасширенияОбработкиКлиентБанкНаСервере()
	
    //Таблица с номерами ЛС
    //Убираем лишние пробелы в наименовании ЛС и получаем длину номера ЛС.
    //Номера ЛС уникальны, но возможна ситуация когда более короткий ЛС может 
    //встретиться в более длинном. В  такой ситуации запрос свяжет назначение с несколькими ЛС,
    //правильным считаем тот у которого длина больше

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

	
    // Таблица Назначения платежа
	ТаблицаВыписки = ДокументыКИмпорту.Выгрузить(,"СуммаПоступило,НазначениеПлатежа,ИдентификаторОперации");
	
	//Сам запрос поиска номеров ЛС в назначениях платежа	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ТаблицаВыписки.СуммаПоступило,
	|	ТаблицаВыписки.НазначениеПлатежа,
	|	ВЫРАЗИТЬ(ТаблицаВыписки.ИдентификаторОперации КАК СТРОКА(6)) КАК ИдентификаторОперации
	|ПОМЕСТИТЬ ВТ_Выписка
	|ИЗ
	|	&ТаблицаВыписки КАК ТаблицаВыписки
	|ГДЕ
	|	ТаблицаВыписки.СуммаПоступило > 0
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ТаблицаЛСБезПобелов.ЛицевойСчет,
	|	ТаблицаЛСБезПобелов.НаименованиеБезПробелов,
	|	ТаблицаЛСБезПобелов.ДлинаНаменования
	|ПОМЕСТИТЬ ВТ_ТаблицаЛСБезПобелов
	|ИЗ
	|	&ТаблицаЛСБезПобелов КАК ТаблицаЛСБезПобелов
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ДополнительныеСведения.Объект
	|ПОМЕСТИТЬ ВТ_КонтрагентыЗапретОбменаССайтом
	|ИЗ
	|	РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
	|ГДЕ
	|	ДополнительныеСведения.Свойство = &СвойствоЗапретОбменаСсайтом
	|	И ДополнительныеСведения.Значение = ИСТИНА
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	УПЖКХ_СведенияДляВзаиморасчетовПоЛССрезПоследних.Договор,
	|	УПЖКХ_СведенияДляВзаиморасчетовПоЛССрезПоследних.Контрагент,
	|	УПЖКХ_СведенияДляВзаиморасчетовПоЛССрезПоследних.ЛицевойСчет,
	|	ВТ_ТаблицаЛСБезПобелов.НаименованиеБезПробелов,
	|	ВТ_ТаблицаЛСБезПобелов.ДлинаНаменования
	|ПОМЕСТИТЬ ВТ_ЛС
	|ИЗ
	|	РегистрСведений.УПЖКХ_СведенияДляВзаиморасчетовПоЛС.СрезПоследних(
	|			,
	|			НЕ Контрагент В
	|					(ВЫБРАТЬ
	|						ВТ_КонтрагентыЗапретОбменаССайтом.Объект
	|					ИЗ
	|						ВТ_КонтрагентыЗапретОбменаССайтом КАК ВТ_КонтрагентыЗапретОбменаССайтом)) КАК УПЖКХ_СведенияДляВзаиморасчетовПоЛССрезПоследних
	|		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ТаблицаЛСБезПобелов КАК ВТ_ТаблицаЛСБезПобелов
	|		ПО УПЖКХ_СведенияДляВзаиморасчетовПоЛССрезПоследних.ЛицевойСчет = ВТ_ТаблицаЛСБезПобелов.ЛицевойСчет
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ВТ_Выписка.ИдентификаторОперации,
	|	ВТ_Выписка.НазначениеПлатежа,
	|	ВТ_ЛС.Договор,
	|	ВТ_ЛС.Контрагент,
	|	ВТ_ЛС.НаименованиеБезПробелов,
	|	ВТ_ЛС.ЛицевойСчет,
	|	ВТ_ЛС.ДлинаНаменования
	|ПОМЕСТИТЬ ВТ_РезультатСопостовления
	|ИЗ
	|	ВТ_Выписка КАК ВТ_Выписка
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_ЛС КАК ВТ_ЛС
	|		ПО (ВТ_Выписка.НазначениеПлатежа ПОДОБНО ""%"" + ВТ_ЛС.НаименованиеБезПробелов + ""%"")
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ВТ_РезультатСопостовления.ИдентификаторОперации,
	|	МАКСИМУМ(ВТ_РезультатСопостовления.ДлинаНаменования) КАК ДлинаНаменования
	|ПОМЕСТИТЬ ВТ_НужныеЛС
	|ИЗ
	|	ВТ_РезультатСопостовления КАК ВТ_РезультатСопостовления
	|
	|СГРУППИРОВАТЬ ПО
	|	ВТ_РезультатСопостовления.ИдентификаторОперации
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	ВТ_НужныеЛС.ИдентификаторОперации,
	|	ВТ_РезультатСопостовления.НазначениеПлатежа,
	|	ВТ_РезультатСопостовления.Договор,
	|	ВТ_РезультатСопостовления.Контрагент,
	|	ВТ_РезультатСопостовления.НаименованиеБезПробелов,
	|	ВТ_РезультатСопостовления.ЛицевойСчет,
	|	ВТ_РезультатСопостовления.ДлинаНаменования
	|ИЗ
	|	ВТ_НужныеЛС КАК ВТ_НужныеЛС
	|		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_РезультатСопостовления КАК ВТ_РезультатСопостовления
	|		ПО ВТ_НужныеЛС.ИдентификаторОперации = ВТ_РезультатСопостовления.ИдентификаторОперации
	|			И ВТ_НужныеЛС.ДлинаНаменования = ВТ_РезультатСопостовления.ДлинаНаменования";    
	
	ПВХМенеджер                 = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения;
	СвойствоЗапретОбменаСсайтом = ПВХМенеджер.НайтиПоНаименованию("Запретить обмен с сайтом (Контрагенты)");
	Запрос.УстановитьПараметр("СвойствоЗапретОбменаСсайтом", СвойствоЗапретОбменаСсайтом);
	Запрос.УстановитьПараметр("ТаблицаВыписки", ТаблицаВыписки);
	Запрос.УстановитьПараметр("ТаблицаЛСБезПобелов", ТаблицаЛСБезПобелов);

	ТаблицаРезультат = Запрос.Выполнить().Выгрузить();
	
	Для каждого Строка Из ТаблицаРезультат Цикл
		
		Отбор = Новый Структура;
		Отбор.Вставить("ИдентификаторОперации", СокрЛП(Строка.ИдентификаторОперации));
		НайденныеСтроки = ДокументыКИмпорту.НайтиСтроки(Отбор);
		Если НайденныеСтроки.Количество() > 0 Тогда
			НайденныеСтроки[0].Контрагент  = Строка.Контрагент;
			НайденныеСтроки[0].Договор     = Строка.Договор;
			НайденныеСтроки[0].ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ОплатаПокупателя;
		КонецЕсли;
		
		//Скопировал штатную процедуру т.к. в штатной подбирается договор, а нам этого не нужно
		ДляРасширения_УточнитьХозяйственнуюОперациюДаннымиВведеннымиПользователем(НайденныеСтроки[0], "Контрагент,Договор,ВидОперации")
		
	КонецЦикла;	
	
	
КонецПроцедуры