Листинг 1. Первое приложение в среде «1С:Предприятие». Программный код глобального модуля

// Глобальный модуль 
// ================= 
//Раздел Переменных 
//————————- 
Перем  кнДаНет Экспорт; 
Var отвДа Export; 
Перем отвНет Export; 
//Раздел процедур и функций 
//————————————- 
Процедура ПриНачалеРаботыСистемы() 
// Проверка рабочего  времени 
// Если СтатусВозврата=0, то приложение автоматически закроется 
			Перем Чс,Мн,Ск; 
			ТекущееВремя(Чс,Мн,Ск); 
			Время=Чс+Мн/60+Ск/3600; 
			Если (Время>14) и  (Время<15) тогда 
				Ответ=Вопрос(“Сейчас не рабочее время! 
					|Будете работать?”,кнДаНет);
				СтатусВозврата(?(Ответ=отвНет,0,1));
			EndIf; 
КонецПроцедуры 

//Раздел основной    программы 
//————————————- 
Сообщить(“Текущее время:”+CurrentTime()); 
//Инициализация  переменных модуля 
кнДаНет=4;		 //”Да+Нет” 
отвДа=6;			 //”Да” 
отвНет=7;			 //”Нет”