Имя: Пароль:
1C
1С v8
Регистр сведений быстро провести
0 BujiMuji
 
11.10.15
09:58
есть Регистр сведений подчиненный регистратору
как быстро провести?

    Движения.БазаПриход.Записывать = Истина;
    
    Для Каждого ТекСтрокаПриход Из Приход Цикл
    НоваяЗаписьОптом = РегистрыСведений.ОптомФоиз.СоздатьМенеджерЗаписи();
    НоваяЗаписьДона = РегистрыСведений.ДонаФоиз.СоздатьМенеджерЗаписи();
    НоваяЗаписьЙул = РегистрыСведений.ЙулФоизи.СоздатьМенеджерЗаписи();
    
        Движение = Движения.БазаПриход.Добавить();
        Движение.Период = Дата;
        Движение.Контрагент = Контрагент;
        Движение.Товар = ТекСтрокаПриход.Товар;
        Движение.Количество = ТекСтрокаПриход.Микдори;
        Движение.ЖамиСумма = ТекСтрокаПриход.ЖамиСум;
        Движение.ЖамиДоллар = ТекСтрокаПриход.ЖамиДоллар;
        Движение.ЖамиЮань = ТекСтрокаПриход.ЖамиЮань;
        Движение.СуммаДоллар = ТекСтрокаПриход.СуммаДоллар;
        Движение.СуммаЮань = ТекСтрокаПриход.СуммаЮань;
        Движение.ЙулФоизи = ТекСтрокаПриход.ЙулФоизи;
        Движение.КелибТушишНархиСум = ТекСтрокаПриход.КелибТушишНархиСум;
        Движение.КелибТушишНархиДоллар = ТекСтрокаПриход.КелибТушишНархиДоллар;
        Движение.ОптомФоиз = ТекСтрокаПриход.ОптомФоиз;
        Движение.ОптомНархСум = ТекСтрокаПриход.ОптомНархСум;
        Движение.ОптомНархДоллар = ТекСтрокаПриход.ОптомНархДоллар;
        Движение.ДонаФоиз = ТекСтрокаПриход.ДонаФоиз;
        Движение.ДонаНархСум = ТекСтрокаПриход.ДонаНархСум;
        Движение.ДонаНархДоллар = ТекСтрокаПриход.ДонаНархДоллар;
        Движение.ЭскиДонаНархСум = ТекСтрокаПриход.ЭскиДонаНархСум;
        Движение.ЭскиДонаНархДоллар = ТекСтрокаПриход.ЭскиДонаНархДоллар;
        Движение.Изох = ТекСтрокаПриход.Изох;
        Движение.Карзга = ТекСтрокаПриход.Карзга;
1 Cyberhawk
 
11.10.15
10:04
Пользоваться набором записей, а не менеджером записи
2 BujiMuji
 
11.10.15
11:59
(1)     Запрос = Новый Запрос;
    Запрос.Текст = "
                    |ВЫБРАТЬ
                    |   КиримПриход.Ссылка.Контрагент КАК Контрагент,
                    |    КиримПриход.Товар,
                    |    КиримПриход.Микдори,
                    |    КиримПриход.СуммаДоллар,
                    |    КиримПриход.СуммаЮань,
                    |    КиримПриход.ЙулФоизи,
                    |    КиримПриход.КелибТушишНархиСум,
                    |    КиримПриход.КелибТушишНархиДоллар,
                    |    КиримПриход.ОптомФоиз,
                    |    КиримПриход.ОптомНархСум,
                    |    КиримПриход.ОптомНархДоллар,
                    |    КиримПриход.ДонаФоиз,
                    |    КиримПриход.ДонаНархСум,
                    |    КиримПриход.ДонаНархДоллар,
                    |    КиримПриход.ЭскиДонаНархСум,
                    |    КиримПриход.ЭскиДонаНархДоллар,
                    |    КиримПриход.Изох,
                    |    КиримПриход.Карзга,
                    |    КиримПриход.ЖамиЮань,
                    |    КиримПриход.ЖамиДоллар,
                    |    КиримПриход.ЖамиСум
                    |ИЗ
                    |    Документ.Кирим.Приход КАК КиримПриход
                    |ГДЕ
                    |    КиримПриход.Ссылка = &Ссылка";
    Запрос.УстановитьПараметр("Ссылка", ЭтотОбъект.Ссылка);    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    НаборЗаписей = РегистрыСведений.БазаПриход.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Период.Установить(ЭтотОбъект.Дата);
    НаборЗаписей.Прочитать();
    НаборЗаписей.Загрузить(РезультатЗапроса);
    НаборЗаписей.Записать();

можно так?
3 RomanYS
 
11.10.15
12:05
Отбор должен быть по регистратору,
Прочитать() - лишнее,
можно добавить "НаборЗаписей.ОбменДанными.Загрузка=Истина;"
4 RomanYS
 
11.10.15
12:06
Это модуль проведения или внешний (обработка и т.п.)?
5 BujiMuji
 
11.10.15
12:07
(3) выдает ошибку
Ошибка записи! Не установлен отбор по регистратору (регистр сведений: базаПриход)
6 BujiMuji
 
11.10.15
12:08
(4) Модуль проведения
7 jurassic
 
11.10.15
12:12
(5) внезапно
8 BujiMuji
 
11.10.15
12:19
ВСЕ РАБОТАЕТ

    Запрос = Новый Запрос;
    Запрос.Текст = "
                    |ВЫБРАТЬ
                    |   КиримПриход.Ссылка.Контрагент КАК Контрагент,
                    |   КиримПриход.Ссылка.Дата КАК Период,                    
                    |    КиримПриход.Товар,
                    |    КиримПриход.Микдори КАК Количество,
                    |    КиримПриход.СуммаДоллар,
                    |    КиримПриход.СуммаЮань,
                    |    КиримПриход.ЙулФоизи,
                    |    КиримПриход.КелибТушишНархиСум,
                    |    КиримПриход.КелибТушишНархиДоллар,
                    |    КиримПриход.ОптомФоиз,
                    |    КиримПриход.ОптомНархСум,
                    |    КиримПриход.ОптомНархДоллар,
                    |    КиримПриход.ДонаФоиз,
                    |    КиримПриход.ДонаНархСум,
                    |    КиримПриход.ДонаНархДоллар,
                    |    КиримПриход.ЭскиДонаНархСум,
                    |    КиримПриход.ЭскиДонаНархДоллар,
                    |    КиримПриход.Изох,
                    |    КиримПриход.Карзга,
                    |    КиримПриход.ЖамиЮань,
                    |    КиримПриход.ЖамиДоллар,
                    |    КиримПриход.ЖамиСум
                    |ИЗ
                    |    Документ.Кирим.Приход КАК КиримПриход
                    |ГДЕ
                    |    КиримПриход.Ссылка = &Ссылка";
    Запрос.УстановитьПараметр("Ссылка", ЭтотОбъект.Ссылка);    
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    НаборЗаписей = РегистрыСведений.БазаПриход.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    НаборЗаписей.ОбменДанными.Загрузка=Истина;
    НаборЗаписей.Загрузить(РезультатЗапроса);
    НаборЗаписей.Записать();
9 Cyberhawk
 
11.10.15
12:21
(8) Пожалуйста
10 RomanYS
 
11.10.15
12:41
(6) тогда логичнее использовать Движения.БазаПриход,
    //НаборЗаписей = РегистрыСведений.БазаПриход.СоздатьНаборЗаписей();
    //НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    //НаборЗаписей.ОбменДанными.Загрузка=Истина;
    //НаборЗаписей.Загрузить(РезультатЗапроса);
    //НаборЗаписей.Записать();

    НаборЗаписей = Движения.БазаПриход;
    НаборЗаписей.Загрузить(РезультатЗапроса);
    НаборЗаписей.Записывать = Истина;
Основная теорема систематики: Новые системы плодят новые проблемы.