mirror of
https://github.com/tormozit/RDT1C.git
synced 2025-12-17 05:04:11 +00:00
88 lines
5.6 KiB
Plaintext
88 lines
5.6 KiB
Plaintext
//ирМобильный Перем ирМобильный Экспорт;
|
||
//ирМобильный Перем ирОбщий Экспорт;
|
||
//ирМобильный Перем ирСервер Экспорт;
|
||
//ирМобильный Перем ирКэш Экспорт;
|
||
//ирМобильный Перем ирПривилегированный Экспорт;
|
||
|
||
#Если Клиент Тогда
|
||
Перем мПараметры Экспорт;
|
||
|
||
// Инициализирует экземпляр класса.
|
||
|
||
//
|
||
|
||
// Параметры:
|
||
|
||
// *СтруктураЭкземляров - Структура, *Неопределено - содержит все объекты данного класса для данной формы;
|
||
|
||
// пФорма - Форма - владелец элементов управления;
|
||
|
||
// пПолеТекстовогоДокумента – ПолеТекстовогоДокумента;
|
||
|
||
// пКоманднаяПанель – КоманднаяПанель – в конце которой будут размещены кнопки;
|
||
|
||
//
|
||
|
||
Процедура Инициализировать(пФорма, пФормула, пМетодВыполнения = "", пКонтекстВыполнения = Неопределено,
|
||
Параметры = Неопределено, Описание = Неопределено) Экспорт
|
||
|
||
|
||
|
||
Формула = пФормула;
|
||
|
||
КонтекстВыполнения = пКонтекстВыполнения;
|
||
|
||
МетодВыполнения = пМетодВыполнения;
|
||
|
||
|
||
Если КонтекстВыполнения = Неопределено Тогда
|
||
|
||
КонтекстВыполнения = ЭтотОбъект;
|
||
|
||
КонецЕсли;
|
||
|
||
Если МетодВыполнения = "" Тогда
|
||
|
||
МетодВыполнения = "ВыполнитьЛокально";
|
||
|
||
КонецЕсли;
|
||
|
||
Попытка
|
||
|
||
Выполнить("КонтекстВыполнения." + МетодВыполнения + "(""Неопределено"")");
|
||
|
||
Исключение
|
||
|
||
//Сообщить(ОписаниеОшибки(), СтатусСообщения.Информация);
|
||
|
||
//Сообщить("Задан неверный контекст выполнения программы. Будет использован чистый контекст выполнения", СтатусСообщения.Информация);
|
||
|
||
КонтекстВыполнения = ЭтотОбъект;
|
||
|
||
МетодВыполнения = "ВычислитьЛокально";
|
||
|
||
КонецПопытки;
|
||
ЭтотОбъект.мПараметры = Параметры;
|
||
Если Описание <> Неопределено Тогда
|
||
ЭтотОбъект.Описание = Описание;
|
||
КонецЕсли;
|
||
|
||
|
||
|
||
КонецПроцедуры // Инициализировать()
|
||
|
||
|
||
|
||
// Освобождает ресурсы занятые экземпляром класса.
|
||
|
||
// Самое главное - очистить ссылки на формы и объекты БД.
|
||
|
||
//
|
||
|
||
// Параметры:
|
||
|
||
// Нет.
|
||
|
||
//
|
||
|
||
Процедура Уничтожить() Экспорт
|
||
|
||
|
||
|
||
Для Каждого Реквизит Из Метаданные().Реквизиты Цикл
|
||
|
||
ЭтотОбъект[Реквизит.Имя] = Неопределено;
|
||
|
||
КонецЦикла;
|
||
|
||
|
||
|
||
КонецПроцедуры // Уничтожить()
|
||
|
||
|
||
// Вычисляет программный код локально.
|
||
|
||
//
|
||
|
||
// Параметры:
|
||
|
||
// ТекстДляВычисления – Строка.
|
||
|
||
//
|
||
|
||
Функция ВычислитьЛокально(ТекстДляВычисления) Экспорт
|
||
|
||
|
||
лПараметры = мПараметры; // Устаревшее
|
||
|
||
Параметры = мПараметры;
|
||
Возврат Вычислить(ТекстДляВычисления);
|
||
|
||
|
||
|
||
КонецФункции // ВычислитьЛока()
|
||
|
||
|
||
//ирМобильный #Если Клиент Тогда
|
||
//ирМобильный Контейнер = Новый Структура();
|
||
//ирМобильный Оповестить("ирПолучитьБазовуюФорму", Контейнер);
|
||
//ирМобильный Если Не Контейнер.Свойство("ирМобильный", ирМобильный) Тогда
|
||
//ирМобильный ПолноеИмяФайлаБазовогоМодуля = ВосстановитьЗначение("ирПолноеИмяФайлаОсновногоМодуля");
|
||
//ирМобильный ирМобильный = ВнешниеОбработки.ПолучитьФорму(ПолноеИмяФайлаБазовогоМодуля);
|
||
//ирМобильный КонецЕсли;
|
||
//ирМобильный ирОбщий = ирМобильный.ПолучитьОбщийМодульЛкс("ирОбщий");
|
||
//ирМобильный ирКэш = ирМобильный.ПолучитьОбщийМодульЛкс("ирКэш");
|
||
//ирМобильный ирСервер = ирМобильный.ПолучитьОбщийМодульЛкс("ирСервер");
|
||
//ирМобильный ирПривилегированный = ирМобильный.ПолучитьОбщийМодульЛкс("ирПривилегированный");
|
||
//ирМобильный #КонецЕсли
|
||
|
||
Описание = "Здесь задается выражение для вычисления на встроенном языке. Для обращения к значениям параметров служит переменная Параметры.";
|
||
#КонецЕсли
|
||
|