Помогите создать обработку в 1С предприятии :dfbsdfbsdf:

[proofet]

объясните ктонибудь пожалуйсто еще раз работу Цикла...никак не пойму эту часть:

Код Выделить Развернуть

ТабЧасть=ВыборкаКонтрагенты.ТорговыеТочки;
     Если ТабЧасть.НайтиСтроки(Новый Структура("ТорговаяТочка", НашаТоргТочкаССылка).Количество()=0 тогда
            Контрагент=ВыборкаКонтрагенты.ПолучитьОбъект();
            НоваяСтрокаТЧ=ТабЧасть.Добавить();
            НоваяСтрокаТЧ.ТорговаяТочка=НашаТоргТочкаССылка;
            Контрагент.Записать();
 

[cska-fanat-kz]

В корне неверно.
Запрос уже выбрал всю необходимую информацию!

Надо так:

Запрос = Новый Запрос;
       Запрос.Текст = "ВЫБРАТЬ
                       |Контрагенты.Ссылка
                       |ИЗ
                       |Справочник.Контрагенты КАК Контрагенты
                       |ГДЕ
                       |(НЕ Контрагенты.Ссылка В
                       |(ВЫБРАТЬ РАЗЛИЧНЫЕ
                       |КонтрагентыТорговыеТочки.Ссылка КАК Контрагент
                       |ИЗ
                       |Справочник.Контрагенты.ТорговыеТочки КАК КонтрагентыТорговыеТочки
                       |ГДЕ
                       |КонтрагентыТорговыеТочки.Ссылка В ИЕРАРХИИ (&парамГруппа)
                       |И КонтрагентыТорговыеТочки.ТорговыеТочки = &парамТорговаяТочка))
                       |И Контрагенты.ЭтоГруппа = ЛОЖЬ
                       |И Контрагенты.Ссылка В ИЕРАРХИИ(&парамГруппа)";
       Запрос.УстановитьПараметр("парамГруппа", ЭлементыФормы.ПолеВыбора1.Значение);
       Запрос.УстановитьПараметр("парамТорговаяТочка", ЭлементыФормы.СправочникСписок.ТекущаяСтрока);
       
       Результат = Запрос.Выполнить();
       
       Если Результат.Пустой() Тогда
       
          Возврат;
       
       КонецЕсли;
       
       Выборка = Результат.Выбрать();
       
       Пока Выборка.Следующий() Цикл
           
           Сообщить("Добавляем новую ТТ контрагенту "+Выборка.Ссылка);
           
           КонтрАгентОбъект = Выборка.Ссылка.ПолучитьОбъект();
           НоваяТТ = КонтрАгентОбъект.ТорговыеТочки.Добавить();
           НоваяТТ.ТорговыеТочки = ЭлементыФормы.СправочникСписок.ТекущаяСтрока;
           КонтрАгентОбъект.Записать();
           
       КонецЦикла;
       
       Сообщить("ТТ добавлены");
       
   Иначе
       Сообщить("Выберите группу");
   КонецЕсли;

[proofet]

Спасибоо!!! Ваххх...я твой фанат!)))))))Шаришь!) Наконец то работает всё как нужно.... еще нужно только в запросе проверять ТТ на "пометку на удаление"

[cska-fanat-kz]

Спасибоо!!! Ваххх...я твой фанат!)))))))Шаришь!) Наконец то работает всё как нужно.... еще нужно только в запросе проверять ТТ на "пометку на удаление"

Переведи.
1. Проверять что в ТЧ ТорговыеТочки контрагента имеется ТТ помеченная на удаление
2. Проверять что заносимая ТТ помечена на удаление

В случае 2 это делается не в запросе

[proofet]

2ое...

[Klyacksa]

объясните ктонибудь пожалуйсто еще раз работу Цикла...никак не пойму эту часть

Да, действительно, отбор по торговой точке нужно либо в запросе делать, либо в цикле потом

Проверка на пометку удаления:

Код Выделить Развернуть

Если ТоргТочка.ПометкаУдаления тогда
     Сообщить("Выбранная торговая точка помечена на удаление!");
     Возврат;
КонецЕсли

[proofet]

Спасибо!....Эх всё как всегда гениально и просто)