Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Процедура ПриНачалеРаботыСистемы (). ВремяЧас = Час ( ТекущаяДата ())⇐ ПредыдущаяСтр 11 из 11
ВремяЧас = Час ( ТекущаяДата ()); Если ( ВремяЧас >= 13 ) и ( ВремяЧас < 14 ) Тогда Ответ = Вопрос ( "Сейчас не рабочее время! Будете работать?" , РежимДиалогаВопрос . ДаНет ); Если Ответ = КодВозвратаДиалога.Нет Тогда ПрекратитьРаботуСистемы (); КонецЕсли; КонецЕсли; КонецПроцедуры
Листинг П_А.2
// Модуль приложения //--------------------------------------------------------- // Раздел переменных: Перем НачалоРаботы ; //--------------------------------------------------------- //Раздел процедур и функций: //ПриНачалеРаботыСистемы() - проверяет время входа в систему Процедура ПриНачалеРаботыСистемы () ВремяЧас = Час ( ТекущаяДата ()); Если ( ВремяЧас >= 14 ) и ( ВремяЧас < 15 ) Тогда Ответ = Вопрос ( "Сейчас не рабочее время!" + Символы . Таб + "Будете работать?" , РежимДиалогаВопрос . ДаНет ); Если Ответ = КодВозвратаДиалога . Нет Тогда ПрекратитьРаботуСистемы (); КонецЕсли; КонецЕсли; КонецПроцедуры
Листинг П_А.3
//Общий модуль служебных функций //ИнтервалСтр(Начало,Конец) - возвращает продолжительность //интервала времени строкой: Функция ИнтервалСтр ( Начало , Конец ) Экспорт Интервал = Конец - Начало ; //вычислим интервал в секундах Часов = Цел ( Интервал / 3600 ); //сколько это будет часов Время = '00010101' + Интервал ; //преобразуем Интервал к дате Минут = Минута ( Время ); //получим число минут и секунд Секунд = Секунда ( Время ); //напишем это все строкой Стр = "" + Часов + "ч" + Минут + "м" + Секунд + "с" ; Возврат Стр ; КонецФункции
Листинг П_А.4
// Модуль приложения //--------------------------------------------------------- // Раздел переменных: Перем НачалоРаботы Экспорт; //--------------------------------------------------------- //Раздел процедур и функций: //Обработчики событий: //ПриНачалеРаботыСистемы() - проверяет время входа в систему Процедура ПриНачалеРаботыСистемы () ВремяЧас = Час ( ТекущаяДата ()); Если ( ВремяЧас >= 13 ) и ( ВремяЧас < 14 ) Тогда Ответ = Вопрос ( "Сейчас не рабочее время!" + Символы . Таб + "Будете работать?" , РежимДиалогаВопрос . ДаНет ); Если Ответ = КодВозвратаДиалога . Нет Тогда ПрекратитьРаботуСистемы (); КонецЕсли; КонецЕсли; КонецПроцедуры //ПередЗавершениемРаботыСистемы(Отказ) - запрашивает // подтверждение о выходе из системы Процедура ПередЗавершениемРаботыСистемы ( Отказ ) КонецРаботы = ТекущаяДата (); Ответ = Вопрос ( "Завершить работу системы?" + Символы . ПС + "(Вы работали"
+ ИнтервалСтр ( НачалоРаботы , КонецРаботы )+ ")" , РежимДиалогаВопрос . ДаНет , 30 ); Отказ =( Ответ = КодВозвратаДиалога . Нет ); КонецПроцедуры //--------------------------------------------------------- // раздел основной программы: НачалоРаботы = ТекущаяДата ();
Листинг П_В.1
ПечатьКурсаУЕ () :
//ПечатьКурсаУЕ()2 - печать курса УЕ // формирует отчет без использования макета |
Последнее изменение этой страницы: 2019-04-21; Просмотров: 179; Нарушение авторского права страницы