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

27.02.10

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

Скачать файл

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

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

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

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

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

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

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

+12 –

См. также

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

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

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

1 стартмани

26.12.2013 16854 14 lushka 9

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

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

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

1 стартмани

28.12.2012 16866 12 lushka 6

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

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

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

1 стартмани

19.12.2012 20906 37 Vital451 20

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

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

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

1 стартмани

04.12.2012 20449 98 alf2006x 9

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

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

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

12.02.2012 20517 68 fixin 9

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

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

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

1 стартмани

30.11.2011 20406 133 kenshin 57

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

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

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

1 стартмани

25.01.2011 19702 364 kenshin 17

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

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

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

1 стартмани

27.12.2010 23931 304 Tatitutu 70

Комментарии

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

Свернуть все

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 3969 27.02.10 13:14 Сейчас в теме

(0)

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

А почему не

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

4. Sanek 75 27.02.10 14:31 Сейчас в теме

(3) Можно и так, но сработает только в 2010 году ;)

5. Abadonna 3969 27.02.10 14:32 Сейчас в теме

Тогда так:
Если Лев(Строка(ТекущаяДата()),5)="03.08" Тогда...

6. Sanek 75 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 1566 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 14 03.03.10 07:32 Сейчас в теме

(8) это верно!

11. Albinos 03.03.10 08:37 Сейчас в теме

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

Если ТекущаяДата()=Дата("03.03.10") Тогда Если ИмяПользователя() <> (указываем код пользователя) Тогда
ОткрытьФорму("Отчет",,КаталогИБ()+"\ExtForms\8marta.ert");
КонецЕсли;
КонецЕсли;

12. Sanek 75 03.03.10 09:10 Сейчас в теме

Ну вот можете ведь сами подумать, когда захотите ;)

14. IgorXml 731 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 101 28.11.11 12:44 Сейчас в теме

Отлично! То что нужно было в свое время, порадовал своих бух-ов перед праздником. Правда некоторые забыли отключить 1с и на следующий день ничего не увидели.(