Процедура КнопкаВыполнитьНажатие(Кнопка)
	
	ОбработкаОбмен = Обработки.ВыгрузкаЗагрузкаДанныхXML.Создать();
	ОбработкаОбмен.Инициализация();
	ОбработкаОбмен.ОбработанныхКонстант = 0;
	ОбработкаОбмен.ОбработанныхНаборовЗаписей = 0;
	
	//отметки выгрузки Документов
	СписокОбъектовВыгрузки = Новый СписокЗначений;
	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.РеализацияТоваровУслуг);
	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ПоступлениеТоваровУслуг);
	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ТребованиеНакладная);
	
	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл
		
		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);
		СтрокаВыгрузки.Выгружать=1;
		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		
		//отбор
		Построитель = ОбработкаОбмен.ПодготовитьПостроительДляВыгрузки(СтрокаВыгрузки);
		СписокСсылокВыгрузки = Новый СписокЗначений;
		Для Каждого СтрокаТабДокументы Из ТабДокументы Цикл
			Если (СтрокаТабДокументы.Документ.Метаданные() = СписокОбъектовВыгрузки[й].Значение) И (СтрокаТабДокументы.ФлагВыгружать) Тогда
				СписокСсылокВыгрузки.Добавить(СтрокаТабДокументы.Документ.Ссылка);
			КонецЕсли;
		КонецЦикла;
		Отбор = Построитель.Отбор;
		Отбор.Добавить("Ссылка","Ссылка");
		Отбор[0].Использование 	= Истина;
		Отбор[0].ВидСравнения  	= ВидСравнения.ВСписке;
		Отбор[0].Значение		= СписокСсылокВыгрузки;
		
		СтрокаВыгрузки.НастройкиПостроителя = Построитель.ПолучитьНастройки();
		СтрокаВыгрузки.ИспользоватьОтбор = Истина;
	
	КонецЦикла;
	
	//отметки ОТМЕНЫ выгрузки Документов
	СписокОбъектовВыгрузки.Очистить();         
//	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.Заявка);
	
	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл
		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);
		СтрокаВыгрузки.ВыгружатьПриНеобходимости = 0;
		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		
	КонецЦикла;
	
	//отметки выгрузки Справочников
	СписокОбъектовВыгрузки.Очистить();         
	СписокОбъектовВыгрузки.Добавить(Метаданные.Справочники.Номенклатура);
	
	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл
		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);
		СтрокаВыгрузки.Выгружать=1;
		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		
	КонецЦикла;
	
	
	ИмяФайлаЗагрузки = "D:\А-Б.xml";
	ОбработкаОбмен.ВыполнитьЗагрузку(ИмяФайлаЗагрузки);
	
	ИмяФайлаВыгрузки = "D:\Б-А.xml";
	ОбработкаОбмен.ВыполнитьВыгрузку(ИмяФайлаВыгрузки);
	
КонецПроцедуры

Процедура ВыбПериодНажатие(Элемент)
	НастройкаПериода = Новый НастройкаПериода;
	НастройкаПериода.РедактироватьКакИнтервал = Истина;
	НастройкаПериода.РедактироватьКакПериод = Истина;
	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));
	Если НастройкаПериода.Редактировать() Тогда
		НачПериода = НастройкаПериода.ПолучитьДатуНачала();
		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
	КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
	
	НачПериода = ТекущаяДата();	
	КонПериода = ТекущаяДата();
	
КонецПроцедуры


Процедура ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ)
	Запрос.Текст = "ВЫБРАТЬ
	               |	ОбъектЗапроса.Ссылка
	               |ИЗ
	               |	Документ."+ОбъектЗапроса+" КАК ОбъектЗапроса
	               |ГДЕ
	               |	ОбъектЗапроса.ПометкаУдаления = ЛОЖЬ И 
				   | 	ОбъектЗапроса.Дата МЕЖДУ &ДатаНач И &ДатаКон";
				   
	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(НачПериода));
	Запрос.УстановитьПараметр("ДатаКон",КонецДня(КонПериода));
	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		НоваяСтрока 			= ТЗ.Добавить();
		НоваяСтрока.Дата 		= Выборка.Ссылка.Дата;
		НоваяСтрока.Документ	= Выборка.Ссылка;
	КонецЦикла;			   
	
КонецПроцедуры

Процедура ЗаполнитьНажатие(Элемент)
	
	ТабДокументы.Очистить();
		
	ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Дата");
	ТЗ.Колонки.Добавить("Документ");
	
	Запрос = Новый Запрос;
	
	Если флРеализация Тогда
		ОбъектЗапроса = "РеализацияТоваровУслуг";
		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);
	КонецЕсли;
				   
	Если флПоступление Тогда
		ОбъектЗапроса = "ПоступлениеТоваровУслуг";
		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);
	КонецЕсли;
	
	Если флТребованиеНакладная Тогда
		ОбъектЗапроса = "ТребованиеНакладная";
		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);
	КонецЕсли;
	
	ТЗ.Сортировать("Дата");
	Для Каждого Стр Из ТЗ Цикл
		НоваяСтрока = ТабДокументы.Добавить();
		НоваяСтрока.Документ = Стр.Документ;
		НоваяСтрока.ФлагВыгружать = Истина;
	КонецЦикла;
	
КонецПроцедуры
         

 Процедура КнопкаВыполнитьНажатие(Кнопка)
	
	ИспользоватьОграничение = ЗначениеЗаполнено(ОграничениеТипов);
	РезультатПоиска.Очистить();
	Для Каждого ОбъектыМетаданных Из КоллекцияОбъектов Цикл
		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл
			Состояние(ОбъектМетаданных.ПолноеИмя());
			ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных);
		КонецЦикла;
	КонецЦикла;
	Для Каждого ОбъектыМетаданных Из КоллекцияРегистров Цикл
		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл
			Состояние(ОбъектМетаданных.ПолноеИмя());
			ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных);
		КонецЦикла;
	КонецЦикла;
	//Анализ последовательностей
	
	//ПроверитьОбъектНаБитыеСсылки(Метаданные.Справочники.СотрудникиОрганизаций);
	
КонецПроцедуры

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

Процедура ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных)
	
	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();
	Если Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда
		Если ОбъектМетаданных.РежимЗаписи = НезависимыйРежимЗаписи Тогда
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Ресурсы, ИмяТаблицы);
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
			Возврат;
		КонецЕсли;
		АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	КонецЕсли;
	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);
	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	
	АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы);
	
	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда
		//Для рег. бухгалтерии анализ субконто
		
	КонецЕсли;
	Если Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда
		//Для регистров расчета доп. анализ
	КонецЕсли;

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

Процедура ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных)
	
	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();
	АнализСвойствОбъекта(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	Для Каждого ТабЧасть Из ОбъектМетаданных.ТабличныеЧасти Цикл
		Если ТабличныеЧастиИсключения.Найти(ТабЧасть.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		АнализСвойствОбъекта(ОбъектМетаданных, ТабЧасть.Реквизиты, ИмяТаблицы + "." + ТабЧасть.Имя)
	КонецЦикла;
	//проверка владельца у справочников
	Если Метаданные.Справочники.Содержит(ОбъектМетаданных) И ОбъектМетаданных.Владельцы.Количество() > 0 Тогда
		МассивВладельцев = Новый Массив;
		Для Каждого Элемент Из ОбъектМетаданных.Владельцы Цикл
			МассивВладельцев.Добавить(Элемент);
		КонецЦикла;
		//АнализСвойствВладельцаОбъекта(ОбъектМетаданных, МассивВладельцев, ИмяТаблицы);
	КонецЕсли;
	
	//Для задач поле исполнитель
	//проверки в журналах
	
	ОбработкаПрерыванияПользователя();
	
КонецПроцедуры

Процедура АнализСвойствОбъекта(ОбъектМетаданных, Свойства, ИмяТаблицы)
	
	Для Каждого Реквизит Из Свойства Цикл
		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл
			ТекстЗапроса = "";
			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
			Если МетаданныеТипа <> Неопределено
				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
				Если ИспользоватьОграничение Тогда
					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
						Продолжить;
					КонецЕсли;
				КонецЕсли;
				ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);
			КонецЕсли;
			Если Не ПустаяСтрока(ТекстЗапроса) Тогда
				ВывестиДанные(ТекстЗапроса);
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры

Процедура АнализСвойствРегистра(ОбъектМетаданных, Свойства, ИмяТаблицы)
	
	Для Каждого Реквизит Из Свойства Цикл
		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл
			ТекстЗапроса = "";
			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
			Если МетаданныеТипа <> Неопределено
				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
				Если ИспользоватьОграничение Тогда
					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
						Продолжить;
					КонецЕсли;
				КонецЕсли;
				ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);
			КонецЕсли;
			Если Не ПустаяСтрока(ТекстЗапроса) Тогда
				ВывестиДанные(ТекстЗапроса);
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры

Процедура АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы)
	
	МассивРегистраторов = ПолучитьСписокРегистраторов(ОбъектМетаданных);
	Для Каждого Регистратор Из МассивРегистраторов Цикл
		Если РеквизитыИсключения.Найти("Регистратор") <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		моТип = Регистратор;
		ТекстЗапроса = "";
		МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
		Если МетаданныеТипа <> Неопределено
			 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
			Если ИспользоватьОграничение Тогда
				Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
					Продолжить;
				КонецЕсли;
			КонецЕсли;
			ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, "Регистратор", моТип);
		КонецЕсли;
		Если Не ПустаяСтрока(ТекстЗапроса) Тогда
			ВывестиДанные(ТекстЗапроса);
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры

Функция ПолучитьСписокРегистраторов(ОбъектМетаданных)
	
	МассивРегистраторов = Новый Массив;
	МенеджерОбъект = ПолучитьМенеджерОбъекта(ОбъектМетаданных);
	Если МенеджерОбъект <> Неопределено Тогда
		НаборЗаписей = МенеджерОбъект.СоздатьНаборЗаписей();
		ЭлементОтбора = НаборЗаписей.Отбор.Регистратор;
		МассивРегистраторов = ЭлементОтбора.ТипЗначения.Типы();
	КонецЕсли;
	Возврат МассивРегистраторов;
	
КонецФункции

Функция ПолучитьМенеджерОбъекта(ОбъектМетаданных)
	
	Перем МенеджерОбъекта;
	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыБухгалтерии[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыНакопления.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыНакопления[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыСведений[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыРасчета[ОбъектМетаданных.Имя];
	КонецЕсли;
	Возврат МенеджерОбъекта;
	
КонецФункции

Функция ПоискПоТипу(ИмяТипа)
	
	Результат = Ложь;
	Если ИспользоватьОграничение Тогда
		МассивСтрок = ОграничениеТипов.НайтиСтроки(Новый Структура("ТипДанных", ИмяТипа));
		Если ЗначениеЗаполнено(МассивСтрок) Тогда
			Результат = Истина;
		КонецЕсли;
	КонецЕсли;
	Возврат Результат;
	
КонецФункции

Процедура ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)
	
	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 
			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 
			|	Об.Регистратор КАК ОбъектИсточник,
			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 
			|ИЗ 
			|	" + ИмяТаблицы + " КАК Об
			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);
	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;	
	
КонецПроцедуры

Процедура ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)
	
	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 
			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 
			|	Об.Ссылка КАК ОбъектИсточник,
			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 
			|ИЗ 
			|	" + ИмяТаблицы + " КАК Об
			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);
	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;
	
КонецПроцедуры

Функция ДобавитьУсловия(ИмяРеквизита, ТипРеквизита)
	
	мдОбъекта = Метаданные.НайтиПоТипу(ТипРеквизита);
	ИмяТаблицы = мдОбъекта.ПолноеИмя();
	ПроверкаНаПустыеЗначения = " Об." + ИмяРеквизита + " ССЫЛКА " + ИмяТаблицы;
	ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И ВЫРАЗИТЬ(Об." + ИмяРеквизита + " КАК " + ИмяТаблицы + ").Ссылка есть null";
	Если Не Метаданные.Перечисления.Содержит(мдОбъекта) Тогда
		ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И Об." + ИмяРеквизита + " <> Значение(" + ИмяТаблицы + ".ПустаяСсылка)";
	КонецЕсли;
	Возврат ПроверкаНаПустыеЗначения;
	
КонецФункции

Функция ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита)
	
	ОбъектТипа = Метаданные.НайтиПоТипу(ТипРеквизита);
	ИмяТаблицы = ОбъектТипа.ПолноеИмя();
	ОписаниеТипа = """" + ИмяТаблицы + """ КАК ТипДанных";	
	Возврат ОписаниеТипа;
	
КонецФункции

Процедура ОграничениеТиповТипДанныхНачалоВыбора(Элемент, СтандартнаяОбработка)
	
	Перем ЭлементСписка;
	СтандартнаяОбработка = Ложь;
	Строка = ЭлементыФормы.ОграничениеТипов.ТекущиеДанные;
	Если Не ПустаяСтрока(Строка.ТипДанных) Тогда
		ЭлементСписка = СписокТипов.НайтиПоЗначению(Строка.ТипДанных);
	КонецЕсли;
	ВыбранныйЭлемент = СписокТипов.ВыбратьЭлемент( , ЭлементСписка);
	Если ВыбранныйЭлемент <> Неопределено Тогда
		Строка.ТипДанных = ВыбранныйЭлемент.Значение;
	КонецЕсли;
	
КонецПроцедуры

РеквизитыИсключения = Новый Массив;

ТабличныеЧастиИсключения = Новый Массив;

СписокТипов = Новый СписокЗначений;
Для Каждого ОбъектМетаданных Из Метаданные.Справочники Цикл
	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.СправочникОбъект);
КонецЦикла;

Для Каждого ОбъектМетаданных Из Метаданные.Документы Цикл
	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.ДокументОбъект);
КонецЦикла;

КоллекцияОбъектов = Новый Массив;
КоллекцияОбъектов.Добавить(Метаданные.ПланыОбмена);
КоллекцияОбъектов.Добавить(Метаданные.Справочники);
КоллекцияОбъектов.Добавить(Метаданные.Документы);
КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовХарактеристик);
КоллекцияОбъектов.Добавить(Метаданные.ПланыСчетов);
КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовРасчета);
КоллекцияОбъектов.Добавить(Метаданные.БизнесПроцессы);
КоллекцияОбъектов.Добавить(Метаданные.Задачи);

КоллекцияРегистров = Новый Массив;
КоллекцияРегистров.Добавить(Метаданные.РегистрыСведений);
КоллекцияРегистров.Добавить(Метаданные.РегистрыНакопления);
КоллекцияРегистров.Добавить(Метаданные.РегистрыБухгалтерии);
КоллекцияРегистров.Добавить(Метаданные.РегистрыРасчета);
   

 //Создадим строки с разним типом значения
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = 12345;
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = "Это строка";
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = ТекущаяДата();
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = Истина;

// измененим тип значения в ячейке ТЧ
// Найдем Строку и заменим на Дату
НайденСтрока = ТабЧасть.Найти("Это строка", "РеквизитПроизвольный"); 
НайденСтрока.РеквизитПроизвольный = ТекущаяДата();
// Найдем Число и заменим на Пустую ссылку справочника Номенклатуры (полученную с Вида судконто)
Счет = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе;
НайденСтрока = ТабЧасть.Найти(12345, "РеквизитПроизвольный");
// Получим первое субконто Номенклатура
Субконото1 = Счет.ВидыСубконто[1]; 
// Присвоим тип значения
НайденСтрока.РеквизитПроизвольный = Субконото1.ВидСубконто.ТипЗначения.ПривестиЗначение();   

  //При выборе Контрагента в Колонке ИНН установить ИНН Контрагента
Процедура ТабЧастьНаименованиеПриИзменении(Элемент)
ЭлементыФормы.ТабЧасть.ТекущаяСтрока.ИНН = Элемент.Значение.ИНН; 	
КонецПроцедуры    

  Процедура ТабЧастьКППНачалоВыбора(Элемент, СтандартнаяОбработка)
	СпрКонтрагент = Справочники.Контрагенты.ПолучитьФормуВыбора(,ЭтаФорма);
	СпрКонтрагент.Заголовок = "Выберите Поставщика:";
	Выбор = СпрКонтрагент.ОткрытьМодально();
	Элемент.Значение = Выбор.КПП;
КонецПроцедуры    

 // в событии Перед Удалением табличной части боавляем процедуру
Процедура ТабЧастьПередУдалением(Элемент, Отказ)
	Режим = РежимДиалогаВопрос.ДаНет;
	Ответ = Вопрос("ВЫ УВЕРЕНЫ???"+Символы.ПС+"Хотите УДАЛИТЬ строку "+Строка(Элемент.ТекущиеДанные.Физлицо)+"?", Режим, 0);
	Если НЕ Ответ = КодВозвратаДиалога.Да Тогда
		 Отказ = Истина;
	КонецЕсли;	
КонецПроцедуры