Процедура ОбновитьСчета()
	спрСчета = СоздатьОбъект("Справочник.БанковскиеСчета");
	спрСчета.ВыбратьЭлементы();
	Пока спрСчета.ПолучитьЭлемент() = 1 Цикл
		Если ПустоеЗначение(спрСчета.Остаток) = 1 Тогда
			Продолжить;
		КонецЕсли;

		НомерСтроки = 0;
		Счета.НайтиЗначение(спрСчета.ТекущийЭлемент(), НомерСтроки, "Счет");
		Счета.ПолучитьСтрокуПоНомеру(НомерСтроки);
		Счета.Сумма = спрСчета.Остаток;

		Запрос = СоздатьОбъект("Запрос");
		ТекстЗапроса =
			"Платеж = Справочник.Платежи.ТекущийЭлемент;
			|Условие(Платеж.ппРасчетныйСчет = Счета.Счет);
			|Условие(Платеж.Оплатить = 1);
			|Условие(Платеж.ппДатаДок = РабочаяДата());
			|Функция Сумм = Сумма(Платеж.ппСумма);";
		Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
			Сообщить("Ошибка выполнения запроса");
			Возврат;
		КонецЕсли;

		Счета.Назначено = Запрос.Сумм;
		Счета.Остаток = Счета.Сумма - Счета.Назначено;
	КонецЦикла;
КонецПроцедуры