&НаСервере
Процедура ЗаполнениеПоЗадолженностиНаДатуДокумента()
	Рег = РегистрыБухгалтерии.Хозрасчетный;
	//ПересчетТЧСуточные();

	СписокСчетов = Новый СписокЗначений;
	СписокСчетов.Добавить("71.01"); //ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами);
	СписокСчетов.Добавить("71.21"); //ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицамиВал);
	СписокСчетов.Добавить("73.01"); //ПланыСчетов.Хозрасчетный.РасчетыПоПредоставленнымЗаймам);
	СписокСчетов.Добавить("73.02"); //ПланыСчетов.Хозрасчетный.РасчетыПоВозмещениюМатериальногоУщерба);
	СписокСчетов.Добавить("73.03"); //ПланыСчетов.Хозрасчетный.РасчетыПоПрочимОперациям);
	СписокСчетов.Добавить("76.04"); //ПланыСчетов.Хозрасчетный.РасчетыПоДепонированнымСуммам);

	Отбор = Новый Структура();
	//IKS_Бубен 20200330{
	МассивСчетов = Новый Массив();
	//}IKS_Бубен
	Если ЗначениеЗаполнено(Объект.Организация) Тогда
		Отбор.Вставить("Организация", Объект.Организация);
	КонецЕсли;
	Если Не ЗначениеЗаполнено(Объект.СчетУчета) Тогда
		Для Каждого Элемент Из СписокСчетов Цикл
			//IKS_Бубен 20200330{
			//Отбор.Вставить("Счет", ПланыСчетов.Хозрасчетный.НайтиПоКоду(Элемент));
			//ВыборкаЗаписей = Рег.Остатки(Новый Граница(Объект.Дата,ВидГраницы.Включая),,Отбор);
			//ЗаполнениеТабличнойЧасти(ВыборкаЗаписей);
			МассивСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду(Элемент));
			//}IKS_Бубен
		КонецЦикла;
	Иначе
		//IKS Karpov 20101220 Добавлено для СЗРК {
		ЕстьСубконтоПодразделения = Не ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НайтиПоНаименованию("Подразделения").Пустая();
		Если ЕстьСубконтоПодразделения И ЗначениеЗаполнено(Объект.ПодразделениеОрганизации) Тогда
			ВидыСубконтоСчета = Объект.СчетУчета.ВидыСубконто;
			ВидСубк = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные["Подразделения"];
			Если ВидыСубконтоСчета.Найти(ВидСубк)<>Неопределено Тогда
				Отбор.Вставить("Субконто2", Объект.ПодразделениеОрганизации);
			КонецЕсли;
		КонецЕсли;
		// } IKS Karpov 20101220

		Отбор.Вставить("Счет", Объект.СчетУчета);

		//IKS_Бубен 20200330{
		МассивСчетов.Добавить(Объект.СчетУчета);

		//ВыборкаЗаписей = Рег.Остатки(Новый Граница(Объект.Дата,ВидГраницы.Включая),,Отбор); //IKS Закомментил
		//}IKS
	КонецЕсли;

	//IKS_Бубен 20200330{
	Запрос = Новый запрос;
	Запрос.Текст = "ВЫБРАТЬ
	 |	СУММА(ХозрасчетныйОстатки.СуммаОстатокДт) КАК СуммаОстатокДт,
	 |	СУММА(ХозрасчетныйОстатки.СуммаОстатокКт) КАК СуммаОстатокКт,
	 |	СУММА(ХозрасчетныйОстатки.ВалютнаяСуммаОстатокДт) КАК ВалютнаяСуммаОстатокДт,
	 |	СУММА(ХозрасчетныйОстатки.ВалютнаяСуммаОстатокКт) КАК ВалютнаяСуммаОстатокКт,
	 |	ХозрасчетныйОстатки.Счет КАК Счет,
	 |	ХозрасчетныйОстатки.Субконто1 КАК Субконто1,
	 |	ХозрасчетныйОстатки.Субконто2 КАК Субконто2,
	 |	ХозрасчетныйОстатки.Субконто3 КАК Субконто3,
	 |	ХозрасчетныйОстатки.Валюта КАК Валюта,
	 |	ХозрасчетныйОстатки.Организация КАК Организация
	 |ИЗ
	 |	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В (&Счета), , Организация В (&Организация)) КАК ХозрасчетныйОстатки
	 |ГДЕ
	 |	&Подразделение В (ХозрасчетныйОстатки.Субконто2,ЗНАЧЕНИЕ(Справочник.ПодразделенияОрганизаций.ПустаяСсылка),Неопределено)
	 |СГРУППИРОВАТЬ ПО
	 |	ХозрасчетныйОстатки.Счет,
	 |	ХозрасчетныйОстатки.Субконто1,
	 |	ХозрасчетныйОстатки.Субконто2,
	 |	ХозрасчетныйОстатки.Субконто3,
	 |	ХозрасчетныйОстатки.Валюта,
	 |	ХозрасчетныйОстатки.Организация";
	Запрос.Параметры.Вставить("Период",Объект.Дата);
	Запрос.Параметры.Вставить("Счета",МассивСчетов);
	Запрос.Параметры.Вставить("Организация",Объект.Организация);
	Если ЕстьСубконтоПодразделения Тогда
		Запрос.Параметры.Вставить("Подразделение",Объект.ПодразделениеОрганизации);
	Иначе
		Запрос.Параметры.Вставить("Подразделение",Неопределено);
	КонецЕсли;

	ВыборкаЗаписей = Запрос.Выполнить().Выгрузить();
	//}IKS_Бубен

	ЗаполнениеТабличнойЧасти(ВыборкаЗаписей);

	ЗаполнитьЛицевыеСчета();

КонецПроцедуры