Новогоднее оформление для 1С
Задачи пользователя - Поздравления
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
| Наименование | Скачано | Бесплатно |
|---|---|---|
|
Новогоднее оформление для 1С
.cfe 25,97Kb
1693
|
1693 | Скачать бесплатно |
Создал простое расширение, которое добавляет на формы новогоднюю гирлянду. Выглядит очень необычно и радует окружающих)
Проверено на конфигурациях:
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
Вступайте в нашу телеграмм-группу Инфостарт
См. также
Поздравления 1С:Предприятие 8 1С:Библиотека стандартных подсистем Бесплатно (free)
Новогоднее поздравление для 1С. Дед Мороз, хлопушка и салют при запуске программы - с вашим текстом поздравления.
28.10.2026 660 52 mob51 0
Поздравления 1С 8.3 1С 8.5 Бесплатно (free)
Расширение меняет заставку, цвет интерфейса и добавляет анимированные украшения на формы. Возможна персонализация для других конфигураций. Если вам понравилось расширение, не забудьте поставить плюсик!
16.10.2026 1006 81 NVKom 4
Поздравления 1С:Предприятие 8 1С:Бухгалтерия 3.0 1С:Управление торговлей 11
Создайте праздничную атмосферу в 1С:Предприятии с помощью расширения, которое добавляет визуальное украшение в виде гирлянды на формы объектов системы.
23.09.2026 239 0 1C-Store-Bot 0
Поздравления 1С 8.3 Бесплатно (free)
Расширение меняет заставку, цвет интерфейса и добавляет изображения на формы. Возможна персонализация для других конфигураций. Если вам понравилось расширение, не забудьте поставить плюсик!
11.12.2025 6021 552 NVKom 22
Поздравления 1С:Бухгалтерия 3.0 Бесплатно (free)
Расширение позволяет поздравить пользователя, у которого сегодня День рождения. Выводит предупреждение при открытии системы.
19.05.2025 2662 48 SVLong 2
Работа с интерфейсом Поздравления 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)
Хотите сделать цифровую поздравительную открытку? Обработка умеет прятать секреты в картинки png.
26.12.2024 4103 28 dsdred 12
Поздравления 1С:Предприятие 8 Бесплатно (free)
Данная статья для меня юбилейная, и я решил устроить небольшой новогодний квест «Матрешка» с подарком для самого быстрого.
26.12.2024 5754 dsdred 34
Поздравления 1С:Предприятие 8 1С:ERP Управление предприятием 2 Бесплатно (free)
Расширение конфигурации с гибкой настройкой: предопределенные праздники, возможность добавления праздников, индивидуальные праздники по пользователям Включает скачанные картинки для поздравления (в архиве).
04.12.2024 3049 202 user1242725 1
решилось удалением "знач" в расширенном модуле ПодключаемыеКоманды процедуры нг_ПриСозданииНаСервере.
за расширение - спасибо) !
В отчетах без форм не работает (обычно самописные или отраслевые). В самописных формах так же может не запуститься, но все решается быстро добавлением декорации вручную)
В мелком масштабе правильное отображение появилось после внесения правок в модуль "нг_ОбщегоНазначения"
// Было
//НовыйЭлемент.Масштабировать = Истина;
//НовыйЭлемент.Масштаб = 50;
//НовыйЭлемент.Высота = 1;
// Стало
Если ВариантМасштабаФормКлиентскогоПриложения =
ВариантМасштабаФормКлиентскогоПриложения.Обычный Тогда
НовыйЭлемент.Масштабировать = Истина;
НовыйЭлемент.Масштаб = 50;
НовыйЭлемент.Высота = 1;
ИначеЕсли ВариантМасштабаФормКлиентскогоПриложения =
ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
НовыйЭлемент.Высота = 2;
КонецЕсли; ПоказатьТак же из-за внесения расширения методом объединить/сравнить возник конфликт имени роли "Расш1_ОсновнаяРоль"
Что натолкнуло меня на мысль: "В расширении всегда меняй префикс имен, подставляемый по умолчанию!"
P.S. Жаль нельзя через внешнюю обработку, а то порадовал бы бухгалтеров на базовых БП :)
ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
Что-то не так. Может, в платформе дело, но у меня в режиме совместимости с 8.3.16 такой глобальной переменной как ВариантМасштабаФормКлиентскогоПриложения нет.
Вопрос появился, так как некоторые коллеги ещё и отключают интерфейс Такси.
Сделал так:
НовыйЭлемент.Подсказка = "С Новым Годом!!! Мототехника - ВПЕРЁД!!!";
нп=Новый НастройкиКлиентскогоПриложения;
Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Такси
и не нп.ВариантМасштабаФормКлиентскогоПриложения = ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
НовыйЭлемент.Масштабировать = Истина;
НовыйЭлемент.Масштаб = 50;
НовыйЭлемент.Высота = 1;
Иначе
НовыйЭлемент.Высота = 2;
КонецЕсли;
ПоказатьВерно. ни в какой платформе нет, это системное перечисление. а сработало тогда, потому что не входил в условие и просто не устанавливал масштаб ни в каком случае.
При "ВариантМасштабаФормКлиентскогоПриложения.Компактный" - масштаб картинки не работает вообще (8.3.24.1342), только полноразмерные gif показывать удастся.
Ваш способ тоже не корректен, так как получаете новые настройки, а не те, которые у пользователя. В итоге нужно так:
Настройки = ХранилищеСистемныхНастроек.Загрузить("Общее/НастройкиКлиентскогоПриложения", "",, ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
Если Настройки.ВариантМасштабаФормКлиентскогоПриложения = ВариантМасштабаФормКлиентскогоПриложения.Компактный Тогда
// нет платформы, в которой работает масштаб в компактном режиме
КонецЕсли;Закину свои 5 копеек. Чтобы в общих журналах тоже выходила гирлянда добавляем в расширение модуль "ОбщегоНазначенияБКВызовСервера" и подменяем функцию "УстановитьОтборПоОсновнойОрганизации".
Проверено на конфигурации Бухгалтерия для Казахстана, для России возможно придется использовать другой модуль
предположу что "ОбщегоНазначенияБПВызовСервера".
&Вместо("УстановитьОтборПоОсновнойОрганизации")
Функция нг_УстановитьОтборПоОсновнойОрганизации(Форма, ИмяСписка, ИмяРеквизита, ЗначениеОтбора)
нг_ОбщегоНазначения.ПриСозданииНаСервере(Форма);
ПродолжитьВызов(Форма, ИмяСписка, ИмяРеквизита, ЗначениеОтбора);
КонецФункции
Показать
ДедМорозПришел = Ложь;
Если Месяц(ТекущаяДата()) = 12
И День(ТекущаяДата()) >= 25 Тогда
ДедМорозПришел = Истина;
КонецЕсли;
Если Месяц(ТекущаяДата()) = 1
И День(ТекущаяДата()) <= 14 Тогда
ДедМорозПришел = Истина;
КонецЕсли;
Если Не ДедМорозПришел Тогда
Возврат;
КонецЕсли; ПоказатьТекМесяц = Месяц(ТекущаяДатаСеанса());
ТекЧисло = День(ТекущаяДатаСеанса());
ДедМорозПришел = ТекМесяц = 12 И ТекЧисло > 24 ИЛИ ТекМесяц = 1 И ТекЧисло < 20;
Если ДедМорозПришел = Ложь Тогда
Возврат;
КонецЕсли;
И автодату, и общие журналы и анимацию? :)
Держи :)
Порадуй коллег:)
ЭлементНовогодняяИллюминация = Форма.Элементы.Найти("нг_Оформление");
Если ЭлементНовогодняяИллюминация <> Неопределено Тогда
Если НЕ ДедМорозПришел тогда
Форма.Элементы.Удалить(ЭлементНовогодняяИллюминация);
КонецЕсли;
Возврат;
КонецЕсли;
//А уже потом...
Если ДедМорозПришел = Ложь Тогда
Возврат;
КонецЕсли; ПоказатьДля ЗУП КОРП 3.1.27 на платформе 8.3.23
НовогоднееОформление_ЗУП3127_8323.cfe
Подскажите пожалуйста алгоритм как эту гирлянду отключить?
Т.е. для некоторых пользователей, кто захотел себе такое оформление, - устанавливать Новогоднюю тему, а для других, кто не желает, нет.
И добавить проверку этого значения при создании декораций в расширении.
1) Создаем расширение "НовыйГод", в нем меняем заставку на новогоднюю
2)В рабочем расширении, работающем круглый год (ну или в основной конфе, если правите ее) в модуле приложения в процедуре "ПриНачалеРаботыСистемы" вызываем "ВключитьРасширениеСНовогоднейЗаставкой()"
// Включает расширение с новогодней заставкой
Процедура ВключитьРасширениеСНовогоднейЗаставкой() Экспорт
ТекМесяц = Месяц(ТекущаяДата());
ТекЧисло = День(ТекущаяДата());
Если (ТекМесяц = 12 И ТекЧисло > 23) ИЛИ (ТекМесяц = 1 И ТекЧисло < 9) Тогда
РасширениеСНовогоднейЗаставкойАктивно(Истина);
Иначе
РасширениеСНовогоднейЗаставкойАктивно(Ложь);
КонецЕсли;
КонецПроцедуры
Процедура РасширениеСНовогоднейЗаставкойАктивно(СостояниеАктивности)
МассивСРасширением = РасширенияКонфигурации.Получить(Новый Структура("Имя", "НовыйГод"));
Если МассивСРасширением.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Если СостояниеАктивности = Истина Тогда
Если МассивСРасширением[0].Активно = Ложь Тогда
Попытка
// Если открыт конфигуратор с окном расширений то возникает ошибка блокировки объекта "Уже заблокирован в конфигураторе"
МассивСРасширением[0].Активно = Истина;
МассивСРасширением[0].Записать();
Исключение
КонецПопытки;
КонецЕсли;
Иначе
Если МассивСРасширением[0].Активно = Истина Тогда
Попытка
МассивСРасширением[0].Активно = Ложь;
МассивСРасширением[0].Записать();
Исключение
КонецПопытки;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Показатьпри первом запуске произойдет включение расширения, заставка успеет показаться старая, при последующем будет уже новая.
С наступающим!
ОписаниеЗащитыОтОпасныхДействий сделал методом тыка. без него при создании расширения выходит окно с предупреждением об опасности, в котором если пользователь нажмет "нет" то наверное больше никогда не подключится расширение... Там есть что-то про хэш расширения и профиль безопасности, который можно настроить и тогда конфа не будет считать данные опасными, но не нашел как настраивать программно этот самый профиль безопасности. возможно это актуально только для клиент-серверного варианта...
// Включает расширение с новогодней заставкой
Процедура ВключитьРасширениеСНовогоднейЗаставкой() Экспорт
ТекМесяц = Месяц(ТекущаяДата());
ТекЧисло = День(ТекущаяДата());
Если (ТекМесяц = 12 И ТекЧисло > 23) ИЛИ (ТекМесяц = 1 И ТекЧисло < 8) Тогда
РасширениеСНовогоднейЗаставкойАктивно(Истина);
Иначе
РасширениеСНовогоднейЗаставкойАктивно(Ложь);
КонецЕсли;
КонецПроцедуры
Процедура РасширениеСНовогоднейЗаставкойАктивно(УстановитьРасширение)
Попытка
УстановитьПривилегированныйРежим(Истина);
МассивСРасширением = РасширенияКонфигурации.Получить(Новый Структура("Имя", "НовыйГод"));
Если УстановитьРасширение = Истина
И МассивСРасширением.Количество() = 0 Тогда
ДвоичныеДанныеРасширения = ПолучитьОбщийМакет("НовыйГод");
НовоеРасширение = РасширенияКонфигурации.Создать(ДвоичныеДанныеРасширения);
НовоеРасширение.БезопасныйРежим = Ложь;
ОписаниеЗащитыОтОпасныхДействий = Новый ОписаниеЗащитыОтОпасныхДействий();
ОписаниеЗащитыОтОпасныхДействий.ПредупреждатьОбОпасныхДействиях = Ложь;
НовоеРасширение.ЗащитаОтОпасныхДействий = ОписаниеЗащитыОтОпасныхДействий;
НовоеРасширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.ИнформационнаяБаза;
НовоеРасширение.Записать();
ИначеЕсли УстановитьРасширение = Ложь
И МассивСРасширением.Количество() > 0 Тогда
МассивСРасширением[0].Удалить();
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
ПоказатьВы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 2008158
Создание 27.12.23 13:30
Обновление 27.12.23 13:30
Просмотры 27905
Загрузки 1693
Рейтинг
133
Комментарии 53
Код открыт Да
Рубрики Поздравления
Кому Для всех
Тип файла Расширение (cfe)
Платформа 1С:Предприятие 8
Конфигурация
1С:Бухгалтерия 3.0
,
1С:Управление торговлей 11
,
1С:Зарплата и Управление Персоналом 3.x
,
1С:Управление нашей фирмой 3.0
Операционная система Не имеет значения
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)