Поздравление с новым годом!

18.12.18

Задачи пользователя - Поздравления

Простая обработочка на простых формах для поздравления пользователей с праздниками (новый год, рождество, 8 марта, 23 февраля, день рождения и т.д.).

Скачать исходный код

Наименование Файл Версия Размер
Поздравление с новым годом!:
.epf 1,48Mb
12
.epf 1,48Mb 12 Скачать

Простая обработочка на простых формах для поздравления пользователей с праздниками (новый год, рождество, 8 марта, 23 февраля, день рождения и т.д.).
Несколько картинок, рандомно выбирается одна из них, чтоб не так скучно было, правда все на обычных формах, никак руки не дойдут переделать на УФ.

В публикации прикреплена "С новым годом!"
При начале работы системы проверяется дата и в зависимости от ее значения запускается та или иная обработка, можно наворотить, но это если нечем заняться), это было для поднятия настроения пользователей в праздники))))

Примерно так.

Если ДеньГода(ТекущаяДата()) = 366
        или ДеньГода(ТекущаяДата()) = 365
        или ДеньГода(ТекущаяДата()) = 364
        или ДеньГода(ТекущаяДата()) = 363
        или ДеньГода(ТекущаяДата()) = 1
        тогда
        //Запускаем обработку С новым годом!
КонецЕсли;

Если ДеньГода(ТекущаяДата()) = 6
        или ДеньГода(ТекущаяДата()) = 7
        или ДеньГода(ТекущаяДата()) = 8
        тогда
        //Запускаем обработку С рождеством!
КонецЕсли;

Если (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 7)
        или (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 8)
        или (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 9)
        тогда
        Если Пользователь.Пол = Перечисления.ПолФизическогоЛица.Женский тогда
            //Запускаем обработку с 8 марта!
        КонецЕсли;
КонецЕсли;

Если (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 22)
        или (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 23)
        или (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 24)
        тогда
        Если Пользователь.Пол = Перечисления.ПолФизическогоЛица.Мужской тогда
            //Запускаем обработку с 23 февраля!
        КонецЕсли;
КонецЕсли;


Если Месяц(ТекущаяДата()) = Месяц(Пользователь.ДатаРождения) и День(ТекущаяДата()) = День(Пользователь.ДатаРождения) тогда
        //Прописываем в заголовок ФИО и запускаем обработку с ДР!
 КонецЕсли;

Тестировалось на 1С:Предприятие 8.3 (8.3.12.1685)

Поздравление

См. также

Оформление к 8 марта для 1С

Поздравления Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Расширение - поздравлялка с 8 марта. Добавляет цветочки на некоторые формы объектов, в честь 8 марта. Использование - для всех желающих.

05.03.2024    3546    221    zakharov_yuri    13    

24

Здравствуй, ж...ёлтая программа, Новый Год!

Поздравления Работа с интерфейсом Платформа 1С v8.3 Бесплатно (free)

Когда бухгалтер просит вставить кактус, я не могу отказать.

28.12.2023    1555    e.kogan    4    

5

Валентинки 1C

Поздравления Бесплатно (free)

Сделали эти валентинки для любимых клиентов и коллег.

14.02.2023    1474    ystetsenko    1    

7

Поздравление с Новым годом

Поздравления Платформа 1С v8.3 1С:Управление торговлей 11 Абонемент ($m)

Расширение - поздравление с Новым годом.

1 стартмани

19.11.2022    2041    8    mrSallivan    2    

6

Поздравление сотрудников с праздниками

Поздравления Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Обработка-открытка для поздравления с праздниками.

4 стартмани

09.12.2021    3341    3    user610182_firstbit70    2    

3

Поздравление с 8 Марта

Поздравления Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Поздравление прекрасной половины пользователей с 8 марта!

2 стартмани

01.03.2021    4301    13    IceEvgen    3    

1

Поздравления с праздниками для УТ 11

Поздравления Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Поздравления с праздниками для УТ 11 при начале работы системы в виде расширения.

1 стартмани

26.02.2021    3452    6    burgomister    0    

4

Поздравление с новым годом

Поздравления Платформа 1С v8.3 Управляемые формы 1С:ERP Управление предприятием 2 Россия Абонемент ($m)

Поздравления коллег с наступающим новым годом.

1 стартмани

22.12.2020    3896    5    cheromg    0    

3
Оставьте свое сообщение