В ЗУП 3.1 заполнение документа доход в натуральной форме

&НаКлиенте
Процедура ПослеВыбораЛиста(ВыбранныйЭлемент, Об_Конект) Экспорт 

	Если ВыбранныйЭлемент = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	СтрокаСписка = ВыбранныйЭлемент.Значение;
	
	Если СтрокаСписка <> Неопределено Тогда
		//Сообщить("Выбран лист "+СтрокаСписка);
		ТекстЗапроса = "SEL ECT * FR OM ["+СтрокаСписка+"]";
		
		Попытка			
			//RecordSet = Об_Конект.Execute(ТекстЗапроса); //не работало количество строк RecordSet.RecordCount
			RecordSet = Новый COMОбъект("ADODB.Recordset");
			RecordSet.CursorType = 3;
			RecordSet.Open(ТекстЗапроса, Об_Конект);
		Исключение			
			Сообщить("Не удалось выполнить запрос к файлу Excel 
			|"+ ОписаниеОшибки(),СтатусСообщения.Важное);			
			Возврат;			
		КонецПопытки;
		
		Сч = 0;
		
		RecordSet.AbsolutePosition = 12;

		ВидВычета =  ВидВычета();
		
		Пока НЕ RecordSet.EOF() Цикл 
			
			Сч = Сч + 1;
			
			RecordSet.MoveNext();	
			
			
			//Состояние("Идет считывание с файла xls", (Сч/RecordSet.RecordCount)*100);	
			
			//Проверим период
			//Если СокрЛП(RecordSet.Fields(1).value) = "структурное подразделение" Тогда
			//	ДатаНачала = RecordSet.Fields(35).value;
			//	ДатаОкончания = RecordSet.Fields(39).value;
			//КонецЕсли;
			
			//обойдём всех сотрудников
			Если RecordSet.EOF = Ложь Тогда
			Если ТипЗнч(RecordSet.Fields(1).value) = Тип("Строка") Тогда
				
				ОбработкаПрерыванияПользователя();
				
				ФИОСотрудника = RecordSet.Fields(1).value;
				Результат = RecordSet.Fields(4).value;
				НДФЛ = RecordSet.Fields(5).value;
				КоличествоСлов = КоличествоСлов(ФИОСотрудника);
				//ТабНомер = Найти(ФИОСотрудника, "(");
				
				Если КоличествоСлов = 3 Тогда
					//ТабНомер = Прав(ФИОСотрудника, СтрДлина(ФИОСотрудника)-ТабНомер);
					//ТабНомер = СтрЗаменить(ТабНомер, ")", "");
					Сотрудник = ПолучитьСотрудникаПоНаименованию(ФИОСотрудника);
					Подразделение = ИнформацияОФизЛиц(Сотрудник);
					СтрокаВР = ВладелецФормы.Объект.Начисления.Добавить();
				    СтрокаВР.Сотрудник = Сотрудник;
					СтрокаВР.КодВычета = ВидВычета;
	                СтрокаВР.Результат = Результат;
					СтрокаВР.Подразделение = Подразделение;
					СтрокаВР.НДФЛ = НДФЛ;
					СтрокаВРН = ВладелецФормы.Объект.НДФЛ.Добавить();
					СтрокаВРН.ФизическоеЛицо = ПолучитьФизЛицоСотрудника(Сотрудник);
					СтрокаВРН.Налог = НДФЛ;
					СтрокаВРН.МесяцНалоговогоПериода = ВладелецФормы.Объект.ДатаПолученияДохода;
					//НачисленияПриНачалеРедактирования();

					//СтрокаВРН.ФизическоеЛицо = Сотрудник;
				КонецЕсли;
												
				ВладелецФормы.Модифицированность = Истина;
				
				//СтрокаВР = ВладелецФормы.Объект.Начисления.Добавить();
				//СтрокаВР.Сотрудник = Сотрудник;
				//СтрокаВР.ЭтоПерваяСтрокаПоСотруднику = Истина;
				НоваяСтрока = Истина;
				ВтораяСтрока = Неопределено;
				
			КонецЕсли;
	КонецЕсли;

			
			//Если СокрЛП(RecordSet.Fields(1).value) = "ВСЕГО:" Тогда
			//	Состояние("Идет считывание с файла xls",100);	
			//	Прервать;
			//КонецЕсли;
			
		КонецЦикла;
		
	КонецЕсли;
	
	
	//закрываем соединение с Excel
	Об_Конект.Close();
	Об_Конект = Неопределено;	
			
	//УчетРабочегоВремениРасширенныйКлиентСервер.ТабельУстановитьИнфонадписьВысотаСтрок(ВладелецФормы);
	
	ВладелецФормы.ОбновитьОтображениеДанных();
	

КонецПроцедуры // ()