Проводки документа вижу, а сальдо не изменилось

ДокОпер = Документы.ОперацияБух.СоздатьДокумент();
	ДокОпер.Дата = КонецДня(НаДату);
	ДокОпер.Организация =  Организация;
	ДокОпер.Автор = глТекущийПользователь;
//	ДокОпер.СтруктурноеПодразделение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновноеПодразделениеОрганизации");
	ДокОпер.Содержание = "Закрытие резерва 2019";
	ДокОпер.Комментарий = "Закрытие резерва 2019";
	ДокОпер.УстановитьНовыйНомер();
	ДокОпер.Записать();
	
	НаборЗаписей = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Регистратор.Установить(ДокОпер.Ссылка);
	НаборЗаписей.Записать();
	СуммаОпер = 0;
	СЗЗП=Справочники.СтатьиЗатрат.НайтиПоКоду("000000019");
	БЭК=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000036");
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Проводка = НаборЗаписей.Добавить();
		Проводка.Регистратор = ДокОпер.Ссылка;
		Проводка.Период = КонецДня(НаДату);
		Если ВыборкаДетальныеЗаписи.КонОстаток>0 Тогда
			Проводка.СтруктурноеПодразделениеДт=(ВыборкаДетальныеЗаписи.СтруктурноеПодразделение);
			Проводка.СчетДт=ПланыСчетов.Типовой.НайтиПоКоду("3430");
			ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,1, ВыборкаДетальныеЗаписи.Субконто1);
			ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,2, ВыборкаДетальныеЗаписи.Субконто2);
			Проводка.СчетКт=ПланыСчетов.Типовой.НайтиПоКоду("7210");
			ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,1, СЗЗП);
			ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,2, ?(ВыборкаДетальныеЗаписи.СтруктурноеПодразделение.Пустая(),БЭК,ВыборкаДетальныеЗаписи.СтруктурноеПодразделение));
			Проводка.Сумма = ВыборкаДетальныеЗаписи.КонОстаток;
......................
		Проводка.Содержание = "Закрываем счет 3430";
		СуммаОпер=СуммаОпер+Проводка.Сумма;
	КонецЦикла;
	ДокОпер.СуммаОперации = СуммаОпер;
	ДокОпер.Записать();
	НаборЗаписей.Записать();