Как перебрать реквизиты РегистрНакопленияЗапись?

08.08.15

✎

09:56

добрый день.
Пишу универсальный механизм для сторно:

Наборы = Документ.ПолучитьОбъект().Движения;
    Для каждого Движение Из Наборы Цикл

        Движение.Прочитать();
        Для каждого Запись Из Движение Цикл

            Проводка = Движения[СтрЗаменить(Прав(Строка(типзнч(Движение)),(СтрДлина(Строка(типзнч(Движение)))-Найти(Строка(типзнч(Движение)),":")-1)), " ", "")].Добавить();
            ЗаполнитьЗначенияСвойств(Проводка, Запись);
            Проводка.Период = Дата;
            Для каждого Реквизит Из Запись Цикл     ОШИБКА ТУТ!!

                Если ТипЗнч(Реквизит) = Тип("Число") Тогда



                КонецЕсли;

            КонецЦикла;


        КонецЦикла;

    КонецЦикла;

1 ДенисЧ

08.08.15

✎

10:00

Ошибка в другом месте...
Но, к сожалению, на современном уровне биотехнологий её не исправить

2 RomanYS

08.08.15

✎

10:21

метаданные
или выгрузить в ТЗ и перебирать колонки

3 pro3ri

08.08.15

✎

10:37

(2) Наборы = Документ.ПолучитьОбъект().Движения;
    Для каждого Движение Из Наборы Цикл

        Движение.Прочитать();
        ТЗ = Движение.Выгрузить();
        Для каждого СтрокаТЧ Из ТЗ Цикл

            Для каждого РеквизитЧисловой Из Движение.метаданные().Ресурсы Цикл

                СтрокаТЧ[Строка(РеквизитЧисловой)] = -СтрокаТЧ[Строка(РеквизитЧисловой)];
                СтрокаТЧ.Период = Дата;
                СтрокаТЧ.МоментВремени = МоментВремени();
            КонецЦикла;

        КонецЦикла;

        РегистрДвиженийТекДок = Движения[Движение.Метаданные().Имя];
        ЗаполнитьЗначенияСвойств(РегистрДвиженийТекДок, Движение);
        РегистрДвиженийТекДок.Загрузить();
        РегистрДвиженийТекДок.Записать();


    КонецЦикла;

теперь у регистров РегистрДвиженийТекДок и Движение разный набор колонок, и не идет запись...

4 hhhh

08.08.15

✎

12:10

РегистрДвиженийТекДок = Движения[Движение.Метаданные().Имя];
        ЗаполнитьЗначенияСвойств(РегистрДвиженийТекДок, Движение);
        РегистрДвиженийТекДок.Загрузить()

Что это? На каком языке? Вот так пробуй

       Движение.Загрузить(ТЗ);
        Движение.Записать();

5 pro3ri

08.08.15

✎

12:17

(4) спасибо, заработало!