Кол-во проводок за год(7.7)
09.12.2004
13:52
#1
Управляющая компангия запросила у нашего предприятия следующую информацию:
1.Среднее кол-во проводок в бухучете за год
2.Средняя сумма по проводке(сумма по всем проводкам/Среднее кол-во проводок в бухучете за год)
Мне поручили подготовить эти данные, однако я пока не представляю, как это сделать в 1С.
Буду признателен за любую помощь в этом вопросе.
1.Среднее кол-во проводок в бухучете за год
2.Средняя сумма по проводке(сумма по всем проводкам/Среднее кол-во проводок в бухучете за год)
Мне поручили подготовить эти данные, однако я пока не представляю, как это сделать в 1С.
Буду признателен за любую помощь в этом вопросе.
09.12.2004
17:33
#2
"Хм...
Процедура Сформировать()
Опер = СоздатьОбъект("Операция");
Опер.ВыбратьОперацииСПроводками('01.01.2004','31.12.2004',,,1);
КолвоПроводок = 0;
СуммаПроводок = 0;
Пока Опер.ПолучитьПроводку() = 1 Цикл
КолвоПроводок = КолвоПроводок + 1;
СуммаПроводок = СуммаПроводок + Опер.Сумма;
КонецЦикла;
Сообщить("Количество пациентов:"+КолвоПроводок);
Сообщить("Средняя температура по больнице:" + СуммаПроводок/КолвоПроводок);
КонецПроцедуры
"
Процедура Сформировать()
Опер = СоздатьОбъект("Операция");
Опер.ВыбратьОперацииСПроводками('01.01.2004','31.12.2004',,,1);
КолвоПроводок = 0;
СуммаПроводок = 0;
Пока Опер.ПолучитьПроводку() = 1 Цикл
КолвоПроводок = КолвоПроводок + 1;
СуммаПроводок = СуммаПроводок + Опер.Сумма;
КонецЦикла;
Сообщить("Количество пациентов:"+КолвоПроводок);
Сообщить("Средняя температура по больнице:" + СуммаПроводок/КолвоПроводок);
КонецПроцедуры
"
Читают тему
(гостей: 1)