С праздником 8 марта!

01.03.10

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

Обработка, поздравляющая женскую часть коллектива с праздником 8 марта.

Скачать файлы

Наименование Файл Версия Размер
Обработка поздравления с праздником
.1236249794 62,74Kb
515
.1236249794 62,74Kb 515 Скачать бесплатно

Вашему вниманию предлагается обработка, которая в режиме рбочего стола выводит приятную картинку, поздравляющую наших дорогих женщин с праздником 8 марта. Очень лего подключается для авто запуска, надо всего лишь в модуле приложения, в обработчике ПриНачалеРаботыСистемы() вставить небольшой кусочек кода:

 //+Azernot - Поздравительные открытки
 //8 марта
ДатаПраздника = 8;
МесяцПраздника = 3;
Если Месяц(ТекущаяДата()) = МесяцПраздника Тогда
 ДеньНедели = ДеньНедели(Дата(Год(ТекущаяДата()),МесяцПраздника,ДатаПраздника));
 Если ДеньНедели > 5 Тогда //Праздник попадает на Сб, Вс, открытку выводить нужно в Пт
  СмещениеДат = ДеньНедели - 5;
 ИначеЕсли ДеньНедели < 3 Тогда //Праздник попадает на Пн, Вт, открытку выводить нужно в Пт, Сб
  СмещениеДат = 3;
 Иначе
  СмещениеДат = 1;
 КонецЕсли; 
 
 Если НачалоДня(ТекущаяДата()) = НачалоДня(Дата(Год(ТекущаяДата()),МесяцПраздника,(ДатаПраздника - СмещениеДат))) Тогда
  ФизЛицо =  глЗначениеПеременной("глТекущийПользователь").ФизЛицо;
  ПоказыватьОткрытку = Истина;
  Если ЗначениеЗаполнено(ФизЛицо) Тогда
   Если ФизЛицо.Пол = Перечисления.ПолФизическихЛиц.Мужской Тогда
    ПоказыватьОткрытку = Ложь;
   КонецЕсли;
  КонецЕсли;
  Если ПоказыватьОткрытку Тогда
   Открытка = ВнешниеОбработки.ПолучитьФорму("","Форма");
   Открытка.Открыть();
  КонецЕсли;
 КонецЕсли;
КонецЕсли;
///Azernot  - конец блока

- путь к файлу обработки в каком-нибудь общедоступном месте, например, "\\Server\1c\Спраздником.epf"

 Ну или на крайний случай, можно предложить пользователям самостоятельно запустить обработку через Файл-Открыть.

См. также

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

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

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

05.03.2024    3396    218    zakharov_yuri    13    

24

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

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

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

28.12.2023    1497    e.kogan    4    

5

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

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

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

14.02.2023    1440    ystetsenko    1    

7

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

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

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

1 стартмани

19.11.2022    2022    8    mrSallivan    2    

6

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

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

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

4 стартмани

09.12.2021    3303    3    user610182_firstbit70    2    

3

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

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

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

2 стартмани

01.03.2021    4140    13    IceEvgen    3    

1

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

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

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

1 стартмани

26.02.2021    3425    6    burgomister    0    

4

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

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

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

1 стартмани

22.12.2020    3876    5    cheromg    0    

3
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Olga_siberia 91 05.03.09 17:05 Сейчас в теме
2. Nailya_Oren 05.03.09 17:22 Сейчас в теме
3. coder1cv8 3468 05.03.09 17:52 Сейчас в теме
(0) А можно сделать персонифицированную открытку, т.е. из ФизЛиц вытаскивать ещё и имя и подставлять?... )
4. azernot 779 05.03.09 17:59 Сейчас в теме
Можно, я думал об этом.... Но красивым текстом не вставить (если не заморачиваться с картинками алфавита), поэтому решил не заморачиваться...
Хочешь, можешь доделать, все будут благодарны :).
5. artbear 1448 05.03.09 18:20 Сейчас в теме
Не хватает какого-нибудь поздравления, например, юморного :)
6. vmaksim 4 06.03.09 15:52 Сейчас в теме
7. prog_arc 08.03.09 21:50 Сейчас в теме
хорошо но с проверкой даты не очень универсально
8. azernot 779 10.03.09 10:08 Сейчас в теме
(7) С датой совсем универсально не получится. Дело в том, что выводить картинку надо в последний рабочий день перед праздником, а угадать как там перенесут выходные проблематично (когда праздник приодится на вторник, могут перенести рабочий день с понедельника на субботу, а могут и не перенести).
9. artbear 1448 11.03.09 15:04 Сейчас в теме
(8) Ага, тут универсальность не очень-то и нужна :)
Я думаю, повторять одну и ту же обработку с одной и той же картинкой нет смысла несколько лет подряд.
10. azernot 779 11.03.09 17:39 Сейчас в теме
(10) Ну я типа был пойман на слабо и реализовал универсальный механизм, применимый для любого праздника... :)
11. artbear 1448 11.03.09 22:00 Сейчас в теме
(11) Кстати, я лично накололся с подобным поздравлением в новой конторе пару лет назад :)
Одна из баз была распределенной, а я на радостях об этом забыл :) и оставил вызов внешней обработки.
В главном офисе все были очень довольны, а вот с магазинами пришлось повозиться, т.к. модуль приложения валился и не пускал в 1С вообще :), соответственно, исправить конфу в магазинах было нельзя, загрузку нового варианта также не осуществить :(
Пришлось извращаться с бат-файлом - создание вирт.диска, копирование обработки на нужный путь и т.д. :)

Так что лучший/надежный вариант - все-таки помещать внутрь конфы :)
14. azernot 779 12.03.09 11:00 Сейчас в теме
(11) У меня терминал :) Заменить вызов обработки на внутреннюю - 5 сек делов (надо только захотеть). Пусть уж многоуважаемые 1с-ники сами пораскинут мозгами.
(12) А если неуспешно? У меня 95% пользователей доступа в инет не имеют.
(13) Ну... Тут прелесть в том, что весь день висит обработка которую пользователь сам и закрыть-то не может, и ресурсов она не кушает много, и людям настроение создаёт :).
12. CheBurator 3119 12.03.09 04:38 Сейчас в теме
а с датой: при запуске стучимся в инет, если успешно - читаем производственный календарь... ;-)
13. CheBurator 3119 12.03.09 04:41 Сейчас в теме
а еще хорошо с использованием медиаплеера прямо внутри 1ски врубать вот это: http://www.youtube.com/watch?v=YpC96olIykU
15. azernot 779 01.03.10 13:44 Сейчас в теме
Напоминаю всем 1С-никам о необходимости внедрить эту разработку в основную конфигурацию в ближайшее время!
16. artbear 1448 05.03.10 09:43 Сейчас в теме
(15) Лично я твой код по запуску поздравления поправил так:
Код
Функция НужноВыводитьПоздравлениеСПраздниками(ДатаПраздника, МесяцПраздника, РаботаемВСубботу, ТекущаяДатаДляОтладки = Неопределено)
   Если ЗначениеЗаполнено(ТекущаяДатаДляОтладки) Тогда
      лТекущаяДата = ТекущаяДатаДляОтладки;
   Иначе
      лТекущаяДата = ТекущаяДата();
   КонецЕсли; 
   
   началоДняТекущейДаты = НачалоДня(лТекущаяДата);
   
   Если Месяц(лТекущаяДата) = МесяцПраздника Тогда
      ДеньНедели = ДеньНедели(Дата(Год(лТекущаяДата), МесяцПраздника, ДатаПраздника));
      Если ДеньНедели > 5 Тогда //Праздник попадает на Сб, Вс, открытку выводить нужно в Пт
         Если РаботаемВСубботу Тогда
            СмещениеДат = ДеньНедели - 6;
         Иначе
            СмещениеДат = ДеньНедели - 5;
         КонецЕсли; 
      ИначеЕсли ДеньНедели < 3 Тогда //Праздник попадает на Пн, Вт, открытку выводить нужно в Пт, Сб
         Если РаботаемВСубботу Тогда
            СмещениеДат = 2;
         Иначе
            СмещениеДат = 3;
         КонецЕсли; 
      Иначе
         СмещениеДат = 1;
      КонецЕсли; 

      Если началоДняТекущейДаты = НачалоДня(Дата(Год(лТекущаяДата),МесяцПраздника,(ДатаПраздника - СмещениеДат))) Тогда
         ФизЛицо =  глЗначениеПеременной("глТекущийПользователь").ФизЛицо;
         Если ЗначениеЗаполнено(ФизЛицо) Тогда
            Если ФизЛицо.Пол = Перечисления.ПолФизическихЛиц.Мужской Тогда
                Возврат ЛОЖЬ;
            КонецЕсли;
         КонецЕсли;
         Возврат Истина;
      КонецЕсли;
   КонецЕсли;
   Возврат ЛОЖЬ;
КонецФункции
Показать полностью

и
Код
   ДатаПраздника = 8; МесяцПраздника = 3; //8 марта
   РаботаемВСубботу = ЛОЖЬ; //Истина;
   Если НужноВыводитьПоздравлениеСПраздниками(ДатаПраздника, МесяцПраздника, РаботаемВСубботу, лТекущаяДата) Тогда
      Попытка
         Открытка = ВнешниеОбработки.ПолучитьФорму("<Путь к обработке>","Форма");
         Открытка.Открыть();
      Исключение
          //ОписаниеОшибки()
      КонецПопытки;
   КонецЕсли; 
Показать полностью


1. Некоторые организации работают и по субботам :)
2. В Праздничный день ничего не должно омрачать праздник - поэтому Попытка :)
17. MoonBee 24.10.11 12:46 Сейчас в теме
Все сотрудницы отдела были просто в восторге от такого поздравления!)))) Было очень приятно поздравить таким образом из с праздником. Огромное спасибо разработчику!
18. AruslanM 07.12.11 11:33 Сейчас в теме
Спасибо. Применил идею при поздравлении на Новый год и все. Может еще пригодится когда нибудь)
19. Andro_sas 30.01.12 20:37 Сейчас в теме
{МодульОбычногоПриложения(64)}: Ошибка при вызове метода контекста (Открыть)
Открытка.Открыть();
по причине:

по причине:
Данное действие недоступно в связи с отсутствием главного окна

help...
20. Andro_sas 30.01.12 20:54 Сейчас в теме
РЕБЯТА! почесал репу!! спасибо огромное все работает! Хотелось бы узнать как в 7.7 запустить её же. Или аналог.
22. Sanek_159 1 24.02.12 14:25 Сейчас в теме
(20) Andro_sas, Вот: http://infostart.ru/public/116733/ или вот http://infostart.ru/public/66374/. В поиске набери "8 марта "с фильтром по 7.7.
21. Гость 20.02.12 10:20
Прикольно, автору Спасибо
23. trunix 01.03.12 10:36 Сейчас в теме
Спасибо автору! Будем поздравлять дорогих женщин с 8 Марта!!!
24. nat5 13.03.12 12:53 Сейчас в теме
Спасибо автору, сомтрели всем офисом. Порадовали наших дам!
25. nat5 13.03.12 12:54 Сейчас в теме
С датой совсем универсально не получится. Дело в том, что выводить картинку надо в последний рабочий день перед праздником, а угадать как там перенесут выходные проблематично (когда праздник приодится на вторник, могут перенести рабочий день с понедельника на субботу, а могут и не перенести).

мне кажется это не очень существенно
Оставьте свое сообщение