Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Как установить признак модифицированности формы? (число прочтений - 4246 )
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Как установить признак модифицированности формы?
26. Июня 2007 :: 19:50
Печать  
Есть такая конструкция. Если формула есть в реквизите, то модифицированность включается. Если нету, то звездочка не появляется. А надо Печаль
Как извернуться?
Код
Выбрать все
Реквизит = РасширениеФормы.ПолучитьАтрибут(ЭлементФормы);
Реквизит.Значение = ПереданноеЗначение;
Модуль = СоздатьОбъект("ВыполняемыйМодуль");
Модуль.УстановитьМодуль(Реквизит.Формула);
Модуль.НазначитьКонтекст(Конт);
Модуль.КомпилироватьИВыполнитьМодуль();
 



P.S. Решение надо для любой формы, т.е. даже для вновь созданной обработки в конфигураторе. Код выполняется в классе перехватчике.
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Как установить признак модифицированности форм
Ответ #1 - 26. Июня 2007 :: 22:17
Печать  
Пока вывернулся через ВМ:

Код
Выбрать все
Модуль.УстановитьМодуль("
	|Процедура УстановитьЗначение(НовоеЗначение)
	|	"+ Элемент + " = НовоеЗначение;
	|КонецПроцедуры
	|");
Модуль.НазначитьКонтекст(Конт);
Модуль.КомпилироватьМодуль();
Модуль.ВыполнитьМодуль();
Модуль.УстановитьЗначение(Значение);

 

  
Наверх
 
IP записан
 
trad
1c++ power user
1c++ donor
1c++ moderator
Отсутствует



Сообщений: 3051
Местоположение: Киров
Зарегистрирован: 23. Мая 2006
Пол: Мужской
Re: Как установить признак модифицированности форм
Ответ #2 - 27. Июня 2007 :: 04:41
Печать  
Форма.Обновить(1);
не подойдет?
  

1&&2&&3
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Как установить признак модифицированности форм
Ответ #3 - 27. Июня 2007 :: 07:38
Печать  
trad писал(а) 27. Июня 2007 :: 04:41:
Форма.Обновить(1);
не подойдет?


На счет (1) я и не знал Улыбка
Спасибо!
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать