Создание записи в справочнике 1С:Предприятие 8.3
Ребята, всем привет! Столкнулся с проблемой непонимания, как работает это всё и нуждаюсь в вашей помощи.
Есть справочник "Аккаунты", в данном справочнике есть реквизит "Наименование" и "Игровая платформа", а так же табличная часть "Данные аккаунта", в которой есть поля "Email", "Пароль".
Так вот, в чем соль... Создал документ "Поступление аккаунтов" для регистрации поступления. Хочу реализовать подтяжку аккаунтов и их запись с документа в справочник. Столкнулся с такой проблемой, прикладываю сам программный модуль обработки на сервере и ошибку.
Есть справочник "Аккаунты", в данном справочнике есть реквизит "Наименование" и "Игровая платформа", а так же табличная часть "Данные аккаунта", в которой есть поля "Email", "Пароль".
Так вот, в чем соль... Создал документ "Поступление аккаунтов" для регистрации поступления. Хочу реализовать подтяжку аккаунтов и их запись с документа в справочник. Столкнулся с такой проблемой, прикладываю сам программный модуль обработки на сервере и ошибку.
&НаСервере
Процедура ЗаписатьДанныеНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Аккаунты.Наименование КАК Логин,
| Аккаунты.Платформа КАК Платформа,
| Аккаунты.ДанныеАккаунта.(
| Email КАК Email,
| Пароль КАК Пароль
| ) КАК ДанныеАккаунта
|ИЗ
| Справочник.Аккаунты КАК Аккаунты";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Для Каждого ТекСтрокаДанныеАккаунта Из ДанныеАккаунта Цикл
НовыйАккаунт = Справочники.Аккаунты.СоздатьЭлемент();
НовыйАккаунт.Наименование = ТекСтрокаДанныеАккаунта.Логин;
НовыйАккаунт.ДанныеАккаунта.Добавить();
НовыйАккаунт.ДанныеАккаунта.Email = ТекСтрокаДанныеАккаунта.Email;
НовыйАккаунт.ДанныеАккаунта.Пароль = ТекСтрокаДанныеАккаунта.Пароль;
НовыйАккаунт.Платформа = ТекСтрокаДанныеАккаунта.Платформа;
Сообщить("Аккаунт " + ТекСтрокаДанныеАккаунта.Логин + " добавлен в справочник!");
НовыйАккаунт.Записать();
КонецЦикла;
КонецЦикла;
КонецПроцедуры
ПоказатьПоле объекта не обнаружено (Email)
{Документ.ПоступлениеАккаунтов.МодульОбъекта(35)}: НовыйАккаунт.ДанныеАккаунта.Email = ТекСтрокаДанныеАккаунта.Email;
{Документ.ПоступлениеАккаунтов.МодульОбъекта(11)}: ЗаписатьДанныеНаСервере();
{Документ.ПоступлениеАккаунтов.МодульОбъекта(35)}: НовыйАккаунт.ДанныеАккаунта.Email = ТекСтрокаДанныеАккаунта.Email;
{Документ.ПоступлениеАккаунтов.МодульОбъекта(11)}: ЗаписатьДанныеНаСервере();
По теме из базы знаний
- Изучаем 1С Предприятие 8.3 на примере построения простой конфигурации (или как "айтишник" 1С осваивал). Часть 1.
- Изучаем 1С Предприятие 8.3 на примере построения простой конфигурации (или как "айтишник" 1С осваивал). Часть 2.
- Создание и использование периферийной базы в 1С: Предприятие 8.3 8
- Разработка настольного приложения для автоматизации учета на 1С: Предприятие 8.3 (Версия: 01.12)
- Разработка автоматизированного тестирования на основании настольного приложения при помощи платформы 1С: Предприятие 8.3 (версия 01.12)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот