Вид для печати
Вопрос такой —
Есть форма (допустим справочника). Необходимо иметь слева список, в котором мы "двигаемся" по вертикали и при этом хочется "ловить" событие факта установки на новую строку списка. Справа по факту отображать реквизиты установленной записи справочника.
Если двигаться по списку то
Добавить "Текст" и в поле "формула" добавить вызов функции ...Код:Функция СформироватьИнформационнуюСтроку()
Перем ИнфСтрока;
Если ПустоеЗначение(ТекущийЭлемент()) = 1 Тогда
// не выбран элемент
ИнфСтрока = "";
Иначе
Если ТекущийЭлемент().ЭтоГруппа() = 1 Тогда
// текущий элемент - группа
ИнфСтрока = ТекущийЭлемент().ПолноеНаименование();
Иначе
ТекЭлем = ТекущийЭлемент();
ИнфСтрока = СокрЛП(ТекЭлем.ПолнНаименование) +
?(ПустоеЗначение(ТекЭлем.Артикул) = 0, " Артикул: " + СокрЛП(ТекЭлем.Артикул), "") +
?(ПустоеЗначение(ТекЭлем.Комментарий) = 0, " Комментарий: " + СокрЛП(ТекЭлем.Комментарий), "");
КонецЕсли;
КонецЕсли;
Возврат ИнфСтрока;
КонецФункции
Обычно делают не слева-справа, а сверху-снизу.
Например у меня для журнала документов в нижней части отображаются приложения у документу (это реквизиты документа ТипДок1-5, ДатаДок1-5, НомерДок1-5)
На форме журнала в нижнюю часть помещена ТаблицаЗначений, при открытии создаются колонки Пиктограмма, Документ, Дата, Номер. Также на форме выложено нивидимое текстовое поле, в формулу которого помещен вызов процедурки. В модуле имеется переменная ПредДок (для отслеживания изменений позиционирования)
Процедура Приложения() //Процедура заполнения таблицы приложений
Если ТекущийДокумент.Выбран() = 0 Тогда
ТабПриложений.УдалитьСтроки();
Возврат;
КонецЕсли;
Если ТекущийДокумент = ПредДок Тогда
Возврат;
Иначе
ТабПриложений.УдалитьСтроки();
ТабПлат.УдалитьСтроки();
ПредДок = ТекущийДокумент;
КонецЕсли;
Для А =1 По 5 Цикл
Если ПустоеЗначение(ТекущийДокумент.ПолучитьАтрибут("ТипДок"+А)) = 0 Тогда
ТабПриложений.НоваяСтрока();
ТабПриложений.Пиктограмма = 1;
ТабПриложений.Документ = ТекущийДокумент.ПолучитьАтрибут("ТипДок"+А);
ТабПриложений.Дата = ТекущийДокумент.ПолучитьАтрибут("ДатаДок"+А);
ТабПриложений.Номер = ?(ПустоеЗначение(ТекущийДокумент.ПолучитьАтрибут("НомерДок"+А))=0,?(Найти(ТекущийДокумент.ПолучитьАтрибут("НомерДок"+А),"№")>0," "," №"),"")+СокрЛП(ТекущийДокумент.ПолучитьАтрибут("НомерДок"+А));
КонецЕсли;
КонецЦикла;
ТабПриложений.Фиксировать(,1);
КонецПроцедуры
ТабПриложений.НоваяКолонка("Пиктограмма","Число",2,,"",3);
ТабПриложений.НоваяКолонка("Документ",,,,,10);
ТабПриложений.НоваяКолонка("Номер","Строка",10);
ТабПриложений.НоваяКолонка("Дата","Дата");
ТабПриложений.ВыводитьПиктограммы("Пиктограмма",1);
Большое спасибо за внимание!
Проблем с обработкой события у меня, видимо, не будет, а проблемы с "ловлей" события передвижения по списку есть. —
Если я в форме списка справочника оставляю в списке только реквизит "Наименование" и двигаюсь по списку (на экране!), то формула, заданная в свойствах реквизита выполняется только при "выборе" (т.е. — enter или двойной щелчок), а просто при движении ничего не происходит.
azernot, я правильно понял, что невидимое поле должно "ловить" событие перемещения по списку?
Можно заглянуть в типовые конфигурации. Для примера.
ADSemenov.ru, Оно не будет ничего ловить, просто при перемещении по списку по строкам каждый раз пересчитываются все текстовые поля, соответственно и формула каждый раз выполняется
Действительно, формула текстового поля отрабатывает при любом переходе со строки на строку в списке элементов справочника, тогда как формула реквизита не работает. Плюс — методом "АктивизироватьОбъект(Элемент);" можно установить позицию в списке принудительно. Полный простор.
Конечно "формула в текстовом поле" — достаточно искусственный приём, но в 1С к таким вещам не привыкать... :)
Большое, большое спасибо всем знатокам!
Не согласен с вами!!! Пиём как приём. В других средах и не такое приходится видеть!!!Цитата:
Сообщение от ADSemenov.ru
azernot, только сейчас оценил полезность такой проверки, когда завёл несколько списков на форме и, соответственно, продекларировал несколько таких переменных. Теперь не делаю лишних усилий по обновлению зависимых от списков полей. Спасибо. :)Цитата:
В модуле имеется переменная ПредДок
Всегда найдётся тот, кто уже наступал на эти грабли :)
