- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
Процедура ПриОткрытии()
Таймер();
ПодключитьОбработчикОжидания("Таймер",1);
КонецПроцедуры
Процедура Таймер()
Если ИспользоватьНапоминание Тогда
Если ТекущаяДата() = ВремяНапоминания Тогда
Предупреждение(ТекстНапоминания);
КонецЕсли;
КонецЕсли;
Если НачалоДня(ТекущаяДата()) + 13*60*60 > ТекущаяДата() Тогда
ЗаголовокДляУстановки = Формат(Дата('00010101') + (НачалоДня(ТекущаяДата()) + 13*60*60 - ТекущаяДата()), "ДФ=HH:mm:ss");
Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " |";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " /";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " --";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
КонецЕсли;
ИначеЕсли НачалоДня(ТекущаяДата()) + 14*60*60 > ТекущаяДата() тогда
Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
ЭтаФорма.Заголовок = "??:??:??" + " \";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
ЭтаФорма.Заголовок = "??:??:??" + " |";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
ЭтаФорма.Заголовок = "??:??:??" + " /";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
ЭтаФорма.Заголовок = "??:??:??" + " --";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда
ЭтаФорма.Заголовок = "??:??:??" + " \";
КонецЕсли;
ИначеЕсли НачалоДня(ТекущаяДата()) + 18*60*60 > ТекущаяДата() Тогда
ЗаголовокДляУстановки = Формат(Дата('00010101') + (НачалоДня(ТекущаяДата()) + 18*60*60 - ТекущаяДата()), "ДФ=HH:mm:ss");
Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " |";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " /";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " --";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда
ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
КонецЕсли;
Иначе
Если Формат(ТекущаяДата(), "ДФ=dddd") = "пятница" тогда
Если Прав(ЭтаФорма.Заголовок,1) <> ")" тогда
ЭтаФорма.Заголовок = "С Пятницей!!! :)";
Иначе
ЭтаФорма.Заголовок = "С Пятницей!!! xD";
КонецЕсли;
Иначе
Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " \";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " |";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " /";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " --";
ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда
ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " \";
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Текст процедуры обработчика ожидания обработки, показывающей время до обеда и до окончания рабочего дня.