gifts2017

Поздравление пользователя с официальными праздниками

Опубликовал Валерий Воробьёв (WWW123) в раздел Сообщество - Поздравления

Ни  к чему не обязывающая обработка, скорее просто процедура, которая при входе в 1С поздравляет с кануном праздника или праздником. Праздники можно добавлять с указанием текста поздравления и количеством дней, на протяжении которых выводится сообщение.
Проверить работу можно через несколько дней (9 мая).

Для установки, кроме добавления внешней обработки, надо дописать в модуль приложения (для тех кто в танке: наименование конфигурации - правая кнопка мышки - открыть модуль приложения)   следующую процедуру:

/////////
Процедура ПриНачалеРаботыСистемы()
 Форма3=Обработки.Праздники.ПолучитьФорму();
 Форма3.Открыть();
 КонецПроцедуры
////////////

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

Как и обещал, выкладываю доработанную версию, но это уже не внешняя обработка, а пустая конфигурация с одним единственным справочником. Установка "гаджета" осуществляется через "сравнить, объединить с конфигурацией из файла", в форме сравнения нужно оставить только одну  "галочку" (напротив справочника "Праздники"). Модуль приложения нужно изменить как указано выше (если в модуле ничего нет, можно объединить и его).

Да, что интересно, теперь окно само закрывается через пару секунд, но чтобы добавить праздник, можно закоментировать модуль ОбновлениеОтображения() в формеЭлемента справочника Праздники (для танкистов: добавить новый праздник можно каждое первое число любого месяца или любой другой день, изменив системную дату на 1).

Пример работы можно посмотреть в конфигурации Делопроизводство, выложенной:  http://infostart.ru/projects/3935/

 

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

Наименование Файл Версия Размер
- 96
.1241439961 6,92Kb
25.09.09
96
.1241439961 6,92Kb Скачать
- 55
.1241541008 66,20Kb
25.09.09
55
.1241541008 66,20Kb Бесплатно
- 72
.1241541019 10,49Kb
25.09.09
72
.1241541019 10,49Kb Бесплатно

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Князев Евгений Юрьевич (noblekey) 05.05.09 08:26
и в поздравление можно какую нибудь праздничную картинку вставить
2. vip (vip) 05.05.09 09:16
(0) Мощно, а главное, свежо!

А День примЕрения, это день портных и закройщиков, что ли?
3. Аркадий Кучер (Abadonna) 05.05.09 09:37
(2) Ну чего докопался? Может они действительно чего-нибудь примЕрить собрались?
4. Александр Рытов (Арчибальд) 05.05.09 09:49
Незачет. Почему россияне? Поздравление от имени власти что ли?
Требуется добавка для религиозных праздников (с настройкой на конфессию пользователя).
5. Валерий Воробьёв (WWW123) 05.05.09 11:54
Там есть с Рождеством, принимаются заказы на другие праздники.... :)
6. Валерий Воробьёв (WWW123) 05.05.09 11:59
ПримЕрение исправил...
7. Аркадий Кучер (Abadonna) 05.05.09 17:40
А на скриншоте отставил :))))
Но на (6) плюсик за нормальное восприятие справедливой критики
8. Василий (васисубатор) 06.05.09 09:22
9. Антон (woozee) 07.05.09 15:54
Попытка
Открытка = ВнешниеОбработки.ПолучитьФорму("\\v8\Открытки\ТекущийПраздник\ТекущийПраздник.epf","Форма");
Если Не Открытка = Неопределено Тогда
Открытка.Открыть();
КонецЕсли;
Исключение
КонецПопытки;

В обработке форма без всего с фоном картинки. Приходют бухи на работу включают, и видят 1Ску с фоном рабочего стола - открытка (то есть картинка). Автоматизировать нету смысла - картинки лепить ежегодно одни и те же - ненормально ) После праздников грохаешь из папки ТекущийПраздник обработку и всё... Или меняешь на "ЛоготипКомпании". ))) Мелочи ))
Вечером... вот сегодня... закину открытку в директорию, если кто не вышел из 1Ски - ночью всё равно всех вышибает при архивации, а завтра утром все будут глядеть и думать что это очередное обновление 1Ски теперь выводит открытки на рабочий стол программы :-Р
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа