ЕстьОшибки = Ложь;
		Попытка
			НачатьТранзакцию();
			
			Для Каждого ТекСтрока Из Загрузка.ТаблицаРезультата Цикл
				ФормаПрогрессора.ЗначениеИндикатора	= ФормаПрогрессора.ЗначениеИндикатора + 1;
				Для Каждого ТекКолонка Из Загрузка.ТаблицаРезультата.Колонки Цикл
					ИмяКолонки	= ТекКолонка.Имя;
					Если ИмяКолонки="Программа" Тогда
						СтрПрограмма	= СокрЛП(ТекСтрока[ИмяКолонки]);
					КонецЕсли;
					Если ЗначениеНеЗаполнено(СтрПрограмма) Тогда	//последующие строки набора
						Прервать;
					КонецЕсли;
					Если ИмяКолонки="Количество" Тогда
						Количество		= Число(ТекСтрока[ИмяКолонки]);
						ОбщееКоличество	= ОбщееКоличество + Количество;
					КонецЕсли;
				КонецЦикла;
			КонецЦикла;
			НаборПрограммЗагружен	= Истина;
		
		Исключение
			СообщитьОбОшибке(ОписаниеОшибки());
			Предупреждение(ОписаниеОшибки(), 30);
			ЕстьОшибки = Истина;
		КонецПопытки;
		Если ЕстьОшибки Тогда
			ОтменитьТранзакцию();
		Иначе
			ЗафиксироватьТранзакцию();
			//Предупреждение("Загрузка выполнена.");
		КонецЕсли;