Имеется файл в формате xls содержащий список товаров, загружаю его в ТЧ. Далее сохраняю в Справочнике товары.
У элемента Справочника имеется реквизит Наличие(Тип Булево)
1.При загрузке если товар имеется в прайсе и в 1с, то Наличие=Истина
2.Если товар имеется в прайсе но нет в 1с , создается данный элемент, Наличие=Истина
3.Если товара нет в прайсе, но он есть в 1с, то у данного элемента Начисление=Ложь
Никак не могу сделать, пункт №3, товар остается в прайсе без изменения(Наличие=Истина)
Может подскажете в чем причина?
&НаКлиенте
Процедура ЗагрузитьВСправочники(Команда)
    СоздаемТовар();
КонецПроцедуры


&НаСервере
Процедура СоздаемТовар()
    
    Для Каждого Стр Из Объект.СписокПартнеров Цикл

        Если Справочники.Товар.НайтиПоНаименованию(Стр.ВидТовара) = Справочники.Товар.ПустаяСсылка() Тогда
            
            НоваяГруппа = Справочники.Товар.СоздатьГруппу();
            НоваяГруппа.Наименование = Стр.ВидТовара;
            
            Попытка
                НоваяГруппа.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
            
        Иначе
            
            НоваяГруппа = Справочники.Товар.НайтиПоНаименованию(Стр.ВидТовара)

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

        КонецЕсли;
        
  КонецЦикла;


КонецПроцедуры

Ошибок пипец

(0) Если Справочники.Товар.НайтиПоНаименованию(Стр.ВидТовара).Пустая()

Код конечно - УГ.
А так - создавай массив ссылок номенклатур, которые уже записал, а потом запросом из справочника выбирай оставшиеся

Гнать сцаными тряпками такого кодера.

1) у вас что один поставщик всего? что если поставщиков много и у одного есть, у другого нет, у третьего есть. А реквизит один на всех????
2) Доспутим даже поставщик всего 1. Вообще один.
Где тут запрос по всей номенклатуре, соединение с таблицей, и если нет в таблице то идет уже другая выборка по товарам которых нет в таблице, и только у них мы ставим Ложь.


По примеру и коду - переписать все нафиг.
Долго писать, а мне лень поэтому мучайся как хочешь.

поставщик 1

Пример показать как надо сделать можете?

Я просто не знаю как обратиться к таблице в которую я выгрузил данные из xls

(0)Не хотел  поддерживать негатив.
Но извини, они правы...
Работать тебе надо над собой.

1) ты два раза обращаешся к поиску тем самым дублируешь запрос.

Достаточно ОДИН раз обратится к поиску через переменную и далее проверять ее и дальше не искать дважны.


НайденЭлемент = Справочники.Товар.НайтиПоНаименованию(Стр.Наименование);

Если НЕ НайденЭлемент = Справочники.Товар.ПустаяСсылка()  Тогда
            
            ТекЭлемент =  НайденЭлемент.Ссылка;

Справочники.Товар.ПустаяСсылка()

Лучше объявить один раз перед началом всего цикла и тоже через переменную.

ПустаяСсылка = Справочники.Товар.ПустаяСсылка();

И далее уже обращатся на проверку через ПустаяСсылка

(10)Мань..
Да успокойся уже:-)
Он надеюсь понял.

Менеджер Справочника тоже можнообъявить ожин раз.

СпрНоменклатура = Справочники.Номенклатура;

И тоже разместить перед циклом а в цикле обращаться через СпрНоменклатура

(9) не хотел, но поддержал
+(11) НоваяГруппа = Справочники.Товар.НайтиПоНаименованию(Стр.ВидТовара);
        Если НоваяГруппа.Пустая() Тогда
            
            ГруппаТовара = Справочники.Товар.СоздатьГруппу();
            ГруппаТовара.Наименование = Стр.ВидТовара;
            Попытка
                ГруппаТовара.Записать();
                НоваяГруппа = ГруппаТовара.Ссылка();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
            
        КонецЕсли;
        Сообщить(НоваяГруппа);

Ну а по поводу пункта три писать запрос. ТЗ во временнуб таблицу. Запрос со справочником номенклатуры с соединением временной таблицы. все элементы которые не соединены в выборке это те которых нет. И уже там ложь.

Но это я могу дать кусок кода - он но к тебе не к месту будет. ты там ничо не поймешь))
Тк как это уже целая готовая программа по прайсам. и там все через регистры сделано.

(14) Если НоваяГруппа.Пустая() Тогда - вот это нехороший кусок кода.

(15)Маня, ты прям убиваешь все мои запасы попкорна...

(16) почему? хоть я поучусь в этой теме, если уж не ТС)

Давайте

(18) обращение через точку к объекту.
эффективнее НоваяГруппа = ПустаяСсылка
где ПустаяСсылка перед циклом создаем переменнею см (11)

НайденЭлемент = Справочники.Товар.НайтиПоНаименованию(Стр.Наименование);

        Если НЕ НайденЭлемент = ПустаяСсылка  Тогда
            
            ТекЭлемент =  НайденЭлемент.Ссылка;
            ТекЭлемент.Наличие=Ложь;
            
            Попытка
                ТекЭлемент.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
            
            Сообщить("В справочнике номенклатура присутствует элемент " + ТекЭлемент.Ссылка);
            
        Иначе    
            НайденЭлемент=Стр.Наименование;
            ВыборкаЭлемента = Справочники.Товар.СоздатьЭлемент();
            ВыборкаЭлемента.Наименование = Стр.Наименование;
            ВыборкаЭлемента.Цена         = Стр.Цена;
            ВыборкаЭлемента.Склад        = Стр.Склад;
            ВыборкаЭлемента.Наличие      = Истина;
            ВыборкаЭлемента.Родитель     = НоваяГруппа.Ссылка;
            //ВыборкаЭлемента.Записать();
            Попытка
                ВыборкаЭлемента.Записать();
                Сообщить("Добавлен элемент");
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;

        КонецЕсли;

{Обработка.ЗагрузкаПрайсаПоставщика.Форма.Форма.Форма(100)}: Поле объекта недоступно для записи (Наличие)
            ТекЭлемент.Наличие=Ложь;

(18) ааа... ну это ерунда) это только для твоих миллионнопозиционных прайсов актуально)

(23) к (20)

не понял

гы..Ниче несмотрел.
Увидел ИНАЧЕ Синим и понял- это писдец.

(21)Убери это и никому больше не показывай

(26) хватить троллить. ничё он не смотрел. ты уже полчаса в код втыкаешь, не знаешь с какой стороны к нему подойди, признайся честно)

Индиго
Не все сразу становились такими "Гуру"  как вы!, Извините уж...

(28)Иди накуй. Я достаточно серьезный спец.

я и не спорю что вы серьезный спец...

(30) воу воу палехче

(30) он к тебе на "вы" обратился). ты теперь просто обязан ему помочь.

(29)Нет конечно.Только после 12 лет служения
Пртчем не которые думают...

(30) Молоток! Я в тебя верю! Тут главное - начать.

Ну так когда начинали, точно так же задавали "глупые вопросы" и смотрели на очевидные вещи не понимаю, как их сделать...

(36) ничего подобного, он таким родился, и даже акушерам советы давал, когда его вытаскивали )))

(36)Просто заткнуться.

для начала

какой серьёзный перец)

А вообще если честно..

Надоели вы мне:-))..

Мне спать уже пора.Жена зовет

:-))))

Удачи вам

(45) иди иди, подкаблучник ))

давай. не бухти больше)

(8) http://g.zeos.in/?q=1с%208%20запрос%20к%20таблице%20значений

(45)для тебя лично
:-))
ТОП....
ТОП...
ТоПП

Спокойной НЕ Ночи

(49) серьезный спец, по словам жены )))

как называется, когда человек сам с собой разговаривает?

(51) к (49)

(21) Народ местный любит поглумиться...

ВМЕСТО:
ТекЭлемент =  НайденЭлемент.Ссылка;
ТекЭлемент.Наличие=Ложь;
Попытка
    ТекЭлемент.Записать();
Исключение
    Сообщить(ОписаниеОшибки());
КонецПопытки;

НАДО:
ТекЭлемент =  НайденЭлемент.ПолучитьОбъект();
ТекЭлемент.Наличие=Ложь;
ТекЭлемент.Записать();

Чтобы было меньше глупых вопросов нужно прочесть в синтакс-помощнике о назначении возвращаемого функцией ПолучитьОбъект() значения.