Ввод остатков НДС по партиям

"Подскажите пожалуйста! Необходимо заполнить документ "Ввод остатков НДС по Партиям" программно на основании ввода операций по счету 41. <br><br>При открытии формы программно и добавлении данных в табличные части, не получается подчиненность в табличных частях. Т.е. если заполнять<br><br>документ в программе, то каждой строке в первой табличной части соответствует строка во второй, и наоборот, как зделать эту связь в табличных частях? <br><br> <br><br>            Запрос.УстановитьПараметр("ДатаНачала",Дата(2006,12,31)); <br>       Запрос.УстановитьПараметр("КодСчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"));<br>       Выборка = Запрос.Выполнить().Выбрать();<br>       <br>       ДокПарт = Документы.ВводНачальныхОстатковНДСпоПартиям.СоздатьДокумент(); //создаю документ<br><br>       ДокПарт.Ответственный = ГлЗначениеПеременной("ГлТекущийПользователь");<br>       ДокПарт.Дата = Дата(2006,12,31);<br>       ДокПарт.УстановитьНовыйНомер();<br>       ДокПартФорма = ДокПарт.ПолучитьФорму();<br><br>       ДокПартФорма.Открыть(); //Открываю форму документа<br><br>       <br>       Выборка = Запрос.Выполнить().Выбрать();<br>             Пока Выборка.Следующий()=1 Цикл<br>       <br>             ЭлементыФормыДок.ФормаДокумента.ДанныеПоПартиям.НоваяСтрока();<br>             НовСтрока1 = ДокПартФорма.ДанныеПоПартиям.Добавить();<br>             НовСтрока1.Номенклатура = Выборка.СубконтоДт1;<br>             НовСтрока1.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");<br>             НовСтрока1.Партия = НайденныйДокОтражениеПоступления;<br>             НовСтрока1.Склад = Справочники.Склады.НайтиПоНаименованию("Основной"); //Делаю вот так не получаетс,       строки получаются не подчиненны (<br><br>             НовСтрока1.Количество = Выборка.Количество;<br>             <br>             НовСтрока2 = ДокПартФорма.ДанныеПоСФ.Добавить();<br>             НовСтрока2.СчетФактура = НайденныйДокОтражениеПоступления;<br>             НовСтрока2.ВидЦенности = Перечисления.ВидыЦенностей.Товары;<br>             НовСтрока2.Количество = Выборка.Количество;<br>             НовСтрока2.Стоимость = Выборка.Сумма+(Выборка.Сумма*18/100);<br>             НовСтрока2.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03");<br>             НовСтрока2.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;<br>             НовСтрока2.НДС = Выборка.Сумма*18/100;<br>       КонецЦикла;<br>       ДокПарт.Записать();"