![]() |
|
БП3.0 Ввод остатков 76.ВА. В проводках по журналу СФ нет сумм и вида операции 02 | ☑ | ||
---|---|---|---|---|
0
Велимудр
04.03.15
✎
09:52
|
БП3.0 Ввод остатков 76.ВА.
В проводках по журналу СФ нет сумм НДС и вида операции 02. Это отражается в книге покупок в виде незаполненных строк: https://yadi.sk/i/Tj-aIw4Uf2V5E Бухгалтеру это не нравится, на фото зачет "нового" и по вводу остатков. |
|||
1
Велимудр
04.03.15
✎
09:53
|
Смотрю отладчиком код процедуры ввода остатков, так там даже нет попытки заполнить эти поля:
Для Каждого СтрокаДвижения ИЗ ТаблицаСчетовФактур Цикл НоваяСтрока = НаборЗаписейДвижения.Добавить(); НоваяСтрока.Период = Реквизиты.Период; НоваяСтрока.Организация = Организация; НоваяСтрока.СчетФактура = СтрокаДвижения.СчетФактураДокумент; НоваяСтрока.ЧастьЖурнала = СтрокаДвижения.ЧастьЖурнала; НоваяСтрока.ИндексСтроки = СтрокаДвижения.ИндексСтроки; НоваяСтрока.Валюта = СтрокаДвижения.ВалютаДокумента; Если СтрокаДвижения.ЧастьЖурнала = Перечисления.ЧастиЖурналаУчетаСчетовФактур.ВыставленныеСчетаФактуры Тогда // Определим контрагента для СМР хозспособом и налогового агента Если НЕ ЗначениеЗаполнено(СтрокаДвижения.Контрагент) Тогда НоваяСтрока.Контрагент = Организация; НоваяСтрока.КППКонтрагента = КППОрганизации; Иначе НоваяСтрока.Контрагент = СтрокаДвижения.Контрагент; НоваяСтрока.КППКонтрагента = СтрокаДвижения.КППКонтрагента; КонецЕсли; Иначе НоваяСтрока.Контрагент = СтрокаДвижения.Контрагент; НоваяСтрока.КППКонтрагента = СтрокаДвижения.КППКонтрагента; НоваяСтрока.Продавец = СтрокаДвижения.Продавец; КонецЕсли; Если СтрокаДвижения.КорректировочныйСчетФактура Тогда НоваяСтрока.НомерСчетаФактуры = СтрокаДвижения.НомерИсходногоДокумента; НоваяСтрока.ДатаСчетаФактуры = СтрокаДвижения.ДатаИсходногоДокумента; НоваяСтрока.НомерКорректировочногоСчетаФактуры = СтрокаДвижения.НомерСФ; НоваяСтрока.ДатаКорректировочногоСчетаФактуры = СтрокаДвижения.ДатаСФ; Иначе НоваяСтрока.НомерСчетаФактуры = СтрокаДвижения.НомерСФ; НоваяСтрока.ДатаСчетаФактуры = СтрокаДвижения.ДатаСФ; КонецЕсли; Если СтрокаДвижения.Исправление Тогда Если СтрокаДвижения.КорректировочныйСчетФактура Тогда НоваяСтрока.НомерИсправленияКорректировочногоСчетаФактуры = СтрокаДвижения.НомерИсправления; НоваяСтрока.ДатаИсправленияКорректировочногоСчетаФактуры = СтрокаДвижения.ДатаИсправления; Иначе НоваяСтрока.НомерИсправления = СтрокаДвижения.НомерИсправления; НоваяСтрока.ДатаИсправления = СтрокаДвижения.ДатаИсправления; КонецЕсли; КонецЕсли; // Проверка на наличие записей ПараметрыПоиска = Новый Структура("СчетФактура, Контрагент, ЧастьЖурнала", НоваяСтрока.СчетФактура, НоваяСтрока.Контрагент, НоваяСтрока.ЧастьЖурнала); МассивСтрок = Результат.НайтиСтроки(ПараметрыПоиска); Если МассивСтрок.Количество() <> 0 Тогда НаборЗаписейДвижения.Удалить(НоваяСтрока); КонецЕсли; КонецЦикла; |
|||
2
Велимудр
04.03.15
✎
10:19
|
АП
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |