Прикол над пользователями. 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

См. также

Infostart Dashboard: Монитор показателей, виджеты и дашборды в 1С 8.3

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

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

28800 руб.

27.03.2025 54072 29 25

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

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

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

5160 руб.

29.06.2020 22756 32 6

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

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

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

2000 руб.

20.02.2018 22240 24 21

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

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

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

5040 руб.

06.10.2020 12751 8 8

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

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

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

20.08.2024 42728 mrXoxot 44

138

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

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

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

27.05.2024 24691 smielka 38

111

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

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

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

27.12.2023 22840 1343 elcoan 53

130

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

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

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

3 стартмани

10.04.2023 16182 178 acces969 31

132

Комментарии

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

Свернуть все

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

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

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

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

3. DrAku1a 1779 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 52 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));
Возврат глМассивЦветов
КонецФункции

20. Niberu 5 23.04.13 10:14 Сейчас в теме

И может в подписку на какое-нибудь событие запихать.

21. Brawler 464 19.07.21 12:55 Сейчас в теме

теперь это пропаганда ЛГБТ ))))

Для отправки сообщения требуется регистрация/авторизация

Автор:

(Serj1C)

Рейтинг: 484

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 83484

Создание 31.03.11 14:12

Обновление 31.03.11 14:18

Статистика:

Просмотры 19988

Загрузки 88

Рейтинг 46

Комментарии 20

Характеристики:

Код открыт Не указано

Рубрики Работа с интерфейсом

Кому Программист

Тип файла Внешняя обработка (ert,epf)

Платформа 1С v8.3

Конфигурация 1C:Бухгалтерия

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)