Цитата(ivisor @ 03.07.11, 17:24)
Ошибка в модуле документа
Корректировка остатков необоротных активов на 01 апреля 2011г.Остатки по налоговому учету берутся на начало 1-ого квартала а должны на начало 2-ого. Исправлять так:
// ===============================
Процедура ПроводкиШапка()
ОстСтоимостьНУ = 0;
Для НомерГруппы = 1 По 4 Цикл
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
СчетГруппы = "ОС."+НомерГруппы;
Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления);
// Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011
Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,СчетГруппы); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6)
//Возьмем остатки в целом по группе
ОстСтоимостьГруппы = Ит.СНД("С");
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы;
КонецЦикла;
// НМА
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
// Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2"); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011
Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,"НА.1,НА.2"); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6)
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
ПервСтоимость = 0;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
ПервСтоимость = Ит.СНД("С");
КонецЕсли;
ОстСтоимость = ПервСтоимость;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
ОстСтоимость = ПервСтоимость - Ит.СНК("С");
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") - ОстСтоимостьНУ;
РазницаБУНУ = ?(РазницаБУНУ < 0, -РазницаБУНУ, 0); // Если остатки в бухучете больше, то ничего допроводить не надо
СчетНУ = "Н" + НеобАктивРазница.Счет;
глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры
Все верно. И еще уточнение по этому же модулю:
ПервСтоимость не рассчитывается здесь, просто не изменяется значение. Потому:
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
//ПервСтоимость = 0;
ПервСтоимость1 = 0;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
//ПервСтоимость = Ит.СНД("С"); //Значение не присваивается - совпадение с назв. реквизита ТЧ
ПервСтоимость1 = Ит.СНД("С");
КонецЕсли;
//ОстСтоимость = ПервСтоимость;
ОстСтоимость = ПервСтоимость1;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
//ОстСтоимость = ПервСтоимость - Ит.СНК("С");
ОстСтоимость = ПервСтоимость1 - Ит.СНК("С");
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
Ошибка в обработке "ОбновлениеРелиза".
Процедура ЗаполнитьВидыЗатрат()
Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
ТекущийРодитель = 0;
Если Спр.НайтиПоКоду(1000) = 0 Тогда
Спр.НоваяГруппа();
Спр.Код = 1000;
Спр.Наименование = "Статьи затрат по налогу на прибыль";
Спр.Записать();
КонецЕсли;
//Спр.Наименование = "Статьи затрат по налогу на прибыль";
//Спр.Записать();
