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

18.12.18

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

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Поздравление с новым годом!:
.epf 1,48Mb
12
12 Скачать (1 SM) Купить за 1 850 руб.

Простая обработочка на простых формах для поздравления пользователей с праздниками (новый год, рождество, 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)

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

См. также

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

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

05.03.2024    4061    229    zakharov_yuri    13    

25

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

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

14.02.2023    1795    ystetsenko    1    

7

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

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

1 стартмани

19.11.2022    2251    8    mrSallivan    2    

7

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

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

4 стартмани

09.12.2021    3699    6    user610182_firstbit70    2    

4

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

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

2 стартмани

01.03.2021    4994    15    IceEvgen    3    

1

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

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

1 стартмани

26.02.2021    3669    6    burgomister    0    

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