Имя: Пароль:
1C
1С v8
Доступ из 8 в 7
0 ВежливаяТварь
 
26.07.12
15:59
Добрый день. Столкнулся со следующей ошибкой. Пытаюсь из 8 программно создать элемент в справочнике в 7. Но привызове записать выдает ошибку.

{Форма.Форма.Форма(82)}: Ошибка при вызове метода контекста (Записать)
       СпрНоменклатура.Записать();    
по причине:
Произошла исключительная ситуация (1С:Предприятие): Не определена дата! Элемент не может быть записан!


кусок кода:СпрНоменклатура=База77.CreateObject("Справочник.Номенклатура");
   ПрчВидТовара=База77.EvalExpr("Перечисление.ВидыТоваров");
   СпрЕдИзм=База77.CreateObject("Справочник.КлассификаторЕдИзм");
   ПрчСтавкаНдс= База77.EvalExpr("Перечисление.ЗначенияНДС");
   
   РезультатЗапроса=РезультатЗапроса.Выбрать();
   Пока РезультатЗапроса.Следующий() Цикл
       СпрНоменклатура.Новый();
       СпрНоменклатура.Наименование = РезультатЗапроса.Наименование;
       СпрНоменклатура.ПолнНаименование = РезультатЗапроса.НаименованиеПолное;
       СпрНоменклатура.ВидТовара =  ПрчВидТовара.Товар;
       СпрНоменклатура.БазоваяЕдиница =  СпрЕдИзм.НайтиПоНаименованию("Штука");
       СпрНоменклатура.СтавкаНДС =  ПрчСтавкаНдс.ОсновнаяСтавкаНДС;
       СпрНоменклатура.Штрихкод=РезультатЗапроса.Штрихкод;
       СпрНоменклатура.КодУКТВЭД=Прав(РезультатЗапроса.СерийныйНомер,10);
       СпрНоменклатура.Записать();    
   КонецЦикла;

не могли бы вы подсказать как передать дату для создания?
1 Azverin
 
26.07.12
16:01
(0) ТС, где дата?
2 ВежливаяТварь
 
26.07.12
16:02
вот в этом и вопрос. Как её передать?
3 roman844
 
26.07.12
16:04
Всем добрый день. Ставка НДС периодический реквизит. Тебе при записи нужно установить дату для периодического реквизита. попробуй, должно получиться.
4 roman844
 
26.07.12
16:08
мож так
       СпрНоменклатура.Новый();
       СпрНоменклатура.Наименование = РезультатЗапроса.Наименование;
       СпрНоменклатура.ПолнНаименование = РезультатЗапроса.НаименованиеПолное;
       СпрНоменклатура.ВидТовара =  ПрчВидТовара.Товар;
       СпрНоменклатура.БазоваяЕдиница =  СпрЕдИзм.НайтиПоНаименованию("Штука");
            СпрНоменклатура.ИспользоватьДату(ТекущаяДата());
       СпрНоменклатура.СтавкаНДС =  ПрчСтавкаНдс.ОсновнаяСтавкаНДС;
       СпрНоменклатура.Штрихкод=РезультатЗапроса.Штрихкод;
       СпрНоменклатура.КодУКТВЭД=Прав(РезультатЗапроса.СерийныйНомер,10);
       СпрНоменклатура.Записать();
5 ВежливаяТварь
 
26.07.12
16:34
Огромное спасибо. Помогло.
Программист всегда исправляет последнюю ошибку.