Фурнитура. &НаСервере Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) Экспорт
 Скачать 15.24 Kb.
|
|
&НаСервере Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) Экспорт Если НЕ(Результат = Неопределено) Тогда СсылкаНаФайл = Результат[0]; Иначе Сообщить("Файл не найден!"); Возврат; КонецЕсли; ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(СсылкаНаФайл); Для Строка = 2 По ТабДок.ВысотаТаблицы Цикл ЭлементФурнитура = Справочники.Фурнитура.СоздатьЭлемент(); ЭлементФурнитура.Наименование = ТабДок.Область(Строка, 2).Текст; ЭлементФурнитура.Артикул = ТабДок.Область(Строка, 1).Текст; ЭлементФурнитура.Количество = ТабДок.Область(Строка,3).Текст; ЕдИзмТабл = ТабДок.Область(Строка, 4).Текст; Если Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмТабл, Истина) = Справочники.ЕдиницыИзмерения.ПустаяСсылка() Тогда ЭлементЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); ЭлементЕдИзм.Наименование = ЕдИзмТабл; ЭлементЕдИзм.Записать(); Сообщить ("В справочник Единицы измерения добавлена запись " + ЭлементЕдИзм.Наименование); КонецЕсли; ЭлементФурнитура.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмТабл, Истина); ТипФТабл = ТабДок.Область(Строка, 5).Текст; Если Справочники.ТипыФурнитуры.НайтиПоНаименованию(ТипФТабл, Истина) = Справочники.ТипыФурнитуры.ПустаяСсылка() Тогда ЭлементТипФ = Справочники.ТипыФурнитуры.СоздатьЭлемент(); ЭлементТипФ.Наименование = ТипФТабл; ЭлементТипФ.Записать(); Сообщить ("В справочник Типы фурнитуры добавлена запись " + ЭлементТипФ.Наименование); КонецЕсли; ЭлементФурнитура.ТипФурнитуры = Справочники.ТипыФурнитуры.НайтиПоНаименованию(ТипФТабл, Истина); ЭлементФурнитура.Цена = ТабДок.Область(Строка, 6).Текст; ЭлементФурнитура.Записать(); Сообщить("В справочнике добавлена запись " + ЭлементФурнитура.Наименование); КонецЦикла; КонецПроцедуры Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) Экспорт // Проверка выбора файла Если НЕ(Результат = Неопределено) Тогда //Файл выбран СсылкаНаФайл = Результат; Иначе //Файл не выбран Сообщить ("Файл не выбран!"); Возврат; КонецЕсли; //обращение к данным ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(СсылкаНаФайл); //Чтение данных Для Строка = 2 По ТабДок.ВысотаТаблицы Цикл ЭлементФурнитура = Справочники.Фурнитура.СоздатьЭлемент(); //Наименование артикул количество единица измерения тип фурнитуры цена ЭлементФурнитура.Наименование = ТабДок.Область(Строка, 2).Текст; ЭлементФурнитура.Артикул = ТабДок.Область(Строка, 1).Текст; ЭлементФурнитура.Количество = ТабДок.Область(Строка, 3).Текст; ЭлементФурнитура.ЕдиницаИзмерения = ТабДок.Область(Строка, 4).Текст; ЭлементФурнитура.ТипФурнитуры = ТабДок.Область(Строка, 5).Текст; //ЭлементФурнитура.Цена = ТабДок.Область(Строка, 6).Текст; ЭлементФурнитура.Записать(); Сообщить ("В справочник добавлена запись " + ЭлементФурнитура.Наименование); КонецЦикла КонецПроцедуры &НаСервере Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) Экспорт Если НЕ(Результат = Неопределено) Тогда СсылкаНаФайл = Результат[0]; Иначе Сообщить("Файл не найден!"); Возврат; КонецЕсли; ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(СсылкаНаФайл); Для Строка = 2 По ТабДок.ВысотаТаблицы Цикл ЭлементМатериал = Справочники.Материалы.СоздатьЭлемент(); ЭлементМатериал.Наименование = ТабДок.Область(Строка, 2).Текст; ЭлементМатериал.Артикул = ТабДок.Область(Строка, 1).Текст; ЭлементМатериал.Количество = ТабДок.Область(Строка,5).Текст; ЭлементМатериал.Длина = ТабДок.Область(Строка,4).Текст; ЕдИзмТабл = ТабДок.Область(Строка, 3).Текст; Если Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмТабл, Истина) = Справочники.ЕдиницыИзмерения.ПустаяСсылка() Тогда ЭлементЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); ЭлементЕдИзм.Наименование = ЕдИзмТабл; ЭлементЕдИзм.Записать(); Сообщить ("В справочник Единицы измерения добавлена запись " + ЭлементЕдИзм.Наименование); КонецЕсли; ЭлементМатериал.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмТабл, Истина); ТипМТабл = ТабДок.Область(Строка, 6).Текст; Если Справочники.ТипыМатериалов.НайтиПоНаименованию(ТипМТабл, Истина) = Справочники.ТипыМатериалов.ПустаяСсылка() Тогда ЭлементТипМ = Справочники.ТипыМатериалов.СоздатьЭлемент(); ЭлементТипМ.Наименование = ТипМТабл; ЭлементТипМ.Записать(); Сообщить ("В справочник Типы материалов добавлена запись " + ЭлементТипМ.Наименование); КонецЕсли; ЭлементМатериал.ТипМатериала = Справочники.ТипыМатериалов.НайтиПоНаименованию(ТипМТабл, Истина); ЭлементМатериал.Цена = ТабДок.Область(Строка, 7).Текст; ЭлементМатериал.Записать(); Сообщить("В справочнике добавлена запись " + ЭлементМатериал.Наименование); КонецЦикла; КонецПроцедуры |