Обработка проводок по дереву

acsent 91 2 14
1С

Обработка проводок по дереву

Дерево  = мРезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
Колво   = Дерево.Строки.Количество();
Счетчик = 0;
Для каждого Строка1 Из Дерево.Строки Цикл
	
	Счетчик = Счетчик + 1;
	ОбработкаПрерыванияПользователя();
	Состояние(Строка(Счетчик) + " из " + Строка(Колво) + " " + Строка(Строка1.Регистратор));
	
	НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Регистратор.Установить(Строка1.Регистратор);
	НаборЗаписей.Прочитать();
	
	Для каждого Строка2 Из Строка1.Строки Цикл
		
		Запись = НаборЗаписей[Строка2.НомерСтроки - 1];
		
		Если Строка2.ДтКт = "Дт" Тогда
		Иначе
		КонецЕсли;	
		
	КонецЦикла;	
	
	НаборЗаписей.ОбменДанными.Загрузка = Истина;
	НаборЗаписей.Записать();
	
КонецЦикла;
0 
Описание дублирует название. Удалите описание, если информации в заголовке достаточно.
‹ ›

См. также

Сопоставления объектов проводок в базе-приемнике БП3 по COM-соединению

ЗаполнитьДеревоШаблонаАнкеты (БСП)

ЗаполнитьДеревоРазделов (БСП)

СформироватьНумерациюДерева (БСП)

ДеревоРолей (БСП)

РазвернутьУзлыДерева (БСП)

МассивИзДереваЗначенийНаСервере

УстановитьУсловноеОформлениеДереваПодсистем (БСП)

ДеревоПодсистемСформировать (БСП)

Модератору