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

27.02.10

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

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

Бесплатные

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

Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО

Наименование Скачано Бесплатно
Отчетик с поздравлением
.ert 474,50Kb
547 Скачать бесплатно

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

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

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


 

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

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

Вступайте в нашу телеграмм-группу Инфостарт

+12 –

См. также

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

Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

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

26.12.2013    18325    15    lushka    9    

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

Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

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

28.12.2012    18201    12    lushka    6    

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

Поздравления 1С:Предприятие 7.7 1C77 Бесплатно (free)

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

19.12.2012    22352    40    Vital451    20    

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

Поздравления Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

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

04.12.2012    21851    100    alf2006x    9    

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

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

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

12.02.2012    21799    73    fixin    9    

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

Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

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

30.11.2011    23707    137    kenshin    57    

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

Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

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

25.01.2011    21302    365    kenshin    17    

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

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

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

27.12.2010    25470    307    Tatitutu    70    

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

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

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

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

+ – Ответить
4. Sanek 76 27.02.10 14:31 Сейчас в теме
(3) Можно и так, но сработает только в 2010 году ;)
+ – Ответить
5. Abadonna 3979 27.02.10 14:32 Сейчас в теме
Тогда так:
Если Лев(Строка(ТекущаяДата()),5)="03.08" Тогда...
+ – Ответить
6. Sanek 76 27.02.10 14:33 Сейчас в теме
(5) :D :D :D :D
+ – Ответить
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 1590 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 Сейчас в теме
И ещё интересно бы было, чтоб можно было исключить некоторых пользователей, а то мужики не оценят ;)
Mitay_D; +1 – Ответить
9. Mitay_D 14 03.03.10 07:32 Сейчас в теме
(8) это верно!
+ – Ответить
11. Albinos 03.03.10 08:37 Сейчас в теме
(8) Додумался :) , чтоб исключить некоторых пользователей, надо так:

Если ТекущаяДата()=Дата("03.03.10") Тогда Если ИмяПользователя() <> (указываем код пользователя) Тогда
ОткрытьФорму("Отчет",,КаталогИБ()+"\ExtForms\8marta.ert");
КонецЕсли;
КонецЕсли;
+ – Ответить
12. Sanek 76 03.03.10 09:10 Сейчас в теме
Ну вот можете ведь сами подумать, когда захотите ;)
+ – Ответить
14. IgorXml 734 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 129 28.11.11 12:44 Сейчас в теме
Отлично! То что нужно было в свое время, порадовал своих бух-ов перед праздником. Правда некоторые забыли отключить 1с и на следующий день ничего не увидели.(
+ – Ответить
21. Sanek_159 1 24.02.12 14:30 Сейчас в теме
(20) slavik27, Не забыть всех выгнать за день до этого, под предлогом обновления :)
+ – Ответить
22. пользователь 05.03.12 15:27
Сообщение было скрыто модератором.
...
Для отправки сообщения требуется регистрация/авторизация