1С:Предприятие 8.1 (8.1.13.41) (1.1.10.2) конвертирование данных SOS!!!!
08.06.2009
18:04
#1
"SOS!!!
Переношу данные из 7.7 из справочника Номенклатура
Все переносится хорошо , кроме цен.
Что не ТАК???
СпрНом = Справочники.Номенклатура;
НайдН = СпрНом.НайтиПоКоду(ВыборСправочника.Код);
ТицЦенСсылка = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Регистратор = ТицЦенСсылка.Ссылка;
Цены.Отбор.Регистратор.использование = Истина;
Нов = Цены.Добавить();
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
При выполнении выдается сообщение!!!
{Форма.Форма(709)}: Ошибка при вызове метода контекста (Записать): Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
Цены.Записать();
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
"
Переношу данные из 7.7 из справочника Номенклатура
Все переносится хорошо , кроме цен.
Что не ТАК???
СпрНом = Справочники.Номенклатура;
НайдН = СпрНом.НайтиПоКоду(ВыборСправочника.Код);
ТицЦенСсылка = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Регистратор = ТицЦенСсылка.Ссылка;
Цены.Отбор.Регистратор.использование = Истина;
Нов = Цены.Добавить();
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
При выполнении выдается сообщение!!!
{Форма.Форма(709)}: Ошибка при вызове метода контекста (Записать): Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
Цены.Записать();
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
"
08.06.2009
18:19
#2
"Это странная строка
> Цены.Регистратор = ТицЦенСсылка.Ссылка;
И еще после установки отбора - надобы прочитать:
Цены.Прочитать ();
А вот строки
Нов.Регистратор = ТицЦенСсылка.Ссылка;
не хватает. По-моему должно будет заработать."
> Цены.Регистратор = ТицЦенСсылка.Ссылка;
И еще после установки отбора - надобы прочитать:
Цены.Прочитать ();
А вот строки
Нов.Регистратор = ТицЦенСсылка.Ссылка;
не хватает. По-моему должно будет заработать."
08.06.2009
18:38
#3
" СпрНом = Справочники.Номенклатура;
НайдН = СпрНом.НайтиПоКоду(ВыборСправочника.Код);
ТицЦенСсылка = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
Подправил!
То же самое
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
"
НайдН = СпрНом.НайтиПоКоду(ВыборСправочника.Код);
ТицЦенСсылка = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ТицЦенСсылка.Ссылка);
Цены.Прочитать ();
Нов = Цены.Добавить();
Нов.Регистратор = ТицЦенСсылка.Ссылка;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
Подправил!
То же самое
Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)
"
09.06.2009
07:19
#4
Вы в регистратор устанавливаете тип цен, а нужно подставить документ из видов, которые перечислены для регистра "ЦеныНоменклатуры" в конфигураторе как регистраторы. И вообще, зачем формировать записи регистра напрямую, когда можно просто заполнить документ "УстановкаЦенНоменклатуры" и провести его?
09.06.2009
11:02
#5
"У меня нет такой конфигурации, поэтому не знаю кто должен быть регистратором. Если "Денис (САМАРА)" прав, то вы действительно не можете загнать в регистратор ссылку на справочник.
К тому же не ясно - зачем дважды создавать набор?
Примерно так (только Регистратор я закоменнтировал):
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ПравильныйРегистратор);
Цены.Прочитать ();
Цены.Очистить (); //Это если все записи, которые до этого там были-не нужны больше.
Нов = Цены.Добавить(); //Первая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Нов = Цены.Добавить(); //Вторая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН1.Наименование;
Нов.Цена = 13;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
"
К тому же не ясно - зачем дважды создавать набор?
Примерно так (только Регистратор я закоменнтировал):
Цены = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Цены.Отбор.Регистратор.Установить(ПравильныйРегистратор);
Цены.Прочитать ();
Цены.Очистить (); //Это если все записи, которые до этого там были-не нужны больше.
Нов = Цены.Добавить(); //Первая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН.Наименование;
Нов.Цена = 12;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Нов = Цены.Добавить(); //Вторая запись
Нов.Регистратор = ПравильныйРегистратор;
Нов.Номенклатура = НайдН1.Наименование;
Нов.Цена = 13;
Нов.ТипЦен = ТицЦенСсылка;
Нов.Период = РабочаяДата;
Цены.Записать();
"
УПП 1.2.17.3 Регистр "Выпуск продукции"Не выгружаються регламентиро-ные отч. на прибыль за 4 квартал 2008! ПОМОГИТЕ ПРОШУ ПЖ-СТА!
Читают тему
(гостей: 1)