Процедура КнопкаВыполнитьНажатие(Кнопка)
Индекс = 0;
Пока Индекс <> Таблица.Количество() Цикл
ПоискРаботника = Справочники.Работники.НайтиПоНаименованию(Таблица.Получить(Индекс).Фио);
Если Таблица.Получить(Индекс).Фио <> ПоискРаботника.Наименование Тогда
Сообщить("нема");
ДатаЕксель = Таблица.Получить(Индекс).Датанародження;
СтрДата = СтрЗаменить(ДатаЕксель, "." , "");
Год = Прав(СтрДата,4);
День = Лев(СтрДата,2);
Месяц = Сред(СтрДата,3,2);
СтрокаДаты = "" + Год + Месяц + День;
ДатаРоботника = Дата(СтрокаДаты);
НовыйЭлемент = Справочники.Работники.СоздатьЭлемент();
НовыйЭлемент.Наименование = Таблица.Получить(Индекс).Фио;
НовыйЭлемент.Адрес = Таблица.Получить(Индекс).Адреса;
НовыйЭлемент.ДатаРождения = ДатаРоботника;
Если Таблица.Получить(Индекс).Офнеоф = "0" Тогда
НовыйЭлемент.Официально = Ложь;
Иначе
НовыйЭлемент.Официально = Истина;
КонецЕсли;
НовыйЭлемент.Должность = Справочники.Должности.НайтиПоНаименованию(Таблица.Получить(Индекс).Должность);
Если НовыйЭлемент.Должность = Справочники.Должности.ПустаяСсылка() Тогда
НовыйЭлементДолжность = Справочники.Должности.СоздатьЭлемент();
НовыйЭлементДолжность.Наименование = Таблица.Получить(Индекс).Должность;
НовыйЭлементДолжность.Записать();
КонецЕсли;
НовыйЭлемент.Должность = Справочники.Должности.НайтиПоНаименованию(Таблица.Получить(Индекс).Должность);
НовыйЭлемент.Записать();
Иначе Продолжить;
КонецЕсли;
Индекс = Индекс + 1;
КонецЦикла;
КонецПроцедуры
ПоказатьПрикрепленные файлы:
По теме из базы знаний
- Универсальная загрузка из Excel для 1С8.2
- Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы
- Загрузка из Excel в управляемом приложении
- Путевой лист легкового автомобиля 1С:Бухгалтерия 3.0
- Модуль "Ответственное хранение" или фулфилмент (FBS / FBO) для 1С:УТ 11.5, КА 2.5, ERP 2.5
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот