Поздравление с Новым Годом 2010 для 1С 8.1 - свободный доступ для всех :)

05.03.10

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

Поздравление с Новым Годом 2010 для 1С 8.1 - обновил до версии 1.2.1
Включил свободный доступ для всех :)

Скачать файл

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

Наименование Бесплатно
артПоздравлениеСНовымГодом_2010.epf
.epf 261,40Kb
455
455 Скачать бесплатно

Поздравление с Новым Годом 2010 для 1С 8.1

Моя обработка основана на аналогичной обработке для 1С 77
//infostart.ru/public/61649

Версия 1.1

+ используются только новогодние анекдоты;

+ текст отображается не только в Агенте, но и на форме;

+ если Агента по разным причинам не удается загрузить, то обработка все равно работает, просто отображая текст на экране;

+ для каждой фоновой картинки используется свой цвет текста для лучшего восприятия.

Версия 1.2

- исправлен подсчет дней до НГ

* доработан показ дней (1 день, 2 дня, 5 дней и т.п.)

Версия 1.2.1

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

Для новичков - для использования при начале работы пользователей

необходимо в модуле приложения конфигурации 8.1 выполнить следующее

1. в процедуре ПриНачалеРаботыСистемы добавить следующий код:

[code]
 ДатаПраздника = 31; МесяцПраздника = 12; //31.12
 РаботаемВСубботу = ЛОЖЬ;
 Если НужноВыводитьПоздравлениеСПраздниками(ДатаПраздника, МесяцПраздника, РаботаемВСубботу, лТекущаяДата) Тогда
  Попытка
  Открытка = ВнешниеОбработки.ПолучитьФорму("W:\артПоздравлениеСНовымГодом_2010.epf", "Форма"); 
  Открытка.Открыть();
  Исключение
  //ОписаниеОшибки()
  КонецПопытки;
 КонецЕсли;
[/code]

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

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

Жду предложений по развитию + анекдотов + идей по оформлению/использованию.

PS Мои женщины (менеджеры, бухгалтера) всегда по-детски радуются подобным поздравлениям на праздники.

PPS долго ждал, пока кто-нибудь сделает для 8.1, но народ не спешил, пришлось самому заняться :)

См. также

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

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

05.03.2024    4080    230    zakharov_yuri    13    

25

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

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

14.02.2023    1818    ystetsenko    1    

7

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

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

1 стартмани

19.11.2022    2261    8    mrSallivan    2    

7

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

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

4 стартмани

09.12.2021    3719    6    user610182_firstbit70    2    

4

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

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

2 стартмани

01.03.2021    5002    15    IceEvgen    3    

1

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

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

1 стартмани

26.02.2021    3672    6    burgomister    0    

4
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. shaganel 28.12.09 17:07 Сейчас в теме
Мило. Завтра как раз еду любимых клиентов поздравлять.
3. dobraleks 136 28.12.09 18:10 Сейчас в теме
4. fikuz@mail.ru 29.12.09 05:46 Сейчас в теме
Все работает, отлично. Правда, считает странно :( . Пишет "Сегодня 29 декабря. До Нового года осталось 1 дней". Это по-нашему стопудово :D
O-Planet; artbear; +2 Ответить
5. artbear 1563 29.12.09 06:53 Сейчас в теме
Версия 1.2

- исправлен подсчет дней до НГ - Спасибо (4)

* доработан показ дней (1 день, 2 дня, 5 дней и т.п.)
6. oberonm 9 29.12.09 08:37 Сейчас в теме
7. e-katerina 126 29.12.09 10:29 Сейчас в теме
Отлично! :D

А что касается идей: кол-во дней до нового года можно сделать бегущей строкой, а при открытии волшебник выдает небольшое "предсказание" методом случайного выбора.
8. AKV77 263 29.12.09 11:17 Сейчас в теме
Спасибо, сделано со вкусом
9. kenshin 234 29.12.09 16:33 Сейчас в теме
Я б все таки тигра оставил на первой картинке, год тигра как ни как
10. kenshin 234 29.12.09 16:40 Сейчас в теме
13. artbear 1563 29.12.09 19:35 Сейчас в теме
(10) Не понял, ты про что написал?
11. kenshin 234 29.12.09 16:43 Сейчас в теме
{Форма.Форма(67)}: Ошибка при вызове метода контекста (Speak): Произошла исключительная ситуация (Agent.Control.2): Параметр задан неверно.

гПерсонажАгента.Speak(наименование);
по причине:
Произошла исключительная ситуация (Agent.Control.2): Параметр задан неверно.

при повторном нажатии на поздравления ошибка вылазить подправь и будет счастье
12. artbear 1563 29.12.09 19:34 Сейчас в теме
(11) Спасибо. Посмотрю
ЗЫ вроде все тестил :)
14. artbear 1563 29.12.09 20:43 Сейчас в теме
Выложена версия 1.2.1 - исправлена ошибка при работе с поздравлениями.

(11) Исправил
15. strange2007 144 30.12.09 04:26 Сейчас в теме
СУПЕР!!!!!!!!!!! Как я раньше не догадался?
16. elisabet 101 30.12.09 07:47 Сейчас в теме
все прикольно, но только у нас год будет 2010, а не 20010 как у автора в одной примете, а так "+"
17. KIT_VIA 30.12.09 08:38 Сейчас в теме
Большое спасибо, очень понравилось всем клиентам!!!
18. aipnnov 167 30.12.09 09:02 Сейчас в теме
Для новичков - для использования при начале работы пользователей необходимо в модуле приложения конфигурации 8.1 в процедуре ПриНачалеРаботыСистемы добавить следующий код:
Если НачалоДня(ТекущаяДата())= НачалоДня(Дата(2009,12,30)) ИЛИ НачалоДня(ТекущаяДата())= НачалоДня(Дата(2009,12,31)) Тогда 
  Попытка
  Открытка = ВнешниеОбработки.ПолучитьФорму("W:\артПоздравлениеСНовымГодом_2010.epf", "Форма");
  //Открытка = Обработки.артПоздравлениеСНовымГодом_2010.ПолучитьФорму("Форма");
  Открытка.Открыть();
  Исключение
  //ОписаниеОшибки()
  КонецПопытки;
 КонецЕсли
Показать


По моему лучше этот код добавить в модуль самой обработки, а обращение к ней добавить в любой общий модуль, который вызывается из модуля приложения ПриНачалеРаботыСистемы, например в ЗавершениеРаботыПользователей -> УстановитьКонтрольРежимаЗавершенияРаботыПользователей() и конечно же между операторами препроцессора #Если Клиент Тогда и #КонецЕсли.
Это гораздо лучше т.к. можно добавлять в обработку любой праздник.
19. artbear 1563 30.12.09 09:56 Сейчас в теме
Выложил обработку в свободный доступ для всех - качайте сколько хотите :)

(18) Я специально написал "для новичков".
Более опытные разработчики могут придумывать различные варианты :)
Например, у меня юзается спец.класс с вызовом разных вариантов для различных праздников.
20. DarkSign 30.12.09 12:14 Сейчас в теме
А что-то не стартует оно при загрузке. Модуль поправил, права есть, интерфейс соответствует. Работает только с пинка, т.е. вручную...
25. artbear 1563 31.12.09 10:48 Сейчас в теме
(20) Случайно хранилище не юзаешь? У меня лично была проблема, когда в конфу, подключенную к хранилищу, я пытался загрузить данный файл как обработку. Забыл флаг рекурсии поставить, и в итоге форма не грузилась.

Больше никаких проблем не было, как видишь, никто не жалуется, ищи у себя :(
Или пиши более подробно.
21. welik 4 30.12.09 13:01 Сейчас в теме
Спасибо, идея очень нужная. Пошлые анекдоты пришлось удалить. ))
22. TLS 30.12.09 13:49 Сейчас в теме
Спасибо большое, поставила, наших порадовала )))
23. DanilovaOlga 30.12.09 16:02 Сейчас в теме
Просто СУПЕЕЕР!!!! Пока всё работает! СПАСИИИБО!!!! От восторга прям распирает ))) :{}
24. artbear 1563 31.12.09 10:45 Сейчас в теме
(23) Всегда пожалуйста! :)
(21) Насчет пошлых - пока никто не жаловался, тем более, что самые пошлые я предпочитаю рассказывать лично уже самым достойным :)
26. DanilovaOlga 01.12.11 11:07 Сейчас в теме
До сих пор наши вспоминают этот подарок под Новый год )) никто не работал, все анекдоты читали ))
27. DanilovaOlga 01.12.11 11:30 Сейчас в теме
28. DanilovaOlga 01.12.11 11:30 Сейчас в теме
Наши уже спрашивали ))
29. artbear 1563 01.12.11 11:44 Сейчас в теме
30. milkers 2925 19.12.18 11:24 Сейчас в теме
(0) Поздравление на управляемых формах https://infostart.ru/public/960899/
Оставьте свое сообщение