0
Rounder
19.09.12
✎
09:26
|
8.2.15.294
УПП 1.3.24.2
Режим управляемого приложения
&НаСервереБезКонтекста
Процедура ЗаписатьНаборНаСервере(Владелец, Ссылка, Результат = Неопределено)
НаборЗаписей = РегистрыСведений.СоответствиеПодразделенийИПодразделенийОрганизаций.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Организация.Установить(Владелец);
НаборЗаписей.Отбор.ПодразделениеОрганизации.Установить(Ссылка);
Если Результат = Неопределено Тогда
НаборЗаписей.Записать();
Возврат;
КонецЕсли;
НаборЗаписей.Отбор.Подразделение.Установить(Результат);
Строка = НаборЗаписей.Добавить();
Строка.Подразделение = Результат;
Строка.Организация = Владелец;
Строка.ПодразделениеОрганизации = Ссылка;
НаборЗаписей.Записать();
КонецПроцедуры
&НаКлиенте
Процедура КомандаВключитьВСтруктурноеПодразделение(Команда)
Если Элементы.СписокПО.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
Форма = ПолучитьФорму("Справочник.Подразделения.Форма.ФормаВыбораУправляемая");
Результат = Форма.ОткрытьМодально();
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
ЗаписатьНаборНаСервере(Элементы.СписокПО.ТекущиеДанные.Владелец, Элементы.СписокПО.ТекущаяСтрока, Результат);
СписокПОПриАктивизацииСтроки(Элементы.СписокПО);
КонецПроцедуры
&НаКлиенте
Процедура СписокПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
ОбработатьПеретаскиваниеНаСервере(ПараметрыПеретаскивания.Значение, Строка);
СписокПОПриАктивизацииСтроки(Элементы.СписокПО);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ОбработатьПеретаскиваниеНаСервере(ПодразделениеОрганизации, Подразделение)
ЗаписатьНаборНаСервере(ПодразделениеОрганизации.Владелец, ПодразделениеОрганизации, Подразделение);
КонецПроцедуры
Когда процедура ЗаписатьНаборНаСервере вызывается из процедуры КомандаВключитьВСтруктурноеПодразделение - все отрабатывает без всплесков и набор записывается в регистр. Когда же она вызывается из процедуры ОбработатьПеретаскиваниеНаСервере - то набор тоже записывается, но при этом я получаю сообщение, что "Не удалось записать 'НаименованиеПодразделения (Подразделения организации)'".
Никак не могу понять почему.
Судя по всему затыкается вот здесь:
Процедура ПередЗаписьюРегистраСведенийОбменУПППередЗаписью(Источник, Отказ, Замещение) Экспорт
Если Отказ ИЛИ НЕ ПараметрыСеанса.НаличиеОбменаУПП Тогда
Возврат;
КонецЕсли;
.....
Т.е. не затыкается - а идет в Возврат. Причем проследил - оба варианта проходят один и тот же "путь". Оба записывают в регистр СоответствиеПодразделенийИПодразделенийОрганизаций то, что нужно. Но второй вариант при этом еще вызывает предупреждение.
|
|