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

---

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

---

ЭлементМатериал.Цена = ТабДок.Область(Строка, 7).Текст;ЭлементМатериал.Записать();Сообщить("В справочнике добавлена запись " + ЭлементМатериал.Наименование);КонецЦикла;КонецПроцедуры

---

Смотрите также файлы

• Конкурс "халы шаиры" Лучшая методическая разработка " шиЫРарым, Е бит йРК аным, Е иманым мине, К Йшем".docx

• Введение Расчет тепловых нагрузок потребителей.doc

• Расчет тепловых нагрузок потребителей.docx

• Законы Иные источники з за Конституция рф.doc

• за мерзімді жоспар блімі 11. 1 Блтты технологиялар.docx