Милый вопрос задал мне сейчас по аське знакомый начинающий программист 1С. Кратко формулируется так:
В форму списка журнала документов добавлена текстовая колонка.
Как по двойному щелчку мыши менять её значение с 2 на 1 и с 1 на 2?

Ну так и ответь ему по аьске.

Его не Бублик ака Тор зовут?

1) С удовольствием скопирую Ваш вариант ответа.

Ни разу не слышал чтобы его кто-то куда-то звал, посему ответить не могу.

А вообще предложение забавно начинается... "Милый вопрос задал мне сейчас по аське..." :-)
 
(0)Ничего личного...

Я ответа не знаю, вариант один есть, но его надо пробовать, 100-процентно в нем не уверен, поэтому обращаюсь к спецам.

Похоже зовут его Работа с журналом

5 Смешно

Это нужно на всех доках, любого вида?
Если да, то проблематично будет сделать именно двойным кликом ...

7 Непохоже, изменяемое значение колонки в реквизитах документа отсутствует.

9 Йес

9 В принципе упростим задачу, пусть по нажатию кнопки меняется значение текущей строки.

Общий реквизит спасет...

(12) Какой кнопки?
Ващще, нужно будет менять док ...
Можно сделать общий реквизит, только под это дело, и манипулировать им ...

13 Несомненно.  Ещё 8-ка спасет или база на Access-e.

(14) :-)

13, 14
А если на другом компьютере кто-то будет работать с этим документом?
Тогда уж лучше ТЗ создать, в которое при открытии и смене интервала впихивать документы, вторая колонка Флаг.
Функция ПолучитьПометку()
Поз = 0;
ТЗ.НайтиЗначение(ТекущийДокумент(), Поз, "Документ");
Возврат ТЗ.ПолучитьЗначение(Поз, "Пометка");
КонецФункции
==================
Правда тормозить будет при открытии

Ну, вроде как можно в форме списка держать список значений, при щелчке по колонке добавлять/удалять из этого списка текущий документ, а в формуле этой колонки вызывать функцию, которая и вернёт результат в зависимости от (не)вхождения документа в этот список значений?

18 Отлично. Для кнопки сойдет. Теперь как щелчок отработать?

(17) Имхо, лучше просто сказать в этом случае "Заблокирован ... и не городить огород ...

(19)
Процедура ПриВыбореСтроки()
   Если Форма.АктивныйЭлемент()="ТекстоваяКолонка" Тогда
       //добавить/убрать из списка
   Иначе
       ОткрытьФорму(ТекущийДокумент);
   КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
   Форма.ОбработкаВыбораСтроки(1);
КонецПроцедуры

(19) приВыбореСтроки()

(21) ПриВыбореСтроки() - предопределённая процедура

+21 Ну и конечно для выбора документа придётся создать отдельную форму и назначить её формой для выбора-по-умолчанию.

Вот и всё, а вы говорите ОбщийреквизитДокумента
Пять звездочек Фениксу.

(25) С общим реквизитом гораздо проще получится ...
Не понимаю, почему ты его боишься? ...
А со списком, на этом всё не кончится ...
Заполнять его всеми доками очень долго, а не всеми - придётся следить за интервалом журнала (и может отборами) ...
При смене интервала (отбора) опять перезаполнять список ...

24 Не надо, подойдут Режимвыбора() и ВыполнитьВыбор(ТекущийДокумент)
Одну звездочку снимаем :))

26 Не надо ничего заполнять, если есть документ в списке - значит есть пометка, если нет - нету пометки.

Полный код:

Перем СписокПомеченных;

Процедура привыбореСтроки()
Если Форма.АктивныйЭлемент() = "Пометка" Тогда
Поз = СписокПомеченных.НайтиЗначение(ТекущийДокумент.ТекущийДокумент());
Если Поз > 0 Тогда
СписокПомеченных.УдалитьЗначение(Поз);
Иначе
СписокПомеченных.ДобавитьЗначение(ТекущийДокумент.ТекущийДокумент());
КонецЕсли;
ИначеЕсли РежимВыбора() = 1 Тогда
ВыполнитьВыбор(ТекущийДокумент.ТекущийДокумент());
Иначе
ОткрытьФорму(ТекущийДокумент);
КонецЕсли;
КонецПроцедуры

Процедура приоткрытии()
Списокпомеченных = СоздатьОбъект("СписокЗначений");
Форма.ОбработкаВыбораСтроки(1);
Конецпроцедуры

Функция ПолучитьПометку()
Возврат Списокпомеченных.Принадлежит(ТекущийДокумент.ТекущийДокумент()) + 1;
КонецФункции

(27) Хм... Попробовал...
In batch Start nested Error. + "1cv7s.exe вызвало ошибку и будет закрыто...."

30 Щас попробую

В обычном режиме все нормально, в режиме выбора сейчас попробую

Выбор тоже работает без ошибок.
В 29 конечно же не
ИначеЕсли РежимВыбора() = 1 Тогда
ВыполнитьВыбор(ТекущийДокумент.ТекущийДокумент());
а
ИначеЕсли Форма.РежимВыбора() = 1 Тогда
Форма.ВыполнитьВыбор(ТекущийДокумент.ТекущийДокумент());

(33) Релиз?

19й локально
В каком режиме вылетело?

(35) О! Вот где был баг...
Сперва делал
Процедура ПриВыбореСтроки()
 Если Форма.РежимВыбора()=1 Тогда
   Форма.ВыполнитьВыбор(ТекущийДокумент.ТекущийДокумент());
 КонецЕсли;
 Если Форма.АктивныйЭлемент()="Пометка" Тогда
   ...
- и вылетало.
А если через ИначеЕсли или Возврат добавить после Форма.ВыполнитьВыбор...
- всё нормально. :)

То есть Форма.ВыполнитьВыбор должен идти последним исполняемым

(37) Ага.
Хорошее решение с ВыполнитьВыбор() - мне нравится.
И как я его раньше не заметил? :)

Классно, только для чего ТекущийДокумент.ТекущийДокумент(), а не просто ТекущийДокумент ?

Я к своему стыду не знаю, что есть ТекущийДокумент и возвращает ли он именно объект а не ссылку на место в памяти.

Завтра узнаю нафига ему это надо было

(39) Да как угодно можно

2(0)А точно есть смысл менять ее значение документа с 2 на 1 и с 1 на 2????
Про список была правильная идея - если документ в списке есть (значит 2, нет 1). Короче, Форма.ОбработкаВыбораСтроки(1); вам поможет. Напоминаю, если сделать ЭТО, то если в журнале ткнуть по документу, то вызывается предопределенная процедура "ПриВыбореСтроки()". Есть вопросы - я сплю (тока начиная с 10-30 по МСК)

43 В 1980 году в Москве состоялась Олимпиада.

(42)Да понятно, что как угодно можно, просто интересно было для чего, мож фишка какая ;). Кстати, ТекущийДокумент возвращает ссылку.

(43) :)

И тут тоже.

Что-то мы вчера стормозили...
ПриВыбореСтроки()+Форма.ВыполнитьВыбор() - тавтология.
Достаточно будет:
Процедура ПриВыбореСтроки()
 Если Форма.РежимВыбора()=1 Тогда
   Возврат;
 КонецЕсли;
 Если Форма.АктивныйЭлемент()="Пометка" Тогда
   ...
т.е. выбор в режиме выбора выполняется и сам, главное - не мешать ему :)