Поиск  Пользователи  Правила  Войти
RSS
Ввод остатков НДС по партиям
 
"Подскажите пожалуйста! Необходимо заполнить документ "Ввод остатков НДС по Партиям" программно на основании ввода операций по счету 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;
          КонецЦикла;
          ДокПарт.Записать();"
Читают тему

Читайте нас: