Бухгалтерия 7.7. Релиз 535. Некорректности (ошибки) при вступлении в силу постановления 1137. Релиз 536 вышел
При обновлении на 535 релиз обнаружил некорректность в документах поступления.
- Описание
- Подробнее
Описание
При обновлении на 535 релиз обнаружил некорректность в документах поступления — ПоступлениеМатериалов, ПоступлениеНМА, ПоступлениеОборудования, ПоступлениеОС, ПоступлениеТоваров — в продедуре ПриОткрытии(). Код который внесли при вступлении в силу «Постановление
от 26 декабря 2011 г. N 1137 «О формах и правилах заполнения (ведения) документов, применяемых при расчетах по налогу на добавленную стоимость»»
…
Если ((ПустоеЗначение(ДатаНомерСчетаФактуры) = 1) и (Выбран() = 1))
или (((ПустоеЗначение(ДатаСчетаФактуры) = 1) или (ПустоеЗначение(НомерСчетаФактуры) = 1)) и (Выбран() = 1)) Тогда
СчетФактураПредъявлен = 0;
Форма.ДатаНомерСчетаФактуры.Доступность(0);
Форма.ДатаСчетаФактуры.Доступность(0);
Форма.НомерСчетаФактуры.Доступность(0);
Иначе
СчетФактураПредъявлен = 1;
Форма.ДатаНомерСчетаФактуры.Доступность(1);
Форма.ДатаСчетаФактуры.Доступность(1);
Форма.НомерСчетаФактуры.Доступность(1);
КонецЕсли;
сбрасывает установленный флаг получения счет-фактуры при открытии документа.
Предлагаю заменить следующим кодом:
Если глПолучитьВерсиюПостановления(ДатаДок) = 2 Тогда
Если ((ПустоеЗначение(ДатаСчетаФактуры) = 1) или (ПустоеЗначение(НомерСчетаФактуры) = 1)) и (Выбран() = 1) Тогда
СчетФактураПредъявлен = 0;
Форма.ДатаСчетаФактуры.Доступность(0);
Форма.НомерСчетаФактуры.Доступность(0);
Иначе
СчетФактураПредъявлен = 1;
Форма.ДатаСчетаФактуры.Доступность(1);
Форма.НомерСчетаФактуры.Доступность(1);
КонецЕсли;
Иначе
Если (ПустоеЗначение(ДатаНомерСчетаФактуры) = 1) и (Выбран() = 1) Тогда
СчетФактураПредъявлен = 0;
Форма.ДатаНомерСчетаФактуры.Доступность(0);
Иначе
СчетФактураПредъявлен = 1;
Форма.ДатаНомерСчетаФактуры.Доступность(1);
КонецЕсли;
КонецЕсли;
Также необходимо для правильного формирования проводок по НДС откорректировать в модулях проведения этих документов строки:
Если ПустоеЗначение(ДатаНомерСчетаФактуры) = 0 Тогда
Операция.Дебет.СчетаФактурыПолученные = ТекущийДокумент();
КонецЕсли;
Предлагаю заменить следующим кодом:
Если (ПустоеЗначение(ДатаНомерСчетаФактуры) = 0) ИЛИ ((ПустоеЗначение(НомерСчетаФактуры) = 0) И (ПустоеЗначение(ДатаСчетаФактуры) = 0)) Тогда
Операция.Дебет.СчетаФактурыПолученные = ТекущийДокумент();
КонецЕсли;
ЗЫ. Номера строк не указываю, так как обновляемая конфигурация изменена — их легко найти по поиску. Жду комментариев.
