Задача в форме справочника «Кластеры» в процедуре «ПриЗаписи» организовать запись реквизитов справочника в регистр сведений
добрый день! помогите пожалуйста у меня тут задачка от наставника, не могу найти подобное решение не в инте не в книгах.
я отправлю всю задачку чтобы понятнее было:
История изменения реквизитов в справочнике «Кластеры»:
Проверить наличие справочника ВерсииПлатформы, если нет – создать
Следующие реквизиты:
СтрокаCOMОбъекта строка(50)
ВерсияПлатформы ПеречислениеСсылка.ВерсияПлатформы
В справочнике «Кластеры» проверить наличие реквизитов
Кластер строка(20)
Порт число(4)
ВерсияПлатформы Справочник ВерсииПлатформы
Логин строка(30)
Пароль Строка 30
ВнестиДанные Булево
Необходимо создать периодический регистр сведений «ИзмененияОбъектов» с измерениями
ТипОбъекта строка(30)
Наименование строка(30)
Пользователь Справочник.Пользователи
Строка1 Строка(30)
Строка2 Строка(30)
Спр1 Справочники
Число1 Число(4)
Задача
Задача в форме справочника «Кластеры» в процедуре «ПриЗаписи» организовать запись реквизитов справочника в созданный регистр.
Дата = текущаяДата()
Наименование = Кластеры.Наименование
Пользователь = ТекущийПользователь();
Строка1 = Кластер
Число1 = Порт
Спр1 = ВерсияПлатформы.
В регистре сведений «ИзмененияОбъектов» сделать форму списка
я отправлю всю задачку чтобы понятнее было:
История изменения реквизитов в справочнике «Кластеры»:
Проверить наличие справочника ВерсииПлатформы, если нет – создать
Следующие реквизиты:
СтрокаCOMОбъекта строка(50)
ВерсияПлатформы ПеречислениеСсылка.ВерсияПлатформы
В справочнике «Кластеры» проверить наличие реквизитов
Кластер строка(20)
Порт число(4)
ВерсияПлатформы Справочник ВерсииПлатформы
Логин строка(30)
Пароль Строка 30
ВнестиДанные Булево
Необходимо создать периодический регистр сведений «ИзмененияОбъектов» с измерениями
ТипОбъекта строка(30)
Наименование строка(30)
Пользователь Справочник.Пользователи
Строка1 Строка(30)
Строка2 Строка(30)
Спр1 Справочники
Число1 Число(4)
Задача
Задача в форме справочника «Кластеры» в процедуре «ПриЗаписи» организовать запись реквизитов справочника в созданный регистр.
Дата = текущаяДата()
Наименование = Кластеры.Наименование
Пользователь = ТекущийПользователь();
Строка1 = Кластер
Число1 = Порт
Спр1 = ВерсияПлатформы.
В регистре сведений «ИзмененияОбъектов» сделать форму списка
Найденные решения
Ну, попробую помочь, раз Вам никто так и не ответил. В процедуре "ПриЗаписи" пишем код:
//Создаём набор записей регистра ...
НаборЗаписей = РегистрыСведений.ИзмененияОбъектов.СоздатьНаборЗаписей();
//Устанавливаем отбор ...
//Считываем предыдущие значения, если есть ...
НаборЗаписей.Прочитать();
//Добавляем нашу запись ...
ЗаписьРегистра = НаборЗаписей.Добавить();
//Заполняем параметры записи ...
ЗаписьРегистра.Дата = ТекущаяДата();
ЗаписьРегистра.Наименование = Кластеры.Наименование;
ЗаписьРегистра.Пользователь = ТекущийПользователь();
ЗаписьРегистра.Строка1 = Кластер;
ЗаписьРегистра.Число1 = Порт;
ЗаписьРегистра.Спр1 = ВерсияПлатформы;
//Записываем ...
Попытка
НаборЗаписей.Записать();
Исключение
//Обработчик исключения ...
Собщить(ОписаниеОшибки());
КонецПопытки(); ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Задача в форме справочника «Кластеры» в процедуре «ПриЗаписи» организовать запись реквизитов справочника в созданный регистр.
Дата = текущаяДата()
Наименование = Кластеры.Наименование
Пользователь = ТекущийПользователь();
Строка1 = Кластер
Число1 = Порт
Спр1 = ВерсияПлатформы.
В регистре сведений «ИзмененияОбъектов» сделать форму списка
Не могу точнее не знаю как выполнить эту задачку
Дата = текущаяДата()
Наименование = Кластеры.Наименование
Пользователь = ТекущийПользователь();
Строка1 = Кластер
Число1 = Порт
Спр1 = ВерсияПлатформы.
В регистре сведений «ИзмененияОбъектов» сделать форму списка
Не могу точнее не знаю как выполнить эту задачку
Ну, попробую помочь, раз Вам никто так и не ответил. В процедуре "ПриЗаписи" пишем код:
//Создаём набор записей регистра ...
НаборЗаписей = РегистрыСведений.ИзмененияОбъектов.СоздатьНаборЗаписей();
//Устанавливаем отбор ...
//Считываем предыдущие значения, если есть ...
НаборЗаписей.Прочитать();
//Добавляем нашу запись ...
ЗаписьРегистра = НаборЗаписей.Добавить();
//Заполняем параметры записи ...
ЗаписьРегистра.Дата = ТекущаяДата();
ЗаписьРегистра.Наименование = Кластеры.Наименование;
ЗаписьРегистра.Пользователь = ТекущийПользователь();
ЗаписьРегистра.Строка1 = Кластер;
ЗаписьРегистра.Число1 = Порт;
ЗаписьРегистра.Спр1 = ВерсияПлатформы;
//Записываем ...
Попытка
НаборЗаписей.Записать();
Исключение
//Обработчик исключения ...
Собщить(ОписаниеОшибки());
КонецПопытки(); Показать
(9)одну ошибку выдает, скобки убираю много выдает ошибок
{Справочник.Кластеры.Форма.ФормаЭлемента.Форма(19,14)}: Неопознанный оператор
КонецПопытки<<?>>(); (Проверка: Сервер)
{Справочник.Кластеры.Форма.ФормаЭлемента.Форма(19,14)}: Неопознанный оператор
КонецПопытки<<?>>(); (Проверка: Тонкий клиент)
{Справочник.Кластеры.Форма.ФормаЭлемента.Форма(19,14)}: Неопознанный оператор
КонецПопытки<<?>>(); (Проверка: Сервер)
{Справочник.Кластеры.Форма.ФормаЭлемента.Форма(19,14)}: Неопознанный оператор
КонецПопытки<<?>>(); (Проверка: Тонкий клиент)
А вообще когда я делал свою систему версионирования, я в регистре использовал не кучу реквизитов (он от этого тяжелеет сильно), а реквизит типа "строка", в который помещал сериализованные строки (документы со всеми реквизитами и таб.частями, исходные строки из загружаемых файлов и прочее). Получался супербыстрый и удобный механизм :-)
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот