[Домовик]

документы разные, тип документов один.

[maximus]

Документы всегда одинаковые

К примеру, если брать документ реализация товаров и услуг, то мне обращаться к какждому регистру накопления и сведений? т.е. целым набором залить не получиться?

                            ДокИсточник = ДокументИсточник.ПолучитьОбъект();
         ДокПриемник = ДокументПриемник.ПолучитьОбъект();
         
         
        ТЗ  = Новый ТаблицаЗначений;
        ДвиженияИсточник=Докисточник.Движения;
        ДвиженияПриемник=ДокПриемник.Движения;

                
        ТЗ = ДвиженияИсточник.ПартииТоваровНаСкладахБухгалтерскийУчет.Выгрузить();    
        ТЗ.ЗаполнитьЗначения(ДвиженияПриемник,"Регистратор");
        ДвиженияПриемник.ПартииТоваровНаСкладахБухгалтерскийУчет.Загрузить(ТЗ);
        ДвиженияПриемник.Записать();

После этого вообще в документе приемнике пропадает движение по этому регистру, что не так делаю?

[alex040269]

ТЗ.ЗаполнитьЗначения(ДвиженияПриемник,"Регистратор");//регистратор - ссылка на документ

т.е. целым набором залить не получиться?

можно перебрать коллекцию.

[sava1]

Значение Регистратора надо-бы поменять

можно перебрать коллекцию

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

    Для Каждого Запись из НаборЗаписейРегистра Цикл    

        // Чтение и модификация очередного движения.

    КонецЦикла;

КонецЦикла;

Сообщение отредактировал Vofka - 13.02.13, 16:57

[maximus]

в том то и беда, что пробовал через коллекцию но не получается...

в том то и беда, что пробовал через коллекцию но не получается...

вот как в

ДокИсточник.Движения.ПартииТоваровНаСкладахБухгалтерскийУчет.Прочитать();

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

[Домовик]

После этого вообще в документе приемнике пропадает движение по этому регистру, что не так делаю?

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

тут еще ошибка механическая была, alex040269 подсказал
Тз.ЗаполнитьЗначения(ДокПриемник,"Регистратор");

из-за этой ошибки в тз регистратор был не заполнен и загрузка не прошла

Сообщение отредактировал Домовик - 13.02.13, 21:59

[maximus]

тут еще ошибка механическая была, alex040269 подсказал

Исправил ошибку, результат тот же(

[Домовик]

если загрузить() поставить в условие на проверку количества строк ТЗ, какой результат?

Сообщение отредактировал Домовик - 14.02.13, 8:22

[sava1]

Отладчиком пройтись надо-бы

[maximus]

В итоге добился работоспособности вот таким способом, но опять таки это только по конкретному регистру, буду пытаться залить всю коллекцию)

 ДокИсточник = ДокументИсточник.ПолучитьОбъект();
         ДокПриемник = ДокументПриемник.ПолучитьОбъект();
         
         
        ТЗ  = Новый ТаблицаЗначений;
        ДвиженияИсточник=Докисточник.Движения;
        ДвиженияПриемник=ДокПриемник.Движения;

                
        ТЗ = ДвиженияИсточник.ПартииТоваровНаСкладахБухгалтерскийУчет.Выгрузить();    
        ТЗ.ЗаполнитьЗначения(ДокПриемник,"Регистратор");
        ДвиженияПриемник.ПартииТоваровНаСкладахБухгалтерскийУчет.Загрузить(ТЗ);
        ДвиженияПриемник.Записать();

В итоге добился работоспособности вот таким способом, но опять таки это только по конкретному регистру, буду пытаться залить всю коллекцию)

 
ДокИсточник.Движения.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Прочитать()
;
         ДвиженияПриемник = ДокПриемник.Движения.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации;
         Для каждого ДвижениеИсточник Из ДокИсточник.Движения.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации Цикл
            ДвижениеПриемник = ДвиженияПриемник.Добавить();    
            ЗаполнитьЗначенияСвойств(ДвижениеПриемник, ДвижениеИсточник);
         КонецЦикла;

В итоге добился работоспособности вот таким способом, но опять таки это только по конкретному регистру, буду пытаться залить всю коллекцию)

Сообщение отредактировал Vofka - 15.02.13, 9:28

[Домовик]

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

можно обойти циклы, записать наборы в цикле в списокзначенийПриемник и списокзначенийИсточник. потом по индексу обращаться к соотв. наборам.

наборы можно записывать в списки значений?

Сообщение отредактировал Домовик - 14.02.13, 15:14

[Домовик]

все же пытаюсь решить эту задачу.
выгрузить() почему-то до конца не работает. В отладчике показывает количество строк ТЗ равно 0. в ТЗ копируется полностью структура -имена измерений, ресурсво, реквизитов.
Пример, который в синтакс-помощнике срабатывает так же, нулевая таблица со структурой тек регистра. с чем это может быть связано? конфигурация УНФ, возможно где-то в свойствах запрет или галка, что записи делать только при проведении дока?

 &наСервере
     Процедура Команда11()
   спИсточник= Новый СписокЗначений;                 
        ДвиженияИсточник=докИсточник.ПолучитьОбъект().движения;
        ДвиженияПриемник=ДокПриемник.ПолучитьОбъект().Движения;

        счетчик=0;
        для каждого НаборЗаписейРегистра  из движенияПриемник цикл
            ТЗ = ДвиженияИсточник.Получить(счетчик).Выгрузить();  
        ТЗ.ЗаполнитьЗначения(ДокПриемник,"Регистратор");
        НаборЗаписейРегистра.Загрузить(ТЗ);
         счетчик=счетчик+1;     
    КонецПроцедуры

Сообщение отредактировал Домовик - 17.02.13, 13:06

[logist]

А "ДвиженияИсточник.Получить(счетчик)" в отладчике что показывает? Может вместо "счетчик" стоит использовать имена регистров? (ну или как-то так)

[Домовик]

logist, показывает на счетчик= 0 РегистрНакопленияНаборЗаписей. Продажи и далее еще 18 наборов записей регистров ( по движ РасходнаяНакладная). как раз там все нормально.

при явном задании регистра (в синтакс-помощнике пример) точно также формирует пустую таблицу со структурой регистра.

i

Правила, 11 пункт

Сообщение отредактировал Vofka - 17.02.13, 18:32