Вариант решения проблемы.
Пока Тестовый. в 7.7бух spec.
Создал глобальную функцию
Функция ГлВвестиДату(Д,П,Т=0) Export
ДляТехническихНужд=Д;
ОткрытьФормуМодально("Обработка.Ввести_Дату",П);
Возврат ДляТехническихНужд;
КонецФункции
Создал обработку "Ввести_Дату" с малюсенькой формочкой
В свойствах формы все галочки сняты,
На форме один реквизит "Dat" формата Дата и кнопка Выполнить()
В модуле обработки 6 строк
Процедура Выполнить()
ДляТехническихНужд=Dat;
Форма.Закрыть(0);
КонецПроцедуры
Dat=ДляТехническихНужд;
Форма.Заголовок(Форма.Пара етр,0);
И подменил ВвестиДату на ГлВвестиДату по всей программе
Ползоватрли прктически не замечают подмену
А я жду жалоб ...
|