Обработка дополнительного реквизита
Дали задание в колледже.
1. В учебной версии 1С создать справочник «ФизЛица», с реквизитами: ИНН, СНИЛС, ДатРождения,ТабНомер
2. Заполнить справочник несколькими данными.
3. В 1С дополнить справочник ФизЛица дополнительным реквизитом «ИдентификаторПропуска» -строка 11 знаков
4. Создать Ecsel файл – шаблон в котором находится информация ФИО физлица, табельный номер, ИдентификаторПропуска.
5. Написать обработку заполнение дополнительного реквизита «ИдентификаторПропуска» справочника «ФизЛица» из файла Ecsel .
Разобралась как подключить файл к Excel. Есть код
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие );
Диалог.Заголовок = "Выберите excel - файл";
Диалог.ПолноеИмяФайла = "";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог = "";
Если Диалог.Выбрать() Тогда
ЭтаФорма.ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузкаНаСервере()
Данные = ПолучитьИзВременногоХранилища (ЭтаФорма.АдресВХ);
ИмяВФ = ПолучитьИмяВременногоФайла ("xlsx");
Данные.Записать (ИмяВФ);
Эксель.Очистить();
табдок = новый ТабличныйДокумент;
табдок.Прочитать (ИмяВФ,СпособЧтенияЗначенийТабличногоДокумента.Зна чение);
высстрок = табдок.ВысотаТаблицы;
Для стр = 2 по высстрок цикл
стрТЗ = Эксель.Добавить();
стрТЗ.ТабельныйНомер = табдок.Область(стр, 2).Текст;
стрТЗ.ИдентификаторПропуска = табдок.Область (стр, 3).Текст;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Загрузка(Команда)
Файл = Новый ДвоичныеДанные (ПутьКФайлу);
ЭтаФорма.АдресВХ = ПоместитьВоВременноеХранилище (Файл, ЭтаФорма.УникальныйИдентификатор);
ЗагрузкаНаСервере();
КонецПроцедуры
Дальше без понятия, что делать, почти никакой информации нет про это. Помогите, пожалуйста
|
