1с как найти табличный документ

Многие объекты метаданных в 1С могут иметь табличную часть. У одного объекта может быть создано неограниченное количество табличных частей.

Табличная часть может быть создана только как подчиненный объект у какого-либо объекта метаданных, например у справочника или у документа.

Строка табличной части не является отдельным объектом. К строке можно обратиться только по индексу строки в табличной части.

Программно нельзя создать табличную часть через конструктор. Можно только получить к ней доступ через основной объект:

//создаем объект
НовыйДок = Документы.РасходТовара.СоздатьДокумент();
//через объект получаем доступ к табличной части СписокУслуг
ТабЧастьДока = НовыйДок.СписокУслуг;

Строка табличной части

Добавить новую строку табличной части можно с помощью методов Добавить и Вставить. Через точку от строки табличной части можно обращаться к реквизитам строки:

//добавление строки табличной части
СтрокаТабличнойЧасти = НовыйДок.СписокУслуг.Добавить();
СтрокаТабличнойЧасти.Услуга = СсылкаНаУслугу;
СтрокаТабличнойЧасти.СуммаУслуги = 900;

//для метода Вставить нужно указать индекс строки
СтрокаТабличнойЧасти = НовыйДок.СписокУслуг.Вставить(1);
СтрокаТабличнойЧасти.Услуга = СсылкаНаУслугу;
СтрокаТабличнойЧасти.СуммаУслуги = 800;

//у строки есть предопределенная колонка НомерСтроки
Сообщить(СтрокаТабличнойЧасти.НомерСтроки); //2
//в отличии от индексов номера строк начинаются с 1

Заполнение табличной части

Заполнить табличную часть можно по одной строке с помощью методов Добавить и Вставить, а также с помощью методов Загрузить и ЗагрузитьКолонку для массового заполнения табличной части:

//создаем таблицу значений
ТЗТаблЧасть = Новый ТаблицаЗначений;
ТЗТаблЧасть.Колонки.Добавить("Услуга");
ТЗТаблЧасть.Колонки.Добавить("СуммаУслуги");

СтрокаТЗ = ТЗТаблЧасть.Вставить(1);
СтрокаТЗ.Услуга = СсылкаНаУслугу;
СтрокаТЗ.СуммаУслуги = 800;

СтрокаТЗ = ТЗТаблЧасть.Вставить(1);
СтрокаТЗ.Услуга = СсылкаНаУслугу;
СтрокаТЗ.СуммаУслуги = 900;

//создаем документ
НовыйДок = Документы.РасходТовара.СоздатьДокумент();

//заполнение табличной части из таблицы значений
//имена колонок должны совпадать
//все прежние строки будут удалены из табличной части
НовыйДок.СписокУслуг.Загрузить(ТЗТаблЧасть);

МассивТаблЧасть = Новый Массив;
МассивТаблЧасть.Добавить(500);
МассивТаблЧасть.Добавить(600);

//заполнение одной колонки табличной части
//все значения из массива будут загружены в колонку СуммаУслуги
НовыйДок.СписокУслуг.ЗагрузитьКолонку(МассивТаблЧасть, "СуммаУслуги");

Перебор табличной части

Перебрать табличную часть можно в цикле:

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//обход табличной части через цикл Для Каждого
Для Каждого СтрокаТабличнойЧасти Из ДокОбъект.СписокУслуг Цикл
	Сообщить(СтрокаТабличнойЧасти.НомерСтроки);
КонецЦикла;	

//количество строк табличной части
КолвоСтрок = ДокОбъект.СписокУслуг.Количество();

//Перебор табличной части через цикл Для
Для ё = 0 По КолвоСтрок Цикл
	//строку можно получить через квадратные скобки
	СтрокаТабличнойЧасти = ДокОбъект.СписокУслуг[ё];
	Сообщить(СтрокаТабличнойЧасти.НомерСтроки);
	
	//или методом Получить
	СтрокаТабличнойЧасти = ДокОбъект.СписокУслуг.Получить(ё);
	Сообщить(СтрокаТабличнойЧасти.НомерСтроки);
КонецЦикла;	

//через цикл Пока можно перебрать табличную часть с конца 
ИндСтр = КолвоСтрок; 
Пока ИндСтр > 0 Цикл
	//строку можно получить через квадратные скобки
	СтрокаТабличнойЧасти = ДокОбъект.СписокУслуг[ИндСтр];
	Сообщить(СтрокаТабличнойЧасти.НомерСтроки);	
	
	ИндСтр = ИндСтр - 1;
КонецЦикла;	

Удаление строк табличной части

Удалить одну строку табличной части можно с помощью метода Удалить. Для удаления всех строк применяется метод Очистить.

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//удалить строку табличной части по индексу
//удалит вторую строку
ДокОбъект.СписокУслуг.Удалить(1);

//удалить все строки табличной части
ДокОбъект.СписокУслуг.Очистить();
//можно так
Для Каждого СтрТаблЧасть Из ДокОбъект.СписокУслуг Цикл
	ДокОбъект.СписокУслуг.Удалить(СтрТаблЧасть);	
КонецЦикла;	

//удалить строки табличной части по условию
//строки перебираем с конца
ИндСтр = ДокОбъект.СписокУслуг.Количество() - 1;
Пока ИндСтр >= 0 Цикл
	//по индексу получаем строку
	СтрокаТабличнойЧасти = ДокОбъект.СписокУслуг.Получить(ИндСтр);
	//удаляем все строки, где СуммаУслуги < 500
	Если СтрокаТабличнойЧасти.СуммаУслуги < 500 Тогда
		ДокОбъект.СписокУслуг.Удалить(СтрокаТабличнойЧасти);	
	КонецЕсли;
	
	//уменьшаем индекс
	ИндСтр = ИндСтр - 1;
КонецЦикла;	

//после удаления строк нужно записать объект
ДокОбъект.Записать();

Как выгрузить табличную часть

Табличную часть можно выгрузить в таблицу значений методом Выгрузить. Также можно выгрузить в массив все значения одной колонки методом ВыгрузитьКолонку:

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//выгрузить табличную часть в таблицу значений
//в таблице значений будут такие же колонки, 
//как в табличной части + колонка НомерСтроки
ТЗТаблЧасть = ДокОбъект.СписокУслуг.Выгрузить();

//можно указать какие колонки выгружать
ТЗТаблЧасть = ДокОбъект.СписокУслуг.Выгрузить(, "Услуга");

//можно указать отбор строк табличной части
ОтборСтрокТаблЧасти = Новый Структура;
ОтборСтрокТаблЧасти.Вставить("Услуга", СсылкаНаУслугу);
ТЗТаблЧасть = ДокОбъект.СписокУслуг.Выгрузить(ОтборСтрокТаблЧасти);

//можно выгрузить в массив
МассивУслуг = ДокОбъект.СписокУслуг.ВыгрузитьКолонку("Услуга");

Методом ВыгрузитьКолонки можно создать пустую таблицу значений с такими же колонками, как у табличной части:

//все колонки
ПустаяТЗ = ДокОбъект.СписокУслуг.ВыгрузитьКолонки();

//можно указать список колонок
ПустаяТЗ = ДокОбъект.СписокУслуг.ВыгрузитьКолонки("Услуга");

Итог по табличной части

Для получения итога по числовой колонке табличной части можно воспользоваться методом Итог:

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//параметром указывается имя колонки
СуммаВсего = ДокОбъект.СписокУслуг.Итог("СуммаУслуги");

Свернуть табличную часть

Чтобы свернуть табличную часть можно воспользоваться методом Свернуть. Первым параметром указывается список колонок группировки, вторым колонки суммирования. Все колонки табличной части должны быть указаны или в первом или во втором параметре.

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//сворачиваем табличную часть
ДокОбъект.СписокУслуг.Свернуть("Услуга", "СуммаУслуги");

//записываем
ДокОбъект.Записать();

Сортировка табличной части

Для сортировки табличной части используется метод Сортировать:

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//сортировка табличной части по возрастанию сумму
ДокОбъект.СписокУслуг.Сортировать("СуммаУслуги");

//сортировка табличной части по убыванию сумму
ДокОбъект.СписокУслуг.Сортировать("СуммаУслуги Убыв");

//записываем
ДокОбъект.Записать();

Поиск в табличной части

Чтобы найти строку в табличной части можно воспользоваться методами Найти и НайтиСтроки. Метод Найти позволяет найти одну (первую попавшуюся) строку по значению. Метод НайтиСтроки позволяет найти несколько строк, подходящих под условие:

//из ссылки получаем объект
ДокОбъект = СсылкаНаДок.ПолучитьОбъект();

//найти строку с суммой равно 500
СтрокаТабличнойЧасти = ДокОбъект.СписокУслуг.Найти(500, "СуммаУслуги");
Если Не СтрокаТабличнойЧасти = Неопределено Тогда
	//нашли
КонецЕсли;

//найти все строки с суммой равной 500
СтрПоискаСтрок = Новый Структура;
СтрПоискаСтрок.Вставить("СуммаУслуги", 500);
МассивСтрокТаблЧасти = ДокОбъект.СписокУслуг.НайтиСтроки(СтрПоискаСтрок);
Для Каждого СтрокаТабличнойЧасти Цикл
	Сообщить(СтрокаТабличнойЧасти.НомерСтроки);
КонецЦикла;	

ОЧИСТКА ТАБЛИЧНОЙ ЧАСТИ ДОКУМЕНТА

Каждый раз при выполнении кода могут добавляться новые строки, а вполне возможно, что пользователю старые строки не нужны. Поэтому, чтобы очищать имеющиеся строки, перед добавлением новых строк можно воспользоваться методом Очистить объекта СписокТоваров, который имеет тип ДанныйФормыКоллекция.

Объект.СписокТоваров.Очистить();

После выполнения этого метода вся табличная часть будет очищена.

ТЕКУЩАЯ СТРОКА ТАБЛИЧНОЙ ЧАСТИ

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

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

Для решения данной задачи нужно воспользоваться свойством ТекущиеДанные элемента с типом ТаблицаФормы, который соответствует нужной табличной части. Свойство ТекущиеДанные возвращает значение полей текущей строки.

Для того, чтобы отработать изменение текущего поля цены, создадим обработчик события ПриИзменении этого поля.

В этом обработчике напишем код, который будет пересчитывать значения полей текущей строки табличной части.

&НаКлиенте
Процедура СписокТоваровЦенаПриИзменении(Элемент)
	ТекДанные = Элементы.СписокТоваров.ТекущиеДанные;
	Если ТекДанные = Неопределено Тогда
		Возврат; //если пустая таблица
	КонецЕсли;
	ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
КонецПроцедуры

Ещё пример: я создал команду, которая должна увеличивать количество в текущий строке табличной части в два раза и пересчитывать сумму. Эта команда размещена в командной панели таблицы и имеет следующий код:

&НаКлиенте
Процедура УмножитьНа2(Команда)
    ТекДанные = Элементы.СписокТоваров.ТекущиеДанные;
    Если ТекДанные = Неопределено Тогда
        Возврат; //если пустая таблица
    КонецЕсли;
    ТекДанные.Количество = ТекДанные.Количество * 2;
    ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
КонецПроцедуры

Теперь доработаем этот пример: после увеличения текущей строки будем сдвигать текущую строку на строку вниз. Для этого допишем предыдущий код:

Идентификтор = Элементы.СписокТоваров.ТекущаяСтрока;
ИдентификторСлед = Идентификтор + 1;

Если ИдентификторСлед < Объект.СписокТоваров.Количество() Тогда
    Элементы.СписокТоваров.ТекущаяСтрока = ИдентификторСлед;
КонецЕсли;

В этом коде мы получаем идентификатор текущий строки при помощи свойства таблицы управляемой формы ТекущаяСтрока, и если мы не выходим за приделы таблицы, то сдвигаем нашу текущую строку на один шаг вниз.

Также при помощи текущей строки можно находить аналогичную строку в соответствующей табличной части основного реквизита формы Объект, которую также можно изменять (строка на форме тоже изменится автоматически). Мы ранее сделали пересчет суммы при изменении цены, теперь сделаем пересчет суммы при изменении количества, но напрямую через реквизит Объект.

&НаКлиенте
Процедура СписокТоваровКоличествоПриИзменении(Элемент)
    Идентификтор = Элементы.СписокТоваров.ТекущаяСтрока;
    Если Идентификтор = Неопределено Тогда
        Возврат;
    КонецЕсли;
    ТекСтрока = Объект.СписокТоваров.НайтиПоИдентификатору(Идентификтор);
    Если ТекСтрока = Неопределено Тогда
        Возврат;
    КонецЕсли;
    ТекСтрока.Сумма = ТекСтрока.Цена * ТекСтрока.Количество;
КонецПроцедуры

В этом коде мы используем метод НайтиПоИдентификатору переменной Объект.СписокТоваров, которая имеет типа ДанныйФормыКоллекция, этот метод получает элемент коллекции по указанному идентификатору. Если этот элемент найден, то мы можем с ними работать, причем данные на форме изменяться автоматически.

Смотрите также:
Электронный учебник по программированию в 1С
Рекомендации по изучению программирования 1С с нуля
Игра «Кто хочет стать миллионером?» с вопросами на определенную тематику (язык программирования JavaScript, английские, немецкие, французские, испанские, португальские, ни­дер­ландские, итальянские слова, электробезопасность, промышленная безопасность, бокс и т.п.), написанная на 1С
Программирование в 1С 8.3 с нуля — краткий самоучитель
Комплексная подготовка программистов 1С:Предприятие 8.2
Сайты с уроками программирования и со справочниками
Youtube-каналы с уроками программирования
Сайты для обучения программированию
Лекции и уроки

1С 8.3 : Найти строку в табличной части документа

 &НаСервере

Процедура НайтиТовар(СправочникНоменклатураСсылка)


        Перем Отбор, НайденноеЗначение, Сч;


        Отбор = Новый Структура();

        Отбор.Вставить("Номенклатура", СправочникНоменклатураСсылка);

        НайденноеЗначение = Объект["ТЧНоменклатура"].НайтиСтроки(Отбор);



        Если НайденноеЗначение.Количество() > 0 Тогда


                Сч = 1;

                Пока НайденноеЗначение.Количество() >= Сч Цикл 

                        Сообщить(НайденноеЗначение[0].Наименование);

                        Сч = Сч + 1;

                КонецЦикла;


        КонецЕсли;


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

  // найти строку в ТЧ Документа

Отбор = Новый Структура();

Отбор.Вставить("Номенклатура", СправочникНоменклатураСсылка);

НайденноеЗначение = ТЧНоменклатура.НайтиСтроки(Отбор);


// Необходимо найти МассивСтрок, состоящий из строк табличной части документа по 2 значениям.

СтруктураДляПоиска = Новый Структура;

структураДляПоиска.Вставить("Артикул",Артикул);

структураДляПоиска.Вставить("КодПартии",СтруктураПараметров.КодПартии);


МассивСтрок = ДокументДляДополнения.Товары.НайтиСтроки(структураДляПоиска);   

 ВыгрузитьТабличнуюЧасть("Товар")

Найти строку в табличной части документа для изменения не очень частая задача из-за этого не всегда можно вспомнить с ходу, как это реализовать в 1с. В этой заметке разберем пару примерок по поиску строк в табличной части и дальнейшей работы с ними.

Найти строку по заданным параметрам

Для решения задачи поиска строк в ТЧ будем использовать функцию НайтиСтроки.

Синтаксис: НайтиСтроки(<ПараметрыОтбора>)
Параметры: <ПараметрыОтбора> (обязательный)
Тип: Структура. Задает условия поиска: ключ структуры определяет имя колонки, по которой будет осуществляться поиск, а значение структуры – искомое значение.
Возвращаемое значение: Массив из строк табличной части, соответствующих заданному условию поиска.
Замечание! Массив хранит ссылки на строки табличной части, то есть при изменении строки в табличной части, значение в массиве тоже будет изменено.
Описание: Осуществляет поиск строк табличной части, соответствующих заданному условию поиска.

Первый вариант, который встречается в работе найти строки с определенным значением в колонке.

Найти все строки ТЧ с определенным значением задачи.

1. Создадим структуру отбор и установим значение задачи
2. Применим функцию НайтиСтроки к нужной табличной части
3. В переменной МассивНайденныхСтрок будут ссылки на строки таблицы которые содержат нужную нам задачу

Отбор = Новый Структура("Задача",ДокументСсылкаЗадача);
МассивНайденныхСтрок = ТЧПодзадачи.НайтиСтроки(Отбор);

Бывает когда нужно найти строку в табличной части документа по нескольким параметрам, разберем такой пример.

Найти все строки ТЧ с определенным значением номенклатуры и количества

1. Создаем структуру для отбора
2. Устанавливаем два параметра поиска (если параметров больше устанавливаем столько, сколько надо)
3. Ищем в таблице нужные строки
4. Получаем переменную МассивНайденныхСтрок с нужными данными

Отбор = Новый Структура;
Отбор.Вставить("Номенклатура",СправочникНоменклатураСсылка);
Отбор.Вставить("Количество",ИскомоеКоличество);

МассивНайденныхСтрок = РеализацияТовароУслуг.Товары.НайтиСтроки(Отбор);   

В примере номер три реализуем процедуру которая сообщит все цены номенклатуры в определенном документе.

Реализовать процедуру которая сообщит цену на товар в поступлениях, реализациях и счетах на выбор пользователя.

Порядок действий будет похож на прошлые два примера:

1. Создаем отбор и устанавливаем значения поиска
2. Ищем в табличной части
3. Сообщаем все цены которые нашли

&НаСервере
Процедура НайтиЦеныНаТовар(Документ,СправочникНоменклатураСсылка)
	Отбор = Новый Структура("Номенклатура", СправочникНоменклатураСсылка);
	МассивНайденныхСтрок = Документ["Товары"].НайтиСтроки(Отбор);
	Для Каждого ЭлМас Из  МассивНайденныхСтрок Цикл
		Сообщить(ЭлМас.Цена);
	КонецЦикла;
КонецПроцедуры   

В 1с существует метод Найти(), это устаревший метод для его не стоит использовать.

Дополнительные материалы по теме:

1. Заметки и учебные примеры по программированию у меня на сайте ищите – тут
2. Интересная статья про НайтиСтроки – тут

Синтаксис:

НайтиТекст(<Строка>, <Начало>, <Где>, <ИскатьПоСтрокам>, <ЯчейкаЦеликом>, <ИскатьВперед>, <ИгнорироватьРегистр>)
Параметры:

<Строка> (обязательный)

Тип: Строка.
Искомый текст.
<Начало> (необязательный)

Тип: ОбластьЯчеекТабличногоДокумента.
Область, после которой начинать поиск. Если параметр не указан, поиск будет выполнен с начала табличного документа.
<Где> (необязательный)

Тип: ОбластьЯчеекТабличногоДокумента.
Область, в которой осуществляется поиск. Если параметр не указан, поиск будет выполнен по всем ячейкам табличного документа.
<ИскатьПоСтрокам> (необязательный)

Тип: Булево.
Определяет последовательность обхода ячеек при поиске.
Истина — искать по текущей строке, затем переходить на следующую и т.д. в общем направлении поиска, Ложь — искать по текущей колонке, затем переходить на следующую и т.д. в общем направлении поиска.
Значение по умолчанию: Истина.
<ЯчейкаЦеликом> (необязательный)

Тип: Булево.
Истина — искать только такие ячейки, в которых с искомым текстом совпадает весь текст ячейки, Ложь — искать часть текста ячейки.
Значение по умолчанию: Ложь.
<ИскатьВперед> (необязательный)

Тип: Булево.
Определяет направление поиска: Истина — искать вперед; Ложь — искать назад.
Значение по умолчанию: Истина.
<ИгнорироватьРегистр> (необязательный)

Тип: Булево.
Истина — без учета регистра, Ложь — поиск с учетом регистра.
Значение по умолчанию: Ложь.
Возвращаемое значение:

Тип: ОбластьЯчеекТабличногоДокумента; РисунокТабличногоДокумента.
Область, содержащая искомый текст. Если текст не найден, то возвращается значение Неопределено.
Описание:

Осуществляет поиск текста в ячейках табличного документа.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер).
Пример:

// чтобы посмотреть работу данного метода, добавьте
// следующие строки в конец примера метода НачатьГруппуСтрок()
Отдел = "Итого2";
Область=ТабДок.НайтиТекст(Отдел);
Если ТипЗнч(Область)=Тип("Неопределено") Тогда
    Сообщить("Значение не найдено!");
Иначе
    Поз = Найти(Область.Имя,"C");
    Имя= Лев(Область.Имя,Поз)+
        Строка(Число(Прав(Область.Имя,СтрДлина(Область.Имя)-Поз))+1);
    Сообщить("Итог по отделу 2 = "+ТабДок.Область(Имя).Текст);
КонецЕсли;

TurboConf — расширение возможностей Конфигуратора 1С