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

и после нее есть удаление строк с нулевым количеством. Появилась необходимость по кнопке добавлять эти же данные из договора, но чтобы данные не повторялись. Мучаюсь - как удалить повторяющиеся строки?? вы меня не разу еще не подводили ребята) Спасибо всем заранее

добавляй только те данные которых нет в таблице и вуаля - проблема решена :)

кааак?

Мне тоже интересно :)

каак? :-)

имхо, табчасть в запрос, сгруппировать и просуммировать, заодно можно и условие на неноль, результат в табчасть.

вот запрос
"ВЫБРАТЬ
                  |    Бит_ТЦП.ТЦП КАК ТЦП,
                  |    Бит_ТЦП.Цена КАК Цена,
                  |    Бит_СметаЭлементыТЦП.ТЦП КАК ТЦП1
                  |ИЗ
                  |    Документ.Бит_Смета.ЭлементыТЦП КАК Бит_СметаЭлементыТЦП
                  |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Бит_ТЦП КАК Бит_ТЦП
                  |        ПО Бит_СметаЭлементыТЦП.ТЦП <> Бит_ТЦП.ТЦП
                  |ГДЕ
                  |    Бит_ТЦП.Бит_РамочноеСоглашение = &РамочноеСоглашение";


что с ним не так?:(

что такое Бит? зачем ругатся на форуме?

(0) Сорри, алгоритм из серии "поток сознания в бессознательном состоянии".

"...после нее есть удаление строк с нулевым количеством" - а где "количество" в строках, которые вы добавляете? Цена - есть, а где количество?

PS: Что значит "повторяющие строки"? По какому набору реквизитов уникальность хотите иметь?

количество заполняется в документ ручками, если количество не заполнено - то эта строка считается ненужной и после этого удаляется по нажатию кнопки. Потом, для пользователя если он вдруг случайно не заполнил у нужной строки(строк) количество необходимо вернуть данные по кнопке, и для этого необходимо, чтобы строки которые в таблице были исключены из следующей выборки! Вот как-то так! :)

Не надо потакать пользователям. Добавь дополнительное предупреждение при удалении строк с выводом "нулевых"

(9) Как я понял - это два действия, автономных и независимых друг от друга. Подключить две обработки к табличной части документа. Одна удаляет строки с нулевым количеством. Другая - добавляе отсутствующие в ТЧ строки по регистру сведений. Так?

(9) это подбор называется

одно табличное поле - это данные даокумента
второе табличное поле - это данные набора

а удаление/возврат удаленных - от лукавого

в любом случае садомазо)

(11), Да, так точно

При обработке запроса по заполнению табличной части проверяй наличие строки с номенклатурой и добавляй только отсутствующие.

(13) Первый алгоритм как-то так (если количество -> реквизит "Количество" ТЧ):

Отбор = Новый Структура("Количество",0);
НайденныеСтроки = ЭлементыТЦП.НайтиСтроки(Отбор);
Для Каждого Строка Из НайденныеСтроки Цикл
  ЭлементыТЦП.Удалить(Строка);
КонецЦикла;

После удаления повторяй цикл заново.

(15) Первый алгоритм есть, нужен второй как раз

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

(0) нефига не понял у ТЧ метод свернуть украли что ли?

При обработке выборки
Если ТЧ.Найти(...) Тогда
продолжить

(18) Премного благодарен, сударь!

Вообще всем спасибо!

(21) Она сударыня.

(18) Премного благодарен, сударыня, простите мои слепые глаза)

Алгоритм из (0) подправь так, чтобы он не добавлял "повторяющиеся" строки. примерно так:

Запрос.Текст =
"ВЫБРАТЬ
|    Бит_ТЦП.ТЦП КАК ТЦП,
|    Бит_ТЦП.Цена
|ИЗ
|    РегистрСведений.Бит_ТЦП КАК Бит_ТЦП
|ГДЕ
|    Бит_ТЦП.Бит_РамочноеСоглашение = &РамочноеСоглашение";
Запрос.УстановитьПараметр("РамочноеСоглашение", Договор.Бит_РамочноеСоглашение);

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

  Отбор = Новый Структура("ТЦП",Выборка.ТЦП);
  НайденныеСтроки = ЭлементыТЦП.НайтиСтроки(Отбор);

  Если НайденныеСтроки.Количество() = 0 Тогда
     НоваяСтрока = ЭлементыТЦП.Добавить();
     НоваяСтрока.Тцп = Выборка.ТЦП;
     НоваяСтрока.Цена = Выборка.Цена;
  КонецЕсли;
КонецЦикла

народ не иначе обкурился в пятницу уже.

Запрос.Текст =
"ВЫБРАТЬ
|    Бит_ТЦП.ТЦП КАК ТЦП,
|    Бит_ТЦП.Цена
|ИЗ
|    РегистрСведений.Бит_ТЦП КАК Бит_ТЦП
|ГДЕ
|    Бит_ТЦП.Бит_РамочноеСоглашение = &РамочноеСоглашение
|    И (НЕ Бит_ТЦП.ТЦП В (&УжеИмеющиесяВТЧ))";


(25) Угу, уже обкурился. Ты ещё алгоритм (19) озвучь - будет совсем весело :)

И кстати: алгоритм из (6) - не стоит использовать. Ибо он требует предворительной записи документа. В экранной форме редактирования этого самого документа - совсем "не фонтан" :)

пятница вступила в свои права. Эх, везет людям, а мне еще пахать (

(26) ТС, пусть сам СП читает.

"Чужую беду - руками разведу" - не мешай раслабляться от своих проблем на проблеме автора. К сотому посту будет озвучен генеальный алгоритм, удолетворяющий всех :)

(30) ну не до такой же степени. Новички же принимают все за чистую монету, а потом откуда столько криворуких 1С - ников?

ребята вы о чем вообще? :)

Хех :) Всё что здесь написано - может оказать неверным. Зато - не скучно - мы общаемся. Почему неверно? Ну, например, "Цена" может быть измерением или реквизитом в регистре сведений. Кто не понял - переспросите, объясню.

(33) вот только не надо усугублять то )

то что написала Шапокляк, спасибо ей искренне от души, работает вполне нормально) но ваших советов хватит с запасом)))

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

       КонецЦикла;
   Иначе
       Сообщить("Нельзя добавлять дополнительные соглашения в качестве рамочных!");
       Договор=Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
   КонецЕсли;
   
КонецПроцедуры

(32) ну во первых, чтобы не получать лишнее, это можно отсечь уже в запросе,
как в (25).

УжеИмеющиесяВТЧ = ТЧДокумента.ВыгрузитьКолонку("ИмяКолонки")

это раз.
Во вторых у ТЧ есть метод свернуть.
ТЧ.Свернуть("ИмяКолонки1,ИмяКолонки2") - и все дублей нет.
По поводу написанного в (18) .........

(34)... да и для (36) тоже :) ТС не ответил на вопрос об "повторяющихся" строках. Почему-то все, вдруг, решили что уникальность по одному реквизиту и этот реквизит - "ТМЦ". Вот я и выложил алгоритм, который легко "адаптировать" за счет изменения условий отбора.

(37) А если не только количество, но и цена - различные?

(36) народ, ну реально -завязывайте уже.

(38) Упс. "ТМЦ" -> "ТЦП". Обговорился :)

(38) на (6) посмотри. Там только один реквизит проверяется.

(38) ТС молчал про дубли строк. если несколько параметров то использовать НайтиСтроки(<ПараметрыОтбора>) и я думаю вопрос закрыт. так пусть ТС думаем.

Согласен. Автору решать, когда завязать. Если, по его мнению, ответ уже дан - пусть скажет "Всем - спасибо"(с) и тем самым закроет тему.

(24) может сразу все запросом что бы по феншую :)

(44) феншуй чуть дальше в (25) )

ТС теперь явно в растерянности )

а несколько параметров ? :)

а хотя для Тяпници достаточно и этого. что то добрые все сегодня :)

(47) я уже ссылался на (6) - там проверяется один параметр. Потому и запрос писался под 1 параметр.

(24) и (25) Я обещал к сотому посту полный алгоритм озвучить. В (24) ещё пары-тройки условий не хватает ТиИ ТЧ документа (например, на количество() > 1; "лишние" строки тцп - не по договору...).

ну вас нафиг) *Ушел работать*

(50) Тьфу. Со ссылками наврал. Фсё. У меня с утра уже тяпница :)

Ну вас нафиг. "Ушел работать"(51)

(50) если на то пошло. то нужно получить ТЧ Документа и на основание его колонок делать запрос к РС и проверять на уникальность и тогда получим выборку которая запишет недостающие элементы в ТЧ. а еще лучше получить тех которых не хватает и те которые есть и результат загрузить в ТЧ :)