Как сделать счетчик по документу

Процедура ТабДокументыПриАктивизацииСтроки(Элемент)
	
	
	ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.Использование = Истина;       
	ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.ВидСравнения  = ВидСравнения.Равно;
	ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.Значение = Элемент.ТекущиеДанные.Документ; 
	 

	//Если (ТипЗнч(Элемент.ТекущиеДанные.Документ) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг"))  Тогда
		
		ПараметрыОтбора = Новый Структура;
		ПараметрыОтбора.Вставить("Отметка", Истина);
		НайденныеСтроки = СписокТоваров.НайтиСтроки(ПараметрыОтбора);
		
		ДокументТЗ = Элемент.ТекущиеДанные.Документ;        
		
		Запрос = Новый Запрос;
		Запрос.УстановитьПараметр("ДокументТЗ", ДокументТЗ);
		Запрос.УстановитьПараметр("ТабТовары", СписокТоваров.Выгрузить());
		Запрос.Текст = "ВЫБРАТЬ
		               |	ТабТовары.Номенклатура
		               |ПОМЕСТИТЬ ВТ_ИсключаемаяНоменклатура
		               |ИЗ
		               |	&ТабТовары КАК ТабТовары
		               |;
		               |
		               |////////////////////////////////////////////////////////////­////////////////////
		               |ВЫБРАТЬ
		               |	ПоступлениеТоваровУслугТовары.Номенклатура КАК Номенклатура,
		               |	ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения,
		               |	ПоступлениеТоваровУслугТовары.Количество,
		               |	ПоступлениеТоваровУслугТовары.Цена,
		               |	ПоступлениеТоваровУслугТовары.Сумма,
		               |	ПоступлениеТоваровУслугТовары.ХарактеристикаНоменклатуры,
		               |	ЛОЖЬ КАК Отметка,
		               |	ПоступлениеТоваровУслугТовары.СерияНоменклатуры,
		               |	ПоступлениеТоваровУслугТовары.Ссылка КАК СсылкаНаДокумент
		               |ИЗ
		               |	Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
		               |ГДЕ
		               |	ПоступлениеТоваровУслугТовары.Ссылка = &ДокументТЗ
		               |	И НЕ ПоступлениеТоваровУслугТовары.Номенклатура В
		               |				(ВЫБРАТЬ
		               |					ВТ_ИсключаемаяНоменклатура.Номенклатура
		               |				ИЗ
		               |					ВТ_ИсключаемаяНоменклатура КАК ВТ_ИсключаемаяНоменклатура)";      
		
		Тз = Новый ТаблицаЗначений;
		Тз = Запрос.Выполнить().Выгрузить();
		
		Для Каждого ТекущаяСтрока Из Тз Цикл    
			
			НоваяСтрока = СписокТоваров.Добавить();        
			
			Если ТекущаяСтрока.Отметка = "Истина" Тогда
				НоваяСтрока.Отметка = Истина;
			КонецЕсли;
			//НоваяСтрока.НомерСтроки                = Ном;
			НоваяСтрока.СсылкаНаДокумент            = ТекущаяСтрока.СсылкаНаДокумент;
			НоваяСтрока.Номенклатура        = ТекущаяСтрока.Номенклатура;
			НоваяСтрока.ХарактеристикаНоменклатуры  = ТекущаяСтрока.ХарактеристикаНоменклатуры;
			НоваяСтрока.СерияНоменклатуры   = ТекущаяСтрока.СерияНоменклатуры;
			НоваяСтрока.ЕдиницаИзмерения    = ТекущаяСтрока.ЕдиницаИзмерения;
			НоваяСтрока.Количество          = ТекущаяСтрока.Количество;
			НоваяСтрока.Цена             	= ТекущаяСтрока.Цена;
			НоваяСтрока.Сумма             	= ТекущаяСтрока.Сумма;
		КонецЦикла;
	
	 //КонецЕсли;
КонецПроцедуры

Процедура СписокТоваровНомерСтроки1ПриИзменении(Элемент)
	
	Счетчик = 0;
	Для каждого Стр Из СписокТоваров Цикл
		Счетчик=Счетчик+1;
		Стр.НомерСтроки1 = Счетчик;     
	КонецЦикла;
	
КонецПроцедуры

Процедура СписокТоваровПриПолученииДанных(Элемент, ОформленияСтрок)
	
	Для Каждого офСтроки Из ОформленияСтрок Цикл
		офСтроки.Ячейки.НомерСтроки1.УстановитьТекст(СписокТоваров.Индекс(ОфСтроки.ДанныеСтроки));
	КонецЦикла

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