Процедура ДвиженияПоРегистрам(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоДокументамОплаты, Отказ, Заголовок)
Если СтруктураШапкиДокумента.ФормироватьПроводки Тогда
ПроводкиБУ = Движения.Хозрасчетный;
Для Каждого СтрокаТаблицы Из ТаблицаПоТоварам Цикл
// Проводки по вычету в случае упрощенного учета НДС
Проводка = ПроводкиБУ.Добавить();
Проводка.Период = СтруктураШапкиДокумента.Дата;
Проводка.Организация = СтруктураШапкиДокумента.Организация;
Проводка.Содержание = "НДС";
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НДС; //68.02
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "ВидыПлатежейВГосБюджет", Перечисления.ВидыПлатежейВГосБюджет.Налог);
Проводка.СчетКт = СтрокаТаблицы.СчетУчетаНДС;
Если Проводка.СчетКт.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СФПолученные) <> Неопределено Тогда
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт,"СФПолученные", СтрокаТаблицы.СчетФактура, Истина, Заголовок);
КонецЕсли;
Если Проводка.СчетКт.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СФВыданные) <> Неопределено Тогда
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт,"СФВыданные", СтрокаТаблицы.СчетФактура, Истина, Заголовок);
КонецЕсли;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт,"Контрагенты", СтруктураШапкиДокумента.Контрагент, Истина);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "Договоры",СтруктураШапкиДокумента.ДоговорКонтрагента);
Проводка.Сумма = СтрокаТаблицы.НДС;
КонецЦикла;
КонецЕсли;
Показать
Добавил строчку:
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "Договоры",СтруктураШапкиДокумента.ДоговорКонтрагента);