В начало

Функция «Отметить документ»

 

Функция ОтметитьДокумент (Список, ВыбДок)

   Для Н = 1 По СписоказмерСписка () Цикл

      Док = СписоколучитьЗначение (Н);

      Если Док = ВыбДок Тогда

         Списокометка (Н, 1);

      КонецЕсли;

   КонецЦикла;

КонецФункции