&НаСервере

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



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



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

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

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





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



                Сч = 1;

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

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

                        Сч = Сч + 1;

                КонецЦикла;



        КонецЕсли;



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

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

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

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

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



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

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

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

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



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

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

  ОтражениеВУчете.Очистить(); // ОтражениеВУчете - название табличного поля    

  //Получим документ и укажем параметры поиска

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

СтруктураДляПоиска = Новый Структура("Количество", 0); 

ТабличнаяЧастьДок = ОбъектДок.Товары; 

//Получаем список строк соответсвтвующих отбору, и перебором удаляем.

МассивПустыхСтрок = ТабличнаяЧастьДок.НайтиСтроки(СтруктураДляПоиска); 

Для каждого Строка Из МассивПустыхСтрок Цикл 

	ТабличнаяЧастьДок.Удалить(Строка); 

КонецЦикла; 

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

  // Укажем условия отбора: Нужно оставить только строки где СубконтоКт1 = РБПНаПФР	

ПараметрыОтбора = Новый Структура("СубконтоКт1", Справочники.РасходыБудущихПериодов.РБПНаПФР);	

//Теперь выгружаем табличную часть в таблицу значений

ТЗисходн=ОтражениеВУчете.Выгрузить();

//Скопируем ТЗ с заданным отбором в новую ТЗ

ТЗнов = ТЗисходн.Скопировать(ПараметрыОтбора);

//Очистим табличную часть

ОтражениеВУчете.Очистить();

//Загружем в табличную часть новую таблицу значений

ОтражениеВУчете.Загрузить(ТЗнов);    

 Для каждого Запись из ТабличнойЧасти Цикл

Если Запись.НадоУдалить Тогда

 ТабличнойЧасти.Удалить(Запись);

КонецЕсли;

КонецЦикла;   

    КолВо = Объект.ТабличнойЧасти.Количество()-1;

    ИндексСтроки = КолВо;

    Для счетчик = 0 по КолВо Цикл

        Запись = Объект.ТабличнойЧасти.Получить(ИндексСтроки);

        если Запись.НадоУдалить тогда

                Объект.ТабличнойЧасти.Удалить(Запись);

            КонецЕсли;

        ИндексСтроки = ИндексСтроки - 1;

    КонецЦикла;