Как сделать окно с предупреждением?

[Spacer21]

Купили 1С 8.2, но бухгалтер "тормозит" переход на нее с 7.7 вот хочу чтобы при запуске 7.7. выходило окно с сообщением типа: "срок действия ключа (лицензии) истекает через Х дней". Помогите это сделать.

[дфтын]

Добавь константу КолДнейДоКонца тип Число.

в 7ке в глобальном модуле:
ищим:
ПРоцедура ПриНачалеРаботыСистемы()
*** много строчек много букв***
//вот тут
скДней = Константа.КолДнейДоКонца;
Если скДней >=1 Тогда
Предупреждение("Через " + СкДней +  " запусков закроемся!!!");
Константа.КолДнейДоКонца = Константа.КолДнейДоКонца - 1;
Иначе

ЗавершитьработуСистемы();
КонецЕсли;
КонецПроцедуры

[Herby]

Добавь константу КолДнейДоКонца тип Число.

в 7ке в глобальном модуле:
ищим:
ПРоцедура ПриНачалеРаботыСистемы()
*** много строчек много букв***
//вот тут
скДней = Константа.КолДнейДоКонца;
Если скДней >=1 Тогда
Предупреждение("Через " + СкДней +  " запусков закроемся!!!");
Константа.КолДнейДоКонца = Константа.КолДнейДоКонца - 1;
Иначе

ЗавершитьработуСистемы();
КонецЕсли;
КонецПроцедуры

т.е. при каждом новом сеансе у нас константа будет уменьшаться?
дни нужно считать, а не количество входов в систему.

[volodya1122]

Вам идею подкинули. можете заменить константу "число" на "Дату" и немного переделать вичисление. Непомню можно сразу вічислять разность дат или нет. Если нет то перевести дату в число (функция  НомерДняГода(<?>))  и вычеслять радность этих чисел.