Заказы на доработку 1С (сервис удаленной работы)

Хранилище

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

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Прикол над пользователями. 1 апреля          
Vofka Подменю пользователя
сообщение 01.04.11, 8:25
Сообщение #1

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

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

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

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

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

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

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


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Small sa Подменю пользователя
сообщение 13.03.12, 14:34
Сообщение #3

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

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

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

1. На рабочий стол пользователям можно добавить демотиваторы: [необходимо зарегистрироваться для просмотра ссылки]

2. Бешеные кнопки: [необходимо зарегистрироваться для просмотра ссылки]

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

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

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

biggrin.gif

MATEVI Подменю пользователя
сообщение 13.03.12, 14:40
Сообщение #4

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2201
Из: Одесса
Спасибо сказали: 956 раз
Рейтинг: 0

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

Zaval Подменю пользователя
сообщение 13.03.12, 14:47
Сообщение #5

Крутой
Иконка группы
Группа: Местный
Сообщений: 1994
Из: Киева и окрестностей
Спасибо сказали: 406 раз
Рейтинг: 0

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

Small sa Подменю пользователя
сообщение 13.03.12, 14:56
Сообщение #6

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(MATEVI @ 13.03.12, 16:40) *
Потом над Вами прикольнется бухгалтерия и др. отделы smile.gif Не дадут з/п, или не всю, скажут не хватило. Приказ об увольнении в шутку подсунут smile.gif Вызовут уборщицу которая основательно помоет короба и системные блоки smile.gif

Жизненый опыт? wink.gif

MATEVI Подменю пользователя
сообщение 13.03.12, 15:18
Сообщение #7

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2201
Из: Одесса
Спасибо сказали: 956 раз
Рейтинг: 0

Цитата(Small sa @ 13.03.12, 14:56) *
Жизненый опыт? wink.gif

Не! Такого не было. Я так не прикалываюсь. Но если бы был не на этой стороне, то обязательно ответил wink.gif

Small sa Подменю пользователя
сообщение 14.03.12, 9:01
Сообщение #8

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

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

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

+ Сканер отпечатков пальцев
[необходимо зарегистрироваться для просмотра ссылки]

Vofka Подменю пользователя
сообщение 14.03.12, 9:22
Сообщение #9

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(Small sa @ 14.03.12, 9:01) *
+ Сканер отпечатков пальцев

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

Small sa Подменю пользователя
сообщение 14.03.12, 10:20
Сообщение #10

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(Vofka @ 14.03.12, 11:22) *
Прикольно smile.gif . Только кто потом будет залапанные мониторы вытирать? 47046430.gif smile.gif


Сам пользователь?! 51000000.gif

Vofka Подменю пользователя
сообщение 14.03.12, 10:26
Сообщение #11

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(Small sa @ 14.03.12, 10:20) *
Сам пользователь?!

Честно говоря не понял контекста вопроса. Пользователь чего, монитора? Да, пользуюсь.

Small sa Подменю пользователя
сообщение 15.03.12, 8:32
Сообщение #12

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(Vofka @ 14.03.12, 12:26) *
Честно говоря не понял контекста вопроса. Пользователь чего, монитора? Да, пользуюсь.


=))) Это был ответ вопросом на вопрос! =)

Вопрос: Кто будет мониторы вытирать? Ответ: Сам пользователь? (перевожу: Возможно сам пользователь, который монитор заляпает и вытрет?)
blush.gif

MATEVI Подменю пользователя
сообщение 15.03.12, 9:08
Сообщение #13

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2201
Из: Одесса
Спасибо сказали: 956 раз
Рейтинг: 0

Цитата(Small sa @ 15.03.12, 8:32) *
сам пользователь, который монитор заляпает

Заляпает чем? 04000000.gif

Vofka Подменю пользователя
сообщение 15.03.12, 9:30
Сообщение #14

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(MATEVI @ 15.03.12, 9:08) *
Заляпает чем?

Возможно, слюной, так как сканироваться на самом то деле ничего не будет smile.gif

Small sa Подменю пользователя
сообщение 15.03.12, 10:11
Сообщение #15

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

Цитата(MATEVI @ 15.03.12, 11:08) *
Заляпает чем? 04000000.gif

Эээээ...ну смотря, что будет прикладывать к монитору..=))

umnica Подменю пользователя
сообщение 10.03.13, 10:43
Сообщение #16

Молчаливый
*
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 28.03.24, 22:37
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!