8.х Перенос строк из одного документа в другой

Добрый день.

Задача примерно такого характера:

Есть масса документов, в этих документах в табличных частях есть строки, (не все) которые необходимо перенести в другой документ(2)..

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

С 8.1 почти не знаком, так что если толкнете в сторону нужной информации или названия процедур -- буду признателен.

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

(самый наглядный и простой, на мой взгляд, для пояснения - но отнюдь не лучший с точки зрения оптимальности)
1. Получаем объект для обработки целевого документа, в который будем добавлять строки (отлично работает метода "ПолучитьОбъект()"
2. Запросом выбираем ссылки на документы, из которых будем переносить строки.
3. В цикле перебираем эти объекты: получаем объект из каждой ссылки и выполняем цикл "для каждого" по табличной части.
4. В случае, если строка удовлетворяет условиям, добавляем строку в табличный документ. (Строка = ТабличнаяЧасть.Добавить())
5. Удаляем строку из табличной части документа, с которым работаем. (метод табличной части "Удалить()")
6. Проведение документа происходит через "Объект.Записать(<параметры записи>).

В помощь рекоммендую синтаксис-помощник. Вам нужно искать темы "ДокументОбъект" и "ТабличнаяЧасть".

И, конечно же, хотелось бы знать, насколько распространяется ваше "почти не знаком". Работали ли вы с 7.7, имели ли опыт программирования на любом языке (не обязательно 1С) и т. д. Так будет проще понять, насколько широко распространяются ваши знания.

Сейчас наколбасил следующую штуку:
---

Код:

// отборка документов
Процедура ОтборНажатие(Элемент)
ИсхДокумент = ИсхДокументПоле.ПолучитьОбъект();
РезДокумент = РезультирующийДокументПоле.ПолучитьОбъект();

ТЗ.Очистить(); // Очищаем Табличную чаcть
Инд = 0;       // обнуляем индекс	

Для каждого ИсхСтрока из ИсхДокументПоле.Комплектующие цикл
// Заполнение ТаблицыЗначений
Если (ИсхСтрока.ДоляСтоимости = 1) И (НаличиеНаСкладах(ИсхСтрока.Номенклатура) <> НЕОПРЕДЕЛЕНО) Тогда
ТЗСтр  = ТЗ.Добавить();
ТЗСтр.Комплектующая       = ИсхСтрока.Номенклатура;
ТЗСтр.Долястоимости       = ИсхСтрока.ДоляСтоимости;
ТЗСтр.Количество          = ИсхСтрока.Количество;
ТЗСтр.СерияКомплектующей  = ИсхСтрока.СерияНоменклатуры;
ТЗСтр.ЕдиницаИзмерения    = ИсхСтрока.ЕдиницаИзмерения;
ТЗСтр.К					  = ИсхСтрока.Коэффициент;
ТЗСтр.Остаток             = НаличиеНаСкладах(ИсхСтрока.Номенклатура);
ТЗСтр.ИндексСтроки        = Инд;				
КонецЕсли;
Инд = Инд + 1;	
КонецЦикла
КонецПроцедуры

Процедура ВыполнитьНажатие(Элемент)

ИсхДокумент = ИсхДокументПоле.ПолучитьОбъект();
РезДокумент = РезультирующийДокументПоле.ПолучитьОбъект();

КоличествоДобавленных = 0;

Для каждого СтрокаДляВставки из ТЗ Цикл
РезСтрока = РезДокумент.Комплектующие.Добавить();

РезСтрока.Номенклатура      = СтрокаДляВставки.Комплектующая;
РезСтрока.ДоляСтоимости     = СтрокаДляВставки.ДоляСтоимости;
РезСтрока.Количество        = СтрокаДляВставки.Количество;
РезСтрока.Коэффициент       = СтрокаДляВставки.К;
РезСтрока.ЕдиницаИзмерения  = СтрокаДляВставки.ЕдиницаИзмерения;
РезСтрока.СерияНоменклатуры = СтрокаДляВставки.СерияКомплектующей;

КоличествоДобавленных       = КоличествоДобавленных + 1;

ИсхДокумент.Комплектующие.Удалить(СтрокаДляВставки.ИндексСтроки);

ИсхДокумент.Записать();
РезДокумент.Записать();
КонецЦикла;

Сообщить("Исходный документ: "+ИсхДокумент,СтатусСообщения.Информация);
Сообщить("Результирующий документ: "+РезДокумент,СтатусСообщения.Информация);
Сообщить("Перенесено позиций: " + КоличествоДобавленных);
КонецПроцедуры

Функция НаличиеНаСкладах(Ссылка)

Запрос = Новый Запрос("ВЫБРАТЬ
|ТоварыНаСкладахОстатки.Номенклатура.Ссылка,
|ТоварыНаСкладахОстатки.КоличествоОстаток
|ИЗ
|РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
|ГДЕ ТоварыНаСкладахОстатки.Номенклатура = &Ссылка	
|");

Запрос.УстановитьПараметр("Ссылка",Ссылка);
Результат = Запрос.Выполнить();
Рез = Результат.Выгрузить();

Для Каждого Наличие из Рез Цикл
Возврат(Наличие.КоличествоОстаток);
КонецЦикла;

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

---

Выборка строк из документа работает.
При нажатии на Выполнить до Индекс выходит за пределы с сообщением
"Ошибка при вызове метода контекста (Удалить) Значение индекса выходит за границы диапозона".

Почему? Хоть убей -- не пойму..

Особенность 1С-ки?
Не ожидал ошибки, ведь обращение к строке-то идет по индексу..

Ну, а удалять, я так понимаю For-ом?

Это полностью рабочий код, уже проверянно.

а

Код:

ИсхДокумент = ИсхДокументПоле.ПолучитьОбъект();

Потому что у меня сыпал ошибку при удалении строки методом ИсхДокументПоле.Комплектующие.Удалить();

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

да

Цикл, согласен. Убрал.
В запросе склада нет, по той простой причине что он не нужен в данном случае. Конфиг типовой УТ.
Зачем добавлять еще условия если есть довольно четкое и однозначное (ссылка на документ)?

Согласен, это была отладочная информация для проверки, убрал.

Вот здесь для меня не совсем понятны некоторые моменты.
Логика работы такая:
1. Из документа(1) берется табличная часть, выбираются нужные строки и помещаются в ТаблицуЗначений для контроля. (Отбор)
2. После нажатия (Выполнить) вызывается процедура добавления строк во второй документ(2), удаления строк из документа(1) и записи получившихся документов.

ну вот как-то так...