1С7.7:Загрузка данных из файла Excel в табличную часть документа.

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

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

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

&НаСервере
Процедура ОбновитьКартинку()
    Картинка = ПоместитьВоВременноеХранилище(Объект.Ссылка.Изображение.Получить(), УникальныйИдентификатор);
КонецПроцедуры


&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ОбновитьКартинку();
КонецПроцедуры 


Добавление пользователей:
&НаСервере
функция запись()
    НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
    НовыйПользователь.Имя = Объект.логин;
    НовыйПользователь.ПолноеИмя = Объект.Наименование;
    НовыйПользователь.АутентификацияСтандартная = Истина;
    НовыйПользователь.Пароль = "";
    если объект.роль=Перечисления.роли.администратор тогда
        НовыйПользователь.Роли.Добавить(Метаданные.Роли.Администратор);
    иначеесли объект.роль=Перечисления.роли.менеджер_по_закупкам тогда
        НовыйПользователь.Роли.Добавить(Метаданные.Роли.менеджер_по_закупкам);
        
    иначеесли объект.роль=Перечисления.роли.менеджер_по_продажам тогда
        НовыйПользователь.Роли.Добавить(Метаданные.Роли.менеджер_по_продажам);
        
    иначе
        НовыйПользователь.Роли.Добавить(Метаданные.Роли.мастер);
    конецесли;
    НовыйПользователь.Язык = Метаданные.Языки.Русский;
    НовыйПользователь.Записать(); 
конецфункции

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

&НаКлиенте
Процедура Загрузить(Команда)
    Если Не ЗначениеЗаполнено(ПутьКФайлу) Тогда
        Сообщить("Файл не выбран");
    Иначе
        ЗагрузитьНаСервере();
        //Отобразим загруженные данные
        Элементы.Список.Обновить();
    КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьНаСервере()
    //подключаемся к эксел
    Попытка
        Excel = Новый COMОбъект("Excel.Application");
        Excel.WorkBooks.Open(ПутьКФайлу);
    Исключение
        Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    Попытка
        //Открываем необходимый лист
        Excel.Sheets(1).Select(); // лист 1, по умолчанию
    Исключение
        //Закрываем Excel
        Excel.ActiveWorkbook.Close();
        Excel = 0;
        Сообщить("Файл "+Строка(ПутьКФайлу)+" не соответствует необходимому формату! Первый лист не найден!");
        Возврат;
    КонецПопытки;
    НомерСтроки = 2;
    Создано = 0;
    Пока СокрЛП(Excel.Cells(НомерСтроки,1).Text)<> "" Цикл 
        Код = Excel.Cells(НомерСтроки,9).Text;
        Спр = Справочники.материалы.НайтиПоКоду(Код);
        //Проверка на существование элемента с таким кодом                
        Если Не ЗначениеЗаполнено(Спр) Тогда
            НовыйСпр = Справочники.материалы.СоздатьЭлемент();
            //Код
            НовыйСпр.Код = Код;
            новыйспр.артикул=Excel.Cells(НомерСтроки,1).Text;
            //Наименование
            НовыйСпр.Наименование = Excel.Cells(НомерСтроки,2).Text;
            Если пустаястрока(справочники.единицы_измерения.найтипонаименованию(Excel.Cells(номерстроки,3).Text)) Тогда
                новая_единица=справочники.единицы_измерения.СоздатьЭлемент();
                новая_единица.Наименование=Excel.Cells(НомерСтроки,3).Text;
                новая_единица.Записать();
            КонецЕсли; 
            Попытка
                НовыйСпр.Записать();
                Создано = Создано+1;;
            Исключение
                Сообщить("Ошибка при записи элемента с кодом "+код);
            КонецПопытки;
        Иначе
            Сообщить("Элемент с кодом "+Код+" уже существует");
        КонецЕсли;
        НомерСтроки = НомерСтроки+1;
    КонецЦикла;
    Сообщить("Создано "+Создано+" эл.");
    //Закрываем Excel
    Excel.ActiveWorkBook.Close();
КонецПроцедуры

&НаКлиенте
Процедура ФотоНажатие(Элемент, СтандартнаяОбработка)
	Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
	НачатьПомещениеФайла(Оповещение,  ,  ,Истина, УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла,ДополнительныеПараметры) Экспорт 
    Если Не Результат Тогда 
        Возврат; 
    КонецЕсли; 
    Фото = Адрес; 
КонецПроцедуры        

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	Если ЭтоАдресВременногоХранилища(Фото) Тогда
		ТекущийОбъект.Фото = Новый
		ХранилищеЗначения (ПолучитьИзВременногоХранилища(Фото));
	КонецЕсли;
КонецПроцедуры   

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)  
	Фото = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Фото");
КонецПроцедуры

&НаКлиенте
Процедура ИзображениеНажатие(Элемент, СтандартнаяОбработка)
	  СтандартнаяОбработка = Ложь; 
	Режим = РежимДиалогаВыбораФайла.Открытие; 
	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
	ДиалогОткрытия.ПолноеИмяФайла = ""; 
	Фильтр = "Рисунок PNG(*.png)|*.png|Рисунок JPG(*.jpg)|*.jpg"; 
	ДиалогОткрытия.Фильтр = Фильтр; 
	ДиалогОткрытия.МножественныйВыбор = Ложь; 
	ДиалогОткрытия.Заголовок = "Выберете файл для загрузки"; 
	ОписаниеОповещения = Новый ОписаниеОповещения("ПослеЗагрузкиФайла",ЭтаФорма); 
	ДиалогОткрытия.Показать(ОписаниеОповещения);
КонецПроцедуры 

&НаКлиенте 
Процедура ПослеЗагрузкиФайла(ВыбранныйФайл,ДопПараметр) Экспорт 
	Если ВыбранныйФайл = Неопределено Тогда 
		Возврат; 
	КонецЕсли; 
	ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтаФорма); 
	НачатьПомещениеФайла(ОписаниеОповещения,, ВыбранныйФайл[0], Ложь, УникальныйИдентификатор); 
КонецПроцедуры

&НаКлиенте 
Процедура ПослеПомещенияФайла(Результат, Адрес, ВыбранноеИмяФайла,ДопПараметры) Экспорт 
	Если Не Результат Тогда 
		Возврат; 
	КонецЕсли; 
	Изображение = Адрес; 
	Модифицированность = Истина; 
КонецПроцедуры

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	Изображение = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Изображение");
КонецПроцедуры