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

27.02.10

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

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

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

Наименование Файл Версия Размер
Отчетик с поздравлением
.ert 474,50Kb
541
.ert 474,50Kb 541 Скачать бесплатно

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

Впихните в глобальный модуль:

Процедура ПриНачалеРаботыСистемы()


 

 //8 марта
ДатаПраздника = 5;
МесяцПраздника = 3;
Если (ДатаМесяц(ТекущаяДата()) = МесяцПраздника) и (ДатаЧисло(ТекущаяДата()) = ДатаПраздника) Тогда
ОткрытьФорму("Отчет.марта8");
КонецЕсли;

P.S. С праздником весны Вас милые дамы!!!

См. также

С Новым Годом 2014

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

Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.

1 стартмани

26.12.2013    16714    14    lushka    9    

3

С Новым Годом 2013!

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

Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/

1 стартмани

28.12.2012    16743    12    lushka    6    

3

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

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

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

1 стартмани

19.12.2012    20618    37    Vital451    20    

6

Мультфильм к новому году

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

Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.

1 стартмани

04.12.2012    20285    98    alf2006x    9    

16

Поздравление с 8 марта для 1С:7.7

Поздравления Оперативный учет 7.7 Бухгалтерский учет 7.7 Конфигурации 1cv7 Россия Бесплатно (free)

Обработка с картинкой и текстом поздравления с 8 марта. Написана не мною, найдена на одной из работ. На инфостарте нет, публикую для коллекции.

12.02.2012    20353    67    fixin    9    

2

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

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

Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров

1 стартмани

30.11.2011    19846    133    kenshin    57    

50

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

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

Для наших любимых дам простое поздравление.

1 стартмани

25.01.2011    19495    364    kenshin    17    

22

Исполнитель желаний - можно ВСЁ!!! Скачай и получи в подарок 1 доллар США

Поздравления OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)

от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu

1 стартмани

27.12.2010    23617    304    Tatitutu    70    

40
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. GenTay 27.02.10 10:31 Сейчас в теме
Идея очень и очень, но можно как-то без глобального модуля, у меня куча перифериек, и МД неслабый. Из-за них менять глобальный не хочу, но и обработка нравится - как быть?
2. Re:аниматор 338 27.02.10 12:50 Сейчас в теме
(1)

1. По электронке разослать всем сотрудницам данную обработку
2. 05.03.2010 ИЛИ 08.03.2010
3. Меню "Файл"-"Открыть" и выбрать обработку "8марта.ert"
4. Наслаждаться результатом

=)
3. Abadonna 3958 27.02.10 13:14 Сейчас в теме
(0)
ДатаПраздника = 5;
МесяцПраздника = 3;
Если (ДатаМесяц(ТекущаяДата()) = МесяцПраздника) и (ДатаЧисло(ТекущаяДата()) = ДатаПраздника) Тогда
ОткрытьФорму("Отчет.марта8");
КонецЕсли;

А почему не
Если ТекущаяДата()=Дата("08.03.10") Тогда
ОткрытьФорму("Отчет.марта8");
КонецЕсли;

4. Sanek 74 27.02.10 14:31 Сейчас в теме
(3) Можно и так, но сработает только в 2010 году ;)
5. Abadonna 3958 27.02.10 14:32 Сейчас в теме
Тогда так:
Если Лев(Строка(ТекущаяДата()),5)="03.08" Тогда...
6. Sanek 74 27.02.10 14:33 Сейчас в теме
7. Albinos 03.03.10 06:07 Сейчас в теме
А как сделать в Торговле и склад, при закгрузке вылетает ошибка "{Глобальный модуль(14658)}: Неверно указан вид. 8marta" ?
10. Albinos 03.03.10 07:55 Сейчас в теме
(7) Спасибо, добрым людям :) , надо так :
Если ТекущаяДата()=Дата("03.03.10") Тогда
ОткрытьФорму("Отчет",,КаталогИБ()+"\ExtForms\8marta.ert");
КонецЕсли;
13. Koнст 04.03.10 11:21 Сейчас в теме
(10) Чтобы работало каждый год в последний рабочий предпразничный день с учетом выходных:

ДатаПраздника = 7;
Если (ДатаЧисло(ТекущаяДата())>4)И(ДатаЧисло(ТекущаяДата())<7)И(НомерДняНедели(ТекущаяДата())=5) Тогда
ДатаПраздника=ДатаЧисло(ТекущаяДата());
КонецЕсли;
15. artbear 1448 05.03.10 10:27 Сейчас в теме
(13), (11) Изучаем http://www.infostart.ru/public/19232
код автора и мой пост №16
Хотя там код для 8-ки, но и 77 код почти полностью аналогичен :)
16. Koнст 05.03.10 11:43 Сейчас в теме
(15) Увы, с восьмеркой не знаком, соответсвенно и отчеты восьмерочные не смотрю.
Много кода, ниасилил ;)
Пусть будет так:

Функция Поздравлялка(РаботаемВсубботу=0)
Если ДатаМесяц(ТекущаяДата())=3 Тогда
ДатаПраздника = 7;
Если (ДатаЧисло(ТекущаяДата())>4)И(ДатаЧисло(ТекущаяДата())<ДатаПраздника)И(НомерДняНедели(ТекущаяДата())=5+РаботаемВСубботу) Тогда
ДатаПраздника=ДатаЧисло(ТекущаяДата());
КонецЕсли;
Если (Прав(СоклЛП(ПолноеИмяПользователя()),2)="на")И(ДатаПраздника=ДатаЧисло(ТекущаяДата())) Тогда
ОткрытьФорму("Отчет",,КаталогИБ()+"\ExtForms\8marta.ert");
КонецЕсли;
КонецЕсли;
КонецФункции
8. Albinos 03.03.10 06:08 Сейчас в теме
И ещё интересно бы было, чтоб можно было исключить некоторых пользователей, а то мужики не оценят ;)
9. Mitay_D 13 03.03.10 07:32 Сейчас в теме
11. Albinos 03.03.10 08:37 Сейчас в теме
(8) Додумался :) , чтоб исключить некоторых пользователей, надо так:

Если ТекущаяДата()=Дата("03.03.10") Тогда Если ИмяПользователя() <> (указываем код пользователя) Тогда
ОткрытьФорму("Отчет",,КаталогИБ()+"\ExtForms\8marta.ert");
КонецЕсли;
КонецЕсли;
12. Sanek 74 03.03.10 09:10 Сейчас в теме
Ну вот можете ведь сами подумать, когда захотите ;)
14. IgorXml 724 04.03.10 20:36 Сейчас в теме
Вот для 8-ки сделал(стянул у хорошего человека из "Поздравление с Новым Годом 2010") и переделал чуток. http://infostart.ru/public/66677/
17. kleo1986 14.02.11 14:00 Сейчас в теме
не работает((( вставляю в ПриНачалеРаботыСистемы в конец (и не только) ну не открывается автоматически, подскажите в чем дело?
Дату в отчете ставлю не 5-3 как там, а 14-2, т.е. хочу что б сегодня открылась
18. sergey1280 11.10.11 08:17 Сейчас в теме
Все работает замечательно, спасибо автору!))
19. MoonBee 24.10.11 12:49 Сейчас в теме
Оригинальное, красочное и радостное поздравление!)))) Огромнейшее спасибо автору от коллектива финансистов!! =))
20. slavik27 88 28.11.11 12:44 Сейчас в теме
Отлично! То что нужно было в свое время, порадовал своих бух-ов перед праздником. Правда некоторые забыли отключить 1с и на следующий день ничего не увидели.(
21. Sanek_159 1 24.02.12 14:30 Сейчас в теме
(20) slavik27, Не забыть всех выгнать за день до этого, под предлогом обновления :)
22. пользователь 05.03.12 15:27
Сообщение было скрыто модератором.
...
Оставьте свое сообщение