Цитата(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;
Спр.Наименование = "Статьи затрат по налогу на прибыль";
Спр.Записать();
КонецЕсли;
//Спр.Наименование = "Статьи затрат по налогу на прибыль";
//Спр.Записать();
Открытая тема (есть новые ответы)
Опрос (есть новые голоса)
Открытая тема (нет новых ответов)
Опрос (нет новых голосов)
Горячая тема (есть новые ответы)
Закрытая тема
Горячая тема (нет новых ответов)
Тема перемещена