Суть:
    Для каждого Табличка Из Док.метаданные().ТабличныеЧасти Цикл
        //отсортируем не заполненные регистры
        Если Док[Табличка.Имя].Количество() <> 0 Тогда
            Для Каждого Стр Из Док[Табличка.Имя] Цикл
                //тут мне необходимо чтоб иолучилось так: НаборЗаписей = РегистрНакопления.Продажи.СоздатьНаборЗаписей();
            КонецЦикла;
            
        КонецЕсли;
        
    КонецЦикла;

Есть документ Корректировки, перебираю заполненные табл.части и по имени таб части мне необходимо получить все записи

Хелп!

в КЗР нет табчастей, кроме имён регистра...

Из движений получай

(1) знаю, есть имя таб части регистра в Док[Табличка.Имя]

я ж и пишу, как по имени регистра обратиться к набору записей?

Движения[ИмяРегистра]

(5) По ссылке на документ не вижу Движений

Почему я движений не вижу? они же есть!!!

Ааааа, нашел... Док.Метаданные().Движения

ещё раз. Движения не хранятся в документе КЗР. Там только имена регистров

(8) не там ищешь

Док.Метаданные().Движения[Док[Табличка.Имя]] получение по индексу..... :(

(8) ребята, запутался совсем

(11) зачем тебе метаданные документа?
ДокументСсылка.Движения[ИмяРегистра].Прочитать();

Для каждого Стр Из ТаблицаРегистровНакопления Цикл
НаборЗаписейРН = РегистрыНакопления[Стр.Имя].СоздатьНаборЗаписей();
НаборЗаписейРН.Отбор.Регистратор.Установить(СсылкаНаКЗР);
наборЗаписейРН.Прочить(); //вот после этого
КонецЦикла;

Или через Движения. Смотря что надо сделать

(13) это я погорячился. ДокументОбъект, есессно

(14) а если не РегистрНакопления?

(16) там для каждого вида регистра своя ТЧ в документе, погляди хоть в конфигураторе на документ КЗР

(16)
Для Каждого Таблица Из Док.Метаданные().ТабличныеЧасти Цикл

Для каждого Стр Из Таблица Цикл
НаборЗаписейРН = РегистрыНакопления[Стр.Имя].СоздатьНаборЗаписей();
НаборЗаписейРН.Отбор.Регистратор.Установить(СсылкаНаКЗР);
наборЗаписейРН.Прочить(); //вот после этого

КонецЦикла;

КонецЦикла

(16) не, там ТЧ с разными регистрами, не тока накопления

(18) так не работает, но смысл ясен

Для Каждого Стр Из Док[таблица.имя]

(19)>(18)

(18) там не только РегистрНакопления - там  еще могут быть и регистрСведений и еще РегистрБухгалтерии

во черт задачка. вроде все элементарно, ан нет...

Ещё повторю - смотря что надо делать с движениями. Если менять конкретный набор - то через набор записей, если менять все наборы - то через движения, если просто смотреть - то запросом

Стр.Имя у меня название регистра с типом строка

Мож както так Метаданные.НайтиПоТипу(Тип)

как из строки названия регистра получить его тип тогда?

(27) Там ТЧ называются по разному, сколько раз можно посторять.
Для РН это ТЧ - ТаблицаРегистровНакопления

(28) да понял я

как мне из ТаблицаРегистровНакопления (ТаблицаРегистровСведений...)

получить

РегистрНакопления
РегистрСведений
...
соответственно

(0) связи строк ТЧ с движениями в 1С нет

(28) ну я потому и написал ему, что сначала надо обходить по метаданным все тч, а потом уже внутри этих тч обходить названия регистров

(31) о боги...

(31) Ну и че делать?

(34) что не получается то?

Есть имя регистра, как получить его приналежность к конкретному регистру?

К примеру "Продажи"

Метаданные.НайтиПоПолномуНаименованию("Продажи") и получаю тип РегистрНакопления

Но это так не работает

:(

(37) РегистрыНакопления["Продажи"].СоздатьНаборЗаписей()

(39) необязательно "продажи" регистрнакопления!!!!

а если он регистрсведений?

мне как раз надо и узнать чей он

(36) СП:

МетаданныеРегистра = Метаданные.РегистрыНакопления.Найти(ИмяРегистра);

че так чтоли? МетаданныеРегистра = Метаданные.РегистрыНакопления.Найти(ИмяРегистра);
Если МетаданныеРегистра = неопределено тогда
    МетаданныеРегистра = Метаданные.РегистрыСведений.Найти(ИмяРегистра);
конецесли;

Если МетаданныеРегистра = неопределено тогда
    МетаданныеРегистра = Метаданные.РегистрыБухгалтерии.Найти(ИмяРегистра);
конецесли;

Так чтоли?

(44) гов...код какойто получается :(

(44) так-то конечно я его найду

Имя регистра у РН и РС могут быть одинаковые, поиском - не надёжно.

Делай нормально...
Для каждой ТЧ отдельный цикл, там ты знаешь вид уже

получился вот такой гов...код   :( сам себе руки отбил бы

            Для Каждого Стр Из Док[Табличка.Имя] Цикл
                Имя = Неопределено;
                МетаданныеРегистра = Метаданные.РегистрыНакопления.Найти(Стр.Имя);
                    Если МетаданныеРегистра <> неопределено Тогда
                        Имя = РегистрыНакопления;
                    КонецЕсли;
                    
                Если МетаданныеРегистра = неопределено тогда
                    МетаданныеРегистра = Метаданные.РегистрыСведений.Найти(Стр.Имя);
                    Если МетаданныеРегистра <> неопределено Тогда
                        Имя = РегистрыСведений;
                    КонецЕсли;
                КонецЕсли;
                
                Если МетаданныеРегистра = неопределено тогда
                    МетаданныеРегистра = Метаданные.РегистрыБухгалтерии.Найти(Стр.Имя);
                    Если МетаданныеРегистра <> неопределено Тогда
                        Имя = РегистрыБухгалтерии;
                    КонецЕсли;
                КонецЕсли;
                
                Если МетаданныеРегистра = неопределено тогда
                    МетаданныеРегистра = Метаданные.РегистрыРасчета.Найти(Стр.Имя);
                    Если МетаданныеРегистра <> неопределено Тогда
                        Имя = РегистрыРасчета;
                    КонецЕсли;
                КонецЕсли;

(48) выкинь и напиши нормально

(47) как правильнее?

(50) Для каждой ТЧ отдельный цикл, там ты знаешь вид уже.
Какая буква непонятна?

обходить ТЧ и проверять
Если Табличка.Имя = "ТаблицаРегистровСведений" тогда
иначеесли Табличка.Имя = "ТаблицаРегистровНакопления" тогда
....

(52) можно и так

(53) согласен так правильнее, но все-равно как-то криворуко получается :)

Чувствую, что есть правильнее вариант. GROOVY бы мне руки отбил бы точно