Имя: Пароль:
1C
1С v8
v8: Запись в регистры сведений
0 Sasha_uu
 
24.09.11
09:42
Подскажите не как не получается сделать запись

РегСвойствоОГРН = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
       РегСвойствоОГРН.Отбор.Объект.Значение = мНовыйЭлемент.Ссылка;
       РегСвойствоОГРН.Отбор.Объект.Использование = Истина;
       РегСвойствоОГРН.Отбор.Свойство.Значение = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("ОГРН").Ссылка;
       РегСвойствоОГРН.Отбор.Свойство.Использование = Истина;
       
       НоваяЗапись = РегСвойствоОГРН.Добавить();
       НоваяЗапись.Активность = Истина;
       НоваяЗапись.Объект = мНовыйЭлемент.Ссылка;
       НоваяЗапись.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("ОГРН").Ссылка;
       НоваяЗапись.Значение = СокрЛП(ОГРН);
       
       РегСвойствоОГРН.Записать(Истина);

В итоге запись в регистр не делается.
1 2S
 
24.09.11
09:43
НоваяЗапись.Записать(Истина);
2 Sasha_uu
 
24.09.11
09:44
(1)так не делается.
Тип значения строковой.
3 Jstunner
 
24.09.11
09:45
(0) код визуально рабочий
4 Sasha_uu
 
24.09.11
09:47
(3) куда копать...второй день бюьсь
5 2S
 
24.09.11
09:47
с СП
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
   НовыйКурс = НаборКурсов.Добавить();
   НовыйКурс.Валюта = Доллар;
   НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
   НовыйКурс = НаборКурсов[0];
Иначе
   Текст = "ru = ""Курс валюты задается один раз в день."";"
    + " en = ""Rate is set once a day.""";
   Предупреждение(НСтр(Текст), 60);
   Возврат;
КонецЕсли;
НовыйКурс.Курс = 31.44;
НовыйКурс.Кратность = 1;
НаборКурсов.Записать();
Сообщить(НСтр(ru = ""Курс ""; en = ""Rate "")
   + СокрЛП(НовыйКурс.Валюта)
   + НСтр(ru = "" на сегодня: "+"; en = "" for today: "")
   + НовыйКурс.Курс + НСтр(ru = "" руб.""; en = "" roub."""));
6 Jstunner
 
24.09.11
09:48
(4) в отладчике убедись что все поля новой записи заполнены
7 Sasha_uu
 
24.09.11
09:49
все заполнены
8 NcSteel
 
24.09.11
09:55
(7) Заменилась старая запись , посмотри внимательно есть ли подобная запись с таким же набором измерений :
- Объект
- Свойство
9 Sasha_uu
 
24.09.11
10:08
(8) да есть
10 2S
 
24.09.11
10:09
(9) тупанул в (1)
сделай уникальную запись, запиши попробуй.
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн