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

27.12.23

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

Скачать файл

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

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

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

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

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

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

+125 –

См. также

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016 55298 17 23

Богатый редактор картинок 1С, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Богатый редактор картинок 1С предназначен для обработки изображений в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015 63691 44 59

Управление дашбордами

Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020 19543 27 6

Настройки управляемых форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, доступ [Расширение]

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы 1С:Управление торговлей 11 Россия Платные (руб)

Настройки упр.форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, условное оформление, доступ.

2000 руб.

20.02.2018 21009 24 21

Редактор графов в 1С

Работа с интерфейсом Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Редактор графов в 1С - внешний отчет, который формирует графы на основе таблицы значений, используя рисунки табличного документа. Есть возможность добавления, редактирования объектов графа и выгрузки результата в таблицу значений.

1500 руб.

06.10.2020 10762 7 7

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 20781 mrXoxot 44

128

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

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

27.05.2024 10269 smielka 37

105

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

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

3 стартмани

10.04.2023 12487 167 acces969 31

126

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

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

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

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

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

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

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

10. SerVer1C 839 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 553 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. 300 28.12.23 09:22 Сейчас в теме

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

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

Ответить

22. SerVer1C 839 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 232 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 232 28.12.23 14:56 Сейчас в теме

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

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

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

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

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

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

(19) Спасибо)

34. PerlAmutor 155 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 24 29.12.23 10:23 Сейчас в теме

(34)спасибо

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

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

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

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

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

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

39. elcoan 1059 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 1059 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 1382 26.02.24 18:24 Сейчас в теме

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

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

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

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

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

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

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

50. Serg O. 300 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].Удалить();
		КонецЕсли;
		
	Исключение
	КонецПопытки;
	
КонецПроцедуры

Показать