barel17
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vitalcat
Привожу исправленную процедуру ПроводкиШапка() документа КоррОстатковОСВСвязиСВступлениемНормНК для конфигурации БУУ 287. В комлексной 039 она такая же.
Цитата: // ===============================
Процедура ПроводкиШапка()
ОстСтоимостьНУ = 0;
//************************************
Дат1 = ДатаДок + 1; //01.04.2011 г.
//************************************
Для НомерГруппы = 1 По 4 Цикл
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
СчетГруппы = "ОС."+НомерГруппы;
Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления);
//***********************************
//Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы);
//
//запрос нужно сделать по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6)
//
Ит.ВыполнитьЗапрос(Дат1,,СчетГруппы);
//***********************************
//Возьмем остатки в целом по группе
ОстСтоимостьГруппы = Ит.СНД("С");
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы;
КонецЦикла;
// НМА
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
//************************************
//Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2");
//
//запрос нужно сделать по состоянию на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6)
//
Ит.ВыполнитьЗапрос(Дат1,,"НА.1,НА.2");
//************************************
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
//***********************************
//ПервСтоимость = 0;
ОстСтоимость = 0;
//***********************************
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
//**********************************
//ПервСтоимость = Ит.СНД("С");
ОстСтоимость = ОстСтоимость + Ит.СНД("С");
//**********************************
КонецЕсли;
//***********************************
//ОстСтоимость = ПервСтоимость;
//***********************************
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
//**********************************
//ОстСтоимость = ПервСтоимость - Ит.СНК("С");
ОстСтоимость = ОстСтоимость - Ит.СНК("С");
//**********************************
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
//************************************
//РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") - ОстСтоимостьНУ;
//
// разницу нужно искать между новой налоговой стоимостью (т.е. тем, что будет проводится на счета Н10Х, Н11Х, Н12Х)
// и старой налоговой стоимостью (=ОС1+ОС2+ОС3+ОС4+НА1-НА2)
//
РазницаБУНУ = Итог("ОстаточнаяСтоимостьНУ")- ОстСтоимостьНУ;
//
// дополнительная проводка на счет Н109 делается только на положительную разницу между "старым" и "новым" налоговым учетом.
// Если остатки в бухучете больше, то ничего допроводить не надо
//
РазницаБУНУ = ?(РазницаБУНУ < 0, -РазницаБУНУ, 0);
//************************************
СчетНУ = "Н" + НеобАктивРазница.Счет;
глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,
,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры |
ЗЫ: Кроме того, для корректого подсчета итога Итог("ОстаточнаяСтоимостьНУ") у реквизита табличной части ОстаточнаяСтоимостьНУ нужно отметить признак "Итог по колонке"
|
Всего записей: 25 | Зарегистр. 16-06-2008 | Отправлено: 21:28 27-06-2011 | Исправлено: barel17, 21:51 27-06-2011 |
|
EJEKIN 
