Управляемые формы
Система позволяет расширить практически любой программный модуль, относящийся к управляемому приложению. Невозможно расширять глобальные серверные модули. Также следует помнить, что расширение привилегированного общего модуля будет выполняться в непривилегированном режиме (если иное не разрешено профилем безопасности). Кроме того, предоставляется возможность создавать собственные общие модули, которые не могут быть привилегированными и глобальными серверными. Работа с собственным общим модулем в расширении ничем не отличается от работы с общим модулем обычной конфигурации.
Работа с расширенным программным модулем имеет существенные особенности, которые будут рассмотрены в данном разделе.
При разработке расширяющего модуля следует учитывать, что этот модуль будет находиться в одном пространстве имен с расширяемым модулем. В связи с этим, из расширяющего модуля имеется возможность использовать расширяемый контекст (переменные и методы) напрямую. Также следует помнить, что расширяя какой-либо модуль, созданные экспортные методы и переменные автоматически расширяют публичный контекст расширяемого модуля.
Открываем форму нового элемента справочника “ВидыИсходящихДокументов” с параметрами для заполнения ряда реквизитов
Также передаем в седьмом параметре описание оповещения с обработчиком, вызываемым при закрытии формы созданного договора:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
&НаКлиенте Процедура СоздатьДоговорЗаказчика(Команда) тПараметр = Новый Структура; ТекДок = Новый ОписаниеОповещения("ВыполнитьПослеЗаписиДоговора", ЭтотОбъект, тПараметр); СтруктураНачУстановок = Новый Структура; СтруктураНачУстановок.Вставить("Проект", Объект.Ссылка); СтруктураНачУстановок.Вставить("Получатель", Объект.Заказчик); СтруктураНачУстановок.Вставить("ВидДокумента", ПредопределенноеЗначение("Справочник.ВидыИсходящихДокументов.Договор")); ОткрытьФорму("Справочник.ИсходящиеДокументы.ФормаОбъекта", СтруктураНачУстановок, ЭтаФорма,,,,ТекДок); КонецПроцедуры |
Обработчик, вызываемый при закрытии созданного договора:
[wp_ad_camp_3]Как программно сгруппировать по реквизиту динамический список:
|
1 2 3 4 5 6 |
&НаКлиенте Процедура СгруппироватьПоТипу(Команда) ГруппировкаСписка = Список.Группировка.Элементы; ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных")); ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры"); КонецПроцедуры |
Как программно изменить оформление по условию в динамическом списке: Читать далее
Как перебрать элементы структуры?
|
1 2 3 |
Для Каждого Элемент из СтруктураПараметров Цикл Сообщить(Элемент.Ключ + ": " + Элемент.Значение); КонецЦикла; |
Как удалить элемент структуры?
|
1 2 3 |
СтруктураПараметров.Удалить("Номенклатура"); СтруктураПараметров. Очистить(); |
Как в структуре установить значение для элемента с определенным ключом? Читать далее
Как создать структуру?
|
1 2 |
СозданнаяСтруктура = Новый Структура; Оппонент = Новый Структура ("Фамилия, Имя, Отчество, Возраст", "Иванов", "Иван", "Иванович", 7); |
Как добавить элементы в структуру?
|
1 2 3 |
Оппонент = Новый Структура ("Фамилия, Имя, Отчество, Возраст", "Иванов", "Иван", "Иванович", 7); Оппонент.Вставить("Обращение", "Господин"); Оппонент.Вставить("Возраст", 25); |
Как обратиться к элементу структуры? Читать далее
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong> СписокЗначенийНоменклатуры = Новый СписокЗначений; Для Каждого СтрокаТовар Из Объект.Товары Цикл Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию( СтрокаТовар.НоменклатураНабора, Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка()); Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда Продолжить; КонецЕсли; Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда СписокЗначенийНоменклатуры.Добавить(СтрокаТовар.Номенклатура); КонецЕсли; КонецЕсли; КонецЦикла; <strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя); ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке; ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры; Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет); Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина)); </strong> |
Тест: Салават Юлаев, Югра
И еще: Карим Кажимканович Масимов, Казахстан, Киргизия
…Владимир Вольфович Жириновский, ЛДПР, Россия, Турция
теперь все…
Реализация на платформе 1С: Предприятие 8.1
[wp_ad_camp_3]В начале коротко о том, как добавить дополнительную колонку в табличное поле на платформе 1С 8.1. Предположим, что у нас есть некий документ с табличной частью “Товары” (с колонками “Номенклатура” и “Количество”) и нам нужно вывести дополнительную колонку “Цена”, которая бы содержала данные реквизита “Цена” элементов справочника “Номенклатура”, выбранных в строках табличной части. Для этого нам достаточно добавить в форме документа новую колонку “Цена” в табличное поле, содержащее данные табличной части документа и написать следующий код в обработчике события “ПриПолученииДанных” этого табличного поля:
|
1 2 3 4 5 6 7 8 9 10 |
// обработчик события "ПриПолученииДанных" табличного поля "Товары" Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок) Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура; Если ЗначениеЗаполнено(Номенклатура) Тогда ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина; ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2"); КонецЕсли; КонецЦикла; КонецПроцедуры |
Хочу обратить внимание на то, что строки табличного поля обрабатываются порциями, по мере прокрутки списка.
Реализация на платформе 1С: Предприятие 8.2
|
1 2 3 4 5 6 |
ДД = Новый ДвоичныеДанные("C:\Users\Alex\Desktop\ВнешняяОбработка1.epf"); НовЭлемент = Справочники.Обработка.СоздатьЭлемент(); НовЭлемент.Хранилище = Новый ХранилищеЗначения(ДД); НовЭлемент.Записать(); ExternalDataProcessors.Connect(ПолучитьНавигационнуюСсылку(НовЭлемент.Ссылка, "Хранилище"),"StandardActiveUsers", false); |
Элемент формы “Дополнительный реквизит”, имя складывается из Уникального идентификатора элемента справочника “НаборыДополнительныхРеквизитовИСведений”
и уникального идентификатора записи плана видов характеристик “ДополнительныеРеквизитыИСведения”, соответствующей “дополнительному реквизиту”.
