сработала » Поиск

Результаты по ключевому слову: сработала

Как сделать Расшифровку в табличном документе

Вопрос: Подскажите пожалуйста, каким образом можно сделать следующее.

У меня есть выводимый в табличный документ результат запроса, к ячейке есть расшифровка.

Я хочу чтобы при двойном клике на ячейку выполнялась процедура которая к примеру запускает отчет по расшифровке ячейки.

Ответ: Расшифровки бывают стандартные и нестандартные.

I) Стандартные:

может использоваться как непосредственно в табличном документе, так и в объекте ПолеТабличногоДокумента (т.е.табличный документ, размещенный не в отдельном окне, а непосредственно на форме).

Чтобы Расшифровка сработала, должны выполняться 3 условия:

1) Для ячейки табличного документа, из которой мы хотим вызвать Расшифровку, должно быть установлено свойство ПараметрРасшифровки. Например, мы хотим, чтобы по двойному щелчку на ячейке с названием контрагента открывалась форма элемента справочника Контрагента, чтобы можно было уточнить какие-то данные, которые в отчет не выводятся. Задаем свойству ПараметрРасшифровки какое-нибудь значение, например, РасшифровкаКонтрагента.

2)В процессе вывода областей макета в результирующий табличный документ нужно ОБЯЗАТЕЛЬНО ПРИСВОИТЬ параметру расшифровки значение нужного типа, например:

Код 1C v 8.х

 ТабДок = Новый ТабличныйДокумент;

Выборка = Справочники.Контрагенты.Выбрать();

Пока Выборка.Следующий() Цикл

Область = Макет.ПолучитьОбласть("Строка");

Область.Параметры.Контрагент = Выборка.Наименование;

// .................................................

Область.Параметры.РасшифровкаКонтрагента = Выборка.Ссылка;

ТабДок.Вывести(Область);

КонецЦикла;

3)Должен быть обеспечен запрет редактирования ячейки с расшифровкой, т.е. нужно указать

ТабДок.ТолькоПросмотр = Истина;

иначе, несмотря на многообещающий вид курсура при наведении на ячейку можно щелкать по ней сколько угодно, но ничего происходить не будет.

II) Нестандартные:

по двойному щелчку на ячейке с расшифровкой можно вызвать свою процедуру. Для реализации этого следует выполнить несколько условий:

1)Вывод табличного документа должен осуществляться в объект ПолеТабличногоДокумента;

2)Должно быть присвоено значение свойству ячейки ПараметрРасшифровки, например, РасшифровкаКонтрагента.

3)Параметру расшифровки РасшифровкаКонтрагента присваивается заполненный при формировании табличного документа нужными значениями СписокЗначений или чаще Структура. В частности, может передаваться имя стандартного отчета конфигурации и параметров, которые нужно задать в форме отчета, например, период дат, номер счета и т.д. А потом этот отчет вызывается как процедура.

4)Для объекта ПолеТабличногоДокумента свойство ТолькоПросмотр нужно установить в значение Истина.

5)Код пользовательской процедуры помещается в процедуру

Код 1C v 8.х

 ПолеТабличногоДокумента1ОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)

// первой строкой в ней должна быть такая:

СтандартнаяОбработка = Ложь;

Приведу небольшой пример, открывающий для "щелкнутого" контрагента подчиненный справочник.

Код 1C v 8.х

 Процедура КнопкаСформироватьНажатие(Кнопка)

Контрагенты = Справочники.Контрагенты;

Выборка = Контрагенты.Выбрать();

Таб = ЭлементыФормы.ПолеТабличногоДокумента1;

Макет = ПолучитьМакет("Макет"); 

Пока Выборка.Следующий() Цикл

Если Выборка.ЭтоГруппа = Ложь Тогда

Область = Макет.ПолучитьОбласть("Строка");

Область.Параметры.Контрагент = Выборка.Наименование;

.................................................................................................

СтруктураРасшифровки = Новый Структура;

СтруктураРасшифровки.Вставить("Контрагент",Выборка.Ссылка);

СтруктураРасшифровки.Вставить(".......",.........);

.........................................................................

Область.Параметры.РасшифровкаКонтрагента = СтруктураРасшифровки;

ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(Область);

Иначе

Продолжить;

КонецЕсли;

КонецЦикла;

ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр = Истина;

КонецПроцедуры



Процедура ПолеТабличногоДокумента1ОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

Договоры = Справочники.Договоры.ПолучитьФормуСписка();

Договоры.ПараметрОтборПоВладельцу = Расшифровка.Контрагент;

Договоры.Открыть();

КонецПроцедуры

Категория: Табличный документ

Резервирование центрального кластера 1С и "Безопасное" обновление платформы 1С Категория: Администрирование

Недокументированные возможности функции Шаблон

Код 1C v 7.x

 // Присвоить значение переменной по ее имени.

// в глоб.модуль:

Функция Присвоить(Чему,Что) Экспорт

Чему = Что;

Возврат "";

КонецФункции

// варианты вызова:

// Шаблон("[Присвоить("+ИмяПеременной+",ПеременнаяСоЗначением)]");

// Шаблон("[Присвоить("+ИмяПеременной+","+ИмяПеременнойСоЗначением+")]");

// Пример: пусть у нас на форме есть 5 числовых реквизитов К1, К2, ... К5

Для н=1 по 5 Цикл

Шаблон("[Присвоить("+("К"+н)+","+(н)+")]");

КонецЦикла;

Если в качестве параметров ф-ии Присвоить() могут передаваться ТаблицаЗначений или СписокЗначений, то нужно её изменить на:

Код 1C v 7.x

 Функция Присвоить(Чему,Что)

Если Найти(ТипЗначенияСтр(Что),"Значений")>0 Тогда

Чему=СоздатьОбъект(ТипЗначенияСтр(Что));

Что.Выгрузить(Чему);

Иначе

Чему = Что;

КонецЕсли;

Возврат "";

КонецФункции

В глобальном модуле доступны все переменные, функции и реквизиты вызывающей формы! При этом даже не требуется передавать Контекст формы!
Пример:

Код 1C v 7.x

 // помещаем в глобальный модуль процедуру

//_____________________________________________________________________________

Процедура глТест() Экспорт

сообщить(Шаблон("[ПеременнаяМодуля]")); // получаем переменную модуля

сообщить(Шаблон("[РеквизитФормы]")); // получаем переменную модуля формы

сообщить(Шаблон("[ФункцияМодуля()]")); // вызываем функцию модуля формы

КонецПроцедуры //глТест()



// создадим внешнюю обработку

// не забудьте добавить на форму реквизит "РеквизитФормы" тип "Строка",30

// текст модуля внешней обработки:

Перем ПеременнаяМодуля;

//_____________________________________________________________________________

Функция ФункцияМодуля()

Сообщить("Сработала функция модуля");

КонецФункции

//_____________________________________________________________________________

Процедура Сформировать()

глТест(); // вызываем глоб процедуру и смотрим ...

КонецПроцедуры

//_____________________________________________________________________________

ПеременнаяМодуля="Это значение ПеременнойМодуля";

РеквизитФормы="Это значение РеквизитаФормы";

Категория: Встроенные Функции