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

31.03.11

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

+47 –1
  • 31.03.2011_15.53.30.060.png
Завтра первое апреля. День смеха)) Разбавление обычных будней.
При открытии формы раскрашивает цветами радуги табличную часть.

Бесплатные

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

Наименование Скачано Бесплатно
Раскраска.epf
.epf 8,10Kb
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    38233    26    22    

37
Универсальный редактор картинок 1С, хранимых в базе, с возможностью рисования

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

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

6000 руб.

16.01.2015    66564    45    60    

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

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

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

5160 руб.

29.06.2020    22128    32    6    

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

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

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

5040 руб.

06.10.2020    12109    8    8    

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

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

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

20.08.2024    39640    mrXoxot    44    

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

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

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

27.05.2024    23325    smielka    38    

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

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

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

27.12.2023    21733    1301    elcoan    53    

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

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

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

3 стартмани

10.04.2023    15529    177    acces969    31    

132
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. rsu5 31.03.11 18:00 Сейчас в теме
ошибок масса ;)
+ – Ответить
2. Serj1C 484 31.03.11 20:43 Сейчас в теме
(1) всего то в двух строках
+ – Ответить
3. DrAku1a 1773 01.04.11 09:08 Сейчас в теме
Ага... давайте внесем в стандартную конфу такие изменения, при этом надо включить режим изменения конфигурации, и потом будем огребать по попе при каждом обновлении баз )))
dj_serega; hansolo686; +2 –2 Ответить
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 51 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 463 19.07.21 12:55 Сейчас в теме
теперь это пропаганда ЛГБТ ))))
mefalcon; dnikolaev; +2 – Ответить
Для отправки сообщения требуется регистрация/авторизация