Бухгалтерский запрос по документу
05.04.2006
13:49
#1
"Необходимо сделать бухгалтерские итоги по конкретному документу, а не по всем проводкам.
Пример приведен ниже, но он не работает
Итог = 0;
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто();
БИ.ВключатьСубсчета(,1);
БИ.ВыполнитьЗапрос(НачДата,КонДата,"25,26","10.11.1", ,2,"Проводка","С");
БИ.ВыбратьСчета();
Пока БИ.ПолучитьСчет()=1 Цикл
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто() = 1 Цикл
Опер = БИ.Операция;
Док = Опер.Документ.ТекущийДокумент();
Если (Док.Вид()="НачислениеАмортизации") Тогда
Если Док.СпецодеждаСпецоснастка = 1 Тогда
Сумм = Опер.Сумма;
Итог = Итог + Сумм;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Что делать? Подскажите, пожалуйста."
Пример приведен ниже, но он не работает
Итог = 0;
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто();
БИ.ВключатьСубсчета(,1);
БИ.ВыполнитьЗапрос(НачДата,КонДата,"25,26","10.11.1", ,2,"Проводка","С");
БИ.ВыбратьСчета();
Пока БИ.ПолучитьСчет()=1 Цикл
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто() = 1 Цикл
Опер = БИ.Операция;
Док = Опер.Документ.ТекущийДокумент();
Если (Док.Вид()="НачислениеАмортизации") Тогда
Если Док.СпецодеждаСпецоснастка = 1 Тогда
Сумм = Опер.Сумма;
Итог = Итог + Сумм;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Что делать? Подскажите, пожалуйста."
Читают тему
(гостей: 1)