Прикол над пользователями. 1 апреля

31.03.11

Завтра первое апреля. День смеха)) Разбавление обычных будней.
При открытии формы раскрашивает цветами радуги табличную часть.

Скачать файл

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

Наименование		Бесплатно
Раскраска.epf .epf 8,10Kb 88	88	Скачать бесплатно

При открытии формы раскрашивает цветами радуги табличную часть.
Выглядит очень симпатично.

Реализовано в глобальном модуле:

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

Перем глМассивЦветов; // 01.04.2011

Перем глГСЧ; // 01.04.2011

#Если Клиент Тогда
Функция РаскраситьСтрокиРадиШутки() Экспорт // 01.04.2011

  Если Формат(ТекущаяДата(), "ДФ=ddMM")="0104" Тогда
Возврат Ложь;
КонецЕсли;

Если глГСЧ.СлучайноеЧисло(0, 100)>13 Тогда
Возврат Ложь;
КонецЕсли;

  Возврат Истина;

КонецФункции

Процедура РаскраситьТЧ(Элемент, ОформленияСтрок) Экспорт  // 01.04.2011
  Попытка

  Сч = 0;
  макс = глМассивЦветов.Количество();
  ЭтоТЗ = ТипЗнч(Элемент.Значение)=Тип("ТаблицаЗначений") Или Найти(ТипЗнч(Элемент.Значение), "табличная часть")>0;

Для Каждого Оформление Из ОформленияСтрок Цикл

Если ЭтоТЗ Тогда
  Оформление.ЦветФона = глМассивЦветов[ Элемент.Значение.Индекс(Оформление.ДанныеСтроки) % макс];
Иначе
  Оформление.ЦветФона = глМассивЦветов[ Сч % макс ];
  Сч = Сч+1;
КонецЕсли;

КонецЦикла;

Исключение
КонецПопытки;
КонецПроцедуры
#КонецЕсли

глГСЧ = Новый ГенераторСлучайныхЧисел;
глМассивЦветов = Новый Массив;
глМассивЦветов.Добавить(Новый Цвет(255, 255, 255));
глМассивЦветов.Добавить(Новый Цвет(254, 251, 251));
глМассивЦветов.Добавить(Новый Цвет(254, 192, 192));
глМассивЦветов.Добавить(Новый Цвет(254, 106, 106));
глМассивЦветов.Добавить(Новый Цвет(254, 68, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 84, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 116, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 164, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 215, 62));
глМассивЦветов.Добавить(Новый Цвет(249, 249, 64));
глМассивЦветов.Добавить(Новый Цвет(165, 234, 74));
глМассивЦветов.Добавить(Новый Цвет(99, 207, 86));
глМассивЦветов.Добавить(Новый Цвет(62, 230, 200));
глМассивЦветов.Добавить(Новый Цвет(62, 237, 254));
глМассивЦветов.Добавить(Новый Цвет(62, 181, 232));
глМассивЦветов.Добавить(Новый Цвет(62, 109, 190));
глМассивЦветов.Добавить(Новый Цвет(160, 62, 185));
глМассивЦветов.Добавить(Новый Цвет(254, 95, 219));
глМассивЦветов.Добавить(Новый Цвет(254, 207, 243));

Для раскраски нужно приписать событие в обработчик ПриПолученииДанных:

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

РаскраситьТЧ(Элемент, ОформленияСтрок); //01.04.2011

КонецПроцедуры

+47 –1

См. также

Инфоборды

Работа с интерфейсом Анализ учета Мониторинг Платформа 1С v8.3 8.3.14 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Платные (руб)

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

9600 руб.

27.03.2025 2093 7 9

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

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

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

6000 руб.

14.01.2016 56885 19 25

Условное оформление формы в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)

Работа с интерфейсом Платформа 1С v8.3 Платные (руб)

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

6000 руб.

18.01.2022 10831 2 2

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

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

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

2400 руб.

29.06.2020 20803 31 6

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

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

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

20.08.2024 31183 mrXoxot 44

134

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

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

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

27.05.2024 17179 smielka 37

105

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

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

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

27.12.2023 19808 1257 elcoan 53

128

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

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

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

3 стартмани

10.04.2023 13942 174 acces969 31

131

Комментарии

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

Свернуть все

1. rsu5 31.03.11 18:00 Сейчас в теме

ошибок масса ;)

2. Serj1C 484 31.03.11 20:43 Сейчас в теме

(1) всего то в двух строках

3. DrAku1a 1763 01.04.11 09:08 Сейчас в теме

Ага... давайте внесем в стандартную конфу такие изменения, при этом надо включить режим изменения конфигурации, и потом будем огребать по попе при каждом обновлении баз )))

4. Serj1C 484 01.04.11 10:36 Сейчас в теме

(3) Всегда можно вернуться к конфигурации поставщика

5. IDija 155 01.04.11 15:15 Сейчас в теме

(0) Мне очень даже симпатично!!!Да и пользователи довольны! А изменение кода - ерунда! Можно и откатить...

6. esa35 89 10.11.11 10:51 Сейчас в теме

да, прикольненько!надо будет попробовать подшутить!

7. Lokiy 136 10.11.11 11:05 Сейчас в теме

Чето ломает меня конфу ради прикола такого обновлять, еще в переферийки ее тащить.

8. пользователь 19.11.11 00:18

Сообщение было скрыто модератором.

...

9. balabani 23.11.11 02:21 Сейчас в теме

Спасибо хорошая обработка

10. dardroze 11.01.12 16:25 Сейчас в теме

поставлю, посмотрим, что скажут бухгалтера

11. lilly 12.01.12 20:37 Сейчас в теме

Хм... попробую...

12. andreysan 03.04.12 09:58 Сейчас в теме

Да ладно, до ума довести недолго , доработать под личные нужды, а идея неплохая

13. curys 05.04.12 12:37 Сейчас в теме

отличная шутка, спасибо автору, попробую сейчас заюзаем=)

14. glek 119 03.09.12 15:36 Сейчас в теме

Пошутить - можно. Только не массово. Потому что замаешься по клиентам откатывать. Не хватает какого-то отключения.

15. KillHunter 8 03.09.12 17:25 Сейчас в теме

хорошая обработка!

16. dj_serega 395 24.10.12 11:42 Сейчас в теме

Если бы было внешней обработкой было бы круче.

17. taste 24.10.12 12:04 Сейчас в теме

кто оценил данную приколюху ??

18. shuhorov 24.10.12 12:36 Сейчас в теме

+ 1 за внешнюю, можно будет добавить в запуск при старте платформы

19. Xleo777 48 29.03.13 18:25 Сейчас в теме

Можно сделать свой общий модуль

#Если Клиент Тогда
Функция РаскраситьСтрокиРадиШутки() Экспорт // 01.04.2011
глГСЧ = Новый ГенераторСлучайныхЧисел;
Если Формат(ТекущаяДата(), "ДФ=ddMM")="0104" Тогда
Возврат Ложь;
КонецЕсли;

Если глГСЧ.СлучайноеЧисло(0, 100)>13 Тогда
Возврат Ложь;
КонецЕсли;

Возврат Истина;

КонецФункции

Процедура РаскраситьТЧ(Элемент, ОформленияСтрок) Экспорт // 01.04.2011
Попытка

Сч = 0;
глМассивЦветов = ПолучитьМассивЦветов();
макс = глМассивЦветов.Количество();
ЭтоТЗ = ТипЗнч(Элемент.Значение)=Тип("ТаблицаЗначений") Или Найти(ТипЗнч(Элемент.Значение), "табличная часть")>0;

Для Каждого Оформление Из ОформленияСтрок Цикл

Если ЭтоТЗ Тогда
Оформление.ЦветФона = глМассивЦветов[ Элемент.Значение.Индекс(Оформление.ДанныеСтроки) % макс];
Иначе
Оформление.ЦветФона = глМассивЦветов[ Сч % макс ];
Сч = Сч+1;
КонецЕсли;

КонецЦикла;

Исключение
КонецПопытки;
КонецПроцедуры
#КонецЕсли

Функция ПолучитьМассивЦветов()
глМассивЦветов = Новый Массив;
глМассивЦветов.Добавить(Новый Цвет(255, 255, 255));
глМассивЦветов.Добавить(Новый Цвет(254, 251, 251));
глМассивЦветов.Добавить(Новый Цвет(254, 192, 192));
глМассивЦветов.Добавить(Новый Цвет(254, 106, 106));
глМассивЦветов.Добавить(Новый Цвет(254, 68, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 84, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 116, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 164, 62));
глМассивЦветов.Добавить(Новый Цвет(254, 215, 62));
глМассивЦветов.Добавить(Новый Цвет(249, 249, 64));
глМассивЦветов.Добавить(Новый Цвет(165, 234, 74));
глМассивЦветов.Добавить(Новый Цвет(99, 207, 86));
глМассивЦветов.Добавить(Новый Цвет(62, 230, 200));
глМассивЦветов.Добавить(Новый Цвет(62, 237, 254));
глМассивЦветов.Добавить(Новый Цвет(62, 181, 232));
глМассивЦветов.Добавить(Новый Цвет(62, 109, 190));
глМассивЦветов.Добавить(Новый Цвет(160, 62, 185));
глМассивЦветов.Добавить(Новый Цвет(254, 95, 219));
глМассивЦветов.Добавить(Новый Цвет(254, 207, 243));
Возврат глМассивЦветов
КонецФункции