Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Ошибка в новом отчете "Декларация по НДС"

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Ошибка в новом отчете "Декларация по НДС"

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7

vadim007

13.02.14, 10:21

Столкнулся с ошибкой в новом отчете по декларации по НДС, пока не знаю как быть. Суть ошибки в следующем:
Процедура Заполнить(), ТекстЗапр5253, в запрос добавили функцию (стр. 3031):

|Функция Сумма_56База = Сумма(СуммаБезНДС) когда (ВидНДС=БезНДС);

Далее, со строки 3138 идет фрагмент:

         Если  (Округ(тбДляТаблицы5253.Сумма_56База) <> 0) Тогда
                ИННКонтрагента     = тбДляТаблицы5253.ИНН;                
                Если СворачиватьДанныеПоИНН = 1 Тогда
                    Контрагент         = "";
                    НомСтрСоответствия = спСоответствиеИННиКонтрагентов.НайтиЗначение(ИННКонтрагента);
                    Если НомСтрСоответствия > 0 Тогда
                        спСоответствиеИННиКонтрагентов.ПолучитьЗначение(НомСтрСоответствия,Контрагент);    
                    КонецЕсли;
                Иначе    
                    Контрагент = "" + тбДляТаблицы5253.Контрагент + " (код: "+ тбДляТаблицы5253.Код + ")";  
                    Если ПустоеЗначение(ИННКонтрагента) = 1 Тогда
                        Сообщить("У контрагента " + Контрагент + " не указан ИНН. По данному контрагенту зарегистрирована запись книги приобретения с НДС!");
                        ИННКонтрагента = "";
                    КонецЕсли;
                КонецЕсли;            
                
                АвтозаполнениеСтрокПриложения52_56( 
                Контрагент,
                ИННКонтрагента,
                тбДляТаблицы5253.ДатаДокумента,
                тбДляТаблицы5253.Сумма_56База,
                "DOD5T6R"); //таблица 6
            КонецЕсли;

Этот фрагмент выводит сообщение об ошибке, которого быть не должно. Ведь тбДляТаблицы5253.Сумма_56База будет не нулевая по условиям запроса, если есть ЗКП БЕЗНДС. Пока строку вывода сообщения (стр.3149) закомментировал, чтоб не сбивала с толку бухгалтеров. Дальше будет видно.

mister-x

13.02.14, 11:20

Цитата

Этот фрагмент выводит сообщение об ошибке, которого быть не должно.

таку помилку в моїх клієнтів не виводить, але от при друці є баг (додаток 5, таблиця 1 - у дві останні колонки виводить херню), він вже зафіксований АБІ

Ardi

13.02.14, 11:28

Цитата(mister-x @ 13.02.14, 11:20) необходимо зарегистрироваться для просмотра ссылки

vadim007

13.02.14, 11:58

Цитата(mister-x @ 13.02.14, 11:20) необходимо зарегистрироваться для просмотра ссылки

таку помилку в моїх клієнтів не виводить,

Создайте документ ЗКП с ВидНДС=БезНДС, и чтобы у контрагента не было ИНН. У нас таких контрагентов несколько.

Koder

13.02.14, 16:41

Цитата(mister-x @ 13.02.14, 12:20) необходимо зарегистрироваться для просмотра ссылки

Всем привет!
Решение этого "бага" довольно простое:
Заходим в модуль отчета (файл pdv.ert)
Находим процедуру Печать()
Находим в ней строки:

    
        ИдГруппы = "DOD5T1R";
    АтрибутыГруппы(ТекущаяСтрока,ЧислоСтрок,Список,ИдГруппы);
    Формат1  = "Ч5.0";
    Формат2  = Таблица.Область(ИдГруппы + "0001G2").Формат();
    Формат3  = Таблица.Область(ИдГруппы + "0001G2A").Формат();
    Формат31 = Таблица.Область(ИдГруппы + "0001G2B").Формат();
    Формат4  = Таблица.Область(ИдГруппы + "0001G3").Формат();
    Формат5  = Таблица.Область(ИдГруппы + "0001G4").Формат();
    НомСтр = 1;
    Для i = 1 По Список.РазмерСписка() Цикл
        ТекСтрока=Список.ПолучитьЗначение(i);
        Если СтрокаМнЧЗаполнена(ТекСтрока) = 0 Тогда
            Продолжить                                        
        КонецЕсли;
        Кол1 = Формат(i, Формат1); 
        Кол2 = Формат(ТекСтрока.ПолучитьЗначение(2-1), Формат2); 
        Кол3 = Формат(ТекСтрока.ПолучитьЗначение(3-1), Формат3) + "."; 
        Кол4 = Формат(ТекСтрока.ПолучитьЗначение(4-1), Формат31); 
        Кол5 = Формат(ТекСтрока.ПолучитьЗначение(3-1), Формат4);    
        Кол6 = Формат(ТекСтрока.ПолучитьЗначение(4-1), Формат5); 
        ФормаНДС.ВывестиСекцию("Приложение5Таблица1Строка");
        НомСтр = НомСтр + 1;
    КонецЦикла;

Вот в этих двух строках нужно заменить:
Было:

        Кол5 = Формат(ТекСтрока.ПолучитьЗначение(3-1), Формат4);    
        Кол6 = Формат(ТекСтрока.ПолучитьЗначение(4-1), Формат5);

Стало:

        Кол5 = Формат(ТекСтрока.ПолучитьЗначение(5-1), Формат4);    
        Кол6 = Формат(ТекСтрока.ПолучитьЗначение(6-1), Формат5);

Ну и дальше по процедуре глянуть.

Pepe

13.02.14, 17:32

необходимо зарегистрироваться для просмотра ссылки

yura_net

17.02.14, 10:54

Цитата(vadim007 @ 13.02.14, 10:21) необходимо зарегистрироваться для просмотра ссылки

а дальше ..... ошибка в додатке 5. или я что то не понял .

mister-x

17.02.14, 17:29

ще таке надибав на новій

Цитата

Massik,
" в додаток 5 таблица кредит №3 должны попадать неплательщики НДС с каким ИНН? 4000000000000 или с кодом ЕГРПОУ?"

в отчете надо исправить, сделал так

после строк

тбДляТаблицы5253.ВыбратьСтроки();
Пока тбДляТаблицы5253.ПолучитьСтроку() = 1 Цикл

......

Если тбДляТаблицы5253.ВидОп<>ВидОперацииПокупкаВУкраине Тогда
тбДляТаблицы5253.ИНН = "300000000000"; //у нас только товары
КонецЕсли;

//добавил
ИННКонтр = СокрЛП(тбДляТаблицы5253.Контрагент.ИНН);
Если Число(ИННКонтр) = 0 Тогда
тбДляТаблицы5253.ИНН = "400000000000";
КонецЕсли;
//---

КонецЦикла;

необходимо зарегистрироваться для просмотра ссылки

mister-x

18.02.14, 11:14

сьогодні вийшли поновлення із виправленими помилками, цитую для бух. і ПУБ

Цитата

1С:Предприятие 7.7
Регламентированные отчеты
Конфигурация "Бухгалтерский учет для Украины"
Конфигурация "Производство+Услуги+Бухгалтерия для Украины".

Релиз IV квартал 2013 (2) от 18 февраля 2014 г.
===========================================================================

Список изменений релиза IV квартал 2013 (2) по сравнению с релизом IV квартал 2013 (1).
===========================================================================

Регламентированный отчет Pdv.ert ("Декларация о НДС (c приложениями)").
---------------------------------------------------------------------------
1. Исправлена ошибка заполнения таблицы 6 Приложения 5 по контрагентам
неплательщикам НДС.
Изменен регламентированный отчет Pdv.ert.
2. Исправлена ошибка заполнения при печати таблиц 1 и 3 Приложения 5
отчета.
Изменен регламентированный отчет Pdv.ert.
3. Исправлено заполнение таблицы 2 раздела 1 Приложения 5: ошибочно
попадали операции по экспорту.
Изменен регламентированный отчет Pdv.ert.

vadim007

18.02.14, 15:24

Цитата(mister-x @ 18.02.14, 11:14) необходимо зарегистрироваться для просмотра ссылки

сьогодні вийшли поновлення із виправленими помилками, цитую для бух. і ПУБ

В этом обновлении описанная мною ошибка убрана.

mister-x

19.02.14, 22:27

от ще нові повідомлення на новій, можливо комусь актуально

Цитата

Декларация по НДС. Ошибка при заполнении таблицы 2 (Ставка 0%), попадает только часть контрагентов. Итог по данной таблице не равен строке 2.2.
Исправление: Заменить в строках 2668, 2698 и 2703 слово БазаНДС0 на СуммаБезНДС0;

......
 тбДляТаблицы51.Свернуть("ИНН,ВидОперации,Валюта,Ко дНДС,ДатаДокумента","СуммаБезНДС,НДС,СуммаБезНДС0" );
 ......
 Если тбДляТаблицы51.СуммаБезНДС0<> 0 Тогда //в одном документе могут быть основная и 0-я ставки
 АвтозаполнениеСтрокПриложения52_56( 
 Контрагент,
 ИННКонтрагента,
 тбДляТаблицы51.ДатаДокумента,
 тбДляТаблицы51.СуммаБезНДС0,
 "DOD5T4R"); //таблица 2
 КонецЕсли;

і ось

Цитата

В последнем релизе у тех, у кого есть реализация по 0 или Без НДС в декларации не правильно заполняется таблица 3 приложения 5.
Необходимо закомментировать след. код:

//Если (ВРЕГ(СокрЛП(тбДляТаблицы51.КодНДС)) <> "НДС20") Тогда 
 // Продолжить;
 //КонецЕсли;

необходимо зарегистрироваться для просмотра ссылки

nysysimara

20.02.14, 9:31

бухи жалуются, что не заполняется строка
"придбання (будівництво, спорудження, створення) необоротних активів"
в додатке 5, в Розділ II
чето не найду чтоб туда вообще присваивалось значение

vadim007

20.02.14, 12:06

Цитата(nysysimara @ 20.02.14, 9:31) необходимо зарегистрироваться для просмотра ссылки

Нужно обновить регламентированные отчеты за 4 кв. 2013г. до №2.

nysysimara

20.02.14, 12:25

Цитата(vadim007 @ 20.02.14, 12:06) необходимо зарегистрироваться для просмотра ссылки

Нужно обновить регламентированные отчеты за 4 кв. 2013г. до №2.

в них же и не заполняется

vadim007

20.02.14, 14:17

Цитата(nysysimara @ 20.02.14, 12:25) необходимо зарегистрироваться для просмотра ссылки

в них же и не заполняется

Проверил - у меня также не заполняется. Открыл отчеты за 3кв. №4 - в них эта строка заполнилась. Надо же, еще одна ошибка. А мы уже сдали отчетность. Будут теперь бухи сдавать уточненку и меня хаять

mister-x

20.02.14, 15:05

ось ця помилка

Цитата

разработчики то ли прикололись, то ли переименовали не то что надо.
в новой деке по НДС в 5-ом приложении в налоговом кредите не выделяются Основные фонды.
надо немного подправить:

// Основные фонды
                //было
        //_DOD5R041G4 = 0;
            //_DOD5R041G5 = 0;
        //надо
        _DOD5R021G4 = 0;
        _DOD5R021G5 = 0;
        
        тбДляТаблицы5253.ВыбратьСтроки();
        Пока тбДляТаблицы5253.ПолучитьСтроку() = 1 Цикл
            тбДляТаблицы5253.ДатаДокумента = НачМесяца(тбДляТаблицы5253.ДатаДокумента);          
            Если  тбДляТаблицы5253.ОсновныеФонды = 1 Тогда
                   //было
                   //_DOD5R041G4 = _DOD5R041G4 + тбДляТаблицы5253.Сумма_52База;
                   //_DOD5R041G5 = _DOD5R041G5 + тбДляТаблицы5253.Сумма_52НДС;
                   //надо
                   _DOD5R021G4 = _DOD5R021G4 + тбДляТаблицы5253.Сумма_52База;
                   _DOD5R021G5 = _DOD5R021G5 + тбДляТаблицы5253.Сумма_52НДС;
            КонецЕсли;
            
            Если тбДляТаблицы5253.ВидОп<>ВидОперацииПокупкаВУкраине Тогда
                тбДляТаблицы5253.ИНН = "200000000000";
            КонецЕсли;
            
        КонецЦикла;    
        //было
        //DOD5R041G4 = Округ(_DOD5R041G4);        
        //DOD5R041G5 = Округ(_DOD5R041G5);    
        //надо
        DOD5R021G4 = Округ(_DOD5R021G4);        
        DOD5R021G5 = Округ(_DOD5R021G5);

в тій інсталяхі, що Pepe виложив, воно виправлено (для релізу 4кв. 2013 №1)

А ще подивіться де в таблиці знаходиться комірка DOD5R041G4 - не вірно, там має бути комірка із іменем DOD5T2R0001G2, як в релізі за 3 кв. 2013

mister-x

20.02.14, 23:00

Цитата(mister-x @ 20.02.14, 15:05) необходимо зарегистрироваться для просмотра ссылки

А ще подивіться де в таблиці знаходиться комірка DOD5R041G4

хм, в принципі я її не помітив (немає такої комірки взагалі), а ви?

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.