Имя: Пароль:
1C
1С v8
Как быстро скопировать данные из одного регистра в другой(регистры одинаковые)
0 Alex2411
 
30.11.11
12:19
Добрый день подскажите как средствами 1С БЫСТРО скопировать данные из одного регистра НАКОПЛЕНИЯ в другой, мой код
   НаборЗаписи = РегистрыНакопления.ОстаткиТоваровКомпании.СоздатьНаборЗаписей();
   Пока выб.Следующий() Цикл
       сч = сч + 1;
       ЭлементыФормы.Индикатор1.Значение = сч;
       
       //запись регистра
       Запис = НаборЗаписи.Добавить();
       Запис.Активность                = выб.Активность;
       Запис.ВидДвижения               = выб.ВидДвижения;
       Запис.Количество                = выб.Количество;
       Запис.КоличествоПереоценки      = выб.КоличествоПереоценки;
       Запис.Контрагент                = выб.Контрагент;
       Запис.Номенклатура              = выб.Номенклатура;
       ////Запис.НомерСтроки               = выб.НомерСтроки;
       Запис.Период                    = выб.Период;
       Запис.Регистратор               = выб.Регистратор;
       Запис.Резерв                    = выб.Резерв;
       Запис.СкладКомпании             = выб.СкладКомпании;
       Запис.СуммаРозн                 = выб.СуммаРозн;
       Запис.СуммаРознУпр              = выб.СуммаРознУпр;
       Запис.СуммаСкидки               = выб.СуммаСкидки;
       Запис.ХарактеристикаНоменклатуры = выб.ХарактеристикаНоменклатуры;
       Запис.ХозОперация               = выб.ХозОперация;
       Запис.Цена                      = выб.Цена;
       //
       ЗаписыватьИлиНет = сч/1000 - Цел(сч / 1000);
       //
       Если ЗаписыватьИлиНет = 0 Тогда
           НаборЗаписи.Записать(Истина);
           НаборЗаписи = РегистрыНакопления.ОстаткиТоваровКомпании.СоздатьНаборЗаписей();
       КонецЕсли;
       
   КонецЦикла;
1 Buster007
 
30.11.11
12:24
НаборЗаписи.Загрузить(РезультатЗапрос.Выгрузить());
...
2 Mort
 
30.11.11
12:25
Записывать надо блоками по регистраторам
3 Alex2411
 
30.11.11
12:26
НаборЗаписи.Загрузить(РезультатЗапрос.Выгрузить()); - а это получится если регистр подчинен Регистратору??
4 EasyRider
 
30.11.11
12:27
Если быстро,то средствами 1с не получится.Все равно по регистраторам придется обходить.
5 DrShad
 
30.11.11
12:27
если набор будет с отбором по регистратору конечно получится
6 DrShad
 
30.11.11
12:28
(4) это почему это?
7 EasyRider
 
30.11.11
12:28
(6)Потому что для набора придется регистратор указывать.
8 DrShad
 
30.11.11
12:30
(7) но ведь все равно не ручками клепать и довольно таки шустренько получится
9 EasyRider
 
30.11.11
12:30
(8)Ну эт конечно смотря что иметь ввиду под "быстро" ))
10 DrShad
 
30.11.11
12:31
(9) и от железа зависеть будет
11 Alex2411
 
30.11.11
14:42
Вообщем объекм большой, регистр самый ходовой и данных за 4,5 года, вообщем пробую и Вам отпишусь о результате
12 hhhh
 
30.11.11
14:53
(11) в транзакциях пробуй. ПО 200-300 регистраторов на одну транзакцию.