Единица измерения принадлежит другому элементу справочника номенклатура
|
noviptr
05.04.2009 - 12:11
|
Имеется обработка по загрузке приходных накладных из ТХТ в ТиС. Все вроде грузится но для некоторых позиций (созданных этой обработкой)при попытке выписать заявку поставщику выскакивает сабж Текст создания нового элемента справочника номенклатура из этой обработки: Если СпрНом.Выбран()=0 тогда СпрНом.Новый(); СпрНом.Наименование = Наименование; СпрНом.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Прочее; СпрНом.ПолнНаименование = Наименование; Если ((Найти(СпрНом.Наименование, "Труб")>0) или (Найти(СпрНом.Наименование, "труб")>0) Тогда КодЕд="006"; иначе КодЕд="796"; КонецЕсли; Если СпрОКЕИ.НайтиПоКоду(КодЕд, 0) = 1 Тогда; КодОк = СпрОКЕИ.ТекущийЭлемент(); КонецЕсли; СпрЕд.ИспользоватьВладельца(СпрНом.ТекущийЭлемент()); Если СпрЕд.НайтиПоРеквизиту("ОКЕИ",КодОК, 1) = 1 Тогда СпрНом.БазоваяЕдиница = СпрЕд.ТекущийЭлемент(); Иначе СпрЕд.Новый(); СпрЕд.ОКЕИ=СпрНом.БазоваяЕдиница; СпрЕд.Коэффициент=1; СпрЕд.Записать(); СпрНом.БазоваяЕдиница = СпрЕд.ТекущийЭлемент(); КонецЕсли; СпрНом.Записать(); СпрЦены= СоздатьОбъект("Справочник.Цены"); СпрЦены.ИспользоватьДату(ДатаДок); СпрЦены.ИспользоватьВладельца(СпрНом.ТекущийЭлемент()); //****Приходные************************************************** СпрЦены.Новый(); КодЦены="00001"; Цены.НайтиПоКоду(КодЦены); СпрЦены.ТипЦен =Цены.ТекущийЭлемент(); Если СпрЕд.НайтиПоРеквизиту("ОКЕИ",КодОК, 1) = 1 Тогда СпрЦены.Единица = СпрЕд.ТекущийЭлемент(); Иначе СпрЕд.Новый(); СпрЕд.ОКЕИ=СпрОКЕИ.ТекущийЭлемент(); СпрЕд.Коэффициент=1; СпрЕд.Записать(); СпрЦены.Единица = СпрЕд.ТекущийЭлемент(); КонецЕсли; СпрЦены.Валюта=Константа.ВалютаБухУчета; СпрЦены.Записать(); |