Добрый день. Столкнулся вроде как с плевой задачей, но застопорился на ровном месте. Итак. Есть справочник ТМЦ. Ему починен справочник Цены. Необходимо добавить в перечень элементов справочника ТМЦ по новому подчиненному элементу справочника Цены.
Для зю = 1 по Сз.РазмерСписка() Цикл
Если Сз.Пометка(зю) = 0 Тогда
продолжить;
КонецЕсли;
Влад = Сз.ПолучитьЗначение(зю);
Цена.ИспользоватьВладельца(Влад);
Цена.Новый();
Цена.КатегорияЦены = КЦена;
гр = гривня;
Цена.Валюта.Установить(РабочаяДата()-1,Гр);
Цена.Единица.Установить(РабочаяДата() - 1,глВернутьБазовуюЕдиницуТовара(Влад));
Цена.Наценка.Установить(РабочаяДата() - 1,кЦена.ТорговаяНаценка);
Если ПустоеЗначение(глВернутьБазовуюЕдиницуТовара(Влад)) = 1 Тогда
Числ = 1;
ИначеЕсли глВернутьБазовуюЕдиницуТовара(Влад).Коэффициент = 0 Тогда
Числ = 1;
Иначе
Числ = глВернутьБазовуюЕдиницуТовара(Влад);
КонецЕсли;
Ц = Числ * Влад.УчетнаяЦена.Получить()*(100 + кЦена.ТорговаяНаценка) / 100;
Ц = Ц * (100 + глПроцентНДС (Влад.СтавкаНДС))/100;
Цена.Цена.Установить(РабочаяДата()-1,Ц);
Цена.АвторДока.Установить(РабочаяДата()-1,Автор);
Цена.Записать();
Состояние("Запись "+Влад);
КонецЦикла;
СЗ - список значений с єлементами справочника ТМЦ, владельце Цены. При выполнение пишет: Цена.Валюта.Установить(РабочаяДата()-1,Гр);
{C:\USERS\TALKMAN\DESKTOP\В ПРОЦЕССЕ\ГАЛЬМАКОВ.ERT(110)}: Не выбран элемент!.
Пробовал и так:
Для зю = 1 по Сз.РазмерСписка() Цикл
Если Сз.Пометка(зю) = 0 Тогда
продолжить;
КонецЕсли;
Влад = Сз.ПолучитьЗначение(зю);
//Сообщить(Влад);
Цена.ИспользоватьВладельца(Влад);
Цена.Новый();
Цена.ИспользоватьДату(РабочаяДата());
Цена.КатегорияЦены = КЦена;
гр = гривня;
Цена.Валюта= Гр;
Цена.Единица= глВернутьБазовуюЕдиницуТовара(Влад);
Цена.Наценка = кЦена.ТорговаяНаценка;
Если ПустоеЗначение(глВернутьБазовуюЕдиницуТовара(Влад)) = 1 Тогда
Числ = 1;
ИначеЕсли глВернутьБазовуюЕдиницуТовара(Влад).Коэффициент = 0 Тогда
Числ = 1;
Иначе
Числ = глВернутьБазовуюЕдиницуТовара(Влад);
КонецЕсли;
Ц = Числ * Влад.УчетнаяЦена.Получить()*(100 + кЦена.ТорговаяНаценка) / 100;
Ц = Ц * (100 + глПроцентНДС (Влад.СтавкаНДС))/100;
Цена.Цена = Ц;
Цена.АвторДока = Автор;
Цена.Записать();
Состояние("Запись "+Влад);
КонецЦикла;
В этом варианте, ошибки не выдает, но запись периодических реквизитов записывается на неопределенную дату. Само собой они то видны на сегодня, но непонятно когда они были установлены. Дата изменения просто стоят точки. Необходимо чтобы явно видно когда были добавлены значения в периодические реквизиты справочника Цены... Что я делаю не так?