Задача - сделать универсальный код, который можно будет "раскидать" в модулях "передзаписью" части документов чтобы получить нужную необычную нумерацию. Не втыкаю, как,  находясь в процедуре получить имя объекта метаданных данного дкоумента.

Сделать ровно одну подписку на событие и посмотреть в ней на тип параметра.

(0) решение сделал примерно такое
    Если ЭтотОбъект.Номер = "" Тогда
        ИмяДокумента = ЭтотОбъект.Метаданные().Имя ;
        Выборка = Документы[ИмяДокумента].Выбрать(НачалоГода(ЭтотОбъект.Дата),КонецДня(КонецГода(ЭтотОбъект.Дата)),Новый Структура("Организация",ЭтотОбъект.Организация));

(2) Перебирать документы за год чтобы номер присвоить? Фееричная "нужная необычная нумерация"))

лучше запросом

(3) Мне бы интересно как-то по другому решить, это да. Но решения искать нет возможности.

(5) это запросом делается (2) Запрос.текст = "Выбрать док.Ссылка из документ." + Метаданные().Имя + " Как Док где док.Дата Между &ДатаНачала и &ДатаОкончания и док.Организация=&Организация ";

(5)а вообще нумератор сделай

(6) ещё лучше вот так:

Выбрать МАКСИМУМ(док.Номер)
из документ." + Метаданные().Имя + " Как Док
где док.Дата Между &ДатаНачала и &ДатаОкончания
и док.Организация=&Организация
УПОРЯДОЧИТЬ ПО док.Дата

(8) Максимум это тривиально. А вот придумать быстрый эффективный алгоритм занятия дырок в нумерации было бы интереснее. Чтобы одним запросом, скажем, получить документ, за номером которого следует дырка.

(8) зачем УПОРЯДОЧИТЬ в таком запросе. Может вместо МАКСИМУМ лучше "первые 1"?
И что необычного в нумерации по порядку?

XMLТипЗнч() работает намного быстрее тормозного обращения к метаданным.
(9) Интереснее задачка - как гарантировать отсутствие дублей при собственной нумерации. Ну а уж сделать это аналогично стандартной (без блокировок) - еще интереснее.