|
|
|
Обработка дополнительного реквизита | ☑ | ||
|---|---|---|---|---|
|
0
Natali17
29.10.23
✎
19:12
|
Дали задание в колледже.
1. В учебной версии 1С создать справочник «ФизЛица», с реквизитами: ИНН, СНИЛС, ДатРождения,ТабНомер 2. Заполнить справочник несколькими данными. 3. В 1С дополнить справочник ФизЛица дополнительным реквизитом «ИдентификаторПропуска» -строка 11 знаков 4. Создать Excel файл – шаблон в котором находится информация ФИО физлица, табельный номер, ИдентификаторПропуска. 5. Написать обработку заполнение дополнительного реквизита «ИдентификаторПропуска» справочника «ФизЛица» из файла Excel. Разобралась как подключить файл к Excel. Есть код &НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите excel - файл";
Диалог.ПолноеИмяФайла = "";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог = "";
Если Диалог.Выбрать() Тогда
ЭтаФорма.ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузкаНаСервере()
Данные = ПолучитьИзВременногоХранилища (ЭтаФорма.АдресВХ);
ИмяВФ = ПолучитьИмяВременногоФайла ("xlsx");
Данные.Записать (ИмяВФ);
Эксель.Очистить();
табдок = новый ТабличныйДокумент;
табдок.Прочитать (ИмяВФ,СпособЧтенияЗначенийТабличногоДокумента.Значение);
высстрок = табдок.ВысотаТаблицы;
Для стр = 2 по высстрок цикл
стрТЗ = Эксель.Добавить();
стрТЗ.ТабельныйНомер = табдок.Область(стр, 2).Текст;
стрТЗ.ИдентификаторПропуска = табдок.Область (стр, 3).Текст;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Загрузка(Команда)
Файл = Новый ДвоичныеДанные (ПутьКФайлу);
ЭтаФорма.АдресВХ = ПоместитьВоВременноеХранилище (Файл, ЭтаФорма.УникальныйИдентификатор);
ЗагрузкаНаСервере();
КонецПроцедуры
Дальше без понятия, что делать, почти никакой информации нет про это. Помогите, пожалуйста |
|||
|
1
Волшебник
29.10.23
✎
18:27
|
Хорошо оформили ветку, но лесенку программного кода не соблюдаете
|
|||
|
2
Волшебник
29.10.23
✎
18:28
|
Старайтесь
|
|||
|
3
Natali17
29.10.23
✎
18:37
|
(1) вы можете, пожалуйста, хотя бы дать наводку, вообще не понимаю как мне быть
|
|||
|
4
Волшебник
29.10.23
✎
19:12
|
(3) Я помог. Добавил оформление и исправил "Ecsel" на "Excel"
|
|||
|
5
Natali17
29.10.23
✎
23:37
|
(4) ну это уже вы помогли не мне, а тому кто составлял задание) тоже заметила эту ошибку
|
|||
|
7
RomaH
30.10.23
✎
06:14
|
записать все из ексель в таблицу значений (ТЗ)
ТЗ засунуть в запрос внутренним соединением по табельному и СНИЛС найти физ лиц и этим физ лицам прописать идентификатор |
|||
|
8
RomaH
30.10.23
✎
06:17
|
высстрок = табдок.ВысотаТаблицы;
Для стр = 2 по высстрок цикл буквы экономите? ВысотаВСтроках ? почему не ВысотаТаблицы? и зачем отдельная переменная? Вполне сойдет Для стр По табдок.ВысотаТаблицы Цикл И почему названия переменных не с большой буквы? |
|||
|
9
RomaH
30.10.23
✎
06:24
|
ну и надо быть в тренде
ДиалогВыбораФайла.ВыбратьАсинх() |
|||
|
10
Смотрящий
30.10.23
✎
08:08
|
(0) Третий пункт - как у вас реализован в структуре данных допреквизит ИдентификаторПропуска ?
|
|||
|
11
FirstLine Support
30.10.23
✎
08:18
|
(0) работать с доп. реквизитами нужно через БСП, это сразу +2 к оценке в колледже
|
|||
|
12
Saari
30.10.23
✎
10:44
|
(0) задание еще актуально?
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |