Обработка дополнительного реквизита

Natali67567

New member
Дали задание в колледже.
1. В учебной версии 1С создать справочник «ФизЛица», с реквизитами: ИНН, СНИЛС, ДатРождения,ТабНомер

2. Заполнить справочник несколькими данными.

3. В 1С дополнить справочник ФизЛица дополнительным реквизитом «ИдентификаторПропуска» -строка 11 знаков

4. Создать Ecsel файл – шаблон в котором находится информация ФИО физлица, табельный номер, ИдентификаторПропуска.

5. Написать обработку заполнение дополнительного реквизита «ИдентификаторПропуска» справочника «ФизЛица» из файла Ecsel .

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

Если Диалог.Выбрать() Тогда
ЭтаФорма.ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры

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

Эксель.Очистить();
табдок = новый ТабличныйДокумент;
табдок.Прочитать (ИмяВФ,СпособЧтенияЗначенийТабличногоДокумента.Значение);
высстрок = табдок.ВысотаТаблицы;

Для стр = 2 по высстрок цикл
стрТЗ = Эксель.Добавить();
стрТЗ.ТабельныйНомер = табдок.Область(стр, 2).Текст;
стрТЗ.ИдентификаторПропуска = табдок.Область (стр, 3).Текст;

КонецЦикла;

КонецПроцедуры

&НаКлиенте
Процедура Загрузка(Команда)
Файл = Новый ДвоичныеДанные (ПутьКФайлу);
ЭтаФорма.АдресВХ = ПоместитьВоВременноеХранилище (Файл, ЭтаФорма.УникальныйИдентификатор);
ЗагрузкаНаСервере();
КонецПроцедуры

Дальше без понятия, что делать, почти никакой информации нет про это. Помогите, пожалуйста
 
Назад
Сверху