Каталог решений - Добавим немного позитива в 1с ?!

Добавим немного позитива в 1с ?!

Добавим немного позитива в 1с ?!

В наличии

Пользователям понравилось, делюсь с сообществом ))

Категория:

Описание

Иногда однообразный интерфейс 1с несколько утомляет. Хочется позитива, хотя бы немного ;). Идея витала давно. На реализацию много ресурсов не потребовалось.

Идея простая — при загрузке БД из некого сетевого каталога в произвольном порядке выводить , в данном случае на рабочий стол пользователя (хотя в принципе можно и просто на открываемую форму), некую имиджевую (креативную, поздравительную и пр.) картинку.

В конфигурации введены 3 константы

1.  ИспользоватьМотиваторы (булево)

2. МотиваторыПостоянный (строка) — постоянный мотиватор для всех.

3.  МотиваторыПуть (строка) — рандомайзный мотиватор

Код запуска мотиватора (при открытии рабочего стола) приведен ниже , соот-но требует доработки под конкретную конфигурацию.

Процедура ИспользоватьМотиваторы()
ПутьККартинке = «»;
Если Константы.ИспользоватьМотиваторы.Получить() = Истина Тогда
ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Истина;

ПутьККартинке = Константы.МотиваторыПостоянный.Получить();

Если ПутьККартинке = «» Тогда
//выберем рандомайзную из папки
ПутьКПапке = Константы.МотиваторыПуть.Получить();

МассивНайденных = НайтиФайлы(ПутьКПапке, «*.jpg»);

МассивНайденных.Количество();

ГСЧ = Новый ГенераторСлучайныхЧисел();

Если МассивНайденных.Количество() <> 0 Тогда
СлучЧисло = ГСЧ.СлучайноеЧисло(0 , МассивНайденных.Количество()-1);
ПутьККартинке = МассивНайденных.Получить(СлучЧисло).ПолноеИмя;
КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ПутьККартинке <> «» Тогда

ЭлементыФормы.Мотиватор1.Картинка= Новый Картинка();
ЭлементыФормы.Мотиватор1.Картинка= Новый Картинка(ПутьККартинке);

ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Истина;
ЭлементыФормы.Мотиватор1.Видимость = Истина;
ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы;
Иначе
ЭлементыФормы.Мотиватор1.Видимость = Ложь;
ЭлементыФормы.ОсновнаяПанель.Страницы.Мотиваторы.Видимость = Ложь;

КонецЕсли;

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

 Начинал с показа мотиваторов. Потом были Айвазовский, Шишкин, Третьяковская галлерея, Дали.

Руководство оценило положительно, пользователям нравиться )).

has been added to your cart:
Оформление заказа