vligm
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
7.70.287
При создании документа "КоррОстатковОСВСвязиСВступлениемНормНК" замечен ньюанс: не учитываются суммы модернизаций за 31.03.2011.
Ситуацию вылечил так:
ИтОстаток = СоздатьОбъект("БухгалтерскиеИтоги");
ИтОстаток.ИспользоватьРазделительУчета(Фирма);
ИтОстаток.ИспользоватьСубконто(ВидыСубконто.МестаХранения);
ИтОстаток.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
ИтОстаток.Опции(0,0);
ИтОстаток.ВключатьСубсчета(-1,1); // без групп
//ИтОстаток.ВыполнитьЗапрос(ДатаДок,ДатаДок,"10,11,12,16",,,,,"СК");
ИтОстаток.ВыполнитьЗапрос(ТекущийДокумент(),ТекущийДокумент(),"10,11,12,16",,,,,"СК");
ИтОстаток.ВыбратьСубконто(1);
Добавлено:
7.70.287
и для "чистоты эксперимента" поправил модуль документа:
// ===============================
Процедура ПроводкиШапка()
ОстСтоимостьНУ = 0;
Для НомерГруппы = 1 По 4 Цикл
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
СчетГруппы = "ОС."+НомерГруппы;
Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления);
//Ит.ВыполнитьЗапрос(ДатаДок,,СчетГруппы);
Ит.ВыполнитьЗапрос(ТекущийДокумент(),,СчетГруппы);
//Возьмем остатки в целом по группе
ОстСтоимостьГруппы = Ит.СНД("С");
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы;
КонецЦикла;
// НМА
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
//Ит.ВыполнитьЗапрос(ДатаДок,,"НА.1,НА.2");
Ит.ВыполнитьЗапрос(ТекущийДокумент(),,"НА.1,НА.2");
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
ПервСтоимость = 0;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
ПервСтоимость = Ит.СНД("С");
КонецЕсли;
ОстСтоимость = ПервСтоимость;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
ОстСтоимость = ПервСтоимость - Ит.СНК("С");
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
РазницаБУНУ = ИтогОстСтоимБУ - ОстСтоимостьНУ;
РазницаБУНУ = ?(РазницаБУНУ > 0,0,-РазницаБУНУ);
СчетНУ = "Н" + НеобАктивРазница.Счет;
глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,
,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры
Добавлено:
7.70.287
еще одна залипуха в проводках шапки:
при вычислении остаточной стоимости по счетам "НА.1 , НА.2" используется переменная "ПервСтоимость". И точно также называется реквизит табличной части! Вот и равна она всегда нулю, как при инициализации. отсюда и "ОстСтоимостьНУ" считается неправильно. Исправил так:
// НМА
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(Фирма);
Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы);
//Ит.ВыполнитьЗапрос(ДатаДок,,"НА.1,НА.2");
Ит.ВыполнитьЗапрос(ТекущийДокумент(),,"НА.1,НА.2");
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
тПервСтоимость = 0;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда
тПервСтоимость = Ит.СНД("С");
КонецЕсли;
ОстСтоимость = тПервСтоимость;
Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда
ОстСтоимость = тПервСтоимость - Ит.СНК("С");
КонецЕсли;
ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость;
КонецЦикла;
|
Всего записей: 1 | Зарегистр. 14-07-2011 | Отправлено: 15:06 14-07-2011 | Исправлено: vligm, 18:07 14-07-2011 |
|
) и все остальные - разработчики реализуют в следующем релизе к 26.07?! 