Имя: Пароль:
1C
1С v8
Как сделать 2 записи в 1 регист
0 Asest
 
06.12.13
14:44
ТаблицаВидовОплат = ПолучитьВидОплаты(Дата);
    
Для Каждого Структура Из ТаблицаВидовОплат Цикл
    Для Каждого Строка Из Структура Цикл
    Если Строка.Ключ = "Время" Тогда
        ВремяДляЗаписиВРегистр = Строка.Значение;
    ИначеЕсли Строка.Ключ = "ВидОплаты" Тогда
        ВидОплаты = Строка.Значение;
    КонецЕсли;    
КонецЦикла;
Движения.ВремяУдаленногоПодключения.Записывать = Истина;
            Движения.ВремяУдаленногоПодключения.Очистить();
Движение = Движения.ВремяУдаленногоПодключения.Добавить();
Движение.ВидДвижения        = ВидДвиженияНакопления.Приход;
Движение.Период        = Дата;
Движение.Контрагент        = Контрагент;
Движение.ВидРаботы        = ВидРаботы;
Движение.Ответственный        = Ответственный;
Движение.ВремяПодключения  = ВремяДляЗаписиВРегистр;
Движение.ВидОплаты       = ВидОплаты;    
Движения.Записать();
КонецЦикла;
1 Asest
 
06.12.13
14:46
Есть регистр в который я хочу сделать несколько записей в цикле, как это организовать?

При таком коде записывается только последняя запись
2 Defender aka LINN
 
06.12.13
14:46
Ну... Спасибо за инфу, чо...
3 Defender aka LINN
 
06.12.13
14:47
(1) А что ты хотел, очищая набор в цикле?
Еще и запись туда же прикрутил зачем-то
4 Asest
 
06.12.13
14:49
Я совсем ослеп, заработался
5 Asest
 
06.12.13
14:49
Спасибо
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой