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

01.03.10

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

Скачать файл

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

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

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

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

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

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

+46 –

См. также

Матрешка прячет секреты в PNG

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

Хотите сделать цифровую поздравительную открытку? Обработка умеет прятать секреты в картинки png.

26.12.2024 1084 16 dsdred 12

Новогодний квест "Матрешка"

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

Данная статья для меня юбилейная, и я решил устроить небольшой новогодний квест «Матрешка» с подарком для самого быстрого.

26.12.2024 1263 dsdred 32

Универсальные поздравления с праздниками

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

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

04.12.2024 461 33 user1242725 0

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

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

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

05.03.2024 4240 234 zakharov_yuri 13

Как сделать сюрприз для пользователей

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

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

28.12.2023 2047 e.kogan 4

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

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

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

14.02.2023 1929 ystetsenko 1

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

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

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

1 стартмани

19.11.2022 2381 8 mrSallivan 2

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

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

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

4 стартмани

09.12.2021 3812 7 user610182_firstbit70 2

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Olga_siberia 91 05.03.09 17:05 Сейчас в теме

Спб за внимание!!!!

2. Nailya_Oren 05.03.09 17:22 Сейчас в теме

Спасибо!

3. coder1cv8 3479 05.03.09 17:52 Сейчас в теме

(0) А можно сделать персонифицированную открытку, т.е. из ФизЛиц вытаскивать ещё и имя и подставлять?... )

4. azernot 781 05.03.09 17:59 Сейчас в теме

Можно, я думал об этом.... Но красивым текстом не вставить (если не заморачиваться с картинками алфавита), поэтому решил не заморачиваться...
Хочешь, можешь доделать, все будут благодарны :).

5. artbear 1565 05.03.09 18:20 Сейчас в теме

Не хватает какого-нибудь поздравления, например, юморного :)

6. vmaksim 4 06.03.09 15:52 Сейчас в теме

НА 5+

7. prog_arc 08.03.09 21:50 Сейчас в теме

хорошо но с проверкой даты не очень универсально

8. azernot 781 10.03.09 10:08 Сейчас в теме

(7) С датой совсем универсально не получится. Дело в том, что выводить картинку надо в последний рабочий день перед праздником, а угадать как там перенесут выходные проблематично (когда праздник приодится на вторник, могут перенести рабочий день с понедельника на субботу, а могут и не перенести).

9. artbear 1565 11.03.09 15:04 Сейчас в теме

(8) Ага, тут универсальность не очень-то и нужна :)
Я думаю, повторять одну и ту же обработку с одной и той же картинкой нет смысла несколько лет подряд.

10. azernot 781 11.03.09 17:39 Сейчас в теме

(10) Ну я типа был пойман на слабо и реализовал универсальный механизм, применимый для любого праздника... :)

11. artbear 1565 11.03.09 22:00 Сейчас в теме

(11) Кстати, я лично накололся с подобным поздравлением в новой конторе пару лет назад :)
Одна из баз была распределенной, а я на радостях об этом забыл :) и оставил вызов внешней обработки.
В главном офисе все были очень довольны, а вот с магазинами пришлось повозиться, т.к. модуль приложения валился и не пускал в 1С вообще :), соответственно, исправить конфу в магазинах было нельзя, загрузку нового варианта также не осуществить :(
Пришлось извращаться с бат-файлом - создание вирт.диска, копирование обработки на нужный путь и т.д. :)

Так что лучший/надежный вариант - все-таки помещать внутрь конфы :)

14. azernot 781 12.03.09 11:00 Сейчас в теме

(11) У меня терминал :) Заменить вызов обработки на внутреннюю - 5 сек делов (надо только захотеть). Пусть уж многоуважаемые 1с-ники сами пораскинут мозгами.
(12) А если неуспешно? У меня 95% пользователей доступа в инет не имеют.
(13) Ну... Тут прелесть в том, что весь день висит обработка которую пользователь сам и закрыть-то не может, и ресурсов она не кушает много, и людям настроение создаёт :).

12. CheBurator 2695 12.03.09 04:38 Сейчас в теме

а с датой: при запуске стучимся в инет, если успешно - читаем производственный календарь... ;-)

13. CheBurator 2695 12.03.09 04:41 Сейчас в теме

а еще хорошо с использованием медиаплеера прямо внутри 1ски врубать вот это: http://www.youtube.com/watch?v=YpC96olIykU

15. azernot 781 01.03.10 13:44 Сейчас в теме

Напоминаю всем 1С-никам о необходимости внедрить эту разработку в основную конфигурацию в ближайшее время!

16. artbear 1565 05.03.10 09:43 Сейчас в теме

(15) Лично я твой код по запуску поздравления поправил так:

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

Код

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

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

Показать полностью

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

Код

   ДатаПраздника = 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 Сейчас в теме

С датой совсем универсально не получится. Дело в том, что выводить картинку надо в последний рабочий день перед праздником, а угадать как там перенесут выходные проблематично (когда праздник приодится на вторник, могут перенести рабочий день с понедельника на субботу, а могут и не перенести).

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