Процедура Выполнить()      
   Если Вопрос("Чтобы продолжить нажмите <Да>, чтобы отменить нажмите <Нет>",4)=7 тогда
       Возврат;
   КонецЕсли;
   Сп=СоздатьОбъект("СписокЗначений");
   СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
   СпрСостСемьи=СоздатьОбъект("Справочник.СоставСемьи");
   СпрНалЛьготы=СоздатьОбъект("Справочник.НалоговыеЛьготы");
   СпрТипЛьготы=СоздатьОбъект("Справочник.ЛьготыПоПодоходномуНалогу");
   СпрТипЛьготы.НайтиПоНаименованию("На детей",0,1);  
   ТипЛьготыНаДет=СпрТипЛьготы.ТекущийЭлемент();
   СпрСотр.ВыбратьЭлементы();
   Стр="";
   Пока СпрСотр.ПолучитьЭлемент()=1 цикл  
       Если СпрСотр.ЭтоГруппа()=0 тогда  
           СпрНалЛьготы.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());  
           СпрНалЛьготы.ВыбратьЭлементы();  
           Пока СпрНалЛьготы.ПолучитьЭлемент()=1 цикл
               Если СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет тогда
                   ///СпрНалЛьготы.Удалить();
               КонецЕсли;
           КонецЦикла;    
           СпрСостСемьи.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
           СпрСостСемьи.ВыбратьЭлементы();
           Сп.УдалитьВсе();
           Пока СпрСостСемьи.ПолучитьЭлемент()=1 Цикл
               Если ((СпрСостСемьи.Родство=Перечисление.СтепениРодства.Сын)или
               (СпрСостСемьи.Родство=Перечисление.СтепениРодства.Дочь))и
               (СпрСостСемьи.ДеньРождения>Д)тогда
                   Сп.ДобавитьЗначение(СпрСостСемьи.ТекущийЭлемент());  
               КонецЕсли;
           КонецЦикла;  
           Если Сп.РазмерСписка()>=2 тогда
               Для н=1 по Сп.РазмерСписка() цикл  
                   СпрНалЛьготы.Новый()????????????????????????????????????????;  
                   СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
                   СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
                   СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
                   СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
                   СпрНалЛьготы.Сумма=2;
                   СпрНалЛьготы.Записать();  
               
               КонецЦикла;
           ИначеЕсли Сп.РазмерСписка()=1 тогда
               Для н=1 по Сп.РазмерСписка() цикл  
                   СпрНалЛьготы.Новый???????????????????????????????????????????????();  
                   СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
                   СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
                   СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
                   СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
               
                   СпрНалЛьготы.Записать();  
                   
               КонецЦикла;                
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   Сообщить("льготы на детей удалены");
   Сообщить(Стр);
   Сообщить("Выполнено");

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

подскажите что вписать в замен -----------СпрНалЛьготы.Новый()????????????????????????????????????????;  
чтобы не создава новый элемент а изменял старый элемент

кто может кто знает

(2) Выбирай!
СпрНалЛьготы.НайтиПоНаименованию()
СпрНалЛьготы.НайтиПоКоду()
СпрНалЛьготы.НайтиПоРеквизиту()

Boleev если можешь напиши а то я писал найти по элементу у меня вылазит ошибка не выбран

(0) http://mista.ru/tutor_1c/sprav.htm#find

(6) а ты выбрал из (4)

я писал
                  СПрНалЛьготы.НайтиЭлемент(На детей)
                   СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
                   СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
                   СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
                   СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
                   СпрНалЛьготы.Сумма=2;
                   СпрНалЛьготы.Записать();  
правильно

забыл
СПрНалЛьготы.НайтиЭлемент("На детей")

(9) Если СПрНалЛьготы.НайтиПоНаименованию("На детей")=1 //нашли

а для чего там если

пишет
СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
{Обработка.новый1.Форма.Модуль(52)}: Не выбран элемент!

для этого там и было Если =)

(2) Может чего не понял.

СправочникСсылка.<Имя справочника> (CatalogRef.<Имя справочника>)
ПолучитьОбъект (GetObject)
Синтаксис:

ПолучитьОбъект()
Возвращаемое значение:

Тип: СправочникОбъект; Неопределено.
Неопределено - объекта в базе нет (например, при обмене данными или после непосредственного удаления объекта, на который есть ссылки).
Описание:

Получает по ссылке объект, предназначенный для чтения, изменения, добавления и удаления справочника.

(15) Ну во первых, тут семерка) А во вторых, что бы получить из чего то объект, надо сначала найти это самое что то :)

(13) Почитай в СП описание метода НайтиПоНаименованию(). Скорее всего наименование неверно указываешь, либо режим поиска неверный. попробуй
НайтиПоНаименованию("На детей", 0, 0) и посмотри в отладчике какое значение туда попадает...

Кстати у тебя в примере есть уже поиск по наименованию в другом справочнике, чужой код правим?:)

Процедура Выполнить()      
   Если Вопрос("Чтобы продолжить нажмите <Да>, чтобы отменить нажмите <Нет>",4)=7 тогда
       Возврат;
   КонецЕсли;
   Сп=СоздатьОбъект("СписокЗначений");
   СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
   СпрСостСемьи=СоздатьОбъект("Справочник.СоставСемьи");
   СпрНалЛьготы=СоздатьОбъект("Справочник.НалоговыеЛьготы");
   СпрТипЛьготы=СоздатьОбъект("Справочник.ЛьготыПоПодоходномуНалогу");
   СпрТипЛьготы.НайтиПоНаименованию("На детей",0,1);  
   ТипЛьготыНаДет=СпрТипЛьготы.ТекущийЭлемент();
   СпрСотр.ВыбратьЭлементы();
   Стр="";
   Пока СпрСотр.ПолучитьЭлемент()=1 цикл  
       Если СпрСотр.ЭтоГруппа()=0 тогда  
           СпрНалЛьготы.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());  
           СпрНалЛьготы.ВыбратьЭлементы();  
           Пока СпрНалЛьготы.ПолучитьЭлемент()=1 цикл
               Если СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет тогда
               ///    СпрНалЛьготы.Удалить();
               КонецЕсли;
           КонецЦикла;    
           СпрСостСемьи.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
           СпрСостСемьи.ВыбратьЭлементы();
           Сп.УдалитьВсе();
           Пока СпрСостСемьи.ПолучитьЭлемент()=1 Цикл
               Если ((СпрСостСемьи.Родство=Перечисление.СтепениРодства.Сын)или
               (СпрСостСемьи.Родство=Перечисление.СтепениРодства.Дочь))и
               (СпрСостСемьи.ДеньРождения>Д)тогда
                   Сп.ДобавитьЗначение(СпрСостСемьи.ТекущийЭлемент());  
               КонецЕсли;
           КонецЦикла;  
           Если Сп.РазмерСписка()>=2 тогда
               Для н=1 по Сп.РазмерСписка() цикл  
               Если    СПрНалЛьготы.НайтиПоНаименованию("На детей")=1 тогда
                   СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
                   СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
                   СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
                   СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
                   СпрНалЛьготы.Сумма=2;
                   СпрНалЛьготы.Записать();  
                            конецЕсли;
               КонецЦикла;
           ИначеЕсли Сп.РазмерСписка()=1 тогда
               Для н=1 по Сп.РазмерСписка() цикл  
               Если    СПрНалЛьготы.НайтиПоНаименованию("На детей")=1 тогда
                   СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
                   СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
                   СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
                   СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
                   СпрНалЛьготы.Сумма=27;
                   СпрНалЛьготы.Записать();  
                     конецЕсли;
               КонецЦикла;                
           КонецЕсли;
       
          конецЕсли;
   КонецЦикла;
   Сообщить("льготы на детей удалены");
   Сообщить(Стр);
   Сообщить("Выполнено");
КонецПроцедуры

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

del123  можешь глянуть код если не занят

какой элемент в Справочнике "налоговые льготы" ты хочешь найти?

На детей

Вобщем, на сколько я понял, тебе надо что то вроде такого:
Если СпрНалЛьготы.НайтиПоРеквизиту("ТипЛьготы", ТипЛьготыНаДет, 0) = 0 тогда
    СпрНалЛьготы.Новый();
    СпрНалЛьготы.ТипЛьготы=ТипЛьготыНаДет;
    СпрНалЛьготы.Владелец=СпрСотр.ТекущийЭлемент();  
КонецЕсли;
СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
СпрНалЛьготы.Сумма=27;
СпрНалЛьготы.Записать();

Оплату принимаю на карту :D

да эта пригодится........

ты новый создаешь  а как изменить который там есть

ты новый создаешь  а как изменить который там уже есть   del123

я проверяю сначала. Если его там нет то создаю. Для этого там Если и стоит.

а как изменить который там есть вот в чем главная проблема del123

del123 ты в онлайне

Может поучиться пойти?... Что такое Синтаксис помощник знаешь? Почитай там что делает функция НайтиПоРеквизиту()

(16) Да, согласен, я тот самый.
(0) Для начала вот это переписать надо

СпрТипЛьготы.НайтиПоНаименованию("На детей",0,1);  
ТипЛьготыНаДет=СпрТипЛьготы.ТекущийЭлемент();

на

Если СпрТипЛьготы.НайтиПоНаименованию("На детей",0,1) = 1 тогда  
   ТипЛьготыНаДет=СпрТипЛьготы.ТекущийЭлемент();

Иначе
   Сообщить("Не найден ...");
   возврат;
КонецЕсли;

ну, если не нужно что бы создавало новый элемент, то можно сделать:
Если СпрНалЛьготы.НайтиПоРеквизиту("ТипЛьготы", ТипЛьготыНаДет, 0) = 0 тогда
    Сообщить("Элемент не найден, запись невозможна!!!");
    продолжить;
КонецЕсли;
СпрНалЛьготы.ДатаНачала=Сп.ПолучитьЗначение(н,).ДеньРождения;
СпрНалЛьготы.ДатаОкончания=ДобавитьМесяц(Сп.ПолучитьЗначение(н,).ДеньРождения,216);
СпрНалЛьготы.Сумма=27;
СпрНалЛьготы.Записать();

(31) ну и это тоже не помешает..)
А кто это - тот самый?)

(33) Не скажу ))) только жена знает

:D

(13) (31) ну что этот элемент не выбран?