Добро пожаловать на Ass1s. Пожалуйста, авторизуйтесь или зарегистрируйтесь.

Сен. 08, 2024, 02:54

Вход в систему с именем пользователя, паролем и длиной сессии
Пользователи
  • Всего пользователей: 46
  • Последний: Michaeltag
Статистика
  • Всего сообщений: 81
  • Всего тем: 19
  • Онлайн сегодня: 1
  • Максимальный онлайн: 34
  • (Окт. 01, 2023, 18:24 )
Сейчас на форуме
Пользователи: 0
Гостей: 3
Всего: 3
3 гостей, 0 пользователей

Разделы

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

Автор Natali17, Окт. 29, 2023, 12:13

« назад - далее »

Natali17

Дали задание в колледже.
1.       В учебной версии 1С создать справочник «ФизЛица», с реквизитами: ИНН, СНИЛС, ДатРождения,ТабНомер
2.       Заполнить справочник несколькими данными.
3.       В 1С дополнить справочник ФизЛица дополнительным реквизитом «ИдентификаторПропуска» -строка 11 знаков
4.       Создать Ecsel файл – шаблон в котором находится информация ФИО физлица, табельный номер, ИдентификаторПропуска.
5.       Написать обработку заполнение дополнительного реквизита «ИдентификаторПропуска» справочника «ФизЛица» из файла Ecsel .

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

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

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

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

Извилина

Цитата: Natali17 от Окт. 29, 2023, 12:13  табдок.Прочитать (ИмяВФ,СпособЧтенияЗначенийТабличногоДокумента.Значение);
Здесь ты заполняешь в 1С табличный документ. Поэтому дальше необходимо обойти этот табличный документ:
Цитата: Natali17 от Окт. 29, 2023, 12:13  Для стр = 2 по высстрок цикл
      стрТЗ = Эксель.Добавить();
      стрТЗ.ТабельныйНомер = табдок.Область(стр, 2).Текст;
      стрТЗ.ИдентификаторПропуска = табдок.Область (стр, 3).Текст;
По итогу существует ТаблицаЗначений с данными из Excel, но сюда необходимо добавить ФИО, для более полноценного поиска.
Создай на форме кнопку, которая будет обходить ТЗ сотрудников из Excel и искать сотрудника - переопределять ИдентификаторПропуска/создавать сотрудника.
По этой команде обойти таблицу значений в цикле, где делается поиск по табельному номеру, после по ФИО, если по итогу не найден в справочнике Сотрудники, тогда создать запись в Сотрудниках, передав ФИО, ТабНомер, ИдентификаторПропуска. Если же сотрудник найден, переопределить ИдентПроп.



Чат Полянка

Cheese_0:
2023-10-12, 12:25:42
Datamax особенно
Где Дэн?:
2023-10-12, 09:20:15
этикетки и принтеры это то еще удовольствие  ;D
Cheese_0:
2023-10-11, 12:07:24
Уууу я вернулся, 2 дня принтер для этикеток пытался настроить хахаха
Где Дэн?:
2023-10-09, 20:58:50
Потихоньку наполняю форум полезными темами и решениями, с которыми сам сталкиваюсь на практике.
Где Дэн?:
2023-10-08, 19:36:57
видос закинул веселый) на ютубчике - немного творчества в выходные
Где Дэн?:
2023-10-04, 23:22:59
Для незарегистрированных пользователей так же будет потихонечку пополняться пул обработок, доступных для скачивания и без регистрации....
Где Дэн?:
2023-10-04, 22:37:42
да, есть такое. Пускай здесь пока побудет - вроде не мешается и если что то можно блок с ним свернуть...что бы глаза не мазолил
Cheese_0:
2023-10-04, 22:35:59
Сразу чат стал удобнее
Где Дэн?:
2023-10-04, 22:33:31
файлы немного накидываю для зарегистрированных пользователей. Думаю скоро весь пул файлов полезных что есть здесь будет
Где Дэн?:
2023-10-04, 22:32:44
че за звезды? В принципе если так поговорить кому надо или спросить по быстрому оперативно - при наличии народа на сайте, то чат думаю удобно
Где Дэн?:
2023-10-04, 22:29:34
Да, перетащил его в другой блок) ;D
Cheese_0:
2023-10-04, 22:27:17
Где 5 звезд поставить?
Cheese_0:
2023-10-04, 22:27:06
ооооо чатик стал больше
Где Дэн?:
2023-10-04, 07:40:10
Что бы научиться программировать нужно всего лишь раз в день по утрам... ;D ;D
1cgod:
2023-10-03, 22:56:39
как же приятен форум без всяких реклам)