Бухгалтерский учет, налогообложение, отчетность, МСФО, анализ бухгалтерской информации, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

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

OmanRS
читатель
офлайн
Дата регистрации: 28.03.2008
Сообщений: 2
Пост №1
 
28.03.2008 08:44

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

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация

Мероприятия

17 ноября 2021 годаБизнес-форум 1С:ERP

1C:Лекторий: 28 октября 2021 года (четверг, начало в 10:00)Налоговый мониторинг: порядок перехода, преимущества для налогоплательщиков, поддержка в решениях 1С

1C:Лекторий: 2 ноября 2021 года (вторник, начало в 10:00, все желающие)Новые источники данных в 1С:Аналитике

Все мероприятия
Предложения партнеров
Обучение пользователей продуктов 1С