Обработка "Заполнение табличной части документа" из Эксель в бух. 3.0, дополнительно передача значения из модуля объекта обработки в модуль формы

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

&НаСервере
Функция НайтиПоРеквизиту(АртикулТекст)
	Результат = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", АртикулТекст);
	Возврат Результат;	
КонецФункции

&НаСервере
Функция НайтиПоНаименованию(АртикулТекст)
	Результат = Справочники.Номенклатура.НайтиПоНаименованию(АртикулТекст,Ложь);
	Возврат Результат;	
КонецФункции

&НаСервере
Функция СтраныМираНайтиПоНаименованию(Страна_ГТД_Текст)
	Результат = Справочники.СтраныМира.НайтиПоНаименованию(Страна_ГТД_Текст);
	Возврат Результат;	
КонецФункции

&НаСервере
Функция СтранаГТДСоздатьЭлемент(Страна_ГТД_Текст)
	НоваяСтрана = УправлениеКонтактнойИнформацией.ДанныеКлассификатораСтранМираПоНаименованию(ВРег(Страна_ГТД_Текст));
	Если НоваяСтрана <> Справочники.СтраныМира.ПустаяСсылка() Тогда
		НовыйЭлСпр = Справочники.СтраныМира.СоздатьЭлемент();
		НовыйЭлСпр.Наименование = НоваяСтрана.Наименование;
		НовыйЭлСпр.Код = НоваяСтрана.Код;
		НовыйЭлСпр.НаименованиеПолное = НоваяСтрана.НаименованиеПолное;
		НовыйЭлСпр.КодАльфа2 = НоваяСтрана.КодАльфа2;
		НовыйЭлСпр.КодАльфа3 = НоваяСтрана.КодАльфа3;
		НовыйЭлСпр.УчастникЕАЭС = НоваяСтрана.УчастникЕАЭС;
		НовыйЭлСпр.Записать();
		Результат = НовыйЭлСпр.Ссылка;
	Иначе
		Сообщить("Страна ~" + Страна_ГТД_Текст + "~ не найдена в ОКСМ");
		Результат = Неопределено;
	КонецЕсли;
	Возврат Результат;	
КонецФункции

&НаСервере
Функция НомераГТДНайтиПоКоду(Номер_ГТД_Текст)
	Результат = Справочники.НомераГТД.НайтиПоКоду(Номер_ГТД_Текст);
	Возврат Результат;	
КонецФункции

&НаСервере
Функция НомераГТДСоздатьЭлемент(Номер_ГТД_Текст)
	ОбъектНомераГТД  = Справочники.НомераГТД.СоздатьЭлемент();
	ОбъектНомераГТД.Код = Номер_ГТД_Текст;
	ОбъектНомераГТД.Записать();
	Результат = ОбъектНомераГТД.Ссылка;
	Возврат Результат;	
КонецФункции

&НаСервере
Функция ПеречисленияСтавкиНДСНДС18()
	Результат=Перечисления.СтавкиНДС.НДС18;
	Возврат Результат;	
КонецФункции

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

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

&НаСервере
Функция ПустаяСсылка()
	Результат = Справочники.Номенклатура.ПустаяСсылка();
	Возврат Результат;	
КонецФункции

&НаКлиенте  
Процедура КнопкаВыполнитьНажатие(Кнопка)
	Если ВсеРеквизитыЗаполнены() Тогда
		Если ВладелецФормы.Объект.Товары.Количество() > 0 Тогда
			Ответ = Вопрос("Табличная часть будет очищена. Да ""Очистить"", Нет ""Добавить"" или ""Отмена""?", РежимДиалогаВопрос.ДаНетОтмена);
			Если Ответ = КодВозвратаДиалога.Отмена Тогда
				Возврат;
			ИначеЕсли Ответ = КодВозвратаДиалога.Да Тогда
				ВладелецФормы.Объект.Товары.Очистить();
			КонецЕсли;
		КонецЕсли;
		Попытка 
			Excel = Новый COMОбъект("Excel.Application");
			Книга = Excel.WorkBooks.Open(СОКРЛП(Объект.ИмяФайла));
			Лист = Книга.WorkSheets(1);
		Исключение
			Excel.WorkBooks.Close();
			Предупреждение("Ошибка при открытии файла!");
			Возврат ;
		КонецПопытки;	
		//
		Номер = 0;
		Для К = Объект.НомерПервойСтроки ПО Объект.НомерПоследнейСтроки Цикл
			//читаем артикул
			//если умный поиск, то отрезаем правую часть начиная с пробела
			Если Объект.ВыборУмныйПоиск Тогда
				//читаем из номенклатуры, содержащей артикул
				АртикулТекст = СОКРЛП(Лист.Cells(К,Объект.Наша_Номенклатура).Text);
				Если Найти(АртикулТекст," ") > 0 Тогда
					АртикулТекст = Лев(АртикулТекст,Найти(АртикулТекст," ")-1);
				Иначе
					АртикулТекст = СОКРЛП(Лист.Cells(К,Объект.Артикул).Text);
				КонецЕсли;
			Иначе //читаем из артикула
				АртикулТекст = СОКРЛП(Лист.Cells(К,Объект.Артикул).Text);
			КонецЕсли;
			//ищем артикул либо в артикулах, либо в описании номенклатуры
			Если Объект.Выбор_Ищем_в_артикулах Тогда
				Товар = НайтиПоРеквизиту(АртикулТекст);
			Иначе
				Товар = НайтиПоНаименованию(АртикулТекст); 
				Если Товар = ПустаяСсылка() И АртикулТекст <> "" Тогда
					Товар = ЗапросПоискНоменклатуры(АртикулТекст);	
				КонецЕсли;
			КонецЕсли;
			//обработчик добавления номенклатуры в справочник при АртикулТекст <> ""
			Если Товар = Неопределено И АртикулТекст <> "" Тогда
				Если Объект.Сцеплять_Артикул_Номенклатуру Тогда
					МояНоменклатура = СОКРЛП(Лист.Cells(К,Объект.Артикул).Text) + " " + СОКРЛП(Лист.Cells(К,Объект.Наша_Номенклатура).Text);
				Иначе
					МояНоменклатура = СОКРЛП(Лист.Cells(К,Объект.Наша_Номенклатура).Text);
				КонецЕсли;
				ФормаЭлементаНоменклатуры = ПолучитьФорму("Справочник.Номенклатура.Форма.ФормаЭлемента");
				ФормаЭлементаНоменклатуры.Объект.Наименование = Лев(МояНоменклатура,100);
				ФормаЭлементаНоменклатуры.Объект.НаименованиеПолное = МояНоменклатура;
				ФормаЭлементаНоменклатуры.Объект.Артикул = АртикулТекст;
				ФормаЭлементаНоменклатуры.Объект.Родитель = Объект.ТоварнаяГруппа;
				ФормаЭлементаНоменклатуры.Объект.НоменклатурнаяГруппа = Объект.НашаНоменклатурнаяГруппа;
				ФормаЭлементаНоменклатуры.Объект.СтавкаНДС = ПеречисленияСтавкиНДСНДС18();
				Ответ = ФормаЭлементаНоменклатуры.ОткрытьМодально();
				//снова ищем артикул либо в артикулах, либо в описании номенклатуры
				Если Объект.Выбор_Ищем_в_артикулах Тогда
					Товар = НайтиПоРеквизиту(АртикулТекст);
				Иначе
					Товар = НайтиПоНаименованию(АртикулТекст); 
					Если Товар = ПустаяСсылка() И АртикулТекст <> "" Тогда
						Товар = ЗапросПоискНоменклатуры(АртикулТекст);
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;			
			//ссылку получили, определяем что нашли строку и артикул был настоящий
			Если Товар <> Неопределено И Товар <> ПустаяСсылка() И АртикулТекст <> "" Тогда
				Если Объект.Цена > 0 Тогда
					Ценник	= СОКРЛП(Лист.Cells(К,Объект.Цена).Text);
					Ценник = СтрЗаменить(Ценник," руб.","");
					Ценник = СтрЗаменить(Ценник," руб","");
					Ценник = СтрЗаменить(Ценник,"руб.","");
					Ценник = СтрЗаменить(Ценник,"руб","");
					Ценник = СтрЗаменить(Ценник," ","");
					Попытка
						Ценник = Число(СокрЛП(Ценник));	
					Исключение 
						Ценник = 0;
					КонецПопытки;
				Иначе
					Ценник = 0;
					Ценник = ЗапросТипЦен(Объект.ТипЦен,Товар);	
				КонецЕсли;
				Попытка
					Колво = Число(СокрЛП(Лист.Cells(К,Объект.Количество).Text));
				Исключение
					Колво = 0;
				КонецПопытки;
				НоваяСтрока = ВладелецФормы.Объект.Товары.Добавить();
				// Заполнить значения реквизитов. 
				НоваяСтрока.Номенклатура = Товар;
				НоваяСтрока.Количество = Колво; 
				НоваяСтрока.Цена = Ценник;
				//пишем сумму
				Если Объект.Сумма = 0 Тогда
					//НоваяСтрока.Сумма = Колво*Ценник;
					ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуТабЧасти(НоваяСтрока, );
				Иначе
					СумБезНДС = СОКРЛП(Лист.Cells(К,Объект.Сумма).Text);
					СумБезНДС = СтрЗаменить(СумБезНДС," руб.","");
					СумБезНДС = СтрЗаменить(СумБезНДС," руб","");
					СумБезНДС = СтрЗаменить(СумБезНДС,"руб.","");
					СумБезНДС = СтрЗаменить(СумБезНДС,"руб","");
					СумБезНДС = СтрЗаменить(СумБезНДС," ","");
					Попытка
						СумБезНДС = Число(СокрЛП(СумБезНДС));	
					Исключение
						СумБезНДС = 0;
					КонецПопытки;
					НоваяСтрока.Сумма = СумБезНДС;
				КонецЕсли;
				//НДС
				НоваяСтрока.СтавкаНДС = ПеречисленияСтавкиНДСНДС18();
				//суммаНДС
				Если Объект.НДС = 0 Тогда
					ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(НоваяСтрока,,);
				Иначе
					СумНДС = СОКРЛП(Лист.Cells(К,Объект.НДС).Text);
					СумНДС = СтрЗаменить(СумНДС," руб.","");
					СумНДС = СтрЗаменить(СумНДС," руб","");
					СумНДС = СтрЗаменить(СумНДС,"руб.","");
					СумНДС = СтрЗаменить(СумНДС,"руб","");
					СумНДС = СтрЗаменить(СумНДС," ","");
					Попытка
						СумНДС = Число(СокрЛП(СумНДС));	
					Исключение
						СумНДС = 0;
					КонецПопытки;
					НоваяСтрока.СуммаНДС = СумНДС;
				КонецЕсли;
				//проверяем, если документ-поступление, значит ставим счета учета
				Если ТипЗнчДокументОбъектПоступлениеТоваровУслуг(ВладелецФормы.Объект.Ссылка) Тогда
					НоваяСтрока.СчетУчета = ПланыСчетовХозрасчетныйТоварыНаСкладах();
					НоваяСтрока.СчетУчетаНДС = ПланыСчетовХозрасчетныйНДСпоПриобретеннымМПЗ();
				КонецЕсли;
				//ГТД страна
				Если Объект.Страна_ГТД > 0 Тогда
					Страна_ГТД_Текст = СОКРЛП(Лист.Cells(К,Объект.Страна_ГТД).Text);
					Если Страна_ГТД_Текст <> "" Тогда
						СсылкаСтраны = СтраныМираНайтиПоНаименованию(Страна_ГТД_Текст);
						Если  СсылкаСтраны.Пустая() Тогда
							//заполняем страну по ОКСМ
							Ответ = Вопрос("Страна ~" + Страна_ГТД_Текст + "~ не найдена. Искать в ОКСМ?", РежимДиалогаВопрос.ОКОтмена);
							Если Ответ = КодВозвратаДиалога.Отмена Тогда
							Иначе
								НоваяСтрока.СтранаПроисхождения = СтранаГТДСоздатьЭлемент(Страна_ГТД_Текст);
							КонецЕсли;
						Иначе
							НоваяСтрока.СтранаПроисхождения = СсылкаСтраны;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
				//ГТД номер
				Если Объект.Номер_ГТД > 0 Тогда
					Номер_ГТД_Текст = СОКРЛП(Лист.Cells(К,Объект.Номер_ГТД).Text);
					СсылкаНомераГТД =  НомераГТДНайтиПоКоду(Номер_ГТД_Текст);
					Если  СсылкаНомераГТД.Пустая() Тогда
						Ответ = Вопрос("Номер ГТД ~" + Номер_ГТД_Текст + "~ не найден. Создать?", РежимДиалогаВопрос.ОКОтмена);
						Если Ответ = КодВозвратаДиалога.Отмена Тогда
						Иначе
						НоваяСтрока.НомерГТД = НомераГТДСоздатьЭлемент(Номер_ГТД_Текст);
						КонецЕсли;
					Иначе
						НоваяСтрока.НомерГТД = СсылкаНомераГТД;
					КонецЕсли;
				КонецЕсли;
				//Всего
				НоваяСтрока.Всего = НоваяСтрока.Сумма + НоваяСтрока.СуммаНДС;
			Иначе
				ВладелецФормы.Объект.Товары.Добавить();
				Сообщить("Номенклатура с артикулом "+АртикулТекст+" не найдена!");
				Лист.Cells(К,1).value = "Не найден";
			КонецЕсли;
			
		КонецЦикла;
		
		Лист.Cells(Объект.НомерПоследнейСтроки+2, 1).Value = "Загрузка приходной накладной закончена "+ТекущаяДата();
		Лист.Cells(Объект.НомерПоследнейСтроки+3, 1).Value = "Из Эксель получено "+Строка(Объект.НомерПоследнейСтроки - Объект.НомерПервойСтроки + 1)+" строк"; 
		Лист.Cells(Объект.НомерПоследнейСтроки+4, 1).Value = "В документе "+ ВладелецФормы.Объект.Товары.Количество()+" строк";
		Попытка
			Книга.SaveAs(Объект.ИмяФайла);
			Excel.WorkBooks.Close();
			Excel.Application.Quit();
			ЗапуститьПриложение(Объект.ИмяФайла);
		Исключение
			Excel.WorkBooks.Close();
			Excel.Application.Quit();
			ЗапуститьПриложение(Объект.ИмяФайла);	
		КонецПопытки;
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
	Режим = РежимДиалогаВыбораФайла.Открытие;
	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
	ДиалогОткрытияФайла.ПолноеИмяФайла = "";
	Фильтр = "Эксель(*.xls;*.xlsx)|*.xls;*.xlsx";
	ДиалогОткрытияФайла.Фильтр = Фильтр;
	ДиалогОткрытияФайла.МножественныйВыбор =ложь;
	ДиалогОткрытияФайла.Заголовок = "Выберите файл";
	Если ДиалогОткрытияФайла.Выбрать() Тогда
		МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
		Объект.ИмяФайла = МассивФайлов[0];
	Иначе
		Предупреждение("Файл не выбран!");
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)
	Ком = ""+СокрЛП(Объект.ИмяФайла);
	//КомандаСистемы(Ком);     
	ЗапуститьПриложение(Ком);
	СтандартнаяОбработка = ложь;
КонецПроцедуры

&НаКлиенте
Функция ВсеРеквизитыЗаполнены()
	Результат = Истина;
	
	Если Объект.ИмяФайла = "" Тогда
		Сообщить("Выберите файл!");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.НомерПервойСтроки = 0 Тогда
		Сообщить("Задайте номер первой строки!");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.НомерПоследнейСтроки = 0 Тогда
		Сообщить("Задайте номер последней строки!");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.Артикул = 0 Тогда
		Сообщить("Задайте номер колонки с артикулом");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.Наша_Номенклатура = 0 Тогда
		Сообщить("Задайте номер колонки с номенклатурой");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.Количество = 0 Тогда
		Сообщить("Задайте номер колонки с количеством!");
		Результат = Ложь;
	КонецЕсли;
	Если Объект.Цена = 0 И (НЕ ЗначениеЗаполнено(Объект.ТипЦен)) Тогда
		Сообщить("Задайте номер колонки с ценой (чтобы вытащить ее из Эксель) или укажите тип цен (чтобы вытащить из регистра)!");
		Результат = Ложь;
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	ОбъектСсылка = Параметры.ДополнительнаяОбработкаСсылка;
	ИдентификаторКоманды = Параметры.ИдентификаторКоманды;
	ИмяФормыВладельца = Параметры.ИмяФормы;
	ИнформацияОВладельце = ДополнительныеОтчетыИОбработкиПовтИсп.ПараметрыФормыНазначаемогоОбъекта(ИмяФормыВладельца);
	СсылкаРодителя  = ИнформацияОВладельце.СсылкаРодителя;
	ЭтоФормаОбъекта = ИнформацияОВладельце.ЭтоФормаОбъекта;
	Объект.Сцеплять_Артикул_Номенклатуру=Истина;
	Объект.НомерПервойСтроки=25;
	Объект.НомерПоследнейСтроки=37;
	Объект.Артикул=11;
	Объект.Наша_Номенклатура=3;
	Объект.Количество=36;
	Объект.Цена=39;
	Объект.Сумма=43;
	Объект.НДС=52;
КонецПроцедуры