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