Процедура СозданиеНоменклатуры(ДатаДокаВх, НомерДокаВх, НоменклатураОригинал, НаОсновании, ЕИОригинал, НомСтавкаНДС, ВидНоменклатуры, НоменклатураАртикул)
//бутко
ГруппаМедка = Справочники.Номенклатура.НайтиПоКоду("ШИЙ00019795");
Если НЕ ЗначениеЗаполнено(ГруппаМедка) тогда
ГруппаОбъект = Справочники.Номенклатура.СоздатьГруппу();
ГруппаОбъект.Наименование = "Auto_MEDoc";
ГруппаОбъект.Код = "MED";
ГруппаОбъект.Записать();
КонецЕсли;
НоменклатураМедка = Справочники.Номенклатура.СоздатьЭлемент();
НоменклатураМедка.Родитель = Справочники.Номенклатура.НайтиПоКоду("ШИЙ00019795");
НоменклатураМедка.Наименование = НоменклатураОригинал;
НоменклатураМедка.НаименованиеПолное = НоменклатураОригинал;
НоменклатураМедка.ЕдиницаДляОтчетов= Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(ЕИОригинал);
НоменклатураМедка.Артикул= НоменклатураАртикул;
НоменклатураМедка.Комментарий = Строка(НСтр("ru = 'Создана M.E.Doc IS на основании ';uk = 'Створена M.E.Doc IS на підставі '") +
НаОсновании + Строка(НомерДокаВх) + НСтр("ru = 'от ';uk = 'від '") + ДатаДокаВх);
//Если ВидНоменклатуры = "Запчасть" Тогда
//НоменклатураМедка. Запчасть = Истина;
//КонецЕсли;
ЕдИзмНоменклатуры = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(ЕИОригинал);
Если ЗначениеЗаполнено(ЕдИзмНоменклатуры) Тогда
НоменклатураМедка.БазоваяЕдиницаИзмерения = ЕдИзмНоменклатуры;
КонецЕсли;
НоменклатураМедка.СтавкаНДС = НомСтавкаНДС;
Если ИмяБазы="УТ" или ИмяБазы="УТП" или ИмяБазы="УПП" Тогда
НоменклатураМедка.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию(ВидНоменклатуры);
КонецЕсли; Сообщить(1);
НоменклатураМедка.Записать();
Сообщить(2);
ЕИНовая=Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); Сообщить(3);
Сообщить(4);
Врем= Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(ЕИОригинал);
Сообщить(Врем.Код);
ЕСЛИ НЕ Врем.Пустая()Тогда Сообщить(5);
ЕИНовая.ЕдиницаПоКлассификатору = Врем; Сообщить(6);
ЕИНовая.Коэффициент="1"; Сообщить("6.5");
ЕИНовая.Владелец= НоменклатураМедка; Сообщить(7);
ЕИНовая.Записать(); Сообщить(8);
//НоменклатураМедка.ЕдиницаДляОтчетов= ЕИНовая; Сообщить(8);
// НоменклатураМедка.ЕдиницаХраненияОстатков= ЕИНовая;
// НоменклатураМедка.БазоваяЕдиницаИзмерения= ЕИНовая; Сообщить(9);
НоменклатураМедка.Записать(); Сообщить(10);
КонецЕсли;
Сообщить(11);
КонецПроцедуры
leikar @ Сегодня, 14:04
,
Найдите место, где создается документ поступления и заполняется таб. часть "Товары", там должно быть заполнение единицы измерения в строке таб. части. Если такой строчки нет, то можно добавить.
[Решено]
Процедура СозданиеНоменклатуры(ДатаДокаВх, НомерДокаВх, НоменклатураОригинал, НаОсновании, ЕИОригинал, НомСтавкаНДС, ВидНоменклатуры, НоменклатураАртикул)
//Юля
ГруппаМедка = Справочники.Номенклатура.НайтиПоКоду("ШИЙ00019795");
Если НЕ ЗначениеЗаполнено(ГруппаМедка) тогда
ГруппаМедка = Справочники.Номенклатура.СоздатьГруппу();
ГруппаМедка.Наименование = "Auto_MEDoc";
ГруппаМедка.Код = "MED";
ГруппаМедка.Записать();
КонецЕсли;
НоменклатураМедка = Справочники.Номенклатура.СоздатьЭлемент();
НоменклатураМедка.Родитель = ГруппаМедка;
НоменклатураМедка.Наименование = НоменклатураОригинал;
НоменклатураМедка.НаименованиеПолное = НоменклатураОригинал;
НоменклатураМедка.ЕдиницаДляОтчетов= Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(ЕИОригинал);
НоменклатураМедка.Артикул= НоменклатураАртикул;
НоменклатураМедка.Комментарий = Строка(НСтр("ru = 'Создана M.E.Doc IS на основании ';uk = 'Створена M.E.Doc IS на підставі '") +
НаОсновании + Строка(НомерДокаВх) + НСтр("ru = 'от ';uk = 'від '") + ДатаДокаВх);
НоменклатураМедка.СтавкаНДС = НомСтавкаНДС;
//НоменклатураМедка.Записать();
//Если ВидНоменклатуры = "Запчасть" Тогда
//НоменклатураМедка. Запчасть = Истина;
//КонецЕсли;
Если ИмяБазы="УТ" или ИмяБазы="УТП" или ИмяБазы="УПП" Тогда
НоменклатураМедка.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию(ВидНоменклатуры);
КонецЕсли;
НоменклатураМедка.Записать();
Сообщить("НоменклатураМедка");
Сообщить(НоменклатураМедка);
Сообщить(НоменклатураМедка.Код);
ЕдИзмНоменклатура = Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); Сообщить(3);
ЕдИзмНоменклатура.Владелец = НоменклатураМедка.Ссылка; Сообщить(5);
ЕдИзмНоменклатура.Наименование = ЕИОригинал; Сообщить(7);
ЕдИзмНоменклатура.Коэффициент = 1; Сообщить("6.5");
ЕдИзмКлассификатор = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(ЕИОригинал);
Сообщить("ЕдИзмКлассификатор");
Сообщить(ЕдИзмКлассификатор);
Сообщить(ЕдИзмКлассификатор.Код);
ЕдИзмНоменклатура.ЕдиницаПоКлассификатору = ЕдИзмКлассификатор; Сообщить(6);
ЕдИзмНоменклатура.Записать();
Сообщить("ЕдИзмНоменклатура");
Сообщить(ЕдИзмНоменклатура);
Сообщить(ЕдИзмНоменклатура.Код);
НоменклатураМедка.БазоваяЕдиницаИзмерения = ЕдИзмКлассификатор;
НоменклатураМедка.ЕдиницаХраненияОстатков = ЕдИзмНоменклатура.Ссылка;
НоменклатураМедка.ЕдиницаДляОтчетов = ЕдИзмНоменклатура.Ссылка;
НоменклатураМедка.ЕдиницаИзмеренияМест = ЕдИзмНоменклатура.Ссылка;
НоменклатураМедка.Записать(); Сообщить(10);
КонецПроцедуры
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua