1С 7.x : Недокументированные возможности функции Шаблон

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

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

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

Чему = Что;

Возврат "";

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

Иначе

Чему = Что;

КонецЕсли;

Возврат "";

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

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

//_____________________________________________________________________________

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

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

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

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

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



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

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

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

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

//_____________________________________________________________________________

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

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

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

//_____________________________________________________________________________

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

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

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

//_____________________________________________________________________________

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

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