Процедура ПриНачалеРаботыСистемы (). ВремяЧас = Час ( ТекущаяДата ())

ВремяЧас = Час ( ТекущаяДата ());

Если ( ВремяЧас >= 13 ) и ( ВремяЧас < 14 ) Тогда

Ответ = Вопрос ( "Сейчас не рабочее время! Будете

работать?" , РежимДиалогаВопрос . ДаНет );

Если Ответ = КодВозвратаДиалога.Нет Тогда

ПрекратитьРаботуСистемы ();

КонецЕсли;

КонецЕсли;

КонецПроцедуры

 

 

Листинг П_А.2

 

 

// Модуль приложения

//---------------------------------------------------------

// Раздел переменных:

Перем НачалоРаботы ;

//---------------------------------------------------------

//Раздел процедур и функций:

//ПриНачалеРаботыСистемы() - проверяет время входа в систему

Процедура ПриНачалеРаботыСистемы ()

ВремяЧас = Час ( ТекущаяДата ());

Если ( ВремяЧас >= 14 ) и ( ВремяЧас < 15 ) Тогда

Ответ = Вопрос ( "Сейчас не рабочее время!" + Символы . Таб + "Будете

работать?" , РежимДиалогаВопрос . ДаНет );

Если Ответ = КодВозвратаДиалога . Нет Тогда

ПрекратитьРаботуСистемы ();

КонецЕсли;

КонецЕсли;

КонецПроцедуры

 

 

 

 

 

 

Листинг П_А.3

 

 

//Общий модуль служебных функций

//ИнтервалСтр(Начало,Конец) - возвращает продолжительность

//интервала времени строкой:

Функция ИнтервалСтр ( Начало , Конец ) Экспорт

Интервал = Конец - Начало ; //вычислим интервал в секундах

Часов = Цел ( Интервал / 3600 ); //сколько это будет часов

Время = '00010101' + Интервал ; //преобразуем Интервал к дате

Минут = Минута ( Время ); //получим число минут и секунд

Секунд = Секунда ( Время );

//напишем это все строкой

Стр = "" + Часов + "ч" + Минут + "м" + Секунд + "с" ;

Возврат Стр ;

КонецФункции

 

 

 

 

 

 

 

Листинг П_А.4

 

 

// Модуль приложения

//---------------------------------------------------------

// Раздел переменных:

Перем НачалоРаботы Экспорт;

//---------------------------------------------------------

//Раздел процедур и функций:

//Обработчики событий:

//ПриНачалеРаботыСистемы() - проверяет время входа в систему

Процедура ПриНачалеРаботыСистемы ()

ВремяЧас = Час ( ТекущаяДата ());

Если ( ВремяЧас >= 13 ) и ( ВремяЧас < 14 ) Тогда

Ответ = Вопрос ( "Сейчас не рабочее время!" + Символы . Таб + "Будете

работать?" , РежимДиалогаВопрос . ДаНет );

Если Ответ = КодВозвратаДиалога . Нет Тогда

ПрекратитьРаботуСистемы ();

КонецЕсли;

КонецЕсли;

КонецПроцедуры

//ПередЗавершениемРаботыСистемы(Отказ) - запрашивает

// подтверждение о выходе из системы

Процедура ПередЗавершениемРаботыСистемы ( Отказ )

КонецРаботы = ТекущаяДата ();

Ответ = Вопрос ( "Завершить работу системы?" + Символы . ПС + "(Вы

работали"

 

+ ИнтервалСтр ( НачалоРаботы , КонецРаботы )+ ")" , РежимДиалогаВопрос . ДаНет

, 30 );

Отказ =( Ответ = КодВозвратаДиалога . Нет );

КонецПроцедуры

//---------------------------------------------------------

// раздел основной программы:

НачалоРаботы = ТекущаяДата ();

 

 

 

 

 

 

 

 

 

 

 

 

 

Листинг П_В.1

 

 

 

ПечатьКурсаУЕ () :

 

 

//ПечатьКурсаУЕ()2 - печать курса УЕ

// формирует отчет без использования макета

⇐ Предыдущая234567891011

Поделиться: