Создание нового элемента и запись его в группу справочника

[Mr.Broock]

Доброго времени суток всем форумчанам!
Столкнулся с проблемой, которую решить самостоятельно не могу. В программировании 1С новенький...
В организации есть нетиповая конфигурация 1С, в которой описана процедура импорта документов "Поступление товара" из Паруса 8. Процедура работает, но во время проверки элемента на уникальность описывает в коде, что если элемента в справочнике "Номенклатура" нет, то его необходимо добавить...

НайтиНоменклатуру = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
Если НайтиНоменклатуру = Справочники.Номенклатура.ПустаяСсылка() Тогда
    НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
    НовыйЭлемент.Наименование = ТекНоменклатура;
    НовыйЭлемент.НаименованиеПолное = ТекНоменклатура;
    НовыйЭлемент.БазоваяЕдиницаИзмерения = ТекЕдИзм;
    НовыйЭлемент.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
    НовыйЭлемент.Записать();
            
    НоваяЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
    НоваяЕдИзм.Наименование = ЕдИзмЭксель;
    НоваяЕдИзм.Владелец = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
    НоваяЕдИзм.Коэффициент = 1;
    НоваяЕдИзм.Записать();
            
    ЗаписанныйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
    НужнаяЕдИзм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмЭксель,Ложь,,ЗаписанныйЭлемент);
    Объект = ЗаписанныйЭлемент.ПолучитьОбъект();
    Объект.ЕдиницаХраненияОстатков = НужнаяЕдИзм;
    Объект.ЕдиницаДляОтчетов = НужнаяЕдИзм;
    Объект.Записать();

Но здесь есть один минус - когда создается новый элемент, то попадает он не в группу элементов (их для примера две: Хозяйственный и Медицинский), а в саму номенклатуру, и после, не отображается на отчетах по складам.
Пробовал решить проблему таким образом (снова упомяну, что в программировании 1С новенький):

НайтиНоменклатуру = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
         Если НайтиНоменклатуру = Справочники.Номенклатура.ПустаяСсылка() Тогда
            
            Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда
               ЭлементыФормы.ФлажокМедицинский.Доступность = Ложь;
               НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
               НовыйЭлемент.Наименование = ТекНоменклатура;
               НовыйЭлемент.НаименованиеПолное = ТекНоменклатура;
               НовыйЭлемент.БазоваяЕдиницаИзмерения = ТекЕдИзм;
               НовыйЭлемент.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
               НовыйЭлемент.Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Хозяйственный");
               НовыйЭлемент.Записать();
               
               НоваяЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
               НоваяЕдИзм.Наименование = ЕдИзмЭксель;
               НоваяЕдИзм.Владелец = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
               НоваяЕдИзм.Коэффициент = 1;
               НоваяЕдИзм.Записать();
               
               ЗаписанныйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
               НужнаяЕдИзм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмЭксель,Ложь,,ЗаписанныйЭлемент);
               Объект = ЗаписанныйЭлемент.ПолучитьОбъект();
               Объект.ЕдиницаХраненияОстатков = НужнаяЕдИзм;
               Объект.ЕдиницаДляОтчетов = НужнаяЕдИзм;
               Объект.Записать();
            ИначеЕсли ЭлементыФормы.ФлажокМедицинский = Истина Тогда
               ЭлементыФормы.ФлажокХозяйственный.Доступность = Ложь;
               НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
               НовыйЭлемент.Наименование = ТекНоменклатура;
               НовыйЭлемент.НаименованиеПолное = ТекНоменклатура;
               НовыйЭлемент.БазоваяЕдиницаИзмерения = ТекЕдИзм;
               НовыйЭлемент.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
               НовыйЭлемент.Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Медицинский");
               НовыйЭлемент.Записать();
               
               НоваяЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
               НоваяЕдИзм.Наименование = ЕдИзмЭксель;
               НоваяЕдИзм.Владелец = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
               НоваяЕдИзм.Коэффициент = 1;
               НоваяЕдИзм.Записать();
               
               ЗаписанныйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Короткая);
               НужнаяЕдИзм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмЭксель,Ложь,,ЗаписанныйЭлемент);
               Объект = ЗаписанныйЭлемент.ПолучитьОбъект();
               Объект.ЕдиницаХраненияОстатков = НужнаяЕдИзм;
               Объект.ЕдиницаДляОтчетов = НужнаяЕдИзм;
               Объект.Записать();
            Иначе
               Прервать;
            КонецЕсли;

Предварительно добавив на форму два флажка. Но при считывании элементов из таблицы ничего не происходит, и таблица остаётся пустой, либо заполняется до обнаружения нового элемента. Может кто подскажет мне глупому, как разделить поступления между складами?
Заранее благодарен всем, кто откликнется!

[wise]

(0) ошибка: Справочники.Номенклатура.ПустаяСсылка()
вместо
Справочники.Номенклатура.СоздатьЭлемент();

[Mr.Broock]

Увидел, спасибо. Сменил, но не помогло.

[wise]

(2) ошибка:
Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда

[alex0402]

Справочники.Номенклатура.НайтиПоНаименованию("Хозяйственный")

Справочники.Номенклатура.НайтиПоНаименованию("Медицинский")

точно что-то возвращают? или пустая ссылка?

[Mr.Broock]

(2) ошибка:
Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда

Попробовал с точкой останова, он перепрыгивает оба условия
- Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда
- ИначеЕсли ЭлементыФормы.ФлажокМедицинский = Истина Тогда

отсюда вопрос, как прописать правильно, чтобы программа считывала отметку флажка?

Добавлено: 17 сен 2018, 11:43

Справочники.Номенклатура.НайтиПоНаименованию("Хозяйственный")

Справочники.Номенклатура.НайтиПоНаименованию("Медицинский")

точно что-то возвращают? или пустая ссылка?

Программа даже не доходит туда, она считает, что условия:

Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда и Если ЭлементыФормы.ФлажокХозяйственный = Истина Тогда

не соблюдаются, хотя chekbox на форме, в режиме отладки я отмечаю...

[wise]

(5) значение реквизита формы

Если ФлажокХозяйственный Тогда

[Mr.Broock]

(5) значение реквизита формы

Если ФлажокХозяйственный Тогда

Заработала!!! Премного благодарен!