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

"Подскажите пожалуйста! Необходимо заполнить документ "Ввод остатков НДС по Партиям" программно на основании ввода операций по счету 41.

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

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



           Запрос.УстановитьПараметр("ДатаНачала",Дата(2006,12,31));  
          Запрос.УстановитьПараметр("КодСчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"));
          Выборка = Запрос.Выполнить().Выбрать();
         
          ДокПарт = Документы.ВводНачальныхОстатковНДСпоПартиям.СоздатьДокумент(); //создаю документ

          ДокПарт.Ответственный = ГлЗначениеПеременной("ГлТекущийПользователь");
          ДокПарт.Дата = Дата(2006,12,31);
          ДокПарт.УстановитьНовыйНомер();
          ДокПартФорма = ДокПарт.ПолучитьФорму();

          ДокПартФорма.Открыть(); //Открываю форму документа

         
          Выборка = Запрос.Выполнить().Выбрать();
            Пока Выборка.Следующий()=1 Цикл
         
              ЭлементыФормыДок.ФормаДокумента.ДанныеПоПартиям.НоваяСтрока();
              НовСтрока1 = ДокПартФорма.ДанныеПоПартиям.Добавить();
              НовСтрока1.Номенклатура = Выборка.СубконтоДт1;
              НовСтрока1.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
              НовСтрока1.Партия = НайденныйДокОтражениеПоступления;
              НовСтрока1.Склад = Справочники.Склады.НайтиПоНаименованию("Основной");     //Делаю вот так не получаетс,         строки получаются не подчиненны (

              НовСтрока1.Количество = Выборка.Количество;
             
              НовСтрока2 = ДокПартФорма.ДанныеПоСФ.Добавить();
              НовСтрока2.СчетФактура = НайденныйДокОтражениеПоступления;
              НовСтрока2.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
              НовСтрока2.Количество = Выборка.Количество;
              НовСтрока2.Стоимость =  Выборка.Сумма+(Выборка.Сумма*18/100);
              НовСтрока2.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03");
              НовСтрока2.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;
              НовСтрока2.НДС = Выборка.Сумма*18/100;
          КонецЦикла;
          ДокПарт.Записать();"