Код

|SELECT
|Left(j.DATE_TIME_IDDOC,8) [ПрДДата $Дата],
|$ПриходДенегНаСчетСтроки.табОснование [табОснование $Документ.Счет],
|$ПриходДенегНаСчетСтроки.табСумма [табСумма $число]
|FROM $ДокументСтроки.ПриходДенегНаСчет ПриходДенегНаСчетСтроки
|INNER JOIN _1SJOURN j (nolock) ON j.IDDOC = ПриходДенегНаСчетСтроки.iddoc
|WHERE j.DATE_TIME_IDDOC BETWEEN :ДНач and :ДКон~"+?(ПустаяСтрока(СтрУсл)=0," and ","")+СтрУсл+"
|";

Тзн = Запрос.ВыполнитьИнструкцию(Тз);
Если Тзн.КоличествоСтрок()>0 Тогда
	Тзн.ВыбратьСтроки();
	НачатьТранзакцию();
	Пока Тзн.ПолучитьСтроку() = 1 Цикл
		 Фл = 0;
		Если ДокП.ВыбратьПодчиненныеДокументы(,,Тзн.табОснование)=1 Тогда
		    Пока ДокП.ПолучитьДокумент()=1 Цикл
			Если ДокП.Вид() = "РасходнаяНакл" Тогда
				Если (ДокП.Итог("табСумма")<=Тзн.табСумма) Или (ДокП.ДатаДок-Тзн.ПрДДата<=5) Тогда
					  Фл = 1;
					Прервать;
				  КонецЕсли;
			 КонецЕсли;
	КонецЦикла;
КонецЕсли;
......................