Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:32

Оформление строки, 1С:Бухгалтерия 2.0 Платформа 8.2

Автор Наталья_Бессонова, 20 июн 2011, 16:43

0 Пользователей и 1 гость просматривают эту тему.

Наталья_Бессонова

Добрый день, уже несколько дней бьюсь надо задачей с целью облегчить свою жизнь.
Я помощник-бухгалтера, посовместительству иногда программирую, больше для интереса.

Задачка такая, создать кнопку которая бы при нажатии выделяла цветом активную строку или если та выделена, то выделение бы снимала.

Создала кнопку, сделала новый реквизит документа типа булево.
Написала код который меняет состояние реквизита с ложь на истину и наоборот.

//вот код
Процедура ДействияФормыПередано(Кнопка, ОформлениеСтроки, ТекСтр)
ДокОбъект = ЭлементыФормы.ДокументСписок.ТекущиеДанные.Ссылка.ПолучитьОбъект();
ДокОбъект.Передано = НЕ ДокОбъект.Передано;
ДокОбъект.Записать(РежимЗаписиДокумента.Запись);
КонецПроцедуры

а вот дальже я села. Понимаю что для оформления строки надо написать процедуру перебора строк с целью определения реквизита ложь или истина.
В Процедуре ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

Дальше не понимаю как и что, подскажите

chuevsf

А почему сразу мышью по строке кликнуть нельзя? Зачем кнопка-то?

Наталья_Бессонова

Если будет клик по строке она будет выделяться и сниматься при открытии документа. а окраска должна быть не по типу выделения,а как отметка о том что документ обработан

Наталья_Бессонова

Вот код работающий если кому интересно. Доработала

    Для Каждого СтрокаОформленияСтрок Из ОформленияСтрок Цикл
       ТекущийДокумент = СтрокаОформленияСтрок.ДанныеСтроки.Ссылка;
       Если СтрокаОформленияСтрок.ДанныеСтроки.Ссылка.Передано = Истина Тогда
          СтрокаОформленияСтрок.ЦветФона =WebЦвета.АкварельноСиний;
          Иначе Если СтрокаОформленияСтрок.ДанныеСтроки.Ссылка.Передано = Ложь Тогда
             СтрокаОформленияСтрок.ЦветФона =WebЦвета.Белый;
         КонецЕсли;
       //МассивДокументов.Добавить(ТекущийДокумент);
       КонецЕсли;
    КонецЦикла;



Тема закрыта

cska-fanat-kz

Для Каждого СтрокаОформленияСтрок Из ОформленияСтрок Цикл
СтрокаОформленияСтрок.ЦветФона = ?(СтрокаОформленияСтрок.ДанныеСтроки.Ссылка.Передано,WebЦвета.АкварельноСиний,WebЦвета.Белый);
КонецЦикла;
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск