Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 01:00

УПП Управляемый интерфейс

Автор leozx, 16 дек 2011, 16:41

0 Пользователей и 1 гость просматривают эту тему.

leozx

Здравствуйте.
Пишу внешнюю обработку заполнения табличных частей для УПП 1.3.19
Не получается создать её для управляемого интерфейса.
Если описывать как для УТ 11 и добавлять как внешнюю обработку заполнения табличных частей (под обычным интерфейсом)

Функция СведенияОВнешнейОбработке() Экспорт
   
   ПараметрыРегистрации = Новый Структура;
   МассивНазначений = Новый Массив;
   МассивНазначений.Добавить("Документ.РеализацияТоваровУслуг");
   МассивНазначений.Добавить("Документ.ПеремещениеТоваров");
   МассивНазначений.Добавить("Документ.ЗаказПокупателя");
   
   ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта");
   ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
   ПараметрыРегистрации.Вставить("Наименование", "Заполнить документ");
   ПараметрыРегистрации.Вставить("Версия", "1.0");
   ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
   ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части через комплектыцию тары");
   
   ТаблицаКоманд = ПолучитьТаблицуКоманд();
   
   ДобавитьКоманду(ТаблицаКоманд,
   "Заполнить документ",
   "Заполнить документ",
   "ВызовКлиентскогоМетода",
   Истина);
   
   ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
   
   Возврат ПараметрыРегистрации;
КонецФункции

Функция ПолучитьТаблицуКоманд()
   Команды = Новый ТаблицаЗначений;
   Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
   Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
   Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
   Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
   Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
   Возврат Команды;
КонецФункции

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
   НоваяКоманда = ТаблицаКоманд.Добавить();
   НоваяКоманда.Представление = Представление;
   НоваяКоманда.Идентификатор = Идентификатор;
   НоваяКоманда.Использование = Использование;
   НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
   НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры


выдает ошибку. или вообще перестает на нее реагировать после перезапуска предприятия.
Может кто знает что можно сделать.

chuevsf

Читайте про управляемые приложения! Там совсем по-другому.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск