Новогоднее оформление для 1С

27.12.23

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

Бесплатные

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

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

Наименование	Скачано	Бесплатно
Новогоднее оформление для 1С .cfe 25,97Kb 1383	1383	Скачать бесплатно

Создал простое расширение, которое добавляет на формы новогоднюю гирлянду. Выглядит очень необычно и радует окружающих)

Проверено на конфигурациях:

1. Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.144.49)
2. Управление торговлей, редакция 11 (11.5.15.57)
3. Зарплата и управление персоналом КОРП, редакция 3.1 (3.1.28.60)
4. Управление нашей фирмой, редакция 3.0 (3.0.6.126)

Установка: добавить расширение, снять флажок "Безопасный режим".

Хорошего дня!

Проверено на следующих конфигурациях и релизах:

Бухгалтерия предприятия, редакция 3.0, релизы 3.1.22.86
Управление торговлей, редакция 11, релизы 11.5.15.57
Зарплата и управление персоналом, редакция 3.1, релизы 3.1.28.60
Управление нашей фирмой, редакция 3.0, релизы 3.0.6.126

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

новый год новогоднее оформление мандарины шампанское

+131 –

См. также

Поздравление с днем рождения

Поздравления 1С:Бухгалтерия 3.0 Бесплатно (free)

Расширение позволяет поздравить пользователя, у которого сегодня День рождения. Выводит предупреждение при открытии системы.

19.05.2025 1299 26 SVLong 2

Матрешка прячет секреты в PNG

Работа с интерфейсом Поздравления 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Хотите сделать цифровую поздравительную открытку? Обработка умеет прятать секреты в картинки png.

26.12.2024 2535 23 dsdred 12

Новогодний квест "Матрешка"

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

Данная статья для меня юбилейная, и я решил устроить небольшой новогодний квест «Матрешка» с подарком для самого быстрого.

26.12.2024 2501 dsdred 32

Универсальные поздравления с праздниками

Поздравления 1С:Предприятие 8 1С:ERP Управление предприятием 2 Бесплатно (free)

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

04.12.2024 1594 81 user1242725 1

Оформление 8 марта для 1С

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

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

05.03.2024 5569 269 zakharov_yuri 13

Как сделать сюрприз для пользователей

Поздравления Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

Когда бухгалтер просит вставить кактус, я не могу отказать.

28.12.2023 2811 e.kogan 4

Валентинки 1C

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

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

14.02.2023 2945 ystetsenko 1

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

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

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

1 стартмани

19.11.2022 3176 8 mrSallivan 2

Комментарии

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

Свернуть все

1. Sofia9876 27.12.23 13:56 Сейчас в теме

Огонь! Супер! Спасибо! С наступающим!)

2. AllShallFall 27.12.23 14:08 Сейчас в теме

УНФ 1.6.27.295 - не выводилось на формах списков.
решилось удалением "знач" в расширенном модуле ПодключаемыеКоманды процедуры нг_ПриСозданииНаСервере.

за расширение - спасибо) !

3. Lemmonbri 161 27.12.23 14:17 Сейчас в теме

На отраслевых или более старых версиях тоже запуститься с минимальными доработками - на версии 8.3.17 УТиВСК запустилось с минимальными правками.
В отчетах без форм не работает (обычно самописные или отраслевые). В самописных формах так же может не запуститься, но все решается быстро добавлением декорации вручную)

4. Aleksey79 27.12.23 15:18 Сейчас в теме

Спасибо! С наступающим!

5. SerVer1C 993 27.12.23 16:06 Сейчас в теме

На Инфостарте такая же гирлянда. Совпадение?

6. elcoan 1151 27.12.23 16:26 Сейчас в теме

(5) Вдохновлялся именно ею)

10. SerVer1C 993 27.12.23 17:26 Сейчас в теме

(6) Друзья, для бОльшего эффекта праздника держите "живую" гирлянду.

Ответить

7. gtrr34 7 27.12.23 16:37 Сейчас в теме

Спасибо большое! Вот чего не хватало для настроения!!!

В мелком масштабе правильное отображение появилось после внесения правок в модуль "нг_ОбщегоНазначения"

// Было
	//НовыйЭлемент.Масштабировать = Истина;
	//НовыйЭлемент.Масштаб = 50;
	//НовыйЭлемент.Высота  = 1;

	// Стало
	Если ВариантМасштабаФормКлиентскогоПриложения = 
		ВариантМасштабаФормКлиентскогоПриложения.Обычный Тогда
		НовыйЭлемент.Масштабировать = Истина;
		НовыйЭлемент.Масштаб = 50;
		НовыйЭлемент.Высота  = 1;
	ИначеЕсли ВариантМасштабаФормКлиентскогоПриложения = 
		ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
		НовыйЭлемент.Высота  = 2;
	КонецЕсли;

Показать

Так же из-за внесения расширения методом объединить/сравнить возник конфликт имени роли "Расш1_ОсновнаяРоль"
Что натолкнуло меня на мысль: "В расширении всегда меняй префикс имен, подставляемый по умолчанию!"

P.S. Жаль нельзя через внешнюю обработку, а то порадовал бы бухгалтеров на базовых БП :)

Ответить

21. polos75 28.12.23 11:33 Сейчас в теме

(7)

ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда

Что-то не так. Может, в платформе дело, но у меня в режиме совместимости с 8.3.16 такой глобальной переменной как ВариантМасштабаФормКлиентскогоПриложения нет.
Вопрос появился, так как некоторые коллеги ещё и отключают интерфейс Такси.
Сделал так:

	НовыйЭлемент.Подсказка = "С Новым Годом!!!    Мототехника - ВПЕРЁД!!!";
	нп=Новый НастройкиКлиентскогоПриложения;
	Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Такси
		и не нп.ВариантМасштабаФормКлиентскогоПриложения = ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
			НовыйЭлемент.Масштабировать 		  = Истина;
			НовыйЭлемент.Масштаб = 50;
			НовыйЭлемент.Высота  = 1;
	Иначе
		НовыйЭлемент.Высота = 2;
	КонецЕсли;

Показать

51. gtrr34 7 27.12.24 12:47 Сейчас в теме

(21)

такой глобальной переменной как ВариантМасштабаФормКлиентскогоПриложения нет

Верно. ни в какой платформе нет, это системное перечисление. а сработало тогда, потому что не входил в условие и просто не устанавливал масштаб ни в каком случае.

При "ВариантМасштабаФормКлиентскогоПриложения.Компактный" - масштаб картинки не работает вообще (8.3.24.1342), только полноразмерные gif показывать удастся.

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

Настройки = ХранилищеСистемныхНастроек.Загрузить("Общее/НастройкиКлиентскогоПриложения", "",, ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
Если Настройки.ВариантМасштабаФормКлиентскогоПриложения = ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
// нет платформы, в которой работает масштаб в компактном режиме
КонецЕсли;

8. Teplotrassamen 27.12.23 16:42 Сейчас в теме

Спасибо, жаль только после нового года мои бухгалтера и кадровики увидят это. Но думаю в январе повисит пару недель точно.

9. v8_088 27.12.23 16:50 Сейчас в теме

Красиво, спасибо. С Новым Годом.

11. maksa2005 379 27.12.23 19:53 Сейчас в теме

Или при старте 1с
https://infostart.ru/1c/tools/1353959/

12. degtyarev85 28.12.23 06:48 Сейчас в теме

Спасибо!
Закину свои 5 копеек. Чтобы в общих журналах тоже выходила гирлянда добавляем в расширение модуль "ОбщегоНазначенияБКВызовСервера" и подменяем функцию "УстановитьОтборПоОсновнойОрганизации".
Проверено на конфигурации Бухгалтерия для Казахстана, для России возможно придется использовать другой модуль
предположу что "ОбщегоНазначенияБПВызовСервера".

&Вместо("УстановитьОтборПоОсновнойОрганизации")
Функция нг_УстановитьОтборПоОсновнойОрганизации(Форма, ИмяСписка, ИмяРеквизита, ЗначениеОтбора)
	
	нг_ОбщегоНазначения.ПриСозданииНаСервере(Форма);
	
	ПродолжитьВызов(Форма, ИмяСписка, ИмяРеквизита, ЗначениеОтбора);
	
КонецФункции

Показать

13. dj_tol 104 28.12.23 07:03 Сейчас в теме

ERP 2.5.14 полет нормальный.

14. insurgut 208 28.12.23 08:04 Сейчас в теме

Чтобы вручную не контролировать, в процедуру ПриСозданииНаСервере добавил...

	ДедМорозПришел = Ложь;
	Если Месяц(ТекущаяДата()) = 12
		И День(ТекущаяДата()) >= 25 Тогда
		ДедМорозПришел = Истина;
	КонецЕсли;
	
	Если Месяц(ТекущаяДата()) = 1
		И День(ТекущаяДата()) <= 14 Тогда
		ДедМорозПришел = Истина;
	КонецЕсли;
	
	Если Не ДедМорозПришел Тогда
		Возврат;
	КонецЕсли;

Показать

16. user991808 28.12.23 09:38 Сейчас в теме

(14) Можно еще проще :)

ТекМесяц 	   = Месяц(ТекущаяДатаСеанса()); 
ТекЧисло 	   = День(ТекущаяДатаСеанса());	
ДедМорозПришел = ТекМесяц = 12 И ТекЧисло > 24 ИЛИ ТекМесяц = 1 И ТекЧисло < 20;
    
Если ДедМорозПришел = Ложь Тогда
   Возврат;
КонецЕсли;

24. insurgut 208 28.12.23 13:09 Сейчас в теме

(16) от перестановки мест слагаемых, как говорится, суть не меняется. Цели максимально кратко записать код тут не стоит. :)

15. Serg O. 314 28.12.23 09:22 Сейчас в теме

можно и GIF-гирлянды вставлять ...
в Общие картинки - нг_Оформление можно загрузить из файла ...
вот несколько "бегущих огней"

Прикрепленные файлы:

Ответить

22. SerVer1C 993 28.12.23 11:38 Сейчас в теме

(15) мои мысли читаете (из 10-го коммента)

17. _burb_on_ 11 28.12.23 09:46 Сейчас в теме

Товарищи, я в этом нуб... Но может кто-то соберет все предложения в одну обработку?
И автодату, и общие журналы и анимацию? :)

19. user991808 28.12.23 10:30 Сейчас в теме

(17)

кто-то соберет все предложения в одну обработку?
И автодату, и общие журналы и анимацию? :)

Держи :)
Порадуй коллег:)

Прикрепленные файлы:

PUBID_2008158-НовогоднееОформление.cfe

Ответить

20. LavinVladik 218 28.12.23 11:01 Сейчас в теме

От
(19)
Про гинератор хитро

23. user991808 28.12.23 12:17 Сейчас в теме

(20) Мы выживали как могли)

18. KirillHome 5 28.12.23 10:21 Сейчас в теме

(16) Я добавил ещё такое...

ЭлементНовогодняяИллюминация = Форма.Элементы.Найти("нг_Оформление");
Если ЭлементНовогодняяИллюминация <> Неопределено Тогда
	Если НЕ ДедМорозПришел  тогда
		Форма.Элементы.Удалить(ЭлементНовогодняяИллюминация);
	КонецЕсли;
	Возврат;
КонецЕсли;

//А уже потом...
Если ДедМорозПришел = Ложь Тогда
	Возврат;
КонецЕсли;

Показать

25. insurgut 208 28.12.23 13:11 Сейчас в теме

(18) по логике Дед мороз там уходит ещё до создания элемента формы, поэтому удалять и нечего :)

26. user1632114 28.12.23 14:26 Сейчас в теме

ERP 2.5.12.121 с небольшими исправлениями взлетело

27. orlin553 28.12.23 14:44 Сейчас в теме

жаль на 8.3.18 не работает)

28. user1632114 28.12.23 14:54 Сейчас в теме

(27)

жаль на 8.3.18 не работает)

Почему не работает?

31. orlin553 28.12.23 14:57 Сейчас в теме

(28) бсп старое)

30. LavinVladik 218 28.12.23 14:56 Сейчас в теме

(27) подправить надо маленько и все заработает

29. triviumfan 102 28.12.23 14:54 Сейчас в теме

Прикольно. Оригинально. Спасибо.

32. ByBedareva 2 28.12.23 15:06 Сейчас в теме

С исправлениями, но запустила на Документообороте 2.1. Спасибо большое за новогоднее настроение

33. Matveev_VS 168 28.12.23 16:36 Сейчас в теме

(19) Спасибо)

34. PerlAmutor 160 29.12.23 06:24 Сейчас в теме

Для ERP 2.5.8 на платформе 8.3.20 (Такси + В закладках)
Для ЗУП КОРП 3.1.27 на платформе 8.3.23

Прикрепленные файлы:

НовогоднееОформление_ERP258_8320.cfe
НовогоднееОформление_ЗУП3127_8323.cfe

36. akR00b 25 29.12.23 10:23 Сейчас в теме

(34)спасибо

35. zakharov_yuri 43 29.12.23 07:25 Сейчас в теме

Спасибо. Поставил. Жаль, поздновато, но хо-ро-шо.

37. alexey_kurdyukov 186 29.12.23 11:37 Сейчас в теме

Лучшая разработка за год!

38. aleksey2 91 29.12.23 12:36 Сейчас в теме

Ошибка применения модуля "НовогоднееОформление ОбщийМодуль.ПодключаемыеКоманды.Модуль". Список параметров метода "нг_ПриСозданииНаСервере" не соответствует методу "ПриСозданииНаСервере".

39. elcoan 1151 29.12.23 12:37 Сейчас в теме

(38) Нужно убрать "Знач" у второго параметра в "нг_ПриСозданииНаСервере"

40. ejique 29.12.23 16:58 Сейчас в теме

Спасибо, хорошая идея!

41. Danilov 04.01.24 10:48 Сейчас в теме

Спасибо! Запустил.

42. user2035252 09.01.24 14:43 Сейчас в теме

Добрый день!

Подскажите пожалуйста алгоритм как эту гирлянду отключить?

43. elcoan 1151 10.01.24 23:02 Сейчас в теме

(42) Добрый день! Отключить активность у расширения или удалить его из базы.

44. IntellXeon 05.02.24 18:21 Сейчас в теме

Спасибо! а что если намутить для каждого времени года?

46. Vblmpel_ 22.05.24 16:31 Сейчас в теме

(44)Тоже посетила такая идея. Но будет приедаться . Лучше на определенные праздники: 23 февраля, 8 марта, первый день весны и т.д

45. LamerSoft 1581 26.02.24 18:24 Сейчас в теме

Снимаю шляпу, лихо и забавно )

47. GrigoryYanshin 77 31.05.24 16:54 Сейчас в теме

Блин, мне это так понравилось) Что я во все конфигурации себе поставил это

48. vanekkorr 27.11.24 11:03 Сейчас в теме

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

49. elcoan 1151 28.11.24 08:36 Сейчас в теме

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

50. Serg O. 314 10.12.24 11:16 Сейчас в теме

(48) можно реквизит для справочника Пользователи сделать (в этом же расширении) или дополнительный реквизит
и по нему вкл. или выкл.

52. gtrr34 7 27.12.24 13:31 Сейчас в теме

Включение новогодней заставки по расписанию от джуна:

1) Создаем расширение "НовыйГод", в нем меняем заставку на новогоднюю

2)В рабочем расширении, работающем круглый год (ну или в основной конфе, если правите ее) в модуле приложения в процедуре "ПриНачалеРаботыСистемы" вызываем "ВключитьРасширениеСНовогоднейЗаставкой()"

// Включает расширение с новогодней заставкой
Процедура ВключитьРасширениеСНовогоднейЗаставкой() Экспорт

	ТекМесяц = Месяц(ТекущаяДата()); 
	ТекЧисло = День(ТекущаяДата());
	
	Если (ТекМесяц = 12 И ТекЧисло > 23) ИЛИ (ТекМесяц = 1 И ТекЧисло < 9) Тогда
		РасширениеСНовогоднейЗаставкойАктивно(Истина);
	Иначе
		РасширениеСНовогоднейЗаставкойАктивно(Ложь);
	КонецЕсли; 
	
КонецПроцедуры

Процедура РасширениеСНовогоднейЗаставкойАктивно(СостояниеАктивности)

	МассивСРасширением = РасширенияКонфигурации.Получить(Новый Структура("Имя", "НовыйГод"));
	
	Если МассивСРасширением.Количество() = 0 Тогда
		Возврат;	
	КонецЕсли;

	Если СостояниеАктивности = Истина Тогда
		Если МассивСРасширением[0].Активно = Ложь Тогда
			Попытка
				// Если открыт конфигуратор с окном расширений то возникает ошибка блокировки объекта "Уже заблокирован в конфигураторе"
				МассивСРасширением[0].Активно = Истина;
				МассивСРасширением[0].Записать();
			Исключение
			КонецПопытки;
		КонецЕсли; 
	Иначе	
		Если МассивСРасширением[0].Активно = Истина Тогда
			Попытка
				МассивСРасширением[0].Активно = Ложь;
				МассивСРасширением[0].Записать();
			Исключение
			КонецПопытки;
		КонецЕсли; 
	КонецЕсли;
	
КонецПроцедуры

Показать

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

С наступающим!

53. gtrr34 7 10.01.25 09:06 Сейчас в теме

(52) После окончания праздников и отключения расширения вышеуказанным способом, при каждом запуске всплывает уведомление "Расширение "Новый Год" не активно"... Не порядок. Переделал на программное создание и удаление расширения. В общий макет нужно добавить макет "НовыйГод" с типом "Двоичные данные" и добавить в него файл расширения с заставкой .cfe

ОписаниеЗащитыОтОпасныхДействий сделал методом тыка. без него при создании расширения выходит окно с предупреждением об опасности, в котором если пользователь нажмет "нет" то наверное больше никогда не подключится расширение... Там есть что-то про хэш расширения и профиль безопасности, который можно настроить и тогда конфа не будет считать данные опасными, но не нашел как настраивать программно этот самый профиль безопасности. возможно это актуально только для клиент-серверного варианта...

// Включает расширение с новогодней заставкой
Процедура ВключитьРасширениеСНовогоднейЗаставкой() Экспорт

	ТекМесяц = Месяц(ТекущаяДата()); 
	ТекЧисло = День(ТекущаяДата());
	
	Если (ТекМесяц = 12 И ТекЧисло > 23) ИЛИ (ТекМесяц = 1 И ТекЧисло < 8) Тогда
		РасширениеСНовогоднейЗаставкойАктивно(Истина);
	Иначе
		РасширениеСНовогоднейЗаставкойАктивно(Ложь);
	КонецЕсли; 
	
КонецПроцедуры

Процедура РасширениеСНовогоднейЗаставкойАктивно(УстановитьРасширение)
	
	Попытка
		
		УстановитьПривилегированныйРежим(Истина);
		МассивСРасширением = РасширенияКонфигурации.Получить(Новый Структура("Имя", "НовыйГод"));
		
		Если УстановитьРасширение = Истина
			И МассивСРасширением.Количество() = 0 Тогда
			ДвоичныеДанныеРасширения = ПолучитьОбщийМакет("НовыйГод");
			НовоеРасширение = РасширенияКонфигурации.Создать(ДвоичныеДанныеРасширения);
			НовоеРасширение.БезопасныйРежим = Ложь;
			ОписаниеЗащитыОтОпасныхДействий = Новый ОписаниеЗащитыОтОпасныхДействий();
			ОписаниеЗащитыОтОпасныхДействий.ПредупреждатьОбОпасныхДействиях = Ложь;
			НовоеРасширение.ЗащитаОтОпасныхДействий = ОписаниеЗащитыОтОпасныхДействий;
			НовоеРасширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.ИнформационнаяБаза;
			НовоеРасширение.Записать();
		ИначеЕсли УстановитьРасширение = Ложь
			И МассивСРасширением.Количество() > 0 Тогда	
			МассивСРасширением[0].Удалить();
		КонецЕсли;
		
	Исключение
	КонецПопытки;
	
КонецПроцедуры

Показать