v8.2 УП: Посчитать количество строк в табличном поле.

 



процедура счетстрок ()

КолСтр = 0;

КолСтр = КолСтр + ВсеФизЛица.Количество();

ПолеСписка1.Добавить(КолСтр)

конецпроцедуры   

 
Запрос = Новый Запрос;

	Запрос.Текст = 

		"ВЫБРАТЬ

		|	СоставБригадыСрезПоследних.Сотрудники КАК ФизЛицо,

		|	СоставБригадыСрезПоследних.Бригада КАК Бригада,

		|	СоставБригадыСрезПоследних.Сотрудники.Принадлежность

		|ИЗ

		|	РегистрСведений.СоставБригады.СрезПоследних КАК СоставБригадыСрезПоследних

		|ГДЕ

		|	СоставБригадыСрезПоследних.Сотрудники.Принадлежность = &Принадлежность

		|

		|УПОРЯДОЧИТЬ ПО

		|	Бригада УБЫВ";

		Запрос.УстановитьПараметр("Принадлежность", Элементыформы.Принадлежность.Значение);

		

		

		РезультатЗапроса = Запрос.Выполнить();

		

		Выборка = РезультатЗапроса.Выбрать();

		Бригада ="";

		Пока Выборка.Следующий() Цикл

			// Вставить обработку выборки ВыборкаДетальныеЗаписи

			Если Бригада <> Выборка.Бригада Тогда

				Бригада=Выборка.Бригада ;

				новаяСтр = ВсеФизЛица.Добавить();

				новаяСтр.ФизЛицо = Бригада;

			КонецЕсли; 

			новаяСтр = ВсеФизЛица.Добавить();

			новаяСтр.ФизЛицо = Выборка.ФизЛицо;





		КонецЦикла;

	КонецЕсли;