Добрый день!

Задача:
1. определить все регистры, по которым документ сделал движения
2. перед перепроведением документа, определить значения измерений, ресурсов, реквизитов регистров
3. после перепроведения документа, определить значения измерений, ресурсов, реквизитов регистров
4. сравнить значения, полученные в "2" и в "3". Показать различия.

1 я сделал:
Функция ОпределитьНаличиеДвиженийПоРегистратору(объект)
    
    ТекстЗапроса = "";
    ДвиженияДокумента = объект.Метаданные().Движения;
    
    Для Каждого Движение ИЗ ДвиженияДокумента Цикл
        
        Если НЕ ПравоДоступа("Просмотр", Движение) Тогда
            Продолжить;
        КонецЕсли;
        
        ТекстЗапроса = ТекстЗапроса + "
        |" + ?(ТекстЗапроса = "", "ВЫБРАТЬ РАЗРЕШЕННЫЕ ", "ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ ") + "
        |ПЕРВЫЕ 1 ВЫРАЗИТЬ(""" + Движение.ПолноеИмя()
        +  """ КАК Строка(200)) КАК Имя ИЗ " + Движение.ПолноеИмя()
        + " ГДЕ Регистратор = &Регистратор";
    КонецЦикла;
    
    Если ТекстЗапроса = "" Тогда
        // У документа нет движений по регистрам или у пользователя нет прав на просмотр регистров движений документа
        Возврат Новый ТаблицаЗначений;
    КонецЕсли;
    
    ТекстЗапроса = ТекстЗапроса +
    "
    |УПОРЯДОЧИТЬ ПО
    |Имя
    |";
    
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("Регистратор", Объект.Ссылка);
    
    ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();
    ТаблицаЗапроса.Индексы.Добавить("Имя");
    
    Для Каждого СтрокаТаблицыДвижений Из ТаблицаЗапроса Цикл
        СтрокаТаблицыДвижений.Имя = СокрЛП(СтрокаТаблицыДвижений.Имя);
    КонецЦикла;
    
    Возврат ТаблицаЗапроса;
    
КонецФункции

не пойму как выполнить задание 2 и 3... хелп...

а в чём проблема создать наборы записей и прочитать их по регистратору?

А не проще ли использовать Объект.движения, откуда, наборы записей распихивать по таблицам и сравнивать?

Старые движения получить вот так,
    СтрДвижений=Новый Массив;
    Для каждого дв Из движения Цикл
        СтрДвижений.Добавить(дв.выгрузить())
    КонецЦикла;

новые после записи аналогично, сравнивать по вкусу

зачем сравнивать надо ?

(4) Вам, тупым франчам, постоянно нужно объяснять постановку... По 20 раз... Пока не только от зубов, но и от всех остальных частей тела отскакивать не будет...

(3) пока не совсем понял куда запихнуть это...
(4) документ проведен. значения в регистрах N. была доработка регистра. необходимо перепровести документы, которые делают движения по этому регистру. после перепроведения документа, движения в регистры будут новые - M. как-то так.

(5) пнз, м

Видать задание дали. Ну тупое конечно для реальной жизни. Только надо было самому решать а не на форум накидывать. Но раз за  3 года выгрузку чел не научился делать = имхо бесполезно

(6) так зачем новые сравнивать со старыми ?
или это отладка новых движений ?

(9)Тестируют чела ... 90%

(8) я кодил пол-года. перестал. теперь вот снова пришлось. начинаю всё с "нуля"

(11) Во франче, или так?

(12) не был и не знаю что такое франч :)

(13) Ну, фирма-франчайзи, БиТ, там всякий, Теллур и т.д..

(14) нет

(15) Так пойди, тебя возьмут и вымуштруют.
Глядишь - через полгода темы создавать перестанешь.

в общем сбились с темы.

(17) по теме я тебе в (1) ответил...

Если делать задачу просто, то
0. практически во всех типовых есть отчет по движениям документа
1. сохранить результат отчета до проведения
2. сохранить после
3. вызвать диалог сравнения файлов для сохраненных отчетов

Это если цель конечно не потренироваться в написании запросов и переборе метаданных.

(6) Это в обработку проведения, или перед записью (нужно смотреть флаг очистки движений). Если движения рисуются обработкой, то в обработку.

1, 2, 3 задания я сделал.
перед и после перепроведения документа вызываю функцию, где определяю регистры, по которым сделал движения документ. дальше получаю значения этих регистров и выгружаю в массив как таблицы значений.

функция (не осуждайте...):
Функция ОпределитьНаличиеДвиженийПоРегистратору(объект)
    
    ТекстЗапроса = "";
    ДвиженияДокумента = объект.Метаданные().Движения;
    
    СтрДвижений=Новый Массив;
    Для Каждого Движение ИЗ ДвиженияДокумента Цикл
        
        Если НЕ ПравоДоступа("Просмотр", Движение) Тогда
            Продолжить;
        КонецЕсли;
        
        ТекстЗапроса = ТекстЗапроса + "
        |" + ?(ТекстЗапроса = "", "ВЫБРАТЬ РАЗРЕШЕННЫЕ ", "ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ ") + "
        |ПЕРВЫЕ 1 ВЫРАЗИТЬ(""" + Движение.ПолноеИмя()
        +  """ КАК Строка(200)) КАК Имя ИЗ " + Движение.ПолноеИмя()
        + " ГДЕ Регистратор = &Регистратор";
        
    КонецЦикла;
    
    Если ТекстЗапроса = "" Тогда
        // У документа нет движений по регистрам или у пользователя нет прав на просмотр регистров движений документа
        Возврат Новый ТаблицаЗначений;
    КонецЕсли;
    
    ТекстЗапроса = ТекстЗапроса +
    "
    |УПОРЯДОЧИТЬ ПО
    |Имя
    |";
    
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("Регистратор", Объект.Ссылка);
    
    ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();
    ТаблицаЗапроса.Индексы.Добавить("Имя");
    
    Для Каждого СтрокаТаблицыДвижений Из ТаблицаЗапроса Цикл
        СтрокаТаблицыДвижений.Имя = СокрЛП(СтрокаТаблицыДвижений.Имя);
    КонецЦикла;
    
    СтрДвижений=Новый Массив;
    
    Для каждого дв из ДвиженияДокумента Цикл
        дв2 = ТаблицаЗапроса.Найти(дв.ПолноеИмя(), "Имя");
        если дв2 =    Неопределено тогда
            продолжить;
        конецесли;
        
        Запрос = Новый Запрос();
        
        запрос.Текст=
        "ВЫБРАТЬ
        |    "+дв.Имя+".*
        |ИЗ
        |    "+дв.ПолноеИмя()+" КАК "+дв.Имя+"
        |ГДЕ
        |    "+дв.имя+".Регистратор = &Регистратор";
        
        Запрос.УстановитьПараметр("Регистратор", Объект.Ссылка);
        РезультатЗапроса = Запрос.Выполнить().Выгрузить();
        
        СтрДвижений.Добавить(РезультатЗапроса);
        
    КонецЦикла;
    
    Возврат СтрДвижений;
КонецФункции


собственно остановился я на:
как сравнить 2 массива с таблицами значений? нужно выявить различия значений в таблицаДО и таблицаПОСЛЕ перепроведения.

up!

(22) это на докторскую диссертацию тянет это вопрос. Там такое неизмеримое количество вариантов всяких возникнуть может - это просто искусственный интеллект изобретаете.

(21) обходить каждую ТЗ из массива по строкам и колонкам, сравнивать значения.
Но тут стоит подумать о сортировке ТЗ, ибо значения могут быть одинаковые, а порядок строк разный. Будут ли тогда эти ТЗ разными?