Версия для печати темы (https://pro1c.org.ua/index.php?s=c25e22a42f1974ff065cb74d63fd373a&showtopic=3327)

Автор: Vofka 01.04.11, 8:25

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

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

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

Перем глМассивЦветов; // 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

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

Автор: logist 03.04.11, 17:16

Вот так над нами пошутил отдел АСУ первого апреля два года назад. Все пользователи получили такое сообщение:

Автор: Small sa 13.03.12, 14:34

Скоро 1 апреля! =) Есть свежие идеи приколов?

Вот ... наковыряла чего-то..

1. На рабочий стол пользователям можно добавить демотиваторы: http://pro1c.org.ua/redirect.php?http://infostart.ru/public/81512/

2. Бешеные кнопки: http://pro1c.org.ua/redirect.php?http://www.lada-it.ru/index.php/-1/153-1april.html

3. Можно нарисовать предупреждение о какой-нибудь ошибке (вроде при запуске системы была обнаружена фатальная ошибка, приложение будет закрыто, потеря данных за последний год..), вывести его на центр рабочего стола 1С, сделать ПринтСкрин и запостить как рабочий стол. Или это же предупреждение, только с выбором действия "Обратится к администратору?", при нажатие на которую пользователям предлагается расслабится и получать удовольствие от жизни..и с 1 апреля заодно..

4. Можно по какому-нибудь действию выдавать пользователям анекдоты, байки.

5. При нажатии кнопки ВЫПОЛНИТЬ (где угодно) - "проверка что вы не бот": сосчитайте слоников, назовите столицу Парижа, страну где находится Франция и пр...

Автор: MATEVI 13.03.12, 14:40

Потом над Вами прикольнется бухгалтерия и др. отделы Не дадут з/п, или не всю, скажут не хватило. Приказ об увольнении в шутку подсунут Вызовут уборщицу которая основательно помоет короба и системные блоки

Автор: Zaval 13.03.12, 14:47

Блин, была идея прикола... так руки и не дошли, а уже и монитров с ЭЛТ не осталось.
Вывести в полноэкранном режиме на черном поле три уменьшающиеся цветные пятна)))

Автор: Small sa 13.03.12, 14:56

Цитата(MATEVI @ 13.03.12, 16:40)

Потом над Вами прикольнется бухгалтерия и др. отделы Не дадут з/п, или не всю, скажут не хватило. Приказ об увольнении в шутку подсунут Вызовут уборщицу которая основательно помоет короба и системные блоки

Автор: MATEVI 13.03.12, 15:18

Цитата(Small sa @ 13.03.12, 14:56)

Жизненый опыт?

Автор: Small sa 14.03.12, 9:01

А идеи забавных приколов, которые не вызывут у пользователей желания отомстить, есть?

Мне, кстати еще это понравилось! =)
http://pro1c.org.ua/index.php?showtopic=3612

+ Сканер отпечатков пальцев
http://pro1c.org.ua/redirect.php?http://infostart.ru/public/14701/

Автор: Vofka 14.03.12, 9:22

Цитата(Small sa @ 14.03.12, 9:01)

Автор: Small sa 14.03.12, 10:20

Цитата(Vofka @ 14.03.12, 11:22)

Прикольно . Только кто потом будет залапанные мониторы вытирать?

Автор: Vofka 14.03.12, 10:26

Цитата(Small sa @ 14.03.12, 10:20)

Автор: Small sa 15.03.12, 8:32

Цитата(Vofka @ 14.03.12, 12:26)

Автор: MATEVI 15.03.12, 9:08

Цитата(Small sa @ 15.03.12, 8:32)

Автор: Vofka 15.03.12, 9:30

Цитата(MATEVI @ 15.03.12, 9:08)

Автор: Small sa 15.03.12, 10:11

Цитата(MATEVI @ 15.03.12, 11:08)

Заляпает чем?

Автор: umnica 10.03.13, 10:43

Здравствуйте! А кто может Сканер отпечатков пальцев переделать для 8.2? Очень хочется пользователей повеселить на 1 апреля. Спасибо.