Загрузка из печатной формы УПД (Excel) в документ Поступление товаров и услуг. УТ 11.4, КА 2.4

	Объект.ВидНоменклатуры = "Товар";

	МассивНазначений = Новый Массив;
	МассивНазначений.Добавить("Документ.ПоступлениеТоваровНаСклад");
	МассивНазначений.Добавить("Документ.ПриобретениеТоваровУслуг");

&НаСервере
Процедура ПрочитатьФайлНаСервере()
	
	//вПрочитатьИндивидуальныеНастройкиКонтрагента();
	
	//ТаблицаРезультат = ЗагрузитьМетодом_MSADODB(Объект.ПутьКФайлу, 1, 1, 0, 1000, 1000);
	
	// ++ 
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.Прочитать(Объект.ПутьКФайлу);
	// -- 
	мКолонки = Новый Массив;
	мКолонки.Добавить(стрКолонка_Количество);
	мКолонки.Добавить(стрКолонка_СуммаБезНДС);
	мКолонки.Добавить(стрКолонка_СуммаНДС);
	мКолонки.Добавить(стрКолонка_ТоварКод);
	мКолонки.Добавить(стрКолонка_ТоварНаименование);
	мКолонки.Добавить(стрКолонка_Страна);
	мКолонки.Добавить(стрКолонка_НомерГТД);
	
	// ++
	//соотвКолонки = Новый Соответствие;
	
	//данные по колонкам находятся в строке чСтрокаСКодами
	//стрКолонки_ТаблицаРезультат = ТаблицаРезультат[чСтрокаСКодами - 1];
	//
	//Для Каждого Колонка из ТаблицаРезультат.Колонки Цикл
	//	
	//	Для Каждого ЗначениеКолонки из мКолонки Цикл
	//		
	//		Если стрКолонки_ТаблицаРезультат[Колонка.Имя] = ЗначениеКолонки Тогда
	//			соотвКолонки.Вставить(ЗначениеКолонки, Колонка.Имя);
	//		КонецЕсли;
	//		
	//	КонецЦИкла;
	//	
	//КонецЦикла;
	
	Объект.Данные.Очистить();
	Объект.Номенклатура.Очистить();
	Объект.НомераГТД.Очистить();
	
	// ++
	Для счСтроки = чСтрокаСКодами по ТабДок.ВысотаТаблицы Цикл
	// --
		//стр_ТаблицаРезультат = ТаблицаРезультат[счСтроки - 1];
		
		//НоменклатураВФайле = стр_ТаблицаРезультат[соотвКолонки[стрКолонка_ТоварНаименование]];
		//КодНоменклатуры = стр_ТаблицаРезультат[соотвКолонки[стрКолонка_ТоварКод]];
		//Количество = стр_ТаблицаРезультат[соотвКолонки[стрКолонка_Количество]];
		//СуммаБезНДС = стр_ТаблицаРезультат[соотвКолонки[стрКолонка_СуммаБезНДС]];
		//СуммаНДС = стр_ТаблицаРезультат[соотвКолонки[стрКолонка_СуммаНДС]];
		//Страна = СокрЛП(стр_ТаблицаРезультат[соотвКолонки[стрКолонка_Страна]]);
		//НомерГТД = СокрЛП(стр_ТаблицаРезультат[соотвКолонки[стрКолонка_НомерГТД]]);
		// ++
		НоменклатураВФайле = ТабДок.Область(счСтроки,стрКолонка_ТоварНаименование,счСтроки,стрКолонка_ТоварНаименование).Текст;
		КодНоменклатуры    = ТабДок.Область(счСтроки,стрКолонка_ТоварКод,счСтроки,стрКолонка_ТоварКод).Текст;
		Количество          =   ТабДок.Область(счСтроки,стрКолонка_Количество,счСтроки,стрКолонка_Количество).Текст;
		СуммаБезНДС          =   ТабДок.Область(счСтроки,стрКолонка_СуммаБезНДС,счСтроки,стрКолонка_СуммаБезНДС).Текст;
		СуммаНДС          =   ТабДок.Область(счСтроки,стрКолонка_СуммаНДС,счСтроки,стрКолонка_СуммаНДС).Текст;
		Страна          =   ТабДок.Область(счСтроки,стрКолонка_Страна,счСтроки,стрКолонка_Страна).Текст;
		НомерГТД          =   ТабДок.Область(счСтроки,стрКолонка_НомерГТД,счСтроки,стрКолонка_НомерГТД).Текст;
		// --

Объект.СвязьСДаннымиПоНаименованию = "Истина";

мНоменклатураНаименования

//выполним поиск ГТД в базе
		Запрос = Новый Запрос;
		Запрос.УстановитьПараметр("тзГТД", Объект.Данные.Выгрузить());
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	тзГТД.НомерГТДВФайле,
		|	тзГТД.СтрокаСтрана
		|ПОМЕСТИТЬ ВТ_тзГТД
		|ИЗ
		|	&тзГТД КАК тзГТД
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|ВЫБРАТЬ
		|	ВТ_тзГТД.НомерГТДВФайле,
		|	ВТ_тзГТД.СтрокаСтрана,
		|	НомераГТД.Ссылка КАК НомерГТД,
		|	ЕСТЬNULL(СтраныМира.Ссылка, НомераГТД.СтранаПроисхождения) КАК СтранаПроисхождения
		|ИЗ
		|	ВТ_тзГТД КАК ВТ_тзГТД
		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.НомераГТД КАК НомераГТД
		|		ПО ВТ_тзГТД.НомерГТДВФайле = НомераГТД.Код
		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СтраныМира КАК СтраныМира
		|		ПО ВТ_тзГТД.СтрокаСтрана = СтраныМира.Наименование";
		
		Объект.Данные.Загрузить(Запрос.Выполнить().Выгрузить());
		
		//автоматически создаем номера ГТД для тех строк, где страна найдена, но ГТД еще нет
		Для Каждого стр_Данные из Объект.Данные Цикл
			Если НЕ ЗначениеЗаполнено(стр_Данные.НомерГТДВБазе)
				и ЗначениеЗаполнено(стр_Данные.СтранаПроисхождения)
				Тогда
				спро = Справочники.НомераГТД.СоздатьЭлемент();
				спро.Код = стр_Данные.НомерГТДВФайле;
				спро.СтранаПроисхождения = стр_Данные.СтранаПроисхождения;
				спро.Записать();
				стр_Данные.НомерГТДВБазе = спро.Ссылка;
			Конецесли;
		КонецЦикла;
		
		
		//добавим строку в ТЧ Номенклатура
		стр_Номенклатура = Объект.Номенклатура.Добавить();
		стр_Номенклатура.КодПоставщика = КодНоменклатуры;
		стр_Номенклатура.НаименованиеНоменклатурыПоставщика = НоменклатураВФайле;
		стр_Номенклатура.Количество = Количество; 
		стр_Номенклатура.Коэффициент = 1; 
		стр_Номенклатура.Сумма = СуммаБезНДС; 
		стр_Номенклатура.НДС = СуммаНДС; 
		//стр_Номенклатура.НомерГТДНоменклатура = НомерГТД;
		
		//добавим данные по ГТД
		Если ЗначениеЗаполнено(НомерГТД) 
			и НЕ Лев(НомерГТД, 1) = "-"
			Тогда
			
			//стр_НомераГТД = Объект.НомераГТД.Добавить();
			//стр_НомераГТД.НомерГТДВФайле = НомерГТД;
			//стр_НомераГТД.СтрокаСтрана = Страна;
		КонецЕсли;

тзНоменклатура.Свернуть("Номенклатура,КодПоставщика, НаименованиеНоменклатурыПоставщика, Коэффициент", "Количество, Сумма, НДС, НомерГТДНоменклатура");