Иногда однообразный интерфейс 1с несколько утомляет. Хочется позитива, хотя бы немного ;). Идея витала давно. На реализацию много ресурсов не потребовалось.
Идея простая - при загрузке БД из некого сетевого каталога в произвольном порядке выводить , в данном случае на рабочий стол пользователя (хотя в принципе можно и просто на открываемую форму), некую имиджевую (креативную, поздравительную и пр.) картинку.
В конфигурации введены 3 константы
1. ИспользоватьМотиваторы (булево)
2. МотиваторыПостоянный (строка) - постоянный мотиватор для всех.
3. МотиваторыПуть (строка) - рандомайзный мотиватор
Код запуска мотиватора (при открытии рабочего стола) приведен ниже , соот-но требует доработки под конкретную конфигурацию.
Процедура ИспользоватьМотиваторы()
ПутьККартинке = "";
Если Константы.ИспользоватьМотиваторы.Получить() = Истина Тогда
ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Истина;
ПутьККартинке = Константы.МотиваторыПостоянный.Получить();
Если ПутьККартинке = "" Тогда
//выберем рандомайзную из папки
ПутьКПапке = Константы.МотиваторыПуть.Получить();
МассивНайденных = НайтиФайлы(ПутьКПапке, "*.jpg");
МассивНайденных.Количество();
ГСЧ = Новый ГенераторСлучайныхЧисел();
Если МассивНайденных.Количество() <> 0 Тогда
СлучЧисло = ГСЧ.СлучайноеЧисло(0 , МассивНайденных.Количество()-1);
ПутьККартинке = МассивНайденных.Получить(СлучЧисло).ПолноеИмя;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если ПутьККартинке <> "" Тогда
ЭлементыФормы.Мотиватор1.Картинка= Новый Картинка();
ЭлементыФормы.Мотиватор1.Картинка= Новый Картинка(ПутьККартинке);
ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Истина;
ЭлементыФормы.Мотиватор1.Видимость = Истина;
ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы;
Иначе
ЭлементыФормы.Мотиватор1.Видимость = Ложь;
ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
Начинал с показа мотиваторов. Потом были Айвазовский, Шишкин, Третьяковская галлерея, Дали.
Руководство оценило положительно, пользователям нравиться )).
Вступайте в нашу телеграмм-группу Инфостарт
