Пересчет элементов базы

3 Comments

1. Evilgrym 22.03.2012 at 12:03

   Обработка для пересчета элементов базы. Позволяет пересчитывать элементы базы несколько раз. При каждом пересчете в таблицу выводится новая колонка с количеством элементов.

   Перейти к публикации

   Reply ↓
2. JJMM 22.03.2012 at 12:03

   Спасибо, весьма полезная для нас обработка. А нельзя ли добавить параметры периода, чтобы подсчитывать количество операций/документов за месяц, квартал, и т.п., а так же расчетные поля = среднее за последние 3 месяца; среднее за последние полгода; среднее за последний год..

   Заранее благодарна.

   Reply ↓
3. woozee 28.03.2012 at 13:47

   Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Макет = ПолучитьМакет(«Макет»);
   ТабДок = ЭлементыФормы.ТабДок;
   ТабДок.Очистить();
   
   ОбластьШапки = Макет.ПолучитьОбласть(«Шапка»);
   ТабДок.Вывести(ОбластьШапки);
   
   ОбластьСтроки = Макет.ПолучитьОбласть(«Строка»);
   
   ОбщееКоличество = 0;
   
   Для каждого Справочник Из Метаданные.Справочники Цикл
   Запрос = Новый Запрос(«Выбрать * Из Справочник.»+Справочник.Имя+»»);
   КоличествоЭлементов = Запрос.Выполнить().Выбрать().Количество();
   Если КоличествоЭлементов <> 0 Тогда
   ОбластьСтроки.Параметры.ВидОбъекта = «Справочник»;
   ОбластьСтроки.Параметры.Объект = Справочник.Имя;
   ОбластьСтроки.Параметры.Количество = КоличествоЭлементов;
   ТабДок.Вывести(ОбластьСтроки);
   ОбщееКоличество = ОбщееКоличество + КоличествоЭлементов;
   КонецЕсли;
   КонецЦикла;
   Для каждого Документ Из Метаданные.Документы Цикл
   Запрос = Новый Запрос(«Выбрать * Из Документ.»+Документ.Имя+»»);
   КоличествоЭлементов = Запрос.Выполнить().Выбрать().Количество();
   Если КоличествоЭлементов <> 0 Тогда
   ОбластьСтроки.Параметры.ВидОбъекта = «Документ»;
   ОбластьСтроки.Параметры.Объект = Документ.Имя;
   ОбластьСтроки.Параметры.Количество = КоличествоЭлементов;
   ТабДок.Вывести(ОбластьСтроки);
   ОбщееКоличество = ОбщееКоличество + КоличествоЭлементов;
   КонецЕсли;
   КонецЦикла;
   ОбластьИтого = Макет.ПолучитьОбласть(«Итого»);
   ОбластьИтого.Параметры.ОбщееКоличество = ОбщееКоличество;
   ТабДок.Вывести(ОбластьИтого);
   
   ТабДок.Показать();
   КонецПроцедуры

   Показать

   Пожелание автору — сделайте пожалуйста понавороченнее. С отборами, с графиками и прочей удобностью… Иначе смысла нету от публикации….

   Reply ↓