Жизнь замечательных грибов
Разработки на платформе 1С
А именно вот сюда, после добавления нового регистратора у документа: 
Возможно кому-то сэкономит минуту времени. Это глюк платформы 1С, как минимум 8.3.16.1502 и ниже. Достаточно выйти из конфигуратора и зайти снова, и регистр появится.
Не все о них знают, работая в конфигураторе много лет. Сам о них узнал совсем недавно 😉
При передаче данных какого-то документа или справочника из клиента на сервер, иногда возникает ошибка вида:
|
1 2 3 |
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа. по причине: Ошибка преобразования данных XDTO: |
Фактически это означает, что сериализатор 1С не смог преобразовать данные в доступный для передачи вид. Скорее всего в справочнике есть таблица значений. Что делать?
А всё просто — передадим на сервер уникальный идентификатор, а уж на сервер «восстановим» по нему объект:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
&НаСервере Функция ДобавитьТУВетвьНаСервере(ИмяВетви,ВидНачисленияВетви,РодительОТУ); ... данные=Справочники.ВидыНачислений.ПолучитьСсылку(Новый УникальныйИдентификатор(ВидНачисленияВетви)); ... КонецФункции &НаКлиенте Процедура СоздатьТочкиУчетаВеткиНачислений(СтрокиДерева,родительОТУ) ... ТУВетвь=ДобавитьТУВетвьНаСервере(элемента.Наименование,элемента.ВидНачисления.УникальныйИдентификатор(),родительОТУ); ... КонецПроцедуры |
Собственно обрабатывать нужно событие «перетаскивание» на форме:
|
1 2 3 4 5 6 7 8 |
&НаКлиенте Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле) для каждого тз из ПараметрыПеретаскивания.Значение цикл ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена; сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка); ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз); конеццикла; КонецПроцедуры |
,где в
И как добавляем:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
&НаКлиенте Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз); Для каждого элемента Из СтрокиДерева Цикл //Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор()); если строка=элемента.ПолучитьИдентификатор() тогда тс = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор()); НоваяСтрокаДерева = тс.ПолучитьЭлементы().Добавить(); НоваяСтрокаДерева.Наименование=тз.Наименование; НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления; конецесли; ВложенныеСтроки = элемента.ПолучитьЭлементы(); Если ВложенныеСтроки.Количество() > 0 Тогда ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз); КонецЕсли; КонецЦикла; КонецПроцедуры |
Как известно, на «клиенте» в управляемых формах нельзя на прямую обратиться к документам-справочникам и т.п. Но! если нужно просто проверить есть элемент или нет, то можно воспользоваться стандартной функцией «ПредопределенноеЗначение». Например:
|
1 2 3 4 5 6 7 8 9 10 |
Для каждого элемента Из СтрокиДерева Цикл если элемента.Счетчик<>ПредопределенноеЗначение("Справочник.Счетчики.ПустаяСсылка") тогда сообщить("--добавляю ТУ: "+элемента.Счетчик); конецесли; ВложенныеСтроки = элемента.ПолучитьЭлементы(); Если ВложенныеСтроки.Количество() > 0 Тогда СоздатьТочкиУчетаСчетчики(ВложенныеСтроки); КонецЕсли; КонецЦикла; |