Имя: Пароль:
1C
1С v8
БП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
АП