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