Код

select
	  ОстаткиПоРасчетам.Контрагент [Контрагент $Справочник.Контрагенты],
	  ОстаткиПоРасчетам.РасчДокумент [РасчДокумент $Документ],
	  ОстаткиПоРасчетам.СуммаКонечныйОстаток
from $РегистрОстаткиОбороты.Взаиморасчеты(:ДатаРасчета,,,,
	  inner join $Справочник.Контрагенты as СпрКонтрагенты (nolock) on СпрКонтрагенты.id = Контрагент
,
$СпрКонтрагенты.ИНН = :Усл1
	  (Контрагент, РасчДокумент), Сумма
) as ОстаткиПоРасчетам
РС.УстановитьТекстовыйПараметр("Усл1","-----------");
 

Код

Функция ВыделитьТексты(вхТекст)
     рТекст = СтрЗаменить(СтрЗаменить(вхТекст,РазделительСтрок,""),"'",РазделительСтрок);
     выхТекст = "";
     счПер = 1;
     Для Сч=1 По СтрКоличествоСтрок(рТекст) Цикл
	    Если Сч%2=1 Тогда
		   выхТекст=выхТекст+СтрПолучитьСтроку(рТекст,Сч);
	    Иначе
		   выхТекст=выхТекст+":пр"+счПер;

		   счПер=счПер+1;
	    КонецЕсли;
     КонецЦикла;
     Возврат выхТекст;
КонецФункции
//---------------------------------------------