Надо посчитать среднее количество строк таблицы документов (1с77) #280043

То есть от меня просят таблицу. Документ-среднее количество строк табличной части. Как проще это сделать?

Запросом построкам. результат в ТЗ. кол-во строк ТЗ/кол-во доков

А че-нить типовое или готовое есть?

нет

базопузометр от Тота.

там кода на 10-15 строк

Да я верю, но давно уже не кодил.

значит не судьба...

вот и освежи знания. заниматься 1С и переодически что-то не кодить - это потеря навыков

Функция Среднее = Среднее(ТекущийДокумент.КоличествоСтрок);

Ну вы меня поправьте, потытаюсь щас припомнить. Док=создатьОбъект("документ"); Док.выбратьДокументы; Пока док.получитьДокумент=1 цикл Среднее = Среднее(ТекущийДокумент.КоличествоСтрок); конецЦикла; Пойдет, нет?

не пойдет никак... не взлетит... что простое без запроса: Ст = 0; Дк = 0; Док=СоздатьОбъект("документ"); Док.ВыбратьДокументы; Пока Док.ПолучитьДокумент = 1 цикл    Ст = Ст+Док.КоличествоСтрок;    Дк = Дк+1; КонецЦикла; Среднее = Ст/Дк; Сообщить(Среднее);

нет

Поправка: Метаданные.Документ(к) И еще не плохо бы проверить есть ли вообще в документе ТЧ

Вроде работает, за идею спасибо. Но мне надо не для всех, а для каждого. То есть не одно число получить, а столько, сколько документов.

Тоже вроде работает, но тоже одно число дает.

Попробуй так Для сч = 1 по Метаданные.Документ Цикл Ст = 0; Дк = 0; Док=СоздатьОбъект("документ." + Метаданные.Документ(сч).Идентификатор); Док.ВыбратьДокументы; Пока Док.ПолучитьДокумент = 1 цикл   Ст = Ст+Док.КоличествоСтрок;   Дк = Дк+1; КонецЦикла; Если Дк = 0 Тогда Продолжить; КонецЕсли; Среднее = Ст/Дк; Сообщить(Среднее); КонецЦикла;

+ 16 Замени: Сообщить(Среднее); на: Сообщить(Метаданные.Документ(сч).Индентификатор + " " + Среднее);

Ошибка Сообщить(Метаданные.Документ(сч).Индентификатор + " " + Среднее); {Отчет.новый3.Форма.Модуль}: Поле агрегатного объекта не обнаружено (Индентификатор)

Это не механизм народовластия разрабатывать... Тут мозг надо включить...

А все, разобрался, работает. Спасибо.