БП3.0 Ввод остатков 76.ВА.
В проводках по журналу СФ нет сумм НДС и вида операции 02.
Это отражается в книге покупок в виде незаполненных строк:
https://yadi.sk/i/Tj-aIw4Uf2V5E
Бухгалтеру это не нравится, на фото зачет "нового" и по вводу остатков.
Если СтрокаДвижения.ЧастьЖурнала = Перечисления.ЧастиЖурналаУчетаСчетовФактур.ВыставленныеСчетаФактуры Тогда
// Определим контрагента для СМР хозспособом и налогового агента
Если НЕ ЗначениеЗаполнено(СтрокаДвижения.Контрагент) Тогда
НоваяСтрока.Контрагент = Организация;
НоваяСтрока.КППКонтрагента = КППОрганизации;
Иначе
НоваяСтрока.Контрагент = СтрокаДвижения.Контрагент;
НоваяСтрока.КППКонтрагента = СтрокаДвижения.КППКонтрагента;
КонецЕсли;
Иначе
НоваяСтрока.Контрагент = СтрокаДвижения.Контрагент;
НоваяСтрока.КППКонтрагента = СтрокаДвижения.КППКонтрагента;
НоваяСтрока.Продавец = СтрокаДвижения.Продавец;
КонецЕсли;
Если СтрокаДвижения.КорректировочныйСчетФактура Тогда
Если СтрокаДвижения.Исправление Тогда
Если СтрокаДвижения.КорректировочныйСчетФактура Тогда
НоваяСтрока.НомерИсправленияКорректировочногоСчетаФактуры = СтрокаДвижения.НомерИсправления;
НоваяСтрока.ДатаИсправленияКорректировочногоСчетаФактуры = СтрокаДвижения.ДатаИсправления;
Иначе
НоваяСтрока.НомерИсправления = СтрокаДвижения.НомерИсправления;
НоваяСтрока.ДатаИсправления = СтрокаДвижения.ДатаИсправления;
КонецЕсли;
КонецЕсли;
// Проверка на наличие записей
ПараметрыПоиска = Новый Структура("СчетФактура, Контрагент, ЧастьЖурнала", НоваяСтрока.СчетФактура, НоваяСтрока.Контрагент, НоваяСтрока.ЧастьЖурнала);
МассивСтрок = Результат.НайтиСтроки(ПараметрыПоиска);
Если МассивСтрок.Количество() <> 0 Тогда
НаборЗаписейДвижения.Удалить(НоваяСтрока);
КонецЕсли;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший